[armedbear-cvs] r12077 - trunk/abcl/src/org/armedbear/lisp

Erik Huelsmann ehuelsmann at common-lisp.net
Wed Jul 29 19:56:42 UTC 2009


Author: ehuelsmann
Date: Wed Jul 29 15:56:39 2009
New Revision: 12077

Log:
Profiler efficiency: sampleNow only ever takes on a 'true'
value if both 'profiling' and 'sampling' are true -->
no need to check for the other 2 conditionals.

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

Modified: trunk/abcl/src/org/armedbear/lisp/LispThread.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispThread.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispThread.java	Wed Jul 29 15:56:39 2009
@@ -556,10 +556,8 @@
     private void doProfiling()
         throws ConditionThrowable
     {
-        if (profiling && sampling) {
-            if (sampleNow)
-                Profiler.sample(this);
-        }
+        if (sampleNow)
+            Profiler.sample(this);
     }
 
     public final void pushStackFrame(LispObject operator)




More information about the armedbear-cvs mailing list