From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 16 Nov 1997 23:12:44 +0000 (+0000)
Subject: Fix instruction that causes an assembler error on newer assemblers.
X-Git-Tag: 20090517-FFI~4930
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4cbdc8459d55facb06b6fe2e3350394450261f18;p=mit-scheme.git

Fix instruction that causes an assembler error on newer assemblers.
---

diff --git a/v7/src/microcode/cmpauxmd/mips.m4 b/v7/src/microcode/cmpauxmd/mips.m4
index b575f0de2..1c6b1dfa6 100644
--- a/v7/src/microcode/cmpauxmd/mips.m4
+++ b/v7/src/microcode/cmpauxmd/mips.m4
@@ -1,8 +1,8 @@
 /* #define DEBUG_INTERFACE */ /* -*-Midas-*- */
  ###
- ###	$Id: mips.m4,v 1.11 1993/10/17 11:16:34 cph Exp $
+ ###	$Id: mips.m4,v 1.12 1997/11/16 23:12:44 cph Exp $
  ###
- ###	Copyright (c) 1989-93 Massachusetts Institute of Technology
+ ###	Copyright (c) 1989-97 Massachusetts Institute of Technology
  ###
  ###	This material was developed by the Scheme project at the
  ###	Massachusetts Institute of Technology, Department of
@@ -518,7 +518,8 @@ shortcircuit_apply_1:
 shortcircuit_apply_lose:
 	lw	$C_arg2,0($stack)	# pop procedure into arg register
 	addi	$stack,$stack,4
-	j	scheme_to_interface	# invoke the standard apply
+	la	$at,scheme_to_interface	# invoke the standard apply
+	j	$at
 	addi	$tramp_index,$0,80
 
 	.globl	set_interrupt_enables