From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 31 Aug 1993 05:51:33 +0000 (+0000)
Subject: Forgot nullify in cross_segment_call.
X-Git-Tag: 20090517-FFI~7949
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8137343c944f3a5d3a7ca6637ef157c23272406a;p=mit-scheme.git

Forgot nullify in cross_segment_call.
---

diff --git a/v7/src/microcode/cmpauxmd/hppa.m4 b/v7/src/microcode/cmpauxmd/hppa.m4
index 56cd4532b..d12edf1ba 100644
--- a/v7/src/microcode/cmpauxmd/hppa.m4
+++ b/v7/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;	$Id: hppa.m4,v 1.30 1993/08/03 08:28:43 gjr Exp $
+;;;	$Id: hppa.m4,v 1.31 1993/08/31 05:51:33 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1989-1993 Massachusetts Institute of Technology
 ;;;
@@ -974,7 +974,7 @@ cross_segment_call
 	ADDIL	L'Primitive_Procedure_Table-$global$,27
 	LDW	R'Primitive_Procedure_Table-$global$(1),22
 	LDWX,S	24(0,22),22
-	B	$$dyncall			; ignore the return address
+	B,N	$$dyncall			; ignore the return address
 
 vector_cons
 	LDW	0(0,22),26			; length as fixnum
diff --git a/v8/src/microcode/cmpauxmd/hppa.m4 b/v8/src/microcode/cmpauxmd/hppa.m4
index 56cd4532b..d12edf1ba 100644
--- a/v8/src/microcode/cmpauxmd/hppa.m4
+++ b/v8/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;	$Id: hppa.m4,v 1.30 1993/08/03 08:28:43 gjr Exp $
+;;;	$Id: hppa.m4,v 1.31 1993/08/31 05:51:33 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1989-1993 Massachusetts Institute of Technology
 ;;;
@@ -974,7 +974,7 @@ cross_segment_call
 	ADDIL	L'Primitive_Procedure_Table-$global$,27
 	LDW	R'Primitive_Procedure_Table-$global$(1),22
 	LDWX,S	24(0,22),22
-	B	$$dyncall			; ignore the return address
+	B,N	$$dyncall			; ignore the return address
 
 vector_cons
 	LDW	0(0,22),26			; length as fixnum