Changeset 7400


Ignore:
Timestamp:
Oct 12, 2007, 9:35:24 AM (13 years ago)
Author:
gb
Message:

Freeze.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-0/X86/x86-utils.lisp

    r6483 r7400  
    443443  (single-value-return))
    444444
     445(defx86lapfunction freeze ()
     446  "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
     447  (movq ($ arch::gc-trap-function-freeze) (% imm0))
     448  (uuo-gc-trap)
     449  (jmp-subprim .SPmakeu64))
     450
     451 
     452 
    445453
    446454
Note: See TracChangeset for help on using the changeset viewer.