From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 6 Jan 1995 17:39:39 +0000 (+0000)
Subject: Under OS/2, guarantee that correct number of type bits is used.
X-Git-Tag: 20090517-FFI~6798
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=14a820de0286decd9d45fcb2940fb5c7f72c182f;p=mit-scheme.git

Under OS/2, guarantee that correct number of type bits is used.
---

diff --git a/v7/src/microcode/cmpauxmd/i386.m4 b/v7/src/microcode/cmpauxmd/i386.m4
index f39c298c1..012d138c3 100644
--- a/v7/src/microcode/cmpauxmd/i386.m4
+++ b/v7/src/microcode/cmpauxmd/i386.m4
@@ -1,8 +1,8 @@
 ### -*-Midas-*-
 ###
-###	$Id: i386.m4,v 1.34 1994/11/28 05:21:39 cph Exp $
+###	$Id: i386.m4,v 1.35 1995/01/06 17:39:39 cph Exp $
 ###
-###	Copyright (c) 1992-94 Massachusetts Institute of Technology
+###	Copyright (c) 1992-95 Massachusetts Institute of Technology
 ###
 ###	This material was developed by the Scheme project at the
 ###	Massachusetts Institute of Technology, Department of
@@ -252,6 +252,7 @@ ifdef(`DOS',
       `define(IJMP,`*$1')')
 
 IFDOS(`define(TYPE_CODE_LENGTH,6)')
+IFOS2(`define(TYPE_CODE_LENGTH,6)')
 
 define(TC_LENGTH, ifdef(`TYPE_CODE_LENGTH', TYPE_CODE_LENGTH, 8))
 define(DATUM_LENGTH, eval(32 - TC_LENGTH))