Change handles for liarc files to use output pathname, not input

pathname.

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index f7ba1b96b5d7684e9c63b0a53092f07370e0d3de..e69857fb5d3be3bcea7524710d1d85185d9719b3 100644 (file)
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.90 2007/04/15 15:42:20 cph Exp $
+$Id: load.scm,v 14.91 2007/04/15 15:50: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,
@@ -310,7 +310,7 @@ USA.
           (let ((tail (last d)))
             (and (string? tail)        ;Doesn't handle UP ("..").
                  (string-append tail "_" n
-                                (cond ((not t) ".bin")
+                                (cond ((not t) ".so")
                                       ((string? t) (string-append "." t))
                                       (else "")))))))))
 

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index b6866f2c57f032f21e63fdad677ad8abc26edd05..115c771847036f739e9f53d6a7a8046f6f1621c8 100644 (file)
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.109 2007/04/14 03:52:47 cph Exp $
+$Id: make.scm,v 14.110 2007/04/15 15:50:38 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -243,7 +243,7 @@ USA.
               bin-file)))))
 
 (define (file->object filename purify? optional?)
-  (let* ((block-name (string-append "runtime_" filename ".bin"))
+  (let* ((block-name (string-append "runtime_" filename ".so"))
         (value (initialize-c-compiled-block block-name)))
     (cond (value
           (tty-write-string newline-string)

diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm
index 7f15ea073515519f45175b2b661ad3e52a970dce..38271157ec7e2ac970d4b570769df63ee26d21fe 100644 (file)
--- a/v7/src/runtime/utabs.scm
+++ b/v7/src/runtime/utabs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utabs.scm,v 14.23 2007/04/14 03:53:04 cph Exp $
+$Id: utabs.scm,v 14.24 2007/04/15 15:50:42 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -57,7 +57,7 @@ USA.
   (set! microcode-tables-identification
        (scode-eval
         (or ((ucode-primitive initialize-c-compiled-block 1)
-             "microcode_utabmd.bin")
+             "microcode_utabmd.so")
             ((ucode-primitive binary-fasload)
              (if (default-object? filename)
                  ((ucode-primitive microcode-tables-filename))