Changeset 9613 for branches

Timestamp:

May 28, 2008, 10:26:48 AM (17 years ago)

Author:

R. Matthew Emerson

Message:

start_lisp: If GCDebug is non-zero, invoke GC before calling
toplevel_loop. The idea is to see if the heap looks sane.

File:

• branches/ia32/lisp-kernel/x86-subprims32.s (modified) (1 diff)

branches/ia32/lisp-kernel/x86-subprims32.s

@@ -78 +78 @@
         __(ldmxcsr %rcontext:tcr.lisp_mxcsr)
         __(movl $TCR_STATE_LISP, %rcontext:tcr.valence)
+        __(clr %imm0)
+        __(cmpl $0,_GCDebug)
+        __(jne 1f)
+        __(uuo_error_gc_trap)
+1:
         __(call toplevel_loop)
         __(movl $TCR_STATE_FOREIGN, %rcontext:tcr.valence)