Changeset 7632


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

In X862-MVCALL, if we pushed a label, the call will have returned to
it, so adjust the compile-time notion of stack-depth accordingly.

File:
1 edited

Legend:

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

    r7452 r7632  
    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.