From 3db90fb39f65d602f2fadde6e856b72f726d426c Mon Sep 17 00:00:00 2001
From: Nick Papadakis <edu/mit/csail/zurich/nick>
Date: Sat, 23 Jan 1993 00:08:05 +0000
Subject: [PATCH] Added conditionalization for REAL_IS_DEFINED_DOUBLE in
 array.h scmsig wants this set to 1, all other schemes (in particular,
 scm6003) want this set to 0.

---
 v7/src/microcode/unxutl/y700.lcl | 30 +++++++++++++++++++++++++++---
 v7/src/microcode/unxutl/ymkfile  |  7 +------
 2 files changed, 28 insertions(+), 9 deletions(-)

diff --git a/v7/src/microcode/unxutl/y700.lcl b/v7/src/microcode/unxutl/y700.lcl
index ca6c4c7ba..c4e499106 100644
--- a/v7/src/microcode/unxutl/y700.lcl
+++ b/v7/src/microcode/unxutl/y700.lcl
@@ -1,6 +1,6 @@
 /* -*- C -*-
    Switzerland local additions to the makefile
-   $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/unxutl/Attic/y700.lcl,v 1.3 1992/12/07 22:14:03 cph Exp $
+   $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/unxutl/Attic/y700.lcl,v 1.4 1993/01/23 00:08:05 nick Exp $
  */
 
 COMMON_OBJECTS = $(CORE_OBJECTS) $(STD_GC_OBJECTS) $(UNIX_OBJECTS) $(OS_PRIM_OBJECTS)
@@ -20,9 +20,9 @@ COMMON_OBJECTS = $(CORE_OBJECTS) $(STD_GC_OBJECTS) $(UNIX_OBJECTS) $(OS_PRIM_OBJ
 /* For GJS's signal processing stuff */
 
 SIG_SOURCES = $(X_SOURCES) $(TERMCAP_OBJECTS)\
-	SOURCES_SYSTEM SOURCES_MACHINE fft.c array.c image.c
+	SOURCES_SYSTEM SOURCES_MACHINE d_fft.c d_array.c image.c
 SIG_OBJECTS = $(X_OBJECTS) $(TERMCAP_OBJECTS)\
-	OBJECTS_SYSTEM OBJECTS_MACHINE fft.o array.o image.o usrSIG.o
+	OBJECTS_SYSTEM OBJECTS_MACHINE d_fft.o d_array.o image.o usrSIG.o
 SIG_LIB =  $(USER_LIBS) $(X_LIB) $(TERMCAP_LIBS)\
 	LIB_MATH LIBS_SYSTEM LIBS_MACHINE LIB_DEBUG LIB_STANDARD
 
@@ -56,3 +56,27 @@ usrSIG.c : $(SIG_SOURCES) $(SOURCES) $(OS_PRIM_SOURCES) usrdef.touch Findprim xm
 	rm -f usrSIG.c
 	./Findprim $(SIG_SOURCES) $(SOURCES) $(OS_PRIM_SOURCES) > usrSIG.c
 
+Sgraph.o Sgraph_xt.o SgX.o : scheme.touch prims.h Sgraph.h
+Sgraph_ar.o : scheme.touch prims.h Sgraph.h array.h
+fft.o : scheme.touch prims.h zones.h array.h image.h
+array.o image.o : scheme.touch prims.h array.h
+
+d_Sgraph_ar.o : scheme.touch prims.h Sgraph.h array.h
+	$(CC) $(CFLAGS)  -DREAL_IS_DEFINED_DOUBLE=1 -c $*.c
+
+d_fft.o : scheme.touch prims.h zones.h array.h image.h
+	$(CC) $(CFLAGS)  -DREAL_IS_DEFINED_DOUBLE=1 -c $*.c
+
+d_array.o image.o : scheme.touch prims.h array.h
+	$(CC) $(CFLAGS)  -DREAL_IS_DEFINED_DOUBLE=1 -c $*.c
+
+
+d_Sgraph_ar.c : Sgraph_ar.c
+	ln -f -s Sgraph_ar.c d_Sgraph_ar.c
+
+d_fft.c : fft.c
+	ln -f -s fft.c d_fft.c
+
+d_array.c : array.c
+	ln -f -s array.c d_array.c
+
diff --git a/v7/src/microcode/unxutl/ymkfile b/v7/src/microcode/unxutl/ymkfile
index bfc83b644..1f36b0ab4 100644
--- a/v7/src/microcode/unxutl/ymkfile
+++ b/v7/src/microcode/unxutl/ymkfile
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ymkfile,v 1.60 1992/09/26 03:12:03 cph Exp $
+$Id: ymkfile,v 1.61 1993/01/23 00:07:44 nick Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -707,11 +707,6 @@ x11base.o x11color.o x11graph.o x11term.o starbasex.o : scheme.touch prims.h \
 x11base.o : ux.h uxselect.h
 starbase.o : scheme.touch prims.h
 
-Sgraph.o Sgraph_xt.o SgX.o : scheme.touch prims.h Sgraph.h
-Sgraph_ar.o : scheme.touch prims.h Sgraph.h array.h
-fft.o : scheme.touch prims.h zones.h array.h image.h
-array.o image.o : scheme.touch prims.h array.h
-
 cmpint.o : scheme.touch prim.h $(GC_HEAD_FILES)
 cmpaux-hppa.s : cmpaux-hppa.m4
 cmpaux-mc68k.s : cmpaux-mc68k.m4
-- 
2.25.1