diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-23 05:22:47 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-23 05:22:47 +0000 |
| commit | d7d09c18459983be1ef690e0d9136a8736b1976f (patch) | |
| tree | 1de74251a202ac8d91e6b71e7f9f8ec5025182fe /compiler/nativeGen/PprMach.hs | |
| parent | abaa832f4b580fabaee9c887bb01da379c7e6482 (diff) | |
| download | haskell-d7d09c18459983be1ef690e0d9136a8736b1976f.tar.gz | |
SPARC NCG: Keep track of destinations when doing a tabled jump
Diffstat (limited to 'compiler/nativeGen/PprMach.hs')
| -rw-r--r-- | compiler/nativeGen/PprMach.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs index 8fc9e3dc46..9e85198513 100644 --- a/compiler/nativeGen/PprMach.hs +++ b/compiler/nativeGen/PprMach.hs @@ -2110,6 +2110,7 @@ pprInstr (BF cond b (BlockId id)) ] pprInstr (JMP addr) = (<>) (ptext (sLit "\tjmp\t")) (pprAddr addr) +pprInstr (JMP_TBL op ids) = pprInstr (JMP op) pprInstr (CALL (Left imm) n _) = hcat [ ptext (sLit "\tcall\t"), pprImm imm, comma, int n ] |