From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 11 Nov 1993 20:07:36 +0000 (+0000)
Subject: Fix think-o in previous update.
X-Git-Tag: 20090517-FFI~7541
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b1e844a2233c46945677e647c066452dd18c3fb;p=mit-scheme.git

Fix think-o in previous update.
---

diff --git a/v7/src/microcode/cmpauxmd/sun3-nfp.s b/v7/src/microcode/cmpauxmd/sun3-nfp.s
index 9629bddac..f3e162ab1 100644
--- a/v7/src/microcode/cmpauxmd/sun3-nfp.s
+++ b/v7/src/microcode/cmpauxmd/sun3-nfp.s
@@ -141,7 +141,8 @@ _asm_primitive_apply:
 	movl	c_save_stack,sp
 	movl	a7@,a6
 	movl	d1,a7@-
-	movl	_utility_table+0x12*4,a0
+	lea	_utility_table,a0
+	movl	a0@(0x12*4),a0
 	jsr	a0@
 	lea	a7@(4),sp
 	movl	d0,a0
diff --git a/v7/src/microcode/cmpauxmd/sun3.s b/v7/src/microcode/cmpauxmd/sun3.s
index 5119f05fd..e5fbf190f 100644
--- a/v7/src/microcode/cmpauxmd/sun3.s
+++ b/v7/src/microcode/cmpauxmd/sun3.s
@@ -142,7 +142,8 @@ _asm_primitive_apply:
 	movl	c_save_stack,sp
 	movl	a7@,a6
 	movl	d1,a7@-
-	movl	_utility_table+0x12*4,a0
+	lea	_utility_table,a0
+	movl	a0@(0x12*4),a0
 	jsr	a0@
 	lea	a7@(4),sp
 	movl	d0,a0