]> Git — Sourcephile - haskell/symantic-parser.git/blob - tests/Golden/Machine/G11.expected.txt
impl: remove dead code: `unLeft`
[haskell/symantic-parser.git] / tests / Golden / Machine / G11.expected.txt
1 pushValue (\u_0 -> \u_1 -> GHC.Show.show u_0)
2 minReads=1
3 mayRaise=[ExceptionFailure]
4 alwaysRaise=[]
5 freeRegs=[]
6 pushValue (\u_0 -> u_0)
7 minReads=1
8 mayRaise=[ExceptionFailure]
9 alwaysRaise=[]
10 freeRegs=[]
11 newRegister reg
12 minReads=1
13 mayRaise=[ExceptionFailure]
14 alwaysRaise=[]
15 freeRegs=[]
16 iter loop
17 minReads=1
18 mayRaise=[ExceptionFailure]
19 alwaysRaise=[]
20 freeRegs=[reg]
21 | <ok>
22 | | pushValue (\u_0 -> (GHC.Types.:) 'a')
23 | | minReads=1
24 | | mayRaise=[ExceptionFailure]
25 | | alwaysRaise=[]
26 | | freeRegs=[reg]
27 | | comment "satisfy ((GHC.Classes.==) 'a')"
28 | | minReads=1
29 | | mayRaise=[ExceptionFailure]
30 | | alwaysRaise=[]
31 | | freeRegs=[reg]
32 | | read ((GHC.Classes.==) 'a')
33 | | minReads=1
34 | | mayRaise=[ExceptionFailure]
35 | | alwaysRaise=[]
36 | | freeRegs=[reg]
37 | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
38 | | minReads=0
39 | | mayRaise=[]
40 | | alwaysRaise=[]
41 | | freeRegs=[reg]
42 | | pushValue (\u_0 -> \u_1 -> \u_2 -> u_1 (u_0 u_2))
43 | | minReads=0
44 | | mayRaise=[]
45 | | alwaysRaise=[]
46 | | freeRegs=[reg]
47 | | lift2Value (\u_0 -> \u_1 -> u_1 u_0)
48 | | minReads=0
49 | | mayRaise=[]
50 | | alwaysRaise=[]
51 | | freeRegs=[reg]
52 | | readRegister reg
53 | | minReads=0
54 | | mayRaise=[]
55 | | alwaysRaise=[]
56 | | freeRegs=[reg]
57 | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
58 | | minReads=0
59 | | mayRaise=[]
60 | | alwaysRaise=[]
61 | | freeRegs=[reg]
62 | | writeRegister reg
63 | | minReads=0
64 | | mayRaise=[]
65 | | alwaysRaise=[]
66 | | freeRegs=[reg]
67 | | jump loop
68 | | minReads=0
69 | | mayRaise=[]
70 | | alwaysRaise=[]
71 | | freeRegs=[]
72 | <ko>
73 | | comment "raiseAgainIfConsumed"
74 | | minReads=1
75 | | mayRaise=[ExceptionFailure]
76 | | alwaysRaise=[]
77 | | freeRegs=[reg]
78 | | saveInput
79 | | minReads=1
80 | | mayRaise=[ExceptionFailure]
81 | | alwaysRaise=[]
82 | | freeRegs=[reg]
83 | | lift2Value ((GHC.Classes.==) @GHC.Types.Int)
84 | | minReads=1
85 | | mayRaise=[ExceptionFailure]
86 | | alwaysRaise=[]
87 | | freeRegs=[reg]
88 | | choicesBranch
89 | | minReads=1
90 | | mayRaise=[ExceptionFailure]
91 | | alwaysRaise=[]
92 | | freeRegs=[reg]
93 | | | <branch (\u_0 -> u_0)>
94 | | | | readRegister reg
95 | | | | minReads=1
96 | | | | mayRaise=[ExceptionFailure]
97 | | | | alwaysRaise=[]
98 | | | | freeRegs=[reg]
99 | | | | pushValue GHC.Types.[]
100 | | | | minReads=1
101 | | | | mayRaise=[ExceptionFailure]
102 | | | | alwaysRaise=[]
103 | | | | freeRegs=[]
104 | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
105 | | | | minReads=1
106 | | | | mayRaise=[ExceptionFailure]
107 | | | | alwaysRaise=[]
108 | | | | freeRegs=[]
109 | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
110 | | | | minReads=1
111 | | | | mayRaise=[ExceptionFailure]
112 | | | | alwaysRaise=[]
113 | | | | freeRegs=[]
114 | | | | comment "satisfy ((GHC.Classes.==) 'b')"
115 | | | | minReads=1
116 | | | | mayRaise=[ExceptionFailure]
117 | | | | alwaysRaise=[]
118 | | | | freeRegs=[]
119 | | | | read ((GHC.Classes.==) 'b')
120 | | | | minReads=1
121 | | | | mayRaise=[ExceptionFailure]
122 | | | | alwaysRaise=[]
123 | | | | freeRegs=[]
124 | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
125 | | | | minReads=0
126 | | | | mayRaise=[]
127 | | | | alwaysRaise=[]
128 | | | | freeRegs=[]
129 | | | | ret
130 | | | | minReads=0
131 | | | | mayRaise=[]
132 | | | | alwaysRaise=[]
133 | | | | freeRegs=[]
134 | | | <default>
135 | | | | fail []
136 | | | | minReads=0
137 | | | | mayRaise=[ExceptionFailure]
138 | | | | alwaysRaise=[ExceptionFailure]
139 | | | | freeRegs=[]