ObjectFileLoader.st
changeset 478 b0d558152d80
parent 477 5208c65a2b3d
child 504 850e5886b68e
--- 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!