X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc.c;h=693eb9559a0877cc92c298e65dfc0613f0d7ebb8;hb=94ac5b7c3ff37850210b6fc9a7593cf1c5752993;hp=ee6a2dad71d5b3c16056020de11f85564e3443ea;hpb=686043635c45a16b418d2cc96a7f704fdab182c2;p=sbcl.git

diff --git a/src/runtime/gc.c b/src/runtime/gc.c
index ee6a2da..693eb95 100644
--- a/src/runtime/gc.c
+++ b/src/runtime/gc.c
@@ -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);