From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 5 Jan 2016 23:09:04 +0000 (-0700)
Subject: Do not randomize the FPU control word in x87_read_environment.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4fec84b86abd272e2681dfccd90dcdd947478c04;p=mit-scheme.git

Do not randomize the FPU control word in x87_read_environment.

Looks like a typo: eax not replaced by rdi.
---

diff --git a/src/microcode/cmpauxmd/x86-64.m4 b/src/microcode/cmpauxmd/x86-64.m4
index fb2929452..04993adeb 100644
--- a/src/microcode/cmpauxmd/x86-64.m4
+++ b/src/microcode/cmpauxmd/x86-64.m4
@@ -999,7 +999,7 @@ define_c_label(x87_read_environment)
 	fnstenv		IND(REG(rdi))
 	# fnstenv masks all exceptions (go figure), so we must load
 	# the control word back in order to undo that.
-	fldcw		IND(REG(eax))
+	fldcw		IND(REG(rdi))
 	ret
 
 define_c_label(x87_write_environment)