From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 28 Jul 1992 14:44:37 +0000 (+0000)
Subject: MemTop, IntCode, and IntEnb are allocated elsewhere on DOS.
X-Git-Tag: 20090517-FFI~9192
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=581883ae786cf588561b53852c6b27c1587caa33;p=mit-scheme.git

MemTop, IntCode, and IntEnb are allocated elsewhere on DOS.
---

diff --git a/v7/src/microcode/storage.c b/v7/src/microcode/storage.c
index 108bd7c30..becdb8493 100644
--- a/v7/src/microcode/storage.c
+++ b/v7/src/microcode/storage.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/storage.c,v 9.48 1992/02/03 23:39:19 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/storage.c,v 9.49 1992/07/28 14:44:37 jinx Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -42,9 +42,11 @@ MIT in each case. */
                          /*************/
 
 SCHEME_OBJECT
+#ifndef DOS386
+ * MemTop,		/* Top of free space available */
+#endif /* DOS386 */
  * Ext_History,		/* History register */
  * Free,		/* Next free word in storage */
- * MemTop,		/* Top of free space available */
  * Ext_Stack_Pointer,	/* Next available slot in control stack */
  * Stack_Top,		/* Top of control stack */
  * Stack_Guard,		/* Guard area at end of stack */
@@ -65,8 +67,10 @@ SCHEME_OBJECT
 			   *** This must be changed when stacklets are used. */
 
 long
+#ifndef DOS386
   IntCode,		/* Interrupts requesting */
   IntEnb,		/* Interrupts enabled */
+#endif /* DOS386 */
   temp_long,		/* temporary for sign extension */
   GC_Reserve,		/* Scheme pointer overflow space in heap */
   GC_Space_Needed;	/* Amount of space needed when GC triggered */