/* -*-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
#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"
extern SCHEME_OBJECT * Free;
extern SCHEME_OBJECT * Ext_Stack_Pointer;
extern SCHEME_OBJECT Registers[];
-\f
+
union machine_word_u
{
SCHEME_OBJECT Obj;
};
typedef union machine_word_u machine_word;
-
+\f
#define ADDRESS_UNITS_PER_OBJECT (sizeof (SCHEME_OBJECT))
#define ADDRESS_UNITS_PER_FLOAT (sizeof (double))
/* -*-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
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
/* -*-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
#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"
extern SCHEME_OBJECT * Free;
extern SCHEME_OBJECT * Ext_Stack_Pointer;
extern SCHEME_OBJECT Registers[];
-\f
+
union machine_word_u
{
SCHEME_OBJECT Obj;
};
typedef union machine_word_u machine_word;
-
+\f
#define ADDRESS_UNITS_PER_OBJECT (sizeof (SCHEME_OBJECT))
#define ADDRESS_UNITS_PER_FLOAT (sizeof (double))