From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sun, 12 Sep 1993 04:40:42 +0000 (+0000)
Subject: Fix mismatch in dummy version of do_bkpt_proceed.
X-Git-Tag: 20090517-FFI~7854
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=175f22dcdb1e0293462ffc0f123e2fb71b650476;p=mit-scheme.git

Fix mismatch in dummy version of do_bkpt_proceed.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index d3a654ae5..c60c3b81a 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.70 1993/09/11 19:41:26 gjr Exp $
+$Id: cmpint.c,v 1.71 1993/09/12 04:40:42 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -2819,9 +2819,10 @@ DEFUN (bkpt_proceed, (ep, handle, state),
 }
 
 C_UTILITY PTR
-DEFUN_VOID (do_bkpt_proceed)
+DEFUN (do_bkpt_proceed, (value), unsigned long * value)
 {
-  error_external_return ();
+  * value = ((unsigned long) ERR_EXTERNAL_RETURN);
+  return (FALSE);
 }
 
 #else /* HAVE_BKPT_SUPPORT */
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index d3a654ae5..c60c3b81a 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.70 1993/09/11 19:41:26 gjr Exp $
+$Id: cmpint.c,v 1.71 1993/09/12 04:40:42 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -2819,9 +2819,10 @@ DEFUN (bkpt_proceed, (ep, handle, state),
 }
 
 C_UTILITY PTR
-DEFUN_VOID (do_bkpt_proceed)
+DEFUN (do_bkpt_proceed, (value), unsigned long * value)
 {
-  error_external_return ();
+  * value = ((unsigned long) ERR_EXTERNAL_RETURN);
+  return (FALSE);
 }
 
 #else /* HAVE_BKPT_SUPPORT */