blob: bb670d9c1cc45821e844561e07a867203302f180 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
{-# LANGUAGE GADTs #-}
module Debug where
import Data.Array.Accelerate.AST
showPrimFun :: PrimFun a -> String
showPrimFun PrimAdd{} = "PrimAdd"
showPrimFun PrimSub{} = "PrimSub"
showPrimFun PrimMul{} = "PrimMul"
showPrimFun PrimNeg{} = "PrimNeg"
showPrimFun PrimAbs{} = "PrimAbs"
showPrimFun PrimSig{} = "PrimSig"
showPrimFun PrimQuot{} = "PrimQuot"
showPrimFun PrimRem{} = "PrimRem"
showPrimFun PrimQuotRem{} = "PrimQuotRem"
showPrimFun PrimIDiv{} = "PrimIDiv"
showPrimFun PrimMod{} = "PrimMod"
showPrimFun PrimDivMod{} = "PrimDivMod"
showPrimFun PrimBAnd{} = "PrimBAnd"
showPrimFun PrimBOr{} = "PrimBOr"
showPrimFun PrimBXor{} = "PrimBXor"
showPrimFun PrimBNot{} = "PrimBNot"
showPrimFun PrimBShiftL{} = "PrimBShiftL"
showPrimFun PrimBShiftR{} = "PrimBShiftR"
showPrimFun PrimBRotateL{} = "PrimBRotateL"
showPrimFun PrimBRotateR{} = "PrimBRotateR"
showPrimFun PrimPopCount{} = "PrimPopCount"
showPrimFun PrimCountLeadingZeros{} = "PrimCountLeadingZeros"
showPrimFun PrimCountTrailingZeros{} = "PrimCountTrailingZeros"
showPrimFun PrimFDiv{} = "PrimFDiv"
showPrimFun PrimRecip{} = "PrimRecip"
showPrimFun PrimSin{} = "PrimSin"
showPrimFun PrimCos{} = "PrimCos"
showPrimFun PrimTan{} = "PrimTan"
showPrimFun PrimAsin{} = "PrimAsin"
showPrimFun PrimAcos{} = "PrimAcos"
showPrimFun PrimAtan{} = "PrimAtan"
showPrimFun PrimSinh{} = "PrimSinh"
showPrimFun PrimCosh{} = "PrimCosh"
showPrimFun PrimTanh{} = "PrimTanh"
showPrimFun PrimAsinh{} = "PrimAsinh"
showPrimFun PrimAcosh{} = "PrimAcosh"
showPrimFun PrimAtanh{} = "PrimAtanh"
showPrimFun PrimExpFloating{} = "PrimExpFloating"
showPrimFun PrimSqrt{} = "PrimSqrt"
showPrimFun PrimLog{} = "PrimLog"
showPrimFun PrimFPow{} = "PrimFPow"
showPrimFun PrimLogBase{} = "PrimLogBase"
showPrimFun PrimTruncate{} = "PrimTruncate"
showPrimFun PrimRound{} = "PrimRound"
showPrimFun PrimFloor{} = "PrimFloor"
showPrimFun PrimCeiling{} = "PrimCeiling"
showPrimFun PrimAtan2{} = "PrimAtan2"
showPrimFun PrimIsNaN{} = "PrimIsNaN"
showPrimFun PrimIsInfinite{} = "PrimIsInfinite"
showPrimFun PrimLt{} = "PrimLt"
showPrimFun PrimGt{} = "PrimGt"
showPrimFun PrimLtEq{} = "PrimLtEq"
showPrimFun PrimGtEq{} = "PrimGtEq"
showPrimFun PrimEq{} = "PrimEq"
showPrimFun PrimNEq{} = "PrimNEq"
showPrimFun PrimMax{} = "PrimMax"
showPrimFun PrimMin{} = "PrimMin"
showPrimFun PrimLAnd = "PrimLAnd"
showPrimFun PrimLOr = "PrimLOr"
showPrimFun PrimLNot = "PrimLNot"
showPrimFun PrimFromIntegral{} = "PrimFromIntegral"
showPrimFun PrimToFloating{} = "PrimToFloating"
|