--- 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!