diff options
| author | David Terei <davidterei@gmail.com> | 2011-11-22 12:05:52 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-11-22 12:05:52 -0800 |
| commit | cae17466c7882f068817a25e8a76700021378ec9 (patch) | |
| tree | 3a37b4ddae058f8b895e6b31cf85450023895591 /compiler | |
| parent | af7e12f72cfdaa5a0b76461d38303bb057244234 (diff) | |
| download | haskell-cae17466c7882f068817a25e8a76700021378ec9.tar.gz | |
Explicitly handle unsupported Cmm prim ops.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 7 | ||||
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/CCall.hs | 7 | ||||
| -rw-r--r-- | compiler/nativeGen/X86/CodeGen.hs | 6 |
3 files changed, 13 insertions, 7 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index 4bde8efd5b..607e05d66b 100644 --- a/compiler/nativeGen/PPC/CodeGen.hs +++ b/compiler/nativeGen/PPC/CodeGen.hs @@ -1146,9 +1146,10 @@ genCCall' gcp target dest_regs argsAndHints MO_PopCnt w -> (fsLit $ popCntLabel w, False) - other -> pprPanic "genCCall(ppc): unknown callish op" - (pprCallishMachOp other) - + MO_WriteBarrier -> + panic $ "outOfLineCmmOp: MO_WriteBarrier not supported" + MO_Touch -> + panic $ "outOfLineCmmOp: MO_Touch not supported" -- ----------------------------------------------------------------------------- -- Generating a table-branch diff --git a/compiler/nativeGen/SPARC/CodeGen/CCall.hs b/compiler/nativeGen/SPARC/CodeGen/CCall.hs index 5b26667642..d4f150680a 100644 --- a/compiler/nativeGen/SPARC/CodeGen/CCall.hs +++ b/compiler/nativeGen/SPARC/CodeGen/CCall.hs @@ -342,5 +342,8 @@ outOfLineMachOp_table mop MO_PopCnt w -> fsLit $ popCntLabel w - _ -> pprPanic "outOfLineMachOp(sparc): Unknown callish mach op " - (pprCallishMachOp mop) + MO_WriteBarrier -> + panic $ "outOfLineCmmOp: MO_WriteBarrier not supported here" + MO_Touch -> + panic $ "outOfLineCmmOp: MO_Touch not supported here" + diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs index adf199c145..97baeec1ab 100644 --- a/compiler/nativeGen/X86/CodeGen.hs +++ b/compiler/nativeGen/X86/CodeGen.hs @@ -2048,8 +2048,10 @@ outOfLineCmmOp mop res args MO_PopCnt _ -> fsLit "popcnt" - other -> panic $ "outOfLineCmmOp: unmatched op! (" ++ show other ++ ")" - + MO_WriteBarrier -> + panic $ "outOfLineCmmOp: MO_WriteBarrier not supported here" + MO_Touch -> + panic $ "outOfLineCmmOp: MO_Touch not supported here" -- ----------------------------------------------------------------------------- -- Generating a table-branch |