X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSchedule.c;h=5ebb685a027d750690dacbabb435efb0cc3c5411;hp=b68e1ac88fac9355e1ac768435fb520b071dafbc;hb=45202530612593a0ba7a6c559a38dc1ff26670a4;hpb=f71b024714320a3f1606b3fda36610ac3f043774

diff --git a/rts/Schedule.c b/rts/Schedule.c
index b68e1ac..5ebb685 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -3109,10 +3109,10 @@ findRetryFrameHelper (StgTSO *tso)
 	return CATCH_RETRY_FRAME;
       
     case CATCH_STM_FRAME: {
-        debugTrace(DEBUG_stm,
-		   "found CATCH_STM_FRAME at %p during retry", p);
         StgTRecHeader *trec = tso -> trec;
 	StgTRecHeader *outer = stmGetEnclosingTRec(trec);
+        debugTrace(DEBUG_stm,
+		   "found CATCH_STM_FRAME at %p during retry", p);
         debugTrace(DEBUG_stm, "trec=%p outer=%p", trec, outer);
 	stmAbortTransaction(tso -> cap, trec);
 	stmFreeAbortedTRec(tso -> cap, trec);