Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/78f517598c61b4e4a173a9f255314b3ac0a41227 >--------------------------------------------------------------- commit 78f517598c61b4e4a173a9f255314b3ac0a41227 Author: Simon Marlow <[email protected]> Date: Wed Nov 2 10:19:02 2011 +0000 fix BCO_GET_LARGE_ARG (seems to be completely wrong) >--------------------------------------------------------------- rts/Interpreter.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 37e0e05..da151e1 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -67,7 +67,7 @@ #else #error Cannot cope with WORD_SIZE_IN_BITS being nether 32 nor 64 #endif -#define BCO_GET_LARGE_ARG ((bci & bci_FLAG_LARGE_ARGS) ? BCO_NEXT_WORD : BCO_NEXT) +#define BCO_GET_LARGE_ARG ((bci & bci_FLAG_LARGE_ARGS) ? BCO_READ_NEXT_WORD : BCO_NEXT) #define BCO_PTR(n) (W_)ptrs[n] #define BCO_LIT(n) literals[n] @@ -804,7 +804,7 @@ run_BCO: //printStack(Sp,cap->r.rCurrentTSO->stack+cap->r.rCurrentTSO->stack_size,iSu); //debugBelch("-- END stack\n\n"); //} - debugBelch("Sp = %p pc = %d ", Sp, bciPtr); + debugBelch("Sp = %p pc = %-4d ", Sp, bciPtr); disInstr(bco,bciPtr); if (0) { int i; debugBelch("\n"); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
