Changeset 8249

Timestamp:

Jan 23, 2008, 12:55:16 AM (17 years ago)

Author:

Gary Byers

Message:

Needed a FREEZE for ppc.

File:

• trunk/source/level-0/PPC/ppc-utils.lisp (modified) (1 diff)

trunk/source/level-0/PPC/ppc-utils.lisp

@@ -576 +576 @@
 
 
-
+(defppclapfunction freeze ()
+  "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
+  (check-nargs 0)
+  (li imm0 arch::gc-trap-function-freeze)
+  (trlgei allocptr 0)
+  (ba .SPmakeu64))