]> Git — Sourcephile - haskell/symantic-parser.git/blob - tests/Golden/Machine/G18.expected.txt
impl: add `programWriter`
[haskell/symantic-parser.git] / tests / Golden / Machine / G18.expected.txt
1 pushValue GHC.Show.show
2 minReads=2
3 mayRaise=[ExceptionFailure]
4 alwaysRaise=[]
5 freeRegs=[]
6 join join
7 minReads=0
8 mayRaise=[]
9 alwaysRaise=[]
10 freeRegs=[]
11 | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
12 | minReads=0
13 | mayRaise=[]
14 | alwaysRaise=[]
15 | freeRegs=[]
16 | ret
17 | minReads=0
18 | mayRaise=[]
19 | alwaysRaise=[]
20 | freeRegs=[]
21 catch ExceptionFailure
22 minReads=2
23 mayRaise=[ExceptionFailure]
24 alwaysRaise=[]
25 freeRegs=[]
26 | <catchScope>
27 | | catch ExceptionFailure
28 | | minReads=3
29 | | mayRaise=[ExceptionFailure]
30 | | alwaysRaise=[]
31 | | freeRegs=[]
32 | | | <catchScope>
33 | | | | pushValue (\u_0 -> \u_1 -> \u_2 -> (GHC.Types.:) 'a' ((GHC.Types.:) 'b' ((GHC.Types.:) 'c' GHC.Types.[])))
34 | | | | minReads=3
35 | | | | mayRaise=[ExceptionFailure]
36 | | | | alwaysRaise=[]
37 | | | | freeRegs=[]
38 | | | | comment "satisfy ((GHC.Classes.==) 'a')"
39 | | | | minReads=3
40 | | | | mayRaise=[ExceptionFailure]
41 | | | | alwaysRaise=[]
42 | | | | freeRegs=[]
43 | | | | read ((GHC.Classes.==) 'a')
44 | | | | minReads=3
45 | | | | mayRaise=[ExceptionFailure]
46 | | | | alwaysRaise=[]
47 | | | | freeRegs=[]
48 | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
49 | | | | minReads=2
50 | | | | mayRaise=[ExceptionFailure]
51 | | | | alwaysRaise=[]
52 | | | | freeRegs=[]
53 | | | | comment "satisfy ((GHC.Classes.==) 'b')"
54 | | | | minReads=2
55 | | | | mayRaise=[ExceptionFailure]
56 | | | | alwaysRaise=[]
57 | | | | freeRegs=[]
58 | | | | read ((GHC.Classes.==) 'b')
59 | | | | minReads=2
60 | | | | mayRaise=[ExceptionFailure]
61 | | | | alwaysRaise=[]
62 | | | | freeRegs=[]
63 | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
64 | | | | minReads=1
65 | | | | mayRaise=[ExceptionFailure]
66 | | | | alwaysRaise=[]
67 | | | | freeRegs=[]
68 | | | | comment "satisfy ((GHC.Classes.==) 'c')"
69 | | | | minReads=1
70 | | | | mayRaise=[ExceptionFailure]
71 | | | | alwaysRaise=[]
72 | | | | freeRegs=[]
73 | | | | read ((GHC.Classes.==) 'c')
74 | | | | minReads=1
75 | | | | mayRaise=[ExceptionFailure]
76 | | | | alwaysRaise=[]
77 | | | | freeRegs=[]
78 | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
79 | | | | minReads=0
80 | | | | mayRaise=[]
81 | | | | alwaysRaise=[]
82 | | | | freeRegs=[]
83 | | | | commit ExceptionFailure
84 | | | | minReads=0
85 | | | | mayRaise=[]
86 | | | | alwaysRaise=[]
87 | | | | freeRegs=[]
88 | | | | commit ExceptionFailure
89 | | | | minReads=0
90 | | | | mayRaise=[]
91 | | | | alwaysRaise=[]
92 | | | | freeRegs=[]
93 | | | | refJoin join
94 | | | | minReads=0
95 | | | | mayRaise=[]
96 | | | | alwaysRaise=[]
97 | | | | freeRegs=[]
98 | | | <onException ExceptionFailure>
99 | | | | loadInput
100 | | | | minReads=0
101 | | | | mayRaise=[ExceptionFailure]
102 | | | | alwaysRaise=[ExceptionFailure]
103 | | | | freeRegs=[]
104 | | | | fail []
105 | | | | minReads=0
106 | | | | mayRaise=[ExceptionFailure]
107 | | | | alwaysRaise=[ExceptionFailure]
108 | | | | freeRegs=[]
109 | <onException ExceptionFailure>
110 | | comment "raiseAgainIfConsumed"
111 | | minReads=2
112 | | mayRaise=[ExceptionFailure]
113 | | alwaysRaise=[]
114 | | freeRegs=[]
115 | | saveInput
116 | | minReads=2
117 | | mayRaise=[ExceptionFailure]
118 | | alwaysRaise=[]
119 | | freeRegs=[]
120 | | lift2Value ((GHC.Classes.==) @GHC.Types.Int)
121 | | minReads=2
122 | | mayRaise=[ExceptionFailure]
123 | | alwaysRaise=[]
124 | | freeRegs=[]
125 | | choicesBranch
126 | | minReads=2
127 | | mayRaise=[ExceptionFailure]
128 | | alwaysRaise=[]
129 | | freeRegs=[]
130 | | | <branch (\u_0 -> u_0)>
131 | | | | catch ExceptionFailure
132 | | | | minReads=2
133 | | | | mayRaise=[ExceptionFailure]
134 | | | | alwaysRaise=[]
135 | | | | freeRegs=[]
136 | | | | | <catchScope>
137 | | | | | | pushValue (\u_0 -> \u_1 -> (GHC.Types.:) 'd' ((GHC.Types.:) 'e' GHC.Types.[]))
138 | | | | | | minReads=2
139 | | | | | | mayRaise=[ExceptionFailure]
140 | | | | | | alwaysRaise=[]
141 | | | | | | freeRegs=[]
142 | | | | | | comment "satisfy ((GHC.Classes.==) 'd')"
143 | | | | | | minReads=2
144 | | | | | | mayRaise=[ExceptionFailure]
145 | | | | | | alwaysRaise=[]
146 | | | | | | freeRegs=[]
147 | | | | | | read ((GHC.Classes.==) 'd')
148 | | | | | | minReads=2
149 | | | | | | mayRaise=[ExceptionFailure]
150 | | | | | | alwaysRaise=[]
151 | | | | | | freeRegs=[]
152 | | | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
153 | | | | | | minReads=1
154 | | | | | | mayRaise=[ExceptionFailure]
155 | | | | | | alwaysRaise=[]
156 | | | | | | freeRegs=[]
157 | | | | | | comment "satisfy ((GHC.Classes.==) 'e')"
158 | | | | | | minReads=1
159 | | | | | | mayRaise=[ExceptionFailure]
160 | | | | | | alwaysRaise=[]
161 | | | | | | freeRegs=[]
162 | | | | | | read ((GHC.Classes.==) 'e')
163 | | | | | | minReads=1
164 | | | | | | mayRaise=[ExceptionFailure]
165 | | | | | | alwaysRaise=[]
166 | | | | | | freeRegs=[]
167 | | | | | | lift2Value (\u_0 -> \u_1 -> u_0 u_1)
168 | | | | | | minReads=0
169 | | | | | | mayRaise=[]
170 | | | | | | alwaysRaise=[]
171 | | | | | | freeRegs=[]
172 | | | | | | commit ExceptionFailure
173 | | | | | | minReads=0
174 | | | | | | mayRaise=[]
175 | | | | | | alwaysRaise=[]
176 | | | | | | freeRegs=[]
177 | | | | | | refJoin join
178 | | | | | | minReads=0
179 | | | | | | mayRaise=[]
180 | | | | | | alwaysRaise=[]
181 | | | | | | freeRegs=[]
182 | | | | | <onException ExceptionFailure>
183 | | | | | | loadInput
184 | | | | | | minReads=0
185 | | | | | | mayRaise=[ExceptionFailure]
186 | | | | | | alwaysRaise=[ExceptionFailure]
187 | | | | | | freeRegs=[]
188 | | | | | | fail []
189 | | | | | | minReads=0
190 | | | | | | mayRaise=[ExceptionFailure]
191 | | | | | | alwaysRaise=[ExceptionFailure]
192 | | | | | | freeRegs=[]
193 | | | <default>
194 | | | | fail []
195 | | | | minReads=0
196 | | | | mayRaise=[ExceptionFailure]
197 | | | | alwaysRaise=[ExceptionFailure]
198 | | | | freeRegs=[]