SPARC NCG: fill branch delay slot after tabled jump (doh!)

[ghc-hetmet.git] / compiler / nativeGen / MachCodeGen.hs

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index 4228c6c..5d67d0d 100644 (file)
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -4206,7 +4206,8 @@ genSwitch expr ids
 
                        -- load and jump to the destination
                        , LD    II32 (AddrRegReg base_reg offset_reg) dst
-                       , JMP   (AddrRegImm dst (ImmInt 0)) ]
+                       , JMP   (AddrRegImm dst (ImmInt 0)) 
+                       , NOP ]
 
 #else
 #error "ToDo: genSwitch"