Changeset 11300


Ignore:
Timestamp:
Nov 5, 2008, 4:30:49 PM (12 years ago)
Author:
gb
Message:

Pushing a SINGLE-FLOAT on x8664 only affects the vstack.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r11299 r11300  
    31953195             
    31963196
     3197
     3198
    31973199(defun x862-push-register (seg areg)
    31983200  (let* ((a-float (= (hard-regspec-class areg) hard-reg-class-fpr))
     
    32113213            (setq vinsn (! vpush-single-float areg))
    32123214            (x862-new-vstack-lcell :single-float *x862-target-lcell-size* 0 nil)
    3213             (x862-open-undo $undo-x86-c-frame)))
     3215            (x862-adjust-vstack *x862-target-node-size*)))
    32143216          (target-arch-case
    32153217           (:x8632
     
    32283230            (x862-open-undo $undo-x86-c-frame)))))
    32293231      vinsn)))
     3232
     3233
    32303234
    32313235(defun x862-pop-register (seg areg)
Note: See TracChangeset for help on using the changeset viewer.