From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 3 Feb 1992 23:21:38 +0000 (+0000)
Subject: Fix declaration bug, and pass parameter appropriately.
X-Git-Tag: 20090517-FFI~9898
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2df2904fc243e716e586a484a28a9e5819495ea6;p=mit-scheme.git

Fix declaration bug, and pass parameter appropriately.
---

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)
 {