From 5dc617edf33bbd4ba514799f6120c8666bf797e9 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 11 Mar 1992 20:06:32 +0000
Subject: [PATCH] Zortech C also requires underscores in data-segment
 variables.

---
 v7/src/microcode/cmpauxmd/i386.m4 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/cmpauxmd/i386.m4 b/v7/src/microcode/cmpauxmd/i386.m4
index 72cb8eb81..785a40944 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.17 1992/03/07 18:54:33 jinx Exp $
+###	$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 $
 ###
 ###	Copyright (c) 1992 Massachusetts Institute of Technology
 ###
@@ -112,7 +112,7 @@ ifdef(`DISABLE_387',
       `define(IFN387,`')')
 
 ifdef(`DOS',
-      `define(use_external_data,`	extrn $1')',
+      `define(use_external_data,`	extrn _$1')',
       `define(use_external_data,`')')
 
 ifdef(`DOS',
@@ -120,7 +120,7 @@ ifdef(`DOS',
       `define(use_external_code,`')')
 
 ifdef(`DOS',
-      `define(external_data_reference,`$1')',
+      `define(external_data_reference,`_$1')',
       `define(external_data_reference,`_$1')')
 
 define(EDR,`external_data_reference($1)')
@@ -134,7 +134,7 @@ ifdef(`DOS',
       `define(define_code,`	.globl _$1')')
 
 ifdef(`DOS',
-      `define(define_data,`	public $1')',
+      `define(define_data,`	public _$1')',
       `define(define_data,`	.globl _$1')')
 
 define(define_c_label,
-- 
2.25.1