!7

lib 1400084 // patched heap analyzer

import org.gridkit.jvmtool.heapdump.*;

import org.netbeans.lib.profiler.heap.*;

import java.lang.reflect.Field;

static Heap heap;

sbool fake = false;

p-experiment {

  File f = stefansOS_heapDumpFile();

  print("Loading heap dump (" + toM(fileSize(f)) + " M)...");

  heap = HeapFactory.createHeap(f);

  print("Got heap.");

  L<JavaClass> classes = heap.getAllClasses();

  print("Got " + n2(classes, "class", "classes"));

  //pnl(sortedIC(mapMethod(classes, 'getName)));

  L<JavaClass> classLoaderClasses = filter(classes, func(JavaClass c) -> bool { startsWithOneOf(c.getName(), "main$JavaXClassLoader", "x30$JavaXClassLoader") });

  print("Got " + n2(classLoaderClasses, "class loader class", "class loader classes"));

  L<Instance> classLoaders = concatLists(mapMethod('getInstances, classLoaderClasses));

  print("Got " + n2(classLoaders, "class loader"));

  L<Instance> defunctClassLoaders = filter(classLoaders, func(Instance cl) { isTrue(cl.getValueOfField('retired)) });

  print("Got " + n2(defunctClassLoaders, "defunct class loader"));

  print();

  if (empty(defunctClassLoaders)) {

    if (fake) {

      defunctClassLoaders = classLoaders;

      print("FAKING IT");

    } else {

      print("No memory leaks.");

      ret;

    }

  }

  print("Calculating GC roots...");

  for (Instance cl : defunctClassLoaders) {

    Instance progIDInstance = (Instance) cl.getValueOfField('progID);

    S moduleID = HeapWalker.stringValue(progIDInstance);

    print("Checking module ID: " + snippetWithTitle_cached(moduleID));

    print("\nPath to GC root:");

    printLinesWithGrowingIndent(map(func(Pair<Instance, S> p) -> S {

      joinNempties(" in ", p.b, heapWalker_className(p.a))

    }, heapWalker_pathToGCRootWithFieldNames(cl)));

    print();

    //Instance i = cl.getNearestGCRootPointer();

    //print("i => " + i);

  }

}