Changeset 7633


Ignore:
Timestamp:
Nov 11, 2007, 8:39:39 PM (12 years ago)
Author:
gb
Message:

In X862-MVCALL, account for effect of returning to label pushed earlier.

File:
1 edited

Legend:

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

    r7443 r7633  
    47714771            (x862-close-undo)
    47724772            (x862-temp-pop-node seg x8664::temp0)
    4773             (x862-invoke-fn seg x8664::temp0 nil nil xfer label)))
     4773            (x862-invoke-fn seg x8664::temp0 nil nil xfer label)
     4774            (when label
     4775              ;; Pushed a label earlier, then returned to it.
     4776              (setq *x862-top-vstack-lcell* (lcell-parent *x862-top-vstack-lcell*))
     4777              (x862-adjust-vstack (- *x862-target-node-size*)))))
    47744778        (unless recursive-p
    47754779          (if mv-p
Note: See TracChangeset for help on using the changeset viewer.