From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 13 Nov 1993 03:20:21 +0000 (+0000)
Subject: Change default: liarc.h defines COMPILE_FOR_DYNAMIC_LOADING unless
X-Git-Tag: 20090517-FFI~7518
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0028cbd252512130657e9b6e5bb46b4a98719fad;p=mit-scheme.git

Change default: liarc.h defines COMPILE_FOR_DYNAMIC_LOADING unless
COMPILE_FOR_STATIC_LINKING is defined alredy, which is now defined by
the makefile.
---

diff --git a/v7/src/microcode/liarc.h b/v7/src/microcode/liarc.h
index 0ab2b47ed..e6ef3c45f 100644
--- a/v7/src/microcode/liarc.h
+++ b/v7/src/microcode/liarc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: liarc.h,v 1.10 1993/11/09 06:38:55 gjr Exp $
+$Id: liarc.h,v 1.11 1993/11/13 03:20:21 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -35,6 +35,20 @@ MIT in each case. */
 #ifndef LIARC_INCLUDED
 #define LIARC_INCLUDED
 
+#ifndef COMPILE_FOR_STATIC_LINKING
+#ifndef COMPILE_FOR_DYNAMIC_LOADING
+#define COMPILE_FOR_DYNAMIC_LOADING
+#endif
+#endif
+
+#ifndef MIT_SCHEME
+#defien MIT_SCHEME
+#endif
+
+#ifndef NATIVE_CODE_IS_C
+#define NATIVE_CODE_IS_C
+#endif
+
 #include <stdio.h>
 #include "ansidecl.h"
 #include "config.h"
@@ -64,7 +78,7 @@ extern PTR dstack_position;
 extern SCHEME_OBJECT * Free;
 extern SCHEME_OBJECT * Ext_Stack_Pointer;
 extern SCHEME_OBJECT Registers[];
-
+
 union machine_word_u
 {
   SCHEME_OBJECT Obj;
@@ -76,7 +90,7 @@ union machine_word_u
 };
 
 typedef union machine_word_u machine_word;
-
+
 #define ADDRESS_UNITS_PER_OBJECT	(sizeof (SCHEME_OBJECT))
 #define ADDRESS_UNITS_PER_FLOAT		(sizeof (double))
 
diff --git a/v7/src/microcode/unxutl/ymkfile b/v7/src/microcode/unxutl/ymkfile
index e88d5035c..cced5ed12 100644
--- a/v7/src/microcode/unxutl/ymkfile
+++ b/v7/src/microcode/unxutl/ymkfile
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ymkfile,v 1.85 1993/11/11 20:18:25 cph Exp $
+$Id: ymkfile,v 1.86 1993/11/13 03:20:15 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -261,7 +261,7 @@ cmpauxmd.s : cmpauxmd.m4 xmkfile
 
 COMPILED_OBJECTS = $(COMPILED_SOURCES:.c=.o)
 
-MACHINE_SWITCHES = -DNATIVE_CODE_IS_C
+MACHINE_SWITCHES = -DNATIVE_CODE_IS_C -DCOMPILE_FOR_STATIC_LINKING
 MACHINE_SOURCES = cmpauxmd.c cmpint.c compinit.c $(COMPILED_SOURCES)
 MACHINE_OBJECTS = cmpauxmd.o cmpint.o compinit.o $(COMPILED_OBJECTS)
 GC_HEAD_FILES = gccode.h cmpgc.h cmpintmd.h
diff --git a/v8/src/microcode/liarc.h b/v8/src/microcode/liarc.h
index 0ab2b47ed..e6ef3c45f 100644
--- a/v8/src/microcode/liarc.h
+++ b/v8/src/microcode/liarc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: liarc.h,v 1.10 1993/11/09 06:38:55 gjr Exp $
+$Id: liarc.h,v 1.11 1993/11/13 03:20:21 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -35,6 +35,20 @@ MIT in each case. */
 #ifndef LIARC_INCLUDED
 #define LIARC_INCLUDED
 
+#ifndef COMPILE_FOR_STATIC_LINKING
+#ifndef COMPILE_FOR_DYNAMIC_LOADING
+#define COMPILE_FOR_DYNAMIC_LOADING
+#endif
+#endif
+
+#ifndef MIT_SCHEME
+#defien MIT_SCHEME
+#endif
+
+#ifndef NATIVE_CODE_IS_C
+#define NATIVE_CODE_IS_C
+#endif
+
 #include <stdio.h>
 #include "ansidecl.h"
 #include "config.h"
@@ -64,7 +78,7 @@ extern PTR dstack_position;
 extern SCHEME_OBJECT * Free;
 extern SCHEME_OBJECT * Ext_Stack_Pointer;
 extern SCHEME_OBJECT Registers[];
-
+
 union machine_word_u
 {
   SCHEME_OBJECT Obj;
@@ -76,7 +90,7 @@ union machine_word_u
 };
 
 typedef union machine_word_u machine_word;
-
+
 #define ADDRESS_UNITS_PER_OBJECT	(sizeof (SCHEME_OBJECT))
 #define ADDRESS_UNITS_PER_FLOAT		(sizeof (double))