From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 11 Mar 1992 20:08:37 +0000 (+0000)
Subject: Forgot two underscores.
X-Git-Tag: 20090517-FFI~9610
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2cf632475a92cc886da91575793ca74e4d533181;p=mit-scheme.git

Forgot two underscores.
---

diff --git a/v7/src/microcode/cmpauxmd/i386.m4 b/v7/src/microcode/cmpauxmd/i386.m4
index 785a40944..e9bb519e6 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.18 1992/03/11 20:06:32 jinx Exp $
+###	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/i386.m4,v 1.19 1992/03/11 20:08:37 jinx Exp $
 ###
 ###	Copyright (c) 1992 Massachusetts Institute of Technology
 ###
@@ -160,11 +160,11 @@ ifdef(`DOS',
       `define(declare_alignment,`	.align $1')')
 
 ifdef(`DOS',
-      `define(allocate_longword,`$1 dd 0')',
+      `define(allocate_longword,`_$1 dd 0')',
       `define(allocate_longword,`	.comm _$1,4')')
 
 ifdef(`DOS',
-      `define(allocate_space,`$1 db $2 dup (0)')',
+      `define(allocate_space,`_$1 db $2 dup (0)')',
       `define(allocate_space,`_$1:
 	.space $2')')