Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 03 Dec 1995 13:04:51 +0100
changeset 147 9de6bea67dbf
parent 146 3d407ab8ac44
child 148 ef0e604209ec
*** empty log message ***
ObjFLoader.st file | annotate | diff | comparison | revisions
ObjectFileLoader.st file | annotate | diff | comparison | revisions 
--- a/ObjFLoader.st	Sun Dec 03 12:49:46 1995 +0100
+++ b/ObjFLoader.st	Sun Dec 03 13:04:51 1995 +0100
@@ -13,8 +13,8 @@
 Object subclass:#ObjectFileLoader
 	 instanceVariableNames:''
 	 classVariableNames:'MySymbolTable Verbose LastError LinkErrorMessage NextHandleID
-                LoadedObjects PreviouslyLoadedObjects ActuallyLoadedObjects
-                SearchedLibraries'
+		LoadedObjects PreviouslyLoadedObjects ActuallyLoadedObjects
+		SearchedLibraries'
 	 poolDictionaries:''
 	 category:'System-Compiler'
 !
@@ -182,7 +182,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.54 1995-11-23 02:21:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.55 1995-12-03 12:04:51 cg Exp $'
 ! !
 
 !ObjectFileLoader class methodsFor:'initialization'!
@@ -702,13 +702,18 @@
     SearchedLibraries notNil ifTrue:[
 	(self hasUndefinedSymbolsIn:handle) ifTrue:[
 	    SearchedLibraries do:[:libName |
-		Transcript showCr:'   ... trying ' , libName , ' to resolve undefined symbols ...'.
-		dummyHandle := Array new:4.
-		dummyHandle := self primLoadDynamicObject:libName into:dummyHandle.
-		dummyHandle isNil ifTrue:[
-		    Transcript showCr:'   ... load of library ' , libName , ' failed.'.
+		(self hasUndefinedSymbolsIn:handle) ifTrue:[
+		    Transcript showCr:'   ... trying ' , libName , ' to resolve undefined symbols ...'.
+		    dummyHandle := Array new:4.
+		    dummyHandle := self primLoadDynamicObject:libName into:dummyHandle.
+		    dummyHandle isNil ifTrue:[
+			Transcript showCr:'   ... load of library ' , libName , ' failed.'.
+		    ]
 		]
-	    ]
+	    ].
+	    (self hasUndefinedSymbolsIn:handle) isNil ifTrue:[
+		Transcript showCr:('loadDynamic: still undefined symbols in ',aFileName,'.').
+	    ].
 	]
     ].
 
--- a/ObjectFileLoader.st	Sun Dec 03 12:49:46 1995 +0100
+++ b/ObjectFileLoader.st	Sun Dec 03 13:04:51 1995 +0100
@@ -13,8 +13,8 @@
 Object subclass:#ObjectFileLoader
 	 instanceVariableNames:''
 	 classVariableNames:'MySymbolTable Verbose LastError LinkErrorMessage NextHandleID
-                LoadedObjects PreviouslyLoadedObjects ActuallyLoadedObjects
-                SearchedLibraries'
+		LoadedObjects PreviouslyLoadedObjects ActuallyLoadedObjects
+		SearchedLibraries'
 	 poolDictionaries:''
 	 category:'System-Compiler'
 !
@@ -182,7 +182,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.54 1995-11-23 02:21:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.55 1995-12-03 12:04:51 cg Exp $'
 ! !
 
 !ObjectFileLoader class methodsFor:'initialization'!
@@ -702,13 +702,18 @@
     SearchedLibraries notNil ifTrue:[
 	(self hasUndefinedSymbolsIn:handle) ifTrue:[
 	    SearchedLibraries do:[:libName |
-		Transcript showCr:'   ... trying ' , libName , ' to resolve undefined symbols ...'.
-		dummyHandle := Array new:4.
-		dummyHandle := self primLoadDynamicObject:libName into:dummyHandle.
-		dummyHandle isNil ifTrue:[
-		    Transcript showCr:'   ... load of library ' , libName , ' failed.'.
+		(self hasUndefinedSymbolsIn:handle) ifTrue:[
+		    Transcript showCr:'   ... trying ' , libName , ' to resolve undefined symbols ...'.
+		    dummyHandle := Array new:4.
+		    dummyHandle := self primLoadDynamicObject:libName into:dummyHandle.
+		    dummyHandle isNil ifTrue:[
+			Transcript showCr:'   ... load of library ' , libName , ' failed.'.
+		    ]
 		]
-	    ]
+	    ].
+	    (self hasUndefinedSymbolsIn:handle) isNil ifTrue:[
+		Transcript showCr:('loadDynamic: still undefined symbols in ',aFileName,'.').
+	    ].
 	]
     ].
hg/stx-libcomp