Ignore:
Timestamp:
Mar 4, 2008, 5:15:34 AM (12 years ago)
Author:
gb
Message:

Use (:rcontext tcr-field) syntax to reference TCR fields.
Don't use SAVE3 (was used for debugging of heap-walking code; might
be used in %%APPLY-IN-FRAME-PROTO if caller sets it.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-0/X86/x86-utils.lisp

    r8356 r8649  
    4444
    4545    ; update active pointer for tsp area.
    46     (movq (@ (% :rcontext) x8664::tcr.ts-area) (% address))
    47     (movq (@ (% :rcontext) x8664::tcr.save-tsp) (% temp))
     46    (movq (:rcontext x8664::tcr.ts-area) (% address))
     47    (movq (:rcontext x8664::tcr.save-tsp) (% temp))
    4848    (movq (% temp) (@ x8664::area.active (% address)))
    4949   
    5050    ;; Update active pointer for vsp area.
    51     (movq (@ (% :rcontext) x8664::tcr.vs-area) (% address))
     51    (movq (:rcontext x8664::tcr.vs-area) (% address))
    5252    (movq (% rsp) (@ x8664::area.active (% address)))
    5353
     
    8787
    8888
    89 
    9089(defx86lapfunction walk-static-area ((a arg_y) (f arg_z))
    9190  (let ((fun save0)
    9291        (obj save1)
    93         (limit save2)
    94         (prev save3))
     92        (limit save2))
    9593    (save-simple-frame)
    9694    (push (% fun))
    9795    (push (% obj))
    9896    (push (% limit))
    99     (push (% prev))
    100     (xorl (%l prev) (%l prev))
    10197    (movq (% f) (% fun))
    10298    (movq (@ x8664::area.active (% a)) (% limit))
     
    118114    @misc
    119115    (lea (@ x8664::fulltag-misc (% obj)) (% obj))
    120     (movq (% obj) (% prev))
    121116    (movq (% obj) (% arg_z))
    122117    (set-nargs 1)
     
    161156    @cons
    162157    (addq ($ x8664::fulltag-cons) (% obj))
    163     (movq (% obj) (% prev))
    164158    (movq (% obj) (% arg_z))
    165159    (set-nargs 1)
     
    178172    (cmpq (% limit) (% obj))
    179173    (jb @loop)
    180     (pop (% prev))
    181174    (pop (% limit))
    182175    (pop (% obj))
     
    203196  (let ((fun save0)
    204197        (obj save1)
    205         (limit save2)
    206         (prev save3))
     198        (limit save2))
    207199    (save-simple-frame)
    208200    (push (% fun))
    209201    (push (% obj))
    210202    (push (% limit))
    211     (push (% prev))
    212203    (movq (% f) (% fun))
    213     (xorl (%l prev) (%l prev))
    214204    (ref-global tenured-area a)
    215205    (movq (@ x8664::area.low (% a)) (% obj))
    216206    (subq ($ (- x8664::cons.size x8664::fulltag-cons))
    217           (@ (% :rcontext) x8664::tcr.save-allocptr))
    218     (movq (@ (% :rcontext) x8664::tcr.save-allocptr) (% allocptr))
    219     (cmpq (@ (% :rcontext) x8664::tcr.save-allocbase) (% allocptr))
     207          (:rcontext x8664::tcr.save-allocptr))
     208    (movq (:rcontext x8664::tcr.save-allocptr) (% allocptr))
     209    (cmpq (:rcontext x8664::tcr.save-allocbase) (% allocptr))
    220210    (jg @ok)
    221211    (uuo-alloc)
    222212    @ok
    223213    (andb ($ (lognot x8664::fulltagmask))
    224           (@ (% :rcontext) x8664::tcr.save-allocptr))
     214          (:rcontext x8664::tcr.save-allocptr))
    225215    (movq (% allocptr) (% limit))
    226216    (jmp @test)
     
    241231    (lea (@ x8664::fulltag-misc (% obj)) (% obj))
    242232    (movq (% obj) (% arg_z))
    243     (movq (% obj) (% prev))
    244233    (set-nargs 1)
    245234    (:talign 4)
     
    286275    (movq (% obj) (% arg_z))
    287276    (je @done)
    288     (movq (% obj) (% prev))
    289277    (set-nargs 1)
    290278    (:talign 4)
     
    303291    (jb @loop)
    304292    @done
    305     (pop (% prev))
    306293    (pop (% limit))
    307294    (pop (% obj))
Note: See TracChangeset for help on using the changeset viewer.