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/MachCodeGen.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/MachCodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/MachCodeGen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs index da2b0eab82..cac9f17426 100644 --- a/compiler/nativeGen/MachCodeGen.hs +++ b/compiler/nativeGen/MachCodeGen.hs @@ -4309,8 +4309,8 @@ genSwitch expr ids , SLL e_reg (RIImm $ ImmInt 2) offset_reg -- load and jump to the destination - , LD II32 (AddrRegReg base_reg offset_reg) dst - , JMP (AddrRegImm dst (ImmInt 0)) + , LD II32 (AddrRegReg base_reg offset_reg) dst + , JMP_TBL (AddrRegImm dst (ImmInt 0)) [i | Just i <- ids] , NOP ] #else |