diff options
| author | Johan Tibell <johan.tibell@gmail.com> | 2011-07-20 18:29:22 +0200 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-16 16:48:04 +0100 |
| commit | 2d0438f329ac153f9e59155f405d27fac0c43d65 (patch) | |
| tree | bb3ed4a2fb183ca163a78b553b579079fae75c11 /compiler/nativeGen/PPC | |
| parent | 49dbe60558deee5ea6cd2c7730b7c591d15559c8 (diff) | |
| download | haskell-2d0438f329ac153f9e59155f405d27fac0c43d65.tar.gz | |
Add popCnt# primop
Diffstat (limited to 'compiler/nativeGen/PPC')
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index a0e3ae92b5..b1936fe124 100644 --- a/compiler/nativeGen/PPC/CodeGen.hs +++ b/compiler/nativeGen/PPC/CodeGen.hs @@ -28,6 +28,7 @@ where import PPC.Instr import PPC.Cond import PPC.Regs +import CPrim import NCGMonad import Instruction import PIC @@ -1142,6 +1143,8 @@ genCCall' gcp target dest_regs argsAndHints MO_Memset -> (fsLit "memset", False) MO_Memmove -> (fsLit "memmove", False) + MO_PopCnt w -> (fsLit $ popCntLabel w, False) + other -> pprPanic "genCCall(ppc): unknown callish op" (pprCallishMachOp other) |