Change default: liarc.h defines COMPILE_FOR_DYNAMIC_LOADING unless
authorGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Sat, 13 Nov 1993 03:20:21 +0000 (03:20 +0000)
committerGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Sat, 13 Nov 1993 03:20:21 +0000 (03:20 +0000)
COMPILE_FOR_STATIC_LINKING is defined alredy, which is now defined by
the makefile.

v7/src/microcode/liarc.h
v7/src/microcode/unxutl/ymkfile
v8/src/microcode/liarc.h

index 0ab2b47eddd1ba3e6c55a6449e4903d66b1aea93..e6ef3c45f310eb273abd6cb8687206b0e5e47b7f 100644 (file)
@@ -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
+\f
 #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[];
-\f
+
 union machine_word_u
 {
   SCHEME_OBJECT Obj;
@@ -76,7 +90,7 @@ union machine_word_u
 };
 
 typedef union machine_word_u machine_word;
-
+\f
 #define ADDRESS_UNITS_PER_OBJECT       (sizeof (SCHEME_OBJECT))
 #define ADDRESS_UNITS_PER_FLOAT                (sizeof (double))
 
index e88d5035ceb603188aea8e0268828bd6fb7d49fc..cced5ed12d108c9e6165b28b08b7afd607d6491d 100644 (file)
@@ -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
index 0ab2b47eddd1ba3e6c55a6449e4903d66b1aea93..e6ef3c45f310eb273abd6cb8687206b0e5e47b7f 100644 (file)
@@ -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
+\f
 #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[];
-\f
+
 union machine_word_u
 {
   SCHEME_OBJECT Obj;
@@ -76,7 +90,7 @@ union machine_word_u
 };
 
 typedef union machine_word_u machine_word;
-
+\f
 #define ADDRESS_UNITS_PER_OBJECT       (sizeof (SCHEME_OBJECT))
 #define ADDRESS_UNITS_PER_FLOAT                (sizeof (double))