projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.98:
[sbcl.git]
/
src
/
runtime
/
runtime.c
diff --git
a/src/runtime/runtime.c
b/src/runtime/runtime.c
index
c4251cb
..
efefc8e
100644
(file)
--- a/
src/runtime/runtime.c
+++ b/
src/runtime/runtime.c
@@
-48,13
+48,11
@@
#endif
\f
/* SIGINT handler that invokes the monitor (for when Lisp isn't up to it) */
#endif
\f
/* 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)
{
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
}
/* (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 <http://sbcl.sourceforge.net/>.
define_var("nil", NIL, 1);
define_var("t", T, 1);
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();
#if 0
os_init();
@@
-264,16
+262,6
@@
More information on SBCL is available at <http://sbcl.sourceforge.net/>.
#if defined GENCGC
gencgc_pickup_dynamic();
#else
#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
#endif
#ifdef BINDING_STACK_POINTER