--- a/ObjectFileLoader.st Fri Jan 10 18:54:02 1997 +0100
+++ b/ObjectFileLoader.st Fri Jan 10 19:13:11 1997 +0100
@@ -524,7 +524,7 @@
"/ initAddr := self getFunction:'__CTOR_LIST__' from:handle.
"/ Verbose ifTrue:[
-"/ ('calling CTORs at:' , (initAddr printStringRadix:16)) infoPrintNL
+"/ ('calling CTORs at:' , (initAddr printStringRadix:16)) infoPrintCR
"/ ].
initAddr := self getFunction:list first from:handle.
@@ -542,13 +542,13 @@
].
initAddr isNil ifTrue:[
Verbose ifTrue:[
- ('no CTOR-func found (' , list first , ')') infoPrintNL.
+ ('no CTOR-func found (' , list first , ')') infoPrintCR.
].
self unloadDynamicObject:aFileName.
^ nil
].
Verbose ifTrue:[
- ('calling CTORs at:' , (initAddr printStringRadix:16)) infoPrintNL
+ ('calling CTORs at:' , (initAddr printStringRadix:16)) infoPrintCR
].
self callInitFunctionAt:initAddr
specialInit:false
@@ -576,7 +576,7 @@
self unloadDynamicObject:aFileName.
^ nil
- "Modified: 10.1.1997 / 17:56:58 / cg"
+ "Modified: 10.1.1997 / 19:11:57 / cg"
!
loadClass:aClassName fromObjectFile:aFileName
@@ -2961,6 +2961,6 @@
!ObjectFileLoader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.129 1997-01-10 17:54:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.130 1997-01-10 18:13:11 cg Exp $'
! !
ObjectFileLoader initialize!