projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
90ab744
)
Provide hokey alternatives if no SSE or i387.
author
Taylor R Campbell
<campbell@mumble.net>
Fri, 14 Dec 2018 15:17:47 +0000
(15:17 +0000)
committer
Taylor R Campbell
<campbell@mumble.net>
Sat, 15 Dec 2018 22:33:21 +0000
(22:33 +0000)
src/microcode/cmpauxmd/i386.m4
patch
|
blob
|
history
diff --git
a/src/microcode/cmpauxmd/i386.m4
b/src/microcode/cmpauxmd/i386.m4
index 6292a0efc5f8ec491f8e1ceb025cdfd6f42f7652..85a26ee8507e933535552463d7cafb85ffd4eff6 100644
(file)
--- 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)