Changeset 13839


Ignore:
Timestamp:
Jun 16, 2010, 1:52:01 AM (10 years ago)
Author:
gb
Message:

%WALK-DYNAMIC-AREA: current object can move, so keep it tagged.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/ARM/arm-utils.lisp

    r13822 r13839  
    173173
    174174(defarmlapfunction %walk-dynamic-area ((a arg_y) (f arg_z))
    175   (let ((fun temp0)
    176         (obj temp1)
     175  (let ((fun temp1)
     176        (obj temp0)
    177177        (sentinel temp2)
    178178        (header imm0)
     
    204204    (bhs @done)
    205205    (set-nargs 1)
    206     (stmdb (:! vsp) (fun obj sentinel))
     206    (stmdb (:! vsp) (arg_z fun sentinel))
    207207    (mov nfn fun)
    208208    (bl .SPFuncall)
    209     (ldmia (:! vsp) (fun obj sentinel))
     209    (ldmia (:! vsp) (obj fun sentinel))
    210210    (add obj obj (:$ arm::cons.size))
    211211    (b @test)
    212212    @misc
    213213    (add arg_z obj (:$ arm::fulltag-misc))
    214     (stmdb (:! vsp) (fun obj sentinel))
     214    (stmdb (:! vsp) (arg_z fun sentinel))
    215215    (set-nargs 1)
    216216    (mov nfn fun)
    217217    (bl .SPFuncall)
    218     (ldmia (:! vsp) (fun obj sentinel))
     218    (ldmia (:! vsp) (obj fun sentinel))
     219    (add obj obj (:$ arm::fulltag-misc))
    219220    (ldr header (:@ obj (:$ 0)))
    220221    (extract-fulltag tag header)
Note: See TracChangeset for help on using the changeset viewer.