diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2013-01-09 11:51:58 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2013-01-09 12:11:26 +0000 |
| commit | 0c42e301337bdefa94d0c288bb6d689ac33baa4d (patch) | |
| tree | 6d91d9dab0d7ae40e04f641d76937db438d89a55 /rts/Interpreter.c | |
| parent | f838d2f3d4ee8876647f190da3b2c858c6a669d4 (diff) | |
| download | haskell-0c42e301337bdefa94d0c288bb6d689ac33baa4d.tar.gz | |
remove unnecessary size field in BCO (#7518)
Diffstat (limited to 'rts/Interpreter.c')
| -rw-r--r-- | rts/Interpreter.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 809f0aba5a..f4fe816d28 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -788,9 +788,7 @@ run_BCO: register StgPtr* ptrs = (StgPtr*)(&bco->ptrs->payload[0]); #ifdef DEBUG int bcoSize; - bcoSize = BCO_READ_NEXT_WORD; -#else - BCO_NEXT_WORD; + bcoSize = bco->instrs->bytes / sizeof(StgWord16); #endif IF_DEBUG(interpreter,debugBelch("bcoSize = %d\n", bcoSize)); |