still with bug (incorrect stack root)

This commit is contained in:
danyabeerzun 2018-12-05 18:31:12 +03:00
parent de1823922a
commit bff4ae225e
4 changed files with 128 additions and 17 deletions

9
runtime/testgc.expr Normal file
View file

@ -0,0 +1,9 @@
fun print_list (l) {
case l of
`nil -> skip
| `cons (n, t) -> write (n); print_list (t)
esac
}
x := `cons (4, `cons(3, `cons(2 , `cons (1, `cons (0, `cons (1, `cons (2, `cons (3, `cons (4, `cons (5, `nil))))))))));
print_list (x)