Changeset 12082

Timestamp:

08/01/09 07:58:15 (14 years ago)

Author:

ehuelsmann

Message:

Hot spot counting for the profiler.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• LispThread.java (modified) (1 diff)
• Profiler.java (modified) (2 diffs)

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

@@ -835 +835 @@
     {
         StackFrame s = stack;
+
+        for (int i = 0; i < 8; i++) {
+            if (s == null)
+                break;
+            LispObject operator = s.operator;
+            if (operator != null) {
+                operator.incrementHotCount();
+                operator.incrementCallCount();
+            }
+            s = s.next;
+        }
+
         while (s != null) {
             LispObject operator = s.operator;

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

@@ -69 +69 @@
                         if (object != null) {
                             object.setCallCount(0);
+                            object.setHotCount(0);
                             if (object instanceof StandardGenericFunction) {
                                 LispObject methods =
@@ -75 +76 @@
                                     StandardMethod method = (StandardMethod) methods.car();
                                     method.getFunction().setCallCount(0);
+                                    method.getFunction().setHotCount(0);
                                     methods = methods.cdr();
                                 }