0.7.4.40:

[sbcl.git] / src / runtime / gc.c

diff --git a/src/runtime/gc.c b/src/runtime/gc.c
index fdf9ed1..693eb95 100644 (file)
--- a/src/runtime/gc.c
+++ b/src/runtime/gc.c
@@ -536,7 +536,7 @@ scavenge_interrupt_context(os_context_t *context)
                        }
                }
        }
-#endif reg_LIP
+#endif /* reg_LIP */
 
        /* Compute the PC's offset from the start of the CODE */
        /* register. */
@@ -575,7 +575,7 @@ scavenge_interrupt_context(os_context_t *context)
        /* Fix the LIP */
        *os_context_register_addr(context, reg_LIP) =
            *os_context_register_addr(context, lip_register_pair) + lip_offset;
-#endif reg_LIP
+#endif /* reg_LIP */
        
        /* Fix the PC if it was in from space */
        if (from_space_p(*os_context_pc_addr(context)))
@@ -2253,10 +2253,10 @@ gc_init(void)
 
 void set_auto_gc_trigger(os_vm_size_t dynamic_usage)
 {
-    os_vm_address_t addr=(os_vm_address_t)current_dynamic_space +
-       dynamic_usage;
-    long length =
-       DYNAMIC_SPACE_SIZE + (os_vm_address_t)current_dynamic_space - addr;
+    os_vm_address_t addr=(os_vm_address_t)current_dynamic_space 
+       + dynamic_usage;
+       
+    long length = DYNAMIC_SPACE_SIZE - dynamic_usage;
 
     if (addr < (os_vm_address_t)dynamic_space_free_pointer) {
        fprintf(stderr,
@@ -2264,13 +2264,13 @@ void set_auto_gc_trigger(os_vm_size_t dynamic_usage)
                (unsigned int)dynamic_usage,
                (os_vm_address_t)dynamic_space_free_pointer
                - (os_vm_address_t)current_dynamic_space);
-       return;
+       lose("lost");
     }
     else if (length < 0) {
        fprintf(stderr,
                "set_auto_gc_trigger: tried to set gc trigger too high! (%p)\n",
                dynamic_usage);
-       return;
+       lose("lost");
     }
 
     addr=os_round_up_to_page(addr);