blob: 09707ac5aef7a2606e611087d282f9f1b3992204 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- | Generating C symbol names emitted by the compiler.
module CPrim (popCntLabel) where
import CmmType
import Outputable
popCntLabel :: Width -> String
popCntLabel w = "hs_popcnt" ++ pprWidth w
where
pprWidth W8 = "8"
pprWidth W16 = "16"
pprWidth W32 = "32"
pprWidth W64 = "64"
pprWidth w = pprPanic "popCntLabel: Unsupported word width " (ppr w)
|
