class: ObjectFileLoader
changed:
#listUndefinedSymbolsIn:
#loadClass:fromObjectFile:
--- 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 $'
! !