Changeset 11077


Ignore:
Timestamp:
Oct 13, 2008, 9:50:34 PM (11 years ago)
Author:
gb
Message:

In HEAP-UTILIZATION's inner function, count NIL as a CONS.
In x8632 version of WALK-STATIC-AREA: push the (fixnum-tagged)
pointer to each uvector. (It's a static address so there are
no GC issues,and the code that recovers the header on return
from the function expects this.)

Should close ticket:352.

File:
1 edited

Legend:

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

    r10959 r11077  
    102102    (jmp @test)
    103103    @misc
    104     (lea (@ x8632::fulltag-misc (% obj)) (% obj))
    105     (mov (% obj) (% arg_z))
     104    (lea (@ x8632::fulltag-misc (% obj)) (% arg_z))
    106105    (set-nargs 1)
    107106    (push (% obj))
Note: See TracChangeset for help on using the changeset viewer.