diff options
| author | sewardj <unknown> | 1999-11-01 18:19:41 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 1999-11-01 18:19:41 +0000 |
| commit | 081601b1b535a1b520b7ad2a6de02ba6d9145172 (patch) | |
| tree | d7225efd7b8a0d35090acf4697bff908c2af8856 /ghc/rts/Disassembler.c | |
| parent | d8010e81db993f59af1431b098413f73a420802a (diff) | |
| download | haskell-081601b1b535a1b520b7ad2a6de02ba6d9145172.tar.gz | |
[project @ 1999-11-01 18:19:39 by sewardj]
Computation of max-stack-use during BCO generation was completely bogus.
Fix it. Also, add a i_STK_CHECK_big insn with 16-bit opcode.
Diffstat (limited to 'ghc/rts/Disassembler.c')
| -rw-r--r-- | ghc/rts/Disassembler.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index cbf36acc81..5fcdb08d36 100644 --- a/ghc/rts/Disassembler.c +++ b/ghc/rts/Disassembler.c @@ -5,8 +5,8 @@ * Copyright (c) 1994-1998. * * $RCSfile: Disassembler.c,v $ - * $Revision: 1.9 $ - * $Date: 1999/10/26 17:27:31 $ + * $Revision: 1.10 $ + * $Date: 1999/11/01 18:19:40 $ * ---------------------------------------------------------------------------*/ #include "Rts.h" @@ -205,6 +205,8 @@ InstrPtr disInstr( StgBCO *bco, InstrPtr pc ) return disNone(bco,pc,"PANIC"); case i_STK_CHECK: return disInt(bco,pc,"STK_CHECK"); + case i_STK_CHECK_big: + return disInt16(bco,pc,"STK_CHECK_big"); case i_ARG_CHECK: return disInt(bco,pc,"ARG_CHECK"); case i_ALLOC_AP: |