X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPprMach.hs;h=9e85198513af06f8b43e1981a558c86bb78ba2ef;hb=51cae5224f2f2f5db8b3196d0f5118ba4246701a;hp=8fc9e3dc46bedf0effa6f3b1e02bb93e58eef4bd;hpb=c0ea29afb7fcc3e8a69df60704d170d2c45e3d90;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index 8fc9e3d..9e85198 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 ]