Index: /trunk/source/level-0/PPC/ppc-utils.lisp
===================================================================
--- /trunk/source/level-0/PPC/ppc-utils.lisp	(revision 8248)
+++ /trunk/source/level-0/PPC/ppc-utils.lisp	(revision 8249)
@@ -576,5 +576,10 @@
 
 
-
+(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))