Changeset 10690


Ignore:
Timestamp:
Sep 10, 2008, 5:08:08 AM (11 years ago)
Author:
gb
Message:

Don't use save3 in x8664 %walk-dynamic-area/%walk-static-area.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-utils.lisp

    r10575 r10690  
    9393  (let ((fun save0)
    9494        (obj save1)
    95         (limit save2)
    96         (prev save3))
     95        (limit save2))
    9796    (save-simple-frame)
    9897    (push (% fun))
    9998    (push (% obj))
    10099    (push (% limit))
    101     (push (% prev))
    102     (xorl (%l prev) (%l prev))
    103100    (movq (% f) (% fun))
    104101    (movq (@ x8664::area.active (% a)) (% limit))
     
    120117    @misc
    121118    (lea (@ x8664::fulltag-misc (% obj)) (% obj))
    122     (movq (% obj) (% prev))
    123119    (movq (% obj) (% arg_z))
    124120    (set-nargs 1)
     
    163159    @cons
    164160    (addq ($ x8664::fulltag-cons) (% obj))
    165     (movq (% obj) (% prev))
    166161    (movq (% obj) (% arg_z))
    167162    (set-nargs 1)
     
    180175    (cmpq (% limit) (% obj))
    181176    (jb @loop)
    182     (pop (% prev))
    183177    (pop (% limit))
    184178    (pop (% obj))
     
    205199  (let ((fun save0)
    206200        (obj save1)
    207         (limit save2)
    208         (prev save3))
     201        (limit save2))
    209202    (save-simple-frame)
    210203    (push (% fun))
    211204    (push (% obj))
    212205    (push (% limit))
    213     (push (% prev))
    214206    (movq (% f) (% fun))
    215     (xorl (%l prev) (%l prev))
    216207    (ref-global tenured-area a)
    217208    (movq (@ x8664::area.low (% a)) (% obj))
     
    243234    (lea (@ x8664::fulltag-misc (% obj)) (% obj))
    244235    (movq (% obj) (% arg_z))
    245     (movq (% obj) (% prev))
    246236    (set-nargs 1)
    247237    (:talign 4)
     
    288278    (movq (% obj) (% arg_z))
    289279    (je @done)
    290     (movq (% obj) (% prev))
    291280    (set-nargs 1)
    292281    (:talign 4)
     
    305294    (jb @loop)
    306295    @done
    307     (pop (% prev))
    308296    (pop (% limit))
    309297    (pop (% obj))
Note: See TracChangeset for help on using the changeset viewer.