test/Golden/Machine/G4.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 -> 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=[]
 159 | | | |   freeRegs=[reg]
 160 | | | | pushValue GHC.Types.[]
 161 | | | |   minReads=0
 162 | | | |   mayRaise=[]
 163 | | | |   freeRegs=[]
 164 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 165 | | | |   minReads=0
 166 | | | |   mayRaise=[]
 167 | | | |   freeRegs=[]
 168 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 169 | | | |   minReads=0
 170 | | | |   mayRaise=[]
 171 | | | |   freeRegs=[]
 172 | | | | ret
 173 | | | |   minReads=0
 174 | | | |   mayRaise=[]
 175 | | | |   freeRegs=[]
 176 | | | <default>
 177 | | | | fail []
 178 | | | |   minReads=0
 179 | | | |   mayRaise=[ExceptionFailure]
 180 | | | |   freeRegs=[]