tests/Golden/Machine/G15.expected.txt

   1 pushValue (\x_0 -> \x_1 -> GHC.Show.show x_0)
   2   minReads=2
   3   mayRaise=[ExceptionFailure]
   4   alwaysRaise=[]
   5   freeRegs=[]
   6 join join
   7   minReads=1
   8   mayRaise=[ExceptionFailure]
   9   alwaysRaise=[]
  10   freeRegs=[]
  11 | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  12 |   minReads=1
  13 |   mayRaise=[ExceptionFailure]
  14 |   alwaysRaise=[]
  15 |   freeRegs=[]
  16 | comment "satisfy ((GHC.Classes.==) 'c')"
  17 |   minReads=1
  18 |   mayRaise=[ExceptionFailure]
  19 |   alwaysRaise=[]
  20 |   freeRegs=[]
  21 | read ((GHC.Classes.==) 'c')
  22 |   minReads=1
  23 |   mayRaise=[ExceptionFailure]
  24 |   alwaysRaise=[]
  25 |   freeRegs=[]
  26 | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  27 |   minReads=0
  28 |   mayRaise=[]
  29 |   alwaysRaise=[]
  30 |   freeRegs=[]
  31 | ret
  32 |   minReads=0
  33 |   mayRaise=[]
  34 |   alwaysRaise=[]
  35 |   freeRegs=[]
  36 catch ExceptionFailure
  37   minReads=2
  38   mayRaise=[ExceptionFailure]
  39   alwaysRaise=[]
  40   freeRegs=[]
  41 | <catchScope>
  42 | | pushValue (\x_0 -> 'a')
  43 | |   minReads=2
  44 | |   mayRaise=[ExceptionFailure]
  45 | |   alwaysRaise=[]
  46 | |   freeRegs=[]
  47 | | comment "satisfy ((GHC.Classes.==) 'a')"
  48 | |   minReads=2
  49 | |   mayRaise=[ExceptionFailure]
  50 | |   alwaysRaise=[]
  51 | |   freeRegs=[]
  52 | | read ((GHC.Classes.==) 'a')
  53 | |   minReads=2
  54 | |   mayRaise=[ExceptionFailure]
  55 | |   alwaysRaise=[]
  56 | |   freeRegs=[]
  57 | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
  58 | |   minReads=1
  59 | |   mayRaise=[ExceptionFailure]
  60 | |   alwaysRaise=[]
  61 | |   freeRegs=[]
  62 | | commit ExceptionFailure
  63 | |   minReads=1
  64 | |   mayRaise=[ExceptionFailure]
  65 | |   alwaysRaise=[]
  66 | |   freeRegs=[]
  67 | | refJoin join
  68 | |   minReads=1
  69 | |   mayRaise=[ExceptionFailure]
  70 | |   alwaysRaise=[]
  71 | |   freeRegs=[]
  72 | <onException ExceptionFailure>
  73 | | comment "raiseAgainIfConsumed"
  74 | |   minReads=2
  75 | |   mayRaise=[ExceptionFailure]
  76 | |   alwaysRaise=[]
  77 | |   freeRegs=[]
  78 | | saveInput
  79 | |   minReads=2
  80 | |   mayRaise=[ExceptionFailure]
  81 | |   alwaysRaise=[]
  82 | |   freeRegs=[]
  83 | | lift2Value (\(Data.Text.Internal.Text _ i_0 _) (Data.Text.Internal.Text _
  84 | |                                                                j_1
  85 | |                                                                _) -> i_0 GHC.Classes.== j_1)
  86 | |   minReads=2
  87 | |   mayRaise=[ExceptionFailure]
  88 | |   alwaysRaise=[]
  89 | |   freeRegs=[]
  90 | | choicesBranch
  91 | |   minReads=2
  92 | |   mayRaise=[ExceptionFailure]
  93 | |   alwaysRaise=[]
  94 | |   freeRegs=[]
  95 | | | <branch (\x_0 -> x_0)>
  96 | | | | pushValue (\x_0 -> 'b')
  97 | | | |   minReads=2
  98 | | | |   mayRaise=[ExceptionFailure]
  99 | | | |   alwaysRaise=[]
 100 | | | |   freeRegs=[]
 101 | | | | comment "satisfy ((GHC.Classes.==) 'b')"
 102 | | | |   minReads=2
 103 | | | |   mayRaise=[ExceptionFailure]
 104 | | | |   alwaysRaise=[]
 105 | | | |   freeRegs=[]
 106 | | | | read ((GHC.Classes.==) 'b')
 107 | | | |   minReads=2
 108 | | | |   mayRaise=[ExceptionFailure]
 109 | | | |   alwaysRaise=[]
 110 | | | |   freeRegs=[]
 111 | | | | lift2Value (\x_0 -> \x_1 -> x_0 x_1)
 112 | | | |   minReads=1
 113 | | | |   mayRaise=[ExceptionFailure]
 114 | | | |   alwaysRaise=[]
 115 | | | |   freeRegs=[]
 116 | | | | refJoin join
 117 | | | |   minReads=1
 118 | | | |   mayRaise=[ExceptionFailure]
 119 | | | |   alwaysRaise=[]
 120 | | | |   freeRegs=[]
 121 | | | <default>
 122 | | | | fail []
 123 | | | |   minReads=0
 124 | | | |   mayRaise=[ExceptionFailure]
 125 | | | |   alwaysRaise=[ExceptionFailure]
 126 | | | |   freeRegs=[]