ObjectFileLoader.st
changeset 3737 b7c743f08003
parent 3736 08585739b27a
child 3738 dc47a2c6de4c
child 3890 b4ef457a02a2
--- 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.