From 363fbc57c2af8610ba519f3dfcf86cf793e06c6f Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 7 Dec 1991 04:37:25 +0000
Subject: [PATCH] Fixed to install the correct instruction on non-mips machines
 instead of always installing a mips break instruction.

---
 ldb/breakpoint.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/ldb/breakpoint.c b/ldb/breakpoint.c
index 611e36e75..1fcf701ad 100644
--- a/ldb/breakpoint.c
+++ b/ldb/breakpoint.c
@@ -38,7 +38,14 @@ inst breakpoint_install(code_obj, pc_offset)
      lispobj code_obj;
      int pc_offset;
 {
-    return swap_insts(code_obj, pc_offset, (trap_Breakpoint << 16) | 0xd);
+    return swap_insts(code_obj, pc_offset,
+#ifdef mips
+		      (trap_Breakpoint << 16) | 0xd
+#endif
+#ifdef sparc
+		      trap_Breakpoint
+#endif
+	);
 }
 
 void breakpoint_remove(code_obj, pc_offset, orig_inst)
-- 
GitLab