Changeset 13007

Timestamp:

11/06/10 12:37:25 (11 years ago)

Author:

ehuelsmann

Message:

Eliminate ~80k exceptions (ClassNotFoundException?) during
Maxima compilation by making our FaslClassLoader? handle its
own classes first.

File:

• trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/FaslClassLoader.java

@@ -53 +53 @@
       } catch(Exception e) {
     //e.printStackTrace();
-    Debug.trace("useLoaderFunction = true but couldn't fully init FASL loader, will fall back to reflection!");
+    Debug.trace("useLoaderFunction = true but couldn't fully init FASL loader ("+baseName+"), will fall back to reflection!");
       }
   }
     }
 
+    @Override
+    protected Class<?> loadClass(String name, boolean resolve)
+            throws ClassNotFoundException {
+        /* First we check if we should load the class ourselves,
+         * allowing the default handlers to kick in if we don't...
+         *
+         * This strategy eliminates ClassNotFound exceptions inside
+         * the inherited loadClass() eliminated ~80k exceptions during
+         * Maxima compilation. Generally, creation of an exception object
+         * is a pretty heavy operation, because it processes the call stack,
+         * which - in ABCL - is pretty deep, most of the time.
+         */
+        if (name.startsWith(baseName + "_")) {
+            String internalName = "org/armedbear/lisp/" + name;
+            Class<?> c = this.findLoadedClass(internalName);
+
+            if (c == null)
+                c = findClass(name);
+
+            if (c != null) {
+                if (resolve)
+                    resolveClass(c);
+
+                return c;
+            }
+        }
+
+        // Fall through to our super's default handling
+        return super.loadClass(name, resolve);
+    }
+
+    @Override
     protected Class<?> findClass(String name) throws ClassNotFoundException {
   try {