[Gd-chatter] r11143 - trunk/src/d2c/compiler/main

[prom at gwydiondylan.org]

Author: prom
Date: Tue Jan 23 13:19:58 2007
New Revision: 11143

Modified:
   trunk/src/d2c/compiler/main/lid-mode-state.dylan
Log:
Job: minor

Allow C-Object-Files to lie outside the current working directory.



Modified: trunk/src/d2c/compiler/main/lid-mode-state.dylan
==============================================================================
--- trunk/src/d2c/compiler/main/lid-mode-state.dylan	(original)
+++ trunk/src/d2c/compiler/main/lid-mode-state.dylan	Tue Jan 23 13:19:58 2007
@@ -250,6 +250,7 @@
 	let object-file
 	  = if (state.unit-shared?)
               make(<file-locator>,
+	           directory: file.locator-directory,
                    base: file.locator-base,
                    extension: strip-dot(state.unit-target.shared-object-filename-suffix));
 	    else
@@ -366,6 +367,7 @@
 	if (state.unit-shared?)
 	  let shared-file
             = make(<file-locator>,
+                   directory: file.locator-directory,
                    name: file.locator-base,
                    extension: strip-dot(state.unit-target.shared-object-filename-suffix));
 	  format(*debug-output*, "Adding %s\n", shared-file);