From a0f96070debe0691c3c9fd3e0c455bd22156a93b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 29 May 1991 12:14:37 +0000
Subject: [PATCH] Added function-end breapoint stuff.  Fixed minor problems
 introduced with sunos seperation.

---
 ldb/mips-arch.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/ldb/mips-arch.c b/ldb/mips-arch.c
index 0d997cfcb..11a518ec8 100644
--- a/ldb/mips-arch.c
+++ b/ldb/mips-arch.c
@@ -54,12 +54,21 @@ static void sigtrap_handler(signal, code, context)
 	undo_fake_foreign_function_call(context);
 	break;
 
+      case trap_FunctionEndBreakpoint:
+	sigsetmask(context->sc_mask);
+	fake_foreign_function_call(context);
+	handle_function_end_breakpoint(signal, code, context);
+	undo_fake_foreign_function_call(context);
+	break;
+
       default:
 	interrupt_handle_now(signal, code, context);
 	break;
     }
 }
 
+#define FIXNUM_VALUE(lispobj) (((int)lispobj)>>2)
+
 static void sigfpe_handler(signal, code, context)
 int signal, code;
 struct sigcontext *context;
@@ -130,5 +139,5 @@ struct sigcontext *context;
 void arch_install_interrupt_handlers()
 {
     interrupt_install_low_level_handler(SIGTRAP,sigtrap_handler);
-    interrupt_install_low_level_handler(SIGEMT,sigemt_handler);
+    interrupt_install_low_level_handler(SIGEMT,sigfpe_handler);
 }
-- 
GitLab