From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 14 Dec 2018 15:17:47 +0000 (+0000)
Subject: Provide hokey alternatives if no SSE or i387.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b963b3d4a347f89b2e47732b51b1e2b580a413c5;p=mit-scheme.git

Provide hokey alternatives if no SSE or i387.
---

diff --git a/src/microcode/cmpauxmd/i386.m4 b/src/microcode/cmpauxmd/i386.m4
index 6292a0efc..85a26ee85 100644
--- a/src/microcode/cmpauxmd/i386.m4
+++ b/src/microcode/cmpauxmd/i386.m4
@@ -1238,6 +1238,7 @@ IFSSE(`	enter		IMM(4),IMM(0)
 	stmxcsr		IND(REG(esp))
 	OP(mov,l)	TW(IND(REG(esp)),REG(eax))
 	leave')
+IFNSSE(`OP(xor,l)	TW(REG(eax),REG(eax))')
 	ret
 
 define_c_label(sse_write_mxcsr)
@@ -1257,6 +1258,7 @@ IF387(`	enter		IMM(4),IMM(0)
 	fnstcw		IND(REG(esp))
 	OP(mov,w)	TW(INDW(REG(esp)),REG(ax))
 	leave')
+IFN387(`OP(xor,l)	TW(REG(eax),REG(eax))')
 	ret
 
 define_c_label(x87_write_control_word)
@@ -1268,6 +1270,7 @@ IF387(`	enter		IMM(4),IMM(0)
 	fnstsw		IND(REG(esp))
 	OP(mov,w)	TW(INDW(REG(esp)),REG(ax))
 	leave')
+IFN387(`OP(xor,l)	TW(REG(eax),REG(eax))')
 	ret
 
 define_c_label(x87_read_environment)