test/Golden/Machine/G5.expected.txt

   1 let name
   2   minReads=0
   3   mayRaise=[ExceptionFailure]
   4   freeRegs=[]
   5 | catch ExceptionFailure
   6 |   minReads=0
   7 |   mayRaise=[ExceptionFailure]
   8 |   freeRegs=[]
   9 | | <ok>
  10 | | | pushValue (\x_0 -> \x_1 -> \x_2 -> \x_3 -> (GHC.Types.:) 'a' ((GHC.Types.:) 'b' ((GHC.Types.:) 'c' ((GHC.Types.:) 'd' GHC.Types.[]))))
  11 | | |   minReads=4
  12 | | |   mayRaise=[ExceptionFailure]
  13 | | |   freeRegs=[]
  14 | | | comment "satisfy"
  15 | | |   minReads=4
  16 | | |   mayRaise=[ExceptionFailure]
  17 | | |   freeRegs=[]
  18 | | | read ((GHC.Classes.==) 'a')
  19 | | |   minReads=4
  20 | | |   mayRaise=[ExceptionFailure]
  21 | | |   freeRegs=[]
  22 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  23 | | |   minReads=3
  24 | | |   mayRaise=[ExceptionFailure]
  25 | | |   freeRegs=[]
  26 | | | comment "satisfy"
  27 | | |   minReads=3
  28 | | |   mayRaise=[ExceptionFailure]
  29 | | |   freeRegs=[]
  30 | | | read ((GHC.Classes.==) 'b')
  31 | | |   minReads=3
  32 | | |   mayRaise=[ExceptionFailure]
  33 | | |   freeRegs=[]
  34 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  35 | | |   minReads=2
  36 | | |   mayRaise=[ExceptionFailure]
  37 | | |   freeRegs=[]
  38 | | | comment "satisfy"
  39 | | |   minReads=2
  40 | | |   mayRaise=[ExceptionFailure]
  41 | | |   freeRegs=[]
  42 | | | read ((GHC.Classes.==) 'c')
  43 | | |   minReads=2
  44 | | |   mayRaise=[ExceptionFailure]
  45 | | |   freeRegs=[]
  46 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  47 | | |   minReads=1
  48 | | |   mayRaise=[ExceptionFailure]
  49 | | |   freeRegs=[]
  50 | | | comment "satisfy"
  51 | | |   minReads=1
  52 | | |   mayRaise=[ExceptionFailure]
  53 | | |   freeRegs=[]
  54 | | | read ((GHC.Classes.==) 'd')
  55 | | |   minReads=1
  56 | | |   mayRaise=[ExceptionFailure]
  57 | | |   freeRegs=[]
  58 | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  59 | | |   minReads=0
  60 | | |   mayRaise=[]
  61 | | |   freeRegs=[]
  62 | | | commit ExceptionFailure
  63 | | |   minReads=0
  64 | | |   mayRaise=[]
  65 | | |   freeRegs=[]
  66 | | | ret
  67 | | |   minReads=0
  68 | | |   mayRaise=[]
  69 | | |   freeRegs=[]
  70 | | <ko>
  71 | | | loadInput
  72 | | |   minReads=0
  73 | | |   mayRaise=[ExceptionFailure]
  74 | | |   freeRegs=[]
  75 | | | fail []
  76 | | |   minReads=0
  77 | | |   mayRaise=[ExceptionFailure]
  78 | | |   freeRegs=[]
  79 pushValue (\x_0 -> \x_1 -> \x_2 -> GHC.Show.show ((GHC.Types.:) x_0 x_1))
  80   minReads=0
  81   mayRaise=[ExceptionFailure]
  82   freeRegs=[]
  83 call name
  84   minReads=0
  85   mayRaise=[ExceptionFailure]
  86   freeRegs=[]
  87 lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  88   minReads=0
  89   mayRaise=[ExceptionFailure]
  90   freeRegs=[]
  91 pushValue (\x_0 -> x_0)
  92   minReads=0
  93   mayRaise=[ExceptionFailure]
  94   freeRegs=[]
  95 newRegister reg
  96   minReads=0
  97   mayRaise=[ExceptionFailure]
  98   freeRegs=[]
  99 iter loop
 100   minReads=0
 101   mayRaise=[ExceptionFailure]
 102   freeRegs=[reg]
 103 | <ok>
 104 | | pushValue (GHC.Types.:)
 105 | |   minReads=0
 106 | |   mayRaise=[ExceptionFailure]
 107 | |   freeRegs=[reg]
 108 | | call name
 109 | |   minReads=0
 110 | |   mayRaise=[ExceptionFailure]
 111 | |   freeRegs=[reg]
 112 | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 113 | |   minReads=0
 114 | |   mayRaise=[]
 115 | |   freeRegs=[reg]
 116 | | pushValue (\x_0 -> \x_1 -> \x_2 -> x_1 (x_0 x_2))
 117 | |   minReads=0
 118 | |   mayRaise=[]
 119 | |   freeRegs=[reg]
 120 | | lift2Value (\x_0 -> \x_1 -> x_1 x_0)
 121 | |   minReads=0
 122 | |   mayRaise=[]
 123 | |   freeRegs=[reg]
 124 | | readRegister reg
 125 | |   minReads=0
 126 | |   mayRaise=[]
 127 | |   freeRegs=[reg]
 128 | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 129 | |   minReads=0
 130 | |   mayRaise=[]
 131 | |   freeRegs=[reg]
 132 | | writeRegister reg
 133 | |   minReads=0
 134 | |   mayRaise=[]
 135 | |   freeRegs=[reg]
 136 | | jump loop
 137 | |   minReads=0
 138 | |   mayRaise=[]
 139 | |   freeRegs=[]
 140 | <ko>
 141 | | pushInput
 142 | |   minReads=0
 143 | |   mayRaise=[ExceptionFailure]
 144 | |   freeRegs=[reg]
 145 | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
 146 | |                                                                j_1
 147 | |                                                                _) -> i_0 GHC.Classes.== j_1)
 148 | |   minReads=0
 149 | |   mayRaise=[ExceptionFailure]
 150 | |   freeRegs=[reg]
 151 | | choicesBranch
 152 | |   minReads=0
 153 | |   mayRaise=[ExceptionFailure]
 154 | |   freeRegs=[reg]
 155 | | | <branch (\x_0 -> x_0)>
 156 | | | | readRegister reg
 157 | | | |   minReads=0
 158 | | | |   mayRaise=[ExceptionFailure]
 159 | | | |   freeRegs=[reg]
 160 | | | | pushValue GHC.Types.[]
 161 | | | |   minReads=0
 162 | | | |   mayRaise=[ExceptionFailure]
 163 | | | |   freeRegs=[]
 164 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 165 | | | |   minReads=0
 166 | | | |   mayRaise=[ExceptionFailure]
 167 | | | |   freeRegs=[]
 168 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 169 | | | |   minReads=0
 170 | | | |   mayRaise=[ExceptionFailure]
 171 | | | |   freeRegs=[]
 172 | | | | join join
 173 | | | |   minReads=0
 174 | | | |   mayRaise=[]
 175 | | | |   freeRegs=[]
 176 | | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 177 | | | | |   minReads=0
 178 | | | | |   mayRaise=[]
 179 | | | | |   freeRegs=[]
 180 | | | | | ret
 181 | | | | |   minReads=0
 182 | | | | |   mayRaise=[]
 183 | | | | |   freeRegs=[]
 184 | | | | catch ExceptionFailure
 185 | | | |   minReads=0
 186 | | | |   mayRaise=[ExceptionFailure]
 187 | | | |   freeRegs=[]
 188 | | | | | <ok>
 189 | | | | | | comment "negLook"
 190 | | | | | |   minReads=0
 191 | | | | | |   mayRaise=[]
 192 | | | | | |   freeRegs=[]
 193 | | | | | | catch ExceptionFailure
 194 | | | | | |   minReads=0
 195 | | | | | |   mayRaise=[]
 196 | | | | | |   freeRegs=[]
 197 | | | | | | | <ok>
 198 | | | | | | | | comment "negLook.ahead"
 199 | | | | | | | |   minReads=1
 200 | | | | | | | |   mayRaise=[ExceptionFailure]
 201 | | | | | | | |   freeRegs=[]
 202 | | | | | | | | pushInput
 203 | | | | | | | |   minReads=1
 204 | | | | | | | |   mayRaise=[ExceptionFailure]
 205 | | | | | | | |   freeRegs=[]
 206 | | | | | | | | comment "satisfy"
 207 | | | | | | | |   minReads=1
 208 | | | | | | | |   mayRaise=[ExceptionFailure]
 209 | | | | | | | |   freeRegs=[]
 210 | | | | | | | | read (\x_0 -> GHC.Types.True)
 211 | | | | | | | |   minReads=1
 212 | | | | | | | |   mayRaise=[ExceptionFailure]
 213 | | | | | | | |   freeRegs=[]
 214 | | | | | | | | popValue
 215 | | | | | | | |   minReads=0
 216 | | | | | | | |   mayRaise=[ExceptionFailure]
 217 | | | | | | | |   freeRegs=[]
 218 | | | | | | | | commit ExceptionFailure
 219 | | | | | | | |   minReads=0
 220 | | | | | | | |   mayRaise=[ExceptionFailure]
 221 | | | | | | | |   freeRegs=[]
 222 | | | | | | | | loadInput
 223 | | | | | | | |   minReads=0
 224 | | | | | | | |   mayRaise=[ExceptionFailure]
 225 | | | | | | | |   freeRegs=[]
 226 | | | | | | | | fail []
 227 | | | | | | | |   minReads=0
 228 | | | | | | | |   mayRaise=[ExceptionFailure]
 229 | | | | | | | |   freeRegs=[]
 230 | | | | | | | <ko>
 231 | | | | | | | | comment "negLook.reset"
 232 | | | | | | | |   minReads=0
 233 | | | | | | | |   mayRaise=[]
 234 | | | | | | | |   freeRegs=[]
 235 | | | | | | | | loadInput
 236 | | | | | | | |   minReads=0
 237 | | | | | | | |   mayRaise=[]
 238 | | | | | | | |   freeRegs=[]
 239 | | | | | | | | pushValue GHC.Tuple.()
 240 | | | | | | | |   minReads=0
 241 | | | | | | | |   mayRaise=[]
 242 | | | | | | | |   freeRegs=[]
 243 | | | | | | | | commit ExceptionFailure
 244 | | | | | | | |   minReads=0
 245 | | | | | | | |   mayRaise=[]
 246 | | | | | | | |   freeRegs=[]
 247 | | | | | | | | refJoin join
 248 | | | | | | | |   minReads=0
 249 | | | | | | | |   mayRaise=[]
 250 | | | | | | | |   freeRegs=[]
 251 | | | | | <ko>
 252 | | | | | | pushInput
 253 | | | | | |   minReads=0
 254 | | | | | |   mayRaise=[ExceptionFailure]
 255 | | | | | |   freeRegs=[]
 256 | | | | | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
 257 | | | | | |                                                                j_1
 258 | | | | | |                                                                _) -> i_0 GHC.Classes.== j_1)
 259 | | | | | |   minReads=0
 260 | | | | | |   mayRaise=[ExceptionFailure]
 261 | | | | | |   freeRegs=[]
 262 | | | | | | choicesBranch
 263 | | | | | |   minReads=0
 264 | | | | | |   mayRaise=[ExceptionFailure]
 265 | | | | | |   freeRegs=[]
 266 | | | | | | | <branch (\x_0 -> x_0)>
 267 | | | | | | | | comment "eof.fail"
 268 | | | | | | | |   minReads=0
 269 | | | | | | | |   mayRaise=[ExceptionFailure]
 270 | | | | | | | |   freeRegs=[]
 271 | | | | | | | | fail [FailureEnd]
 272 | | | | | | | |   minReads=0
 273 | | | | | | | |   mayRaise=[ExceptionFailure]
 274 | | | | | | | |   freeRegs=[]
 275 | | | | | | | <default>
 276 | | | | | | | | fail []
 277 | | | | | | | |   minReads=0
 278 | | | | | | | |   mayRaise=[ExceptionFailure]
 279 | | | | | | | |   freeRegs=[]
 280 | | | <default>
 281 | | | | fail []
 282 | | | |   minReads=0
 283 | | | |   mayRaise=[ExceptionFailure]
 284 | | | |   freeRegs=[]