From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 30 Oct 1995 07:52:35 +0000 (+0000)
Subject: Fix generation of .386p and .model declarations; they must always be
X-Git-Tag: 20090517-FFI~5824
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d9f276bc75fa675acf17e738b32bc65da2ccdc7;p=mit-scheme.git

Fix generation of .386p and .model declarations; they must always be
supplied with Intel-style assemblers.
---

diff --git a/v7/src/microcode/cmpauxmd/i386.m4 b/v7/src/microcode/cmpauxmd/i386.m4
index 826ea4976..936182e13 100644
--- a/v7/src/microcode/cmpauxmd/i386.m4
+++ b/v7/src/microcode/cmpauxmd/i386.m4
@@ -1,6 +1,6 @@
 ### -*-Midas-*-
 ###
-###	$Id: i386.m4,v 1.42 1995/10/25 04:57:46 cph Exp $
+###	$Id: i386.m4,v 1.43 1995/10/30 07:52:35 cph Exp $
 ###
 ###	Copyright (c) 1992-95 Massachusetts Institute of Technology
 ###
@@ -379,10 +379,8 @@ define(regs,REG(esi))
 define(rfree,REG(edi))
 define(rmask,REG(ebp))
 
-IFDOS(`.386
-.model tiny')
-IF_WIN32(`.386
-.model flat')
+IFDASM(`.386p
+.model ifdef(`DOS',`tiny',`flat')')
 
 DECLARE_DATA_SEGMENT()
 declare_alignment(2)