tests/Golden/Machine/G15.expected.txt

   1 pushValue (\u_0 -> \u_1 -> GHC.Show.show u_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 (\u_0 -> \u_1 -> u_0 u_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 (\u_0 -> \u_1 -> u_0 u_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 (\u_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 (\u_0 -> \u_1 -> u_0 u_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 ((GHC.Classes.==) @GHC.Types.Int)
  84 | |   minReads=2
  85 | |   mayRaise=[ExceptionFailure]
  86 | |   alwaysRaise=[]
  87 | |   freeRegs=[]
  88 | | choicesBranch
  89 | |   minReads=2
  90 | |   mayRaise=[ExceptionFailure]
  91 | |   alwaysRaise=[]
  92 | |   freeRegs=[]
  93 | | | <branch (\u_0 -> u_0)>
  94 | | | | pushValue (\u_0 -> 'b')
  95 | | | |   minReads=2
  96 | | | |   mayRaise=[ExceptionFailure]
  97 | | | |   alwaysRaise=[]
  98 | | | |   freeRegs=[]
  99 | | | | comment "satisfy ((GHC.Classes.==) 'b')"
 100 | | | |   minReads=2
 101 | | | |   mayRaise=[ExceptionFailure]
 102 | | | |   alwaysRaise=[]
 103 | | | |   freeRegs=[]
 104 | | | | read ((GHC.Classes.==) 'b')
 105 | | | |   minReads=2
 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 | | | | refJoin join
 115 | | | |   minReads=1
 116 | | | |   mayRaise=[ExceptionFailure]
 117 | | | |   alwaysRaise=[]
 118 | | | |   freeRegs=[]
 119 | | | <default>
 120 | | | | fail []
 121 | | | |   minReads=0
 122 | | | |   mayRaise=[ExceptionFailure]
 123 | | | |   alwaysRaise=[ExceptionFailure]
 124 | | | |   freeRegs=[]