class: ObjectFileLoader
authorClaus Gittinger <cg@exept.de>
Fri, 21 Jun 2013 09:52:06 +0200
changeset 3207 5adf52b22db2
parent 3206 8c2541225487
child 3208 093f1891db93
class: ObjectFileLoader changed: #listUndefinedSymbolsIn: #loadClass:fromObjectFile:
ObjectFileLoader.st
--- a/ObjectFileLoader.st	Fri Jun 21 09:51:25 2013 +0200
+++ b/ObjectFileLoader.st	Fri Jun 21 09:52:06 2013 +0200
@@ -962,7 +962,7 @@
             "
              ... and we are loading a module ...
             "
-            Transcript showCR:'try for missing class in same object ...'.
+            Transcript showCR:'ObjectFileLoader [info]: try for missing class in same object ...'.
             Verbose ifTrue:[
                 'try for missing class:' errorPrint. (info at:2) errorPrintCR.
             ].
@@ -971,7 +971,7 @@
                 "
                  try again ...
                 "
-                Transcript showCR:'missing class is here; try again ...'.
+                Transcript showCR:'ObjectFileLoader [info]: missing class is here; try again ...'.
                 info := self performModuleInitAt:initAddr for:aClassName identifyAs:handle.
                 status := info at:1.
             ]
@@ -981,7 +981,7 @@
             'done init status=' errorPrint. info errorPrintCR.
         ].
         (status == #unregisteredSuperclass) ifTrue:[
-            Transcript showCR:'superclass is not registered'.
+            Transcript showCR:'ObjectFileLoader [info]: superclass is not registered'.
         ].
 
         (Symbol hasInterned:aClassName) ifTrue:[
@@ -2191,10 +2191,10 @@
 
     undefinedNames := self getListOfUndefinedSymbolsFrom:handle.
     undefinedNames size > 0 ifTrue:[
-	Transcript showCR:'undefined:'.
-	undefinedNames do:[:aName |
-	    Transcript showCR:'    ' , aName
-	]
+        Transcript showCR:'ObjectFileLoader [info]: undefined:'.
+        undefinedNames do:[:aName |
+            Transcript showCR:'    ' , aName
+        ]
     ].
 
     "Modified: 18.5.1996 / 15:43:45 / cg"
@@ -4508,11 +4508,11 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.353 2013-06-05 08:50:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.354 2013-06-21 07:52:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.353 2013-06-05 08:50:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.354 2013-06-21 07:52:06 cg Exp $'
 ! !