From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 15 Apr 2007 15:50:42 +0000 (+0000)
Subject: Change handles for liarc files to use output pathname, not input
X-Git-Tag: 20090517-FFI~649
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7af80c4485c24e1457ed2caf5384f2804ac1f84c;p=mit-scheme.git

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 f7ba1b96b..e69857fb5 100644
--- 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 b6866f2c5..115c77184 100644
--- 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 7f15ea073..38271157e 100644
--- 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))