ObjectFileLoader.st
changeset 811 cf3d1dde3a1e
parent 809 09213d35c1cd
child 818 45273d8de932
--- a/ObjectFileLoader.st	Mon Feb 15 17:02:33 1999 +0100
+++ b/ObjectFileLoader.st	Wed Feb 17 17:17:16 1999 +0100
@@ -2381,18 +2381,22 @@
                 ld := ld , ' c0d32.obj ' , baseFileName , '.obj '.
                 ld := ld , ',' , baseFileName , '.dll,,..\libbc\librun.lib '.
                 ld := ld , (SearchedLibraries asStringCollection asStringWith: $ ).
-                ld := ld , ' stxc32i.lib,,'.
+                ld := ld , ' ..\libbc\stxc32i.lib,,'.
             ] ifFalse:[
                 self halt.
             ]
         ].
 
         outfile := (baseFileName , '.out').
-        ok := OperatingSystem executeCommand:(ld , ' >' , outfile).
-
-        ok ifFalse:[
-            output := (baseFileName , '.out') asFilename contents asString.
-            Transcript showCR:output; endEntry.
+        OperatingSystem isMSWINDOWSNTlike ifTrue:[
+            ok := OperatingSystem executeCommand:ld
+        ] ifFalse:[
+            ok := OperatingSystem executeCommand:(ld , ' >' , outfile).
+
+            ok ifFalse:[
+                output := (baseFileName , '.out') asFilename contents asString.
+                Transcript showCR:output; endEntry.
+            ]
         ].
 
         (baseFileName , '.out') asFilename delete.
@@ -3758,6 +3762,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.187 1999-02-15 16:01:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.188 1999-02-17 16:17:16 cg Exp $'
 ! !
 ObjectFileLoader initialize!