Changeset 10450

Timestamp:

Aug 12, 2008, 7:29:25 PM (11 years ago)

Author:

rme

Message:

FREEZE for x8632.

File:

• trunk/source/level-0/X86/X8632/x8632-utils.lisp (modified) (1 diff)

trunk/source/level-0/X86/X8632/x8632-utils.lisp

@@ -381 +381 @@
   (single-value-return))
 
+(defx8632lapfunction freeze ()
+  "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
+  (movl ($ arch::gc-trap-function-freeze) (% imm0))
+  (uuo-gc-trap)
+  (jmp-subprim .SPmakeu32))
+
 ;;; offset is a fixnum, one of the x8632::kernel-import-xxx constants.
 ;;; Returns that kernel import, a fixnum.