Add -no-back-end option.

diff --git a/v7/src/microcode/unxutl/cf-dist.h b/v7/src/microcode/unxutl/cf-dist.h
index 0533b6ac800d6def80a603b464ae69a98b99789c..c11cf3644337240bdc81e7ad7d689d84d1a70095 100644 (file)
--- 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 5179de692fa3b6802abe2ae6c3b218c98a818f77..77486c307b2c8e287d21d93825438f59ebd539b8 100755 (executable)
--- 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
                ;;