Changeset 7636


Ignore:
Timestamp:
Nov 12, 2007, 1:37:43 AM (12 years ago)
Author:
gb
Message:

Multiple-value-call label stack-effects bug.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x862.lisp

    r7624 r7636  
    47754775            (x862-close-undo)
    47764776            (x862-temp-pop-node seg x8664::temp0)
    4777             (x862-invoke-fn seg x8664::temp0 nil nil xfer label)))
     4777            (x862-invoke-fn seg x8664::temp0 nil nil xfer label)
     4778            (when label
     4779              ;; Pushed a label earlier, then returned to it.
     4780              (setq *x862-top-vstack-lcell* (lcell-parent *x862-top-vstack-lcell*))
     4781              (x862-adjust-vstack (- *x862-target-node-size*)))))
    47784782        (unless recursive-p
    47794783          (if mv-p
Note: See TracChangeset for help on using the changeset viewer.