Changeset 11523 for trunk/source/lisp-kernel/x86-exceptions.c

Timestamp:

Dec 15, 2008, 10:28:35 AM (11 years ago)

Author:

gb

Message:

x86 support for FLASH-FREEZE.
Use signed_natural in x86 gc-like functions.
RECURSIVE-LOCK-WHOSTATE and the RWLOCK-WHOSTATE functions: use
WITH-STANDARD-IO-SYNTAX when consing up the string. Do that in
higher-level code, to avoid early refs to CL-USER pacjage.
(In general, other things similar to RECURSIVE-LOCK-WHOSTATE are
suspect, in that they call (FORMAT NIL ...) in a random environment
where things like *PRINT-READABLY* may be in effect. There are
probably other cases of this.)

File:

• trunk/source/lisp-kernel/x86-exceptions.c (modified) (7 diffs)

trunk/source/lisp-kernel/x86-exceptions.c

@@ -158 +158 @@
 natural gc_deferred = 0, full_gc_deferred = 0;
 
+signed_natural
+flash_freeze(TCR *tcr, signed_natural param)
+{
+  return 0;
+}
+
+
 Boolean
 handle_gc_trap(ExceptionInformation *xp, TCR *tcr)
@@ -212 +219 @@
     }
     xpGPR(xp, Iimm0) = lisp_heap_gc_threshold;
+    break;
+
+  case GC_TRAP_FUNCTION_FLASH_FREEZE: /* Like freeze below, but no GC */
+    untenure_from_area(tenured_area);
+    gc_like_from_xp(xp,flash_freeze,0);
+    a->active = (BytePtr) align_to_power_of_2(a->active, log2_page_size);
+    tenured_area->static_dnodes = area_dnode(a->active, a->low);
+    if (egc_was_enabled) {
+      tenure_to_area(tenured_area);
+    }
+    xpGPR(xp, Iimm0) = tenured_area->static_dnodes << dnode_shift;
     break;
 
@@ -2596 +2614 @@
 
 
-int
+signed_natural
 gc_like_from_xp(ExceptionInformation *xp, 
-                int(*fun)(TCR *, signed_natural), 
+                signed_natural(*fun)(TCR *, signed_natural), 
                 signed_natural param)
 {
@@ -2662 +2680 @@
 }
 
-int
+signed_natural
 purify_from_xp(ExceptionInformation *xp, signed_natural param)
 {
@@ -2668 +2686 @@
 }
 
-int
+signed_natural
 impurify_from_xp(ExceptionInformation *xp, signed_natural param)
 {
@@ -2676 +2694 @@
 /* Returns #bytes freed by invoking GC */
 
-int
+signed_natural
 gc_from_tcr(TCR *tcr, signed_natural param)
 {
@@ -2698 +2716 @@
 }
 
-int
+signed_natural
 gc_from_xp(ExceptionInformation *xp, signed_natural param)
 {
-  int status = gc_like_from_xp(xp, gc_from_tcr, param);
+  signed_natural status = gc_like_from_xp(xp, gc_from_tcr, param);
 
   freeGCptrs();