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 ccfd4222e9d841db687e14a04786f1e7a8ea2af7..4dd313398fa98228897bac4695a41b71ff71b600 100644 (file)
--- 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 84257fa2737d1393d94e425a47e51e0da0fb305f..a0d1be40afbb0502b93b274d01a63fca77aa6c8c 100644 (file)
--- 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 fcff9c98b4cc3a783fb8a48c4f422f1e61ad2c92..9b263f83732f33003ef3fc6fde2648e75562fb6b 100644 (file)
--- 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 63e03e3b30198c59503b5c444af2efba194201ca..82303bc284ea45f74918b2f367afb364476ff445 100644 (file)
--- 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 025f11b3fab1728c481d8b9b556bc51e2b009001..acbc64c3d22d246e014ec2a515c1596665f81367 100644 (file)
--- 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 f60ad249d837c79c145ab7beeac2ecb7a6a77d80..12e07993aac8989d4a88e18982ec55957ea17ded 100644 (file)
--- 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