1 files changed, 69 insertions, 0 deletions
diff --git a/sample/gctest.rb b/sample/gctest.rb
new file mode 100644
index 0000000000..6067393bbb
--- /dev/null
+++ b/sample/gctest.rb
@@ -0,0 +1,69 @@
+def cons(car, cdr)
+   [car, cdr]
+end
+
+def car(x)
+   if x == nil ; nil else x[0] end
+end
+
+def cdr(x)
+   if x == nil ; nil else x[1] end
+end
+
+def reverse1(x, y)
+  if x == nil ; y else reverse1(cdr(x), cons(car(x), y)) end
+end
+
+def reverse(x)
+  reverse1(x, nil)
+end
+
+def ints(low, up)
+  if low > up
+     nil
+  else
+     cons(low, ints(low+1, up))
+  end
+end
+
+def print_int_list(x)
+  if x == nil
+    print("NIL\n")
+  else
+    print(car(x))
+    if nil != cdr(x)
+      print(", ")
+      print_int_list(cdr(x))
+    else
+      print("\n")
+    end
+  end
+end
+
+GC.threshold = 1000000
+
+print("start\n")
+print("threshold: ", GC.threshold, "\n");
+
+a = ints(1, 100)
+print_int_list(a)
+b = ints(1, 50)
+print_int_list(b)
+print_int_list(reverse(a))
+print_int_list(reverse(b))
+for i in 1 .. 100
+  b = reverse(reverse(b))
+#  print(i, ": ")
+#  print_int_list(b)
+end
+print("a: ")
+print_int_list(a)
+print("b: ")
+print_int_list(b)
+print("reverse(a): ")
+print_int_list(reverse(a))
+print("reverse(b): ")
+print_int_list(reverse(b))
+a = b = nil
+print("finish\n")
+GC.start()