From 2df2904fc243e716e586a484a28a9e5819495ea6 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Mon, 3 Feb 1992 23:21:38 +0000
Subject: [PATCH] Fix declaration bug, and pass parameter appropriately.
---
v7/src/microcode/bkpt.c | 15 +++++----------
1 file changed, 5 insertions(+), 10 deletions(-)
diff --git a/v7/src/microcode/bkpt.c b/v7/src/microcode/bkpt.c
index 0f611c3d6..a0a6fe176 100644
--- a/v7/src/microcode/bkpt.c
+++ b/v7/src/microcode/bkpt.c
@@ -1,8 +1,8 @@
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bkpt.c,v 9.26 1992/02/03 23:03:20 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bkpt.c,v 9.27 1992/02/03 23:21:38 jinx Exp $
-Copyright (c) 1987-1992 Massachusetts Institute of Technology
+Copyright (c) 1987-92 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
@@ -74,24 +74,19 @@ DEFUN (Add_a_Pop_Return_Breakpoint, (SP), SCHEME_OBJECT * SP)
/* A breakpoint can be placed here from a C debugger to examine
the state of the world. */
-extern Boolean EXFUN (Print_One_Continuation_Frame, (void));
+extern Boolean EXFUN (Print_One_Continuation_Frame, (SCHEME_OBJECT));
void
DEFUN_VOID (Handle_Pop_Return_Break)
{
- Boolean ignore;
SCHEME_OBJECT *Old_Stack = Stack_Pointer;
- printf ("Pop Return Break: SP = 0x%lx\n", Stack_Pointer);
- ignore = (Print_One_Continuation_Frame ());
+ printf ("Pop Return Break: SP = 0x%lx\n", ((long) Stack_Pointer));
+ (void) (Print_One_Continuation_Frame (Return));
Stack_Pointer = Old_Stack;
return;
}
-/* This uses register rather than fast because it is invoked
- * very often and would make things too slow.
- */
-
void
DEFUN_VOID (Pop_Return_Break_Point)
{
--
2.25.1