diff options
-rw-r--r-- | rts/Interpreter.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index b7575b3051..237b9c848a 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -1478,11 +1478,11 @@ run_BCO: for (i = 0; i < n_payload; i++) ap->payload[i] = (StgClosure*)SpW(i+1); - Sp_addW(n_payload+1); - IF_DEBUG(interpreter, - debugBelch("\tBuilt "); - printObj((StgClosure*)ap); - ); + Sp_addW(n_payload+1); + IF_DEBUG(interpreter, + debugBelch("\tBuilt "); + printObj((StgClosure*)ap); + ); goto nextInsn; } @@ -1504,11 +1504,11 @@ run_BCO: for (i = 0; i < n_payload; i++) pap->payload[i] = (StgClosure*)SpW(i+1); - Sp_addW(n_payload+1); - IF_DEBUG(interpreter, - debugBelch("\tBuilt "); - printObj((StgClosure*)pap); - ); + Sp_addW(n_payload+1); + IF_DEBUG(interpreter, + debugBelch("\tBuilt "); + printObj((StgClosure*)pap); + ); goto nextInsn; } |