Changeset 9039


Ignore:
Timestamp:
Apr 7, 2008, 9:11:17 PM (11 years ago)
Author:
rme
Message:

Keep next-method-context in a slot in the TCR.

Location:
branches/ia32
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-arch.lisp

    r9000 r9039  
    606606  unboxed0                              ;unboxed scratch locations
    607607  unboxed1
     608  next-method-context                   ;used in lieu of register
    608609)
    609610
  • branches/ia32/compiler/X86/x862.lisp

    r8887 r9039  
    60716071            (@ (setq *x862-tail-label* (backend-get-next-label))))
    60726072          (when method-var
    6073             (x862-seq-bind-var seg method-var x8664::next-method-context))
     6073            (target-arch-case
     6074             (:x8632
     6075              (with-node-target () next-method-context
     6076                (! load-next-method-context next-method-context)
     6077                (x862-seq-bind-var method-var next-method-context)))
     6078             (:x8664
     6079              (x862-seq-bind-var seg method-var x8664::next-method-context))))
    60746080          ;; If any arguments are still in arg_x, arg_y, arg_z, that's
    60756081          ;; because they weren't vpushed in a "simple" entry case and
  • branches/ia32/lisp-kernel/x86-constants32.h

    r9000 r9039  
    422422    natural unboxed0;
    423423    natural unboxed1;
     424    LispObj *next_method_context; /* used in lieu of register */
    424425} TCR;
    425426
  • branches/ia32/lisp-kernel/x86-constants32.s

    r9000 r9039  
    530530         _word(unboxed0)
    531531         _word(unboxed1)
     532         _node(next_method_context)
    532533        _ends
    533534
Note: See TracChangeset for help on using the changeset viewer.