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

pathname.

diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index ef7ae7710fc4d952b4394556b7967d9a280c8b78..a206eb3bb2acd96f40fbc8d9e0878db3a9123a41 100644 (file)
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.72 2007/04/14 05:52:53 cph Exp $
+$Id: toplev.scm,v 4.73 2007/04/15 15:41:04 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -139,7 +139,8 @@ USA.
         (and (not (default-object? output-string)) output-string)
         (make-pathname #f #f #f #f "bin" 'NEWEST)
         (lambda (input-pathname output-pathname)
-          (fluid-let ((*compiler-input-pathname* input-pathname))
+          (fluid-let ((*compiler-input-pathname* input-pathname)
+                      (*compiler-output-pathname* output-pathname))
             (let ((scode (compiler-fasload input-pathname)))
               (if (and (scode/constant? scode)
                        (not compiler:compile-data-files-as-expressions?))
@@ -163,6 +164,7 @@ USA.
 
 (define *debugging-key*)
 (define *compiler-input-pathname*)
+(define *compiler-output-pathname*)
 
 (define (maybe-open-file open? pathname receiver)
   (if open?

diff --git a/v7/src/compiler/machines/C/compiler.pkg b/v7/src/compiler/machines/C/compiler.pkg
index 698a9948b803aec62dd2859ef387b5dc49d8c767..fd1c6c61a9e6d7caeac3f39d14a19da9f3e645d8 100644 (file)
--- a/v7/src/compiler/machines/C/compiler.pkg
+++ b/v7/src/compiler/machines/C/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.pkg,v 1.22 2007/04/14 03:52:27 cph Exp $
+$Id: compiler.pkg,v 1.23 2007/04/15 15:41:08 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -257,6 +257,7 @@ USA.
          )
   (export (compiler)
          *compiler-input-pathname*
+         *compiler-output-pathname*
          canonicalize-label-name)
   (export (compiler fg-generator)
          compile-recursively)

diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm
index 0617817ca68a2e882aed95e67d86f3a7fc79b7f7..0557488f2f5844a6919e8033317e4f2f36a8126a 100644 (file)
--- a/v7/src/compiler/machines/C/cout.scm
+++ b/v7/src/compiler/machines/C/cout.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cout.scm,v 1.35 2007/04/14 03:52:31 cph Exp $
+$Id: cout.scm,v 1.36 2007/04/15 15:41:12 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -103,7 +103,7 @@ USA.
           (declare-dynamic-object-initialization handle)))
 
 (define (default-file-handle)
-  (or (liarc-object-pathname->handle *compiler-input-pathname*)
+  (or (liarc-object-pathname->handle *compiler-output-pathname*)
       "handle"))
 \f
 (define (stringify suffix initial-label lap-code info-output-pathname)