checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 26 Feb 1999 13:03:12 +0100
changeset 818 45273d8de932
parent 817 8de90dbed4bb
child 819 83f614a5a77d
checkin from browser
ObjFLoader.st
ObjectFileLoader.st
--- a/ObjFLoader.st	Thu Feb 25 15:49:27 1999 +0100
+++ b/ObjFLoader.st	Fri Feb 26 13:03:12 1999 +0100
@@ -2383,7 +2383,9 @@
                 ld := ld , (SearchedLibraries asStringCollection asStringWith: $ ).
                 ld := ld , ' ..\libbc\stxc32i.lib,,'.
             ] ifFalse:[
-                self halt.
+                LastError := 'currently only support borlandC'.
+                self halt:'currently only support borlandC'.
+                ^ nil
             ]
         ].
 
@@ -3762,6 +3764,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.188 1999-02-17 16:17:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.189 1999-02-26 12:03:12 cg Exp $'
 ! !
 ObjectFileLoader initialize!
--- a/ObjectFileLoader.st	Thu Feb 25 15:49:27 1999 +0100
+++ b/ObjectFileLoader.st	Fri Feb 26 13:03:12 1999 +0100
@@ -2383,7 +2383,9 @@
                 ld := ld , (SearchedLibraries asStringCollection asStringWith: $ ).
                 ld := ld , ' ..\libbc\stxc32i.lib,,'.
             ] ifFalse:[
-                self halt.
+                LastError := 'currently only support borlandC'.
+                self halt:'currently only support borlandC'.
+                ^ nil
             ]
         ].
 
@@ -3762,6 +3764,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.188 1999-02-17 16:17:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.189 1999-02-26 12:03:12 cg Exp $'
 ! !
 ObjectFileLoader initialize!