Changeset 9271 for branches/ia32/level-0


Ignore:
Timestamp:
Apr 24, 2008, 7:51:19 PM (11 years ago)
Author:
rme
Message:

Corrections to heap-walking functions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-utils.lisp

    r9126 r9271  
    102102    (jmp @test)
    103103    @misc
    104     (add ($ x8632::fulltag-misc) (% obj))
     104    (lea (@ x8632::fulltag-misc (% obj)) (% obj))
    105105    (mov (% obj) (% arg_z))
    106106    (set-nargs 1)
     
    110110    (recover-fn)
    111111    (pop (% obj))
    112     (sub ($ x8632::fulltag-misc) (% obj))
    113     (mov (% obj) (% imm0))
     112    (mov (@ (% obj)) (% imm0))
    114113    (andb ($ x8632::fulltagmask) (% imm0.b))
    115114    (cmpb ($ x8632::fulltag-nodeheader) (% imm0.b))
     115    (mov (@ (% obj)) (% imm0))
    116116    (je @32)
    117     (mov (% obj) (% imm0))
    118117    (cmpb ($ x8632::max-32-bit-ivector-subtag) (% imm0.b))
    119118    (jle @32)
     
    215214    (pop (% obj))
    216215    (sub ($ x8632::fulltag-misc) (% obj))
    217     (mov (% obj) (% imm0))
     216    (mov (@ (% obj)) (% imm0))
    218217    (andb ($ x8632::fulltagmask) (% imm0.b))
     218    (mov (@ (% obj)) (% imm0))
    219219    (cmpb ($ x8632::fulltag-nodeheader) (% imm0.b))
    220220    (je @32)
    221     (mov (% obj) (% imm0))
    222221    (cmpb ($ x8632::max-32-bit-ivector-subtag) (% imm0.b))
    223222    (jle @32)
Note: See TracChangeset for help on using the changeset viewer.