From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 27 Jun 2011 00:24:48 +0000 (-0700)
Subject: Fix argument widths under windows.
X-Git-Tag: release-9.1.0~11
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c24c90eb251f40440e5678895510524722bc1dfd;p=mit-scheme.git

Fix argument widths under windows.
---

diff --git a/src/microcode/cmpauxmd/i386.m4 b/src/microcode/cmpauxmd/i386.m4
index 9d1273e4d..96bc89558 100644
--- a/src/microcode/cmpauxmd/i386.m4
+++ b/src/microcode/cmpauxmd/i386.m4
@@ -261,6 +261,10 @@ ifdef(`DASM',
       `define(IND,`dword ptr [$1]')',
       `define(IND,`($1)')')
 
+ifdef(`DASM',
+      `define(INDW,`word ptr [$1]')',
+      `define(INDW,`($1)')')
+
 ifdef(`DASM',
       `define(BOF,`byte ptr $1[$2]')',
       `define(BOF,`$1($2)')')
@@ -1251,7 +1255,7 @@ IF387(`	fwait')
 define_c_label(x87_read_control_word)
 IF387(`	enter		IMM(4),IMM(0)
 	fnstcw		IND(REG(esp))
-	OP(mov,w)	TW(IND(REG(esp)),REG(ax))
+	OP(mov,w)	TW(INDW(REG(esp)),REG(ax))
 	leave')
 	ret
 
@@ -1262,7 +1266,7 @@ IF387(`	fldcw		LOF(4,REG(esp))')
 define_c_label(x87_read_status_word)
 IF387(`	enter		IMM(4),IMM(0)
 	fnstsw		IND(REG(esp))
-	OP(mov,w)	TW(IND(REG(esp)),REG(ax))
+	OP(mov,w)	TW(IND@(REG(esp)),REG(ax))
 	leave')
 	ret