fun1.golden 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168
  1. ********** source program **********
  2. fn f (0 = Int: x) -> Int {
  3. return (x - 1);
  4. }
  5. fn main () -> Int {
  6. return f(0 = 1);
  7. }
  8. ********** type checking **********
  9. --- step exp Int --->
  10. --- step exp Int --->
  11. --- step exp Int --->
  12. --- step exp Int --->
  13. --- step exp Int --->
  14. --- step exp Int --->
  15. ********** type checking complete **********
  16. fn f (0 = Int: x) -> Int {
  17. return (x - 1);
  18. }
  19. fn main () -> Int {
  20. return f(0 = 1);
  21. }
  22. ********** starting execution **********
  23. ********** initializing globals **********
  24. --- step exp (0 = Int: x) --->
  25. --- step exp Int: x --->
  26. --- step exp Int --->
  27. --- handle value Int with Int: x<1>(Int,) --->
  28. --- handle value Int: x with (0 = Int: x)<1>(Int: x,) --->
  29. --- step exp () --->
  30. ********** calling main function **********
  31. {
  32. stack: top{main()<-1>}
  33. heap: Int: x, fun<f>, fun<main>,
  34. env: main: fun<main>, f: fun<f>,
  35. }
  36. --- step exp main() --->
  37. {
  38. stack: top{main<-1> :: main()<0>}
  39. heap: Int: x, fun<f>, fun<main>,
  40. env: main: fun<main>, f: fun<f>,
  41. }
  42. --- step exp main --->
  43. {
  44. stack: top{fun<main><-1> :: main()<0>}
  45. heap: Int: x, fun<f>, fun<main>,
  46. env: main: fun<main>, f: fun<f>,
  47. }
  48. --- handle value fun<main> with main()<1>(fun<main>,) --->
  49. {
  50. stack: top{()<-1> :: main()<1>(fun<main>,)}
  51. heap: Int: x, fun<f>, fun<main>,
  52. env: main: fun<main>, f: fun<f>,
  53. }
  54. --- step exp () --->
  55. {
  56. stack: top{()<-1> :: main()<1>(fun<main>,)}
  57. heap: Int: x, fun<f>, fun<main>,
  58. env: main: fun<main>, f: fun<f>,
  59. }
  60. --- handle value () with main()<2>(fun<main>,(),) --->
  61. pattern_match((), ())
  62. {
  63. stack: main{return f(0 = 1);<-1>} :: top{}
  64. heap: Int: x, fun<f>, fun<main>,
  65. env: main: fun<main>, f: fun<f>,
  66. }
  67. --- step stmt return f(0 = 1); --->
  68. {
  69. stack: main{f(0 = 1)<-1> :: return f(0 = 1);<0>} :: top{}
  70. heap: Int: x, fun<f>, fun<main>,
  71. env: main: fun<main>, f: fun<f>,
  72. }
  73. --- step exp f(0 = 1) --->
  74. {
  75. stack: main{f<-1> :: f(0 = 1)<0> :: return f(0 = 1);<0>} :: top{}
  76. heap: Int: x, fun<f>, fun<main>,
  77. env: main: fun<main>, f: fun<f>,
  78. }
  79. --- step exp f --->
  80. {
  81. stack: main{fun<f><-1> :: f(0 = 1)<0> :: return f(0 = 1);<0>} :: top{}
  82. heap: Int: x, fun<f>, fun<main>,
  83. env: main: fun<main>, f: fun<f>,
  84. }
  85. --- handle value fun<f> with f(0 = 1)<1>(fun<f>,) --->
  86. {
  87. stack: main{(0 = 1)<-1> :: f(0 = 1)<1>(fun<f>,) :: return f(0 = 1);<0>} :: top{}
  88. heap: Int: x, fun<f>, fun<main>,
  89. env: main: fun<main>, f: fun<f>,
  90. }
  91. --- step exp (0 = 1) --->
  92. {
  93. stack: main{1<-1> :: (0 = 1)<0> :: f(0 = 1)<1>(fun<f>,) :: return f(0 = 1);<0>} :: top{}
  94. heap: Int: x, fun<f>, fun<main>,
  95. env: main: fun<main>, f: fun<f>,
  96. }
  97. --- step exp 1 --->
  98. {
  99. stack: main{1<-1> :: (0 = 1)<0> :: f(0 = 1)<1>(fun<f>,) :: return f(0 = 1);<0>} :: top{}
  100. heap: Int: x, fun<f>, fun<main>,
  101. env: main: fun<main>, f: fun<f>,
  102. }
  103. --- handle value 1 with (0 = 1)<1>(1,) --->
  104. {
  105. stack: main{(0 = 1@3)<-1> :: f(0 = 1)<1>(fun<f>,) :: return f(0 = 1);<0>} :: top{}
  106. heap: Int: x, fun<f>, fun<main>, 1,
  107. env: main: fun<main>, f: fun<f>,
  108. }
  109. --- handle value (0 = 1@3) with f(0 = 1)<2>(fun<f>,(0 = 1@3),) --->
  110. pattern_match((0 = Int: x@0), (0 = 1@3))
  111. pattern_match(Int: x, 1)
  112. {
  113. stack: f{return (x - 1);<-1>} :: main{return f(0 = 1);<0>} :: top{}
  114. heap: Int: x, fun<f>, fun<main>, 1, 1,
  115. env: x: 1, main: fun<main>, f: fun<f>,
  116. }
  117. --- step stmt return (x - 1); --->
  118. {
  119. stack: f{(x - 1)<-1> :: return (x - 1);<0>} :: main{return f(0 = 1);<0>} :: top{}
  120. heap: Int: x, fun<f>, fun<main>, 1, 1,
  121. env: x: 1, main: fun<main>, f: fun<f>,
  122. }
  123. --- step exp (x - 1) --->
  124. {
  125. stack: f{x<-1> :: (x - 1)<0> :: return (x - 1);<0>} :: main{return f(0 = 1);<0>} :: top{}
  126. heap: Int: x, fun<f>, fun<main>, 1, 1,
  127. env: x: 1, main: fun<main>, f: fun<f>,
  128. }
  129. --- step exp x --->
  130. {
  131. stack: f{1<-1> :: (x - 1)<0> :: return (x - 1);<0>} :: main{return f(0 = 1);<0>} :: top{}
  132. heap: Int: x, fun<f>, fun<main>, 1, 1,
  133. env: x: 1, main: fun<main>, f: fun<f>,
  134. }
  135. --- handle value 1 with (x - 1)<1>(1,) --->
  136. {
  137. stack: f{1<-1> :: (x - 1)<1>(1,) :: return (x - 1);<0>} :: main{return f(0 = 1);<0>} :: top{}
  138. heap: Int: x, fun<f>, fun<main>, 1, 1,
  139. env: x: 1, main: fun<main>, f: fun<f>,
  140. }
  141. --- step exp 1 --->
  142. {
  143. stack: f{1<-1> :: (x - 1)<1>(1,) :: return (x - 1);<0>} :: main{return f(0 = 1);<0>} :: top{}
  144. heap: Int: x, fun<f>, fun<main>, 1, 1,
  145. env: x: 1, main: fun<main>, f: fun<f>,
  146. }
  147. --- handle value 1 with (x - 1)<2>(1,1,) --->
  148. {
  149. stack: f{0<-1> :: return (x - 1);<0>} :: main{return f(0 = 1);<0>} :: top{}
  150. heap: Int: x, fun<f>, fun<main>, 1, 1,
  151. env: x: 1, main: fun<main>, f: fun<f>,
  152. }
  153. --- handle value 0 with return (x - 1);<1>(0,) --->
  154. {
  155. stack: main{0<-1> :: return f(0 = 1);<0>} :: top{}
  156. heap: Int: x, fun<f>, fun<main>, 1, !!1,
  157. env: main: fun<main>, f: fun<f>,
  158. }
  159. --- handle value 0 with return f(0 = 1);<1>(0,) --->
  160. {
  161. stack: top{0<-1>}
  162. heap: Int: x, fun<f>, fun<main>, 1, !!1,
  163. env: main: fun<main>, f: fun<f>,
  164. }
  165. result: 0