From 8cf945e3992bba0f0ca9e98a432ee851168aadcc Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 24 Oct 1994 20:06:50 +0000 Subject: [PATCH] Solaris patches. --- lisp/lisp.c | 11 ++++++++--- lisp/monitor.c | 4 ++-- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index 0ad18c18d..983deb3e3 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.7 1994/07/05 16:10:16 hallgren Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.8 1994/10/24 20:06:27 ram Exp $ * */ @@ -20,11 +20,11 @@ #include "vars.h" #include "globals.h" #include "os.h" +#include "interrupt.h" #include "arch.h" #include "gc.h" #include "monitor.h" #include "validate.h" -#include "interrupt.h" #include "core.h" #include "save.h" #include "lispregs.h" @@ -37,8 +37,10 @@ /* SIGINT handler that invokes the monitor. */ -static void sigint_handler(int signal, int code, struct sigcontext *context) +static void sigint_handler(HANDLER_ARGS) { + SAVE_CONTEXT(); + printf("\nSIGINT hit at 0x%08X\n", SC_PC(context)); ldb_monitor(); } @@ -85,6 +87,9 @@ void main(int argc, char *argv[], char *envp[]) #ifdef MACH mach_init(); #endif +#ifdef SVR4 + tzset(); +#endif set_lossage_handler(ldb_monitor); diff --git a/lisp/monitor.c b/lisp/monitor.c index dea2b598e..767a34217 100644 --- a/lisp/monitor.c +++ b/lisp/monitor.c @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.4 1994/03/27 15:21:16 hallgren Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.5 1994/10/24 20:06:50 ram Exp $ */ #include <stdio.h> #include <sys/types.h> @@ -13,9 +13,9 @@ #include "globals.h" #include "vars.h" #include "parse.h" +#include "os.h" #include "interrupt.h" #include "lispregs.h" -#include "os.h" #include "monitor.h" #include "print.h" #include "arch.h" -- GitLab