--- a/ObjectFileLoader.st Mon Mar 28 01:10:35 2016 +0200
+++ b/ObjectFileLoader.st Mon Mar 28 03:22:38 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -4159,32 +4157,32 @@
checkSymbol := #classPresentCheck:.
%{ /* NOREGISTER */
- char *badName;
+ char *badName = NULL;
char interestingClassName[512], *classNameP = 0;
if (__isStringLike(className)) {
- strncpy(interestingClassName, __stringVal(className), sizeof(interestingClassName));
- classNameP = interestingClassName;
+ strncpy(interestingClassName, __stringVal(className), sizeof(interestingClassName));
+ classNameP = interestingClassName;
}
statusCode = __MKSMALLINT(__check_registration__(classNameP,
- &checker, &checkSymbol,
- &badName));
+ &checker, &checkSymbol,
+ &badName));
if (badName) {
- badClassName = __MKSTRING(badName);
+ badClassName = __MKSTRING(badName);
}
%}.
statusCode == 0 ifTrue:[
- status := #ok
+ status := #ok
] ifFalse:[ statusCode == -1 ifTrue:[
- status := #missingClass
+ status := #missingClass
] ifFalse:[ statusCode == -2 ifTrue:[
- status := #versionMismatch
+ status := #versionMismatch
] ifFalse:[ statusCode == -3 ifTrue:[
- status := #unregisteredSuperclass
+ status := #unregisteredSuperclass
] ifFalse:[ statusCode == -4 ifTrue:[
- status := #tryAgain
+ status := #tryAgain
] ifFalse:[
- status := #loadFailed
+ status := #loadFailed
] ] ] ] ].
^ Array with:status with:badClassName.