--- a/ObjFLoader.st Sat Aug 19 03:44:18 1995 +0200
+++ b/ObjFLoader.st Wed Aug 23 19:54:11 1995 +0200
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.35 1995-08-19 01:44:02 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.36 1995-08-23 17:53:50 claus Exp $
'!
!ObjectFileLoader class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
version
"
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.35 1995-08-19 01:44:02 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.36 1995-08-23 17:53:50 claus Exp $
"
!
@@ -656,16 +656,16 @@
knownToBeOk := true.
knownToBeOk ifFalse:[
- Verbose ifTrue:[
+ Verbose ifTrue:[
'looking for undefs ...' infoPrintNL.
- ].
+ ].
- "
- if there are any undefined symbols, we may have to load more
- files (libs, other modules)
- "
- list := self getListOfUndefinedSymbolsFrom:handle.
- list notNil ifTrue:[
+ "
+ if there are any undefined symbols, we may have to load more
+ files (libs, other modules)
+ "
+ list := self getListOfUndefinedSymbolsFrom:handle.
+ list notNil ifTrue:[
moreHandles := self loadModulesFromListOfUndefined:list.
"
@@ -674,9 +674,9 @@
symName := '_' , aClassName , '_Init'.
initAddr := self getFunction:symName from:handle.
initAddr isNil ifTrue:[
- "try with added underscore"
- symName := '__' , aClassName , '_Init'.
- initAddr := self getFunction:symName from:handle.
+ "try with added underscore"
+ symName := '__' , aClassName , '_Init'.
+ initAddr := self getFunction:symName from:handle.
].
]
].
@@ -730,7 +730,7 @@
unload
"
Verbose ifTrue:[
- 'unloading due to init failure:' infoPrint. (handle at:3) infoPrintNL.
+ 'unloading due to init failure:' infoPrint. (handle at:3) infoPrintNL.
].
moreHandles notNil ifTrue:[
@@ -1044,6 +1044,7 @@
"return a collection containing the names of all
dynamically loaded objects."
+ LoadedObjects isNil ifTrue:[^ #()].
^ LoadedObjects keys copy
"
@@ -1948,8 +1949,8 @@
('LOADER: check for ' , aClass name , ' being loaded') infoPrintNL.
aClass autoload.
(aClass isBehavior and:[aClass isLoaded]) ifTrue:[
- ('LOADER: ok, loaded. continue registration of actual class') infoPrintNL.
- ^ true
+ ('LOADER: ok, loaded. continue registration of actual class') infoPrintNL.
+ ^ true
].
('LOADER: nope not loaded. fail registration of actual class') infoPrintNL.
^ false