From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Fri, 6 Mar 1992 00:56:43 +0000 (+0000)
Subject: Forgot one IF387 (for divide).
X-Git-Tag: 20090517-FFI~9622
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1a92f60cadc3c928023adb023448b867923b90e2;p=mit-scheme.git

Forgot one IF387 (for divide).
---

diff --git a/v7/src/microcode/cmpauxmd/i386.m4 b/v7/src/microcode/cmpauxmd/i386.m4
index 841965447..9f9263dbe 100644
--- a/v7/src/microcode/cmpauxmd/i386.m4
+++ b/v7/src/microcode/cmpauxmd/i386.m4
@@ -1,6 +1,6 @@
 ### -*-Midas-*-
 ###
-###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/i386.m4,v 1.14 1992/03/06 00:26:26 jinx Exp $
+###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/i386.m4,v 1.15 1992/03/06 00:56:43 jinx Exp $
 ###
 ###	Copyright (c) 1992 Massachusetts Institute of Technology
 ###
@@ -635,7 +635,7 @@ asm_generic_$1_fix_flo:
 	OP($4,l)	IND(rfree)			# fisubrl
 	jmp	asm_generic_flonum_result')
 
-declare_alignment(2)
+IF387(`declare_alignment(2)
 define_c_label(asm_generic_divide)
 	OP(pop,l)	REG(edx)
 	OP(pop,l)	REG(ebx)
@@ -693,7 +693,7 @@ asm_generic_divide_fail:
 	OP(push,l)	REG(ebx)
 	OP(push,l)	REG(edx)
 	OP(mov,b)	TW(IMM(HEX(23)),REG(al))
-	jmp	scheme_to_interface
+	jmp	scheme_to_interface')
 
 define(define_binary_predicate,
 `declare_alignment(2)