From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 16:11:44 +0000 (+0000)
Subject: Add -no-back-end option.
X-Git-Tag: 20090517-FFI~7564
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=73a0e2cbd3caf9c6f8c22e654ef9406b425c8619;p=mit-scheme.git

Add -no-back-end option.
---

diff --git a/v7/src/microcode/unxutl/cf-dist.h b/v7/src/microcode/unxutl/cf-dist.h
index 0533b6ac8..c11cf3644 100644
--- a/v7/src/microcode/unxutl/cf-dist.h
+++ b/v7/src/microcode/unxutl/cf-dist.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cf-dist.h,v 1.18 1993/10/26 23:08:20 gjr Exp $
+$Id: cf-dist.h,v 1.19 1993/11/09 16:11:44 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -36,7 +36,7 @@ MIT in each case. */
    a native back end (if one exists). 
 */
 
-#define C_BACK_END 0
+#define BACK_END_TYPE 2
 
 #define PROC_TYPE_UNKNOWN	0
 #define PROC_TYPE_68000		1
@@ -53,7 +53,11 @@ MIT in each case. */
 #define PROC_TYPE_POWER		12	/* IBM RS6000 and PowerPC */
 #define PROC_TYPE_LIARC		13	/* Scheme compiled to C */
 
-#if (C_BACK_END)
+#if (BACK_END_TYPE == 0)
+#define PROC_TYPE PROC_TYPE_UNKNOWN
+#endif
+
+#if (BACK_END_TYPE == 1)
 #define PROC_TYPE PROC_TYPE_LIARC
 #endif
 
diff --git a/v7/src/microcode/unxutl/config b/v7/src/microcode/unxutl/config
index 5179de692..77486c307 100755
--- a/v7/src/microcode/unxutl/config
+++ b/v7/src/microcode/unxutl/config
@@ -1,6 +1,6 @@
 #!/bin/sh
 # Configuration script for MIT Scheme
-# $Id: config,v 1.27 1993/11/08 06:12:49 gjr Exp $
+# $Id: config,v 1.28 1993/11/09 16:11:39 gjr Exp $
 # Modelled on the configuration script for GNU CC
 # The section between lines is the copyright prefix from the GNU CC config.
 #----------------------------------------------------------------------
@@ -28,7 +28,7 @@
 # Shell script to create proper links to machine-dependent files in
 # preparation for compiling gcc.
 #
-# Usage: config [-C-back-end | -native-back-end] machine
+# Usage: config [-C-back-end | -native-back-end | -no-back-end] machine
 #
 # If config succeeds, it leaves its status in config.out.
 # If config fails after disturbing the status quo, 
@@ -37,7 +37,7 @@
 
 usage()
 {
-	echo "Usage: $progname [-C-back-end | -native-back-end] machine"
+	echo "Usage: $progname [-C-back-end | -native-back-end | -no-back-end] machine"
 	echo "Where \`machine' is one of:"
 	echo "alpha-osf alpha"
 	echo "mips-ultrix nws3250 sgi4d"
@@ -334,7 +334,7 @@ case $# in
 		cmpaux_target=cmpauxmd.c
 		perform $*
 		$move cf.h cf-orig.h
-		$edit 's/C_BACK_END 0/C_BACK_END 1/' <cf-orig.h >cf.h
+		$edit 's/BACK_END_TYPE 2/BACK_END_TYPE 1/' <cf-orig.h >cf.h
 		$remove -f cf-orig.h
 		exit 0
 		;;
@@ -343,6 +343,22 @@ case $# in
 		shift
 		discriminate $*
 		perform $*
+		$move cf.h cf-orig.h
+		$edit 's/BACK_END_TYPE 2/BACK_END_TYPE 2/' <cf-orig.h >cf.h
+		$remove -f cf-orig.h
+		exit 0
+		;;
+
+	-no-back-end)
+		shift
+		discriminate $*
+		cmpint_file=nothing_special
+		cmpaux_file=nothing_special
+		cmpaux_target=cmpauxmd.c
+		perform $*
+		$move cf.h cf-orig.h
+		$edit 's/BACK_END_TYPE 2/BACK_END_TYPE 0/' <cf-orig.h >cf.h
+		$remove -f cf-orig.h
 		exit 0
 		;;