From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 17 Jun 2007 16:54:35 +0000 (+0000)
Subject: Change system ID for LIAR to show arch.
X-Git-Tag: 20090517-FFI~520
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a9fc964eef7c506b64e47fd4955eef0c96b20e77;p=mit-scheme.git

Change system ID for LIAR to show arch.
---

diff --git a/v7/src/compiler/base/make.scm b/v7/src/compiler/base/make.scm
index ccfd4222e..4dd313398 100644
--- a/v7/src/compiler/base/make.scm
+++ b/v7/src/compiler/base/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.129 2007/06/08 05:58:53 cph Exp $
+$Id: make.scm,v 4.130 2007/06/17 16:54:34 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -29,8 +29,7 @@ USA.
 
 (declare (usual-integrations))
 
-(lambda (architecture-name)
-  architecture-name
+(lambda (#!optional architecture-name)
   (load-option 'COMPRESS)
   (load-option 'RB-TREE)
   ((access with-directory-rewriting-rule
@@ -39,4 +38,7 @@ USA.
    (pathname-as-directory "compiler")
    (lambda ()
      (load-package-set "compiler")))
-  (add-subsystem-identification! "LIAR" '(4 118)))
\ No newline at end of file
+  (add-subsystem-identification! (if (default-object? architecture-name)
+				     "LIAR"
+				     (string-append "LIAR/" architecture-name))
+				 '(4 118)))
\ No newline at end of file
diff --git a/v7/src/compiler/machines/C/make.scm b/v7/src/compiler/machines/C/make.scm
index 84257fa27..a0d1be40a 100644
--- a/v7/src/compiler/machines/C/make.scm
+++ b/v7/src/compiler/machines/C/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.11 2007/06/06 19:42:38 cph Exp $
+$Id: make.scm,v 1.12 2007/06/17 16:54:34 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -31,15 +31,14 @@ USA.
 
 (load-option 'SYNCHRONOUS-SUBPROCESS)
 
-(let ((value ((load "base/make")
-	      (string-append "C/" microcode-id/machine-type))))
+(let ((value ((load "base/make") "C")))
   (set! (access compiler:compress-top-level?
 		(->environment '(compiler)))
 	#t)
   (set! (access compiler:compile-data-files-as-expressions?
 		(->environment '(compiler top-level)))
-	false)
+	#f)
   (set! (access compiler:fggen-unmap-reference-traps-early?
 		(->environment '(compiler fg-generator)))
-	false)
+	#f)
   value)
\ No newline at end of file
diff --git a/v7/src/compiler/machines/alpha/make.scm b/v7/src/compiler/machines/alpha/make.scm
index fcff9c98b..9b263f837 100644
--- a/v7/src/compiler/machines/alpha/make.scm
+++ b/v7/src/compiler/machines/alpha/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.8 2007/01/05 21:19:20 cph Exp $
+$Id: make.scm,v 1.9 2007/06/17 16:54:34 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -29,7 +29,6 @@ USA.
 
 (declare (usual-integrations))
 
-(let ((value ((load "base/make") "Alpha")))
-  (set! (access compiler:compress-top-level? (->environment '(compiler)))
-        true)
-  value)
+(let ((value ((load "base/make") "alpha")))
+  (set! (access compiler:compress-top-level? (->environment '(compiler))) #t)
+  value)
\ No newline at end of file
diff --git a/v7/src/compiler/machines/i386/make.scm b/v7/src/compiler/machines/i386/make.scm
index 63e03e3b3..82303bc28 100644
--- a/v7/src/compiler/machines/i386/make.scm
+++ b/v7/src/compiler/machines/i386/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.10 2007/01/05 21:19:21 cph Exp $
+$Id: make.scm,v 1.11 2007/06/17 16:54:35 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -29,7 +29,6 @@ USA.
 
 (declare (usual-integrations))
 
-(let* ((val ((load "base/make") "Intel i386"))
-       (env (->environment '(compiler))))
-  (set! (access compiler:compress-top-level? env) true)
-  val)
\ No newline at end of file
+(let ((value ((load "base/make") "i386")))
+  (set! (access compiler:compress-top-level? (->environment '(compiler))) #t)
+  value)
\ No newline at end of file
diff --git a/v7/src/compiler/machines/spectrum/make.scm b/v7/src/compiler/machines/spectrum/make.scm
index 025f11b3f..acbc64c3d 100644
--- a/v7/src/compiler/machines/spectrum/make.scm
+++ b/v7/src/compiler/machines/spectrum/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.94 2007/01/05 21:19:22 cph Exp $
+$Id: make.scm,v 4.95 2007/06/17 16:54:35 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -29,7 +29,7 @@ USA.
 
 (declare (usual-integrations))
 
-(let ((value ((load "base/make") "HP PA")))
+(let ((value ((load "base/make") "HPPA")))
   (set! (access compiler:compress-top-level? (->environment '(compiler)))
-	true)
+	#t)
   value)
\ No newline at end of file
diff --git a/v7/src/compiler/machines/vax/make.scm b/v7/src/compiler/machines/vax/make.scm
index f60ad249d..12e07993a 100644
--- a/v7/src/compiler/machines/vax/make.scm
+++ b/v7/src/compiler/machines/vax/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 4.93 2007/01/05 21:19:22 cph Exp $
+$Id: make.scm,v 4.94 2007/06/17 16:54:35 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -29,6 +29,6 @@ USA.
 
 (declare (usual-integrations))
 
-((load "base/make") "DEC VAX")
+((load "base/make") "VAX")
 ((environment-lookup (->environment '(COMPILER DISASSEMBLER MACROS))
 		     'INITIALIZE-PACKAGE!))
\ No newline at end of file