Changeset 8881


Ignore:
Timestamp:
Mar 24, 2008, 10:52:13 PM (11 years ago)
Author:
gb
Message:

Make digested symbol info for next-method var appear after "real" args.

File:
1 edited

Legend:

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

    r8778 r8881  
    56315631  (with-x86-local-vinsn-macros (seg vreg xfer)
    56325632    (let* ((stack-consed-rest nil)
     5633           (next-method-var-scope-info nil)
    56335634           (lexprp (if (consp rest) (progn (setq rest (car rest)) t)))
    56345635           (rest-var-bits (and rest (nx-var-bits rest)))
     
    57955796            (@ (setq *x862-tail-label* (backend-get-next-label))))
    57965797          (when method-var
    5797             (x862-seq-bind-var seg method-var x8664::next-method-context))
     5798            (x862-seq-bind-var seg method-var x8664::next-method-context)
     5799            (when *x862-recorded-symbols*
     5800              (setq next-method-var-scope-info (pop *x862-recorded-symbols*))))
    57985801          ;; If any arguments are still in arg_x, arg_y, arg_z, that's
    57995802          ;; because they weren't vpushed in a "simple" entry case and
     
    58195822          (setq *x862-entry-vstack* *x862-vstack*)
    58205823          (setq reserved-lcells (x862-collect-lcells :reserved))
    5821           (x862-bind-lambda seg reserved-lcells req opt rest keys auxen optsupvloc arg-regs lexprp inherited-vars))
     5824          (x862-bind-lambda seg reserved-lcells req opt rest keys auxen optsupvloc arg-regs lexprp inherited-vars)
     5825          (when next-method-var-scope-info
     5826            (push next-method-var-scope-info *x862-recorded-symbols*)))
    58225827        (when method-var (x862-heap-cons-next-method-var seg method-var))
    58235828        (x862-form seg vreg xfer body)
Note: See TracChangeset for help on using the changeset viewer.