From b42d36e7215fff16ae7e372fdbf338d2e8062cc3 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 24 May 1991 17:52:21 +0000 Subject: [PATCH] Added calls to arch_init(), and {arch,os}_install_interrupt_handlers(). --- ldb/ldb.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/ldb/ldb.c b/ldb/ldb.c index 6c9d13392..ceb02711f 100644 --- a/ldb/ldb.c +++ b/ldb/ldb.c @@ -1,10 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.12 1991/05/03 07:55:49 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.c,v 1.13 1991/05/24 17:52:21 wlott Exp $ */ /* Lisp kernel core debugger */ #include <stdio.h> #include <sys/types.h> #include <sys/file.h> -#include <mach.h> #include "ldb.h" #include "lisp.h" @@ -73,6 +72,7 @@ char *envp[]; if (core == NULL) core = "/usr/misc/.cmucl/lib/lisp.core"; + arch_init(); os_init(); #if defined(EXT_PAGER) @@ -94,6 +94,9 @@ char *envp[]; interrupt_init(); + arch_install_interrupt_handlers(); + os_install_interrupt_handlers(); + /* Convert the argv and envp to something Lisp can grok. */ SetSymbolValue(LISP_COMMAND_LINE_LIST, alloc_str_list(argv)); SetSymbolValue(LISP_ENVIRONMENT_LIST, alloc_str_list(envp)); -- GitLab