X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.c;h=efefc8e11abf05a733a9f0f55317d9a776fa9ca9;hb=b767eae48831153473226b985511c8f7a3ef98c5;hp=c4251cb122e892e25c45c22afe78afb9e2caa340;hpb=d7f6139a91d7d9b0667a597584ae306d958bb2f4;p=sbcl.git diff --git a/src/runtime/runtime.c b/src/runtime/runtime.c index c4251cb..efefc8e 100644 --- a/src/runtime/runtime.c +++ b/src/runtime/runtime.c @@ -48,13 +48,11 @@ #endif /* SIGINT handler that invokes the monitor (for when Lisp isn't up to it) */ - static void sigint_handler(int signal, siginfo_t *info, void *void_context) { - printf("\nSIGINT hit at 0x%08lX\n", - (unsigned long) *os_context_pc_addr(void_context)); - ldb_monitor(); + lose("\nSIGINT hit at 0x%08lX\n", + (unsigned long) *os_context_pc_addr(void_context)); } /* (This is not static, because we want to be able to call it from @@ -245,7 +243,7 @@ More information on SBCL is available at . define_var("nil", NIL, 1); define_var("t", T, 1); - set_lossage_handler(ldb_monitor); + set_lossage_handler(monitor_or_something); #if 0 os_init(); @@ -264,16 +262,6 @@ More information on SBCL is available at . #if defined GENCGC gencgc_pickup_dynamic(); #else -#if defined WANT_CGC && defined X86_CGC_ACTIVE_P - { - extern int use_cgc_p; - lispobj x = SymbolValue(X86_CGC_ACTIVE_P); - if (x != type_UnboundMarker && x != NIL) { - /* Enable allocator. */ - use_cgc_p = 1; - } - } -#endif #endif #ifdef BINDING_STACK_POINTER