diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-02 10:19:02 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-02 16:34:06 +0000 |
| commit | 78f517598c61b4e4a173a9f255314b3ac0a41227 (patch) | |
| tree | 084ff8a14313956acb2807be4366e48fd9776682 /rts | |
| parent | 2c7699ac446189ed100a9627bc6fba933097e98f (diff) | |
| download | haskell-78f517598c61b4e4a173a9f255314b3ac0a41227.tar.gz | |
fix BCO_GET_LARGE_ARG (seems to be completely wrong)
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Interpreter.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 37e0e051c4..da151e1342 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"); |