Ticket #1433: core

File core, 3.4 KB (added by sorear, 7 years ago)

-ddump-simpl output (6.7.20070612)

Line 
1
2==================== Tidy Core ====================
3HashStr.$WTriple2 :: GHC.Word.Word64
4                     -> GHC.Word.Word64
5                     -> GHC.Word.Word64
6                     -> HashStr.Triple2
7[DataConWrapper]
8[Arity 3
9 NoCafRefs
10 Str: DmdType SSSm]
11HashStr.$WTriple2 =
12  __inline_me (\ (tpl_B1 :: GHC.Word.Word64)
13                 (tpl1_B2 :: GHC.Word.Word64)
14                 (tpl2_B3 :: GHC.Word.Word64) ->
15                 case tpl_B1 of tpl3_B1 { __DEFAULT ->
16                 case tpl1_B2 of tpl4_B2 { __DEFAULT ->
17                 case tpl2_B3 of tpl5_B3 { __DEFAULT -> HashStr.Triple2 tpl3_B1 tpl4_B2 tpl5_B3 }
18                 }
19                 })
20
21HashStr.$WTriple1 :: GHC.Word.Word32
22                     -> GHC.Word.Word32
23                     -> GHC.Word.Word32
24                     -> HashStr.Triple1
25[DataConWrapper]
26[Arity 3
27 NoCafRefs
28 Str: DmdType SSSm]
29HashStr.$WTriple1 =
30  __inline_me (\ (tpl_B1 :: GHC.Word.Word32)
31                 (tpl1_B2 :: GHC.Word.Word32)
32                 (tpl2_B3 :: GHC.Word.Word32) ->
33                 case tpl_B1 of tpl3_B1 { __DEFAULT ->
34                 case tpl1_B2 of tpl4_B2 { __DEFAULT ->
35                 case tpl2_B3 of tpl5_B3 { __DEFAULT -> HashStr.Triple1 tpl3_B1 tpl4_B2 tpl5_B3 }
36                 }
37                 })
38
39HashStr.$wmix1 :: GHC.Word.Word32
40                  -> GHC.Prim.Word#
41                  -> GHC.Word.Word32
42                  -> (# GHC.Word.Word32, GHC.Word.Word32, GHC.Word.Word32 #)
43[GlobalId]
44[Arity 3
45 NoCafRefs
46 Str: DmdType S(L)LL]
47HashStr.$wmix1 =
48  \ (ww_sqz :: GHC.Word.Word32)
49    (ww1_sqC :: GHC.Prim.Word#)
50    (ww2_sqE :: GHC.Word.Word32) ->
51    case ww_sqz of wild_apm { GHC.Word.W32# x#_apo ->
52    (# wild_apm,
53       GHC.Word.W32#
54         (GHC.Prim.xor#
55            (GHC.Prim.xor# ww1_sqC (GHC.Prim.uncheckedShiftL# x#_apo 9))
56            (GHC.Prim.uncheckedShiftL# x#_apo 9)),
57       ww2_sqE #)
58    }
59
60HashStr.$wmix2 :: GHC.Prim.Word64#
61                  -> GHC.Prim.Word64#
62                  -> GHC.Word.Word64
63                  -> HashStr.Triple2
64[GlobalId]
65[Arity 3
66 NoCafRefs
67 Str: DmdType LLL]
68HashStr.$wmix2 =
69  \ (ww_sqm :: GHC.Prim.Word64#)
70    (ww1_sqq :: GHC.Prim.Word64#)
71    (ww2_sqs :: GHC.Word.Word64) ->
72    case GHC.Word.shiftL64# ww_sqm 9 of wild3_aoJ { __DEFAULT ->
73    case {__ccall hs_xor64 GHC.Prim.Word64#
74                  -> GHC.Prim.Word64#
75                  -> GHC.Prim.State# GHC.Prim.RealWorld
76                  -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Prim.Word64# #)}_aol
77           ww1_sqq wild3_aoJ GHC.Prim.realWorld#
78    of wild2_aoo { (# ds2_aoq, ds3_aor #) ->
79    case {__ccall hs_xor64 GHC.Prim.Word64#
80                  -> GHC.Prim.Word64#
81                  -> GHC.Prim.State# GHC.Prim.RealWorld
82                  -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Prim.Word64# #)}_aol
83           ds3_aor wild3_aoJ GHC.Prim.realWorld#
84    of wild21_Xp5 { (# ds21_Xp8, ds31_XpT #) ->
85    HashStr.Triple2 (GHC.Word.W64# ww_sqm) (GHC.Word.W64# ds31_XpT) ww2_sqs
86    }
87    }
88    }
89
90HashStr.mix2 :: HashStr.Triple2 -> HashStr.Triple2
91[GlobalId]
92[Arity 1
93 Worker HashStr.$wmix2
94 NoCafRefs
95 Str: DmdType U(U(L)U(L)L)]
96HashStr.mix2 =
97  __inline_me (\ (w_sqi :: HashStr.Triple2) ->
98                 case w_sqi of w1_Xqt { HashStr.Triple2 ww_sqk ww1_sqo ww2_sqs ->
99                 case ww_sqk of ww3_XqC { GHC.Word.W64# ww4_sqm ->
100                 case ww1_sqo of ww5_XqL { GHC.Word.W64# ww6_sqq ->
101                 HashStr.$wmix2 ww4_sqm ww6_sqq ww2_sqs
102                 }
103                 }
104                 })
105
106HashStr.mix1 :: HashStr.Triple1 -> HashStr.Triple1
107[GlobalId]
108[Arity 1
109 Worker HashStr.$wmix1
110 NoCafRefs
111 Str: DmdType U(S(L)U(L)L)m]
112HashStr.mix1 =
113  __inline_me (\ (w_sqx :: HashStr.Triple1) ->
114                 case w_sqx of w1_XqK { HashStr.Triple1 ww_sqz ww1_sqA ww2_sqE ->
115                 case ww1_sqA of ww3_XqU { GHC.Word.W32# ww4_sqC ->
116                 case HashStr.$wmix1 ww_sqz ww4_sqC ww2_sqE
117                 of ww5_sqL { (# ww6_sqN, ww7_sqO, ww8_sqP #) ->
118                 HashStr.Triple1 ww6_sqN ww7_sqO ww8_sqP
119                 }
120                 }
121                 })
122
123
124
125
126==================== Tidy Core Rules ====================
127
128