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