From 930cbe506d693cd62b7a2da505843a873f1a9dac Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 16 Nov 2007 05:32:02 +0000
Subject: move TCL_DTRACE_INST_NEXT after async handlers check

---
 generic/tclExecute.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index bc6ea42..9569188 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclExecute.c,v 1.349 2007/11/14 23:05:02 dkf Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.350 2007/11/16 05:32:02 das Exp $
  */
 
 #include "tclInt.h"
@@ -1721,8 +1721,6 @@ TclExecuteByteCode(
     iPtr->stats.instructionCount[*pc]++;
 #endif
 
-     TCL_DTRACE_INST_NEXT();
-
     /*
      * Check for asynchronous handlers [Bug 746722]; we do the check every
      * ASYNC_CHECK_COUNT_MASK instruction, of the form (2**n-1).
@@ -1758,6 +1756,8 @@ TclExecuteByteCode(
 	}
     }
 
+     TCL_DTRACE_INST_NEXT();
+
     /*
      * These two instructions account for 26% of all instructions (according
      * to measurements on tclbench by Ben Vitale
-- 
cgit v0.12