From 30c67ca3e00f439e74579f27ffbfb5b98132211c Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Fri, 19 Oct 2018 21:23:17 +0200
Subject: [PATCH] core: Add gc-debug for stack array.

* src/gc.c (gc_debug): New function.
---
 src/gc.c | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 74 insertions(+)

diff --git a/src/gc.c b/src/gc.c
index fc2cd5c3..452354da 100644
--- a/src/gc.c
+++ b/src/gc.c
@@ -232,3 +232,77 @@ gc ()
       eputs ("\n");
     }
 }
+
+SCM
+gc_debug ()
+{
+  r0 = MAKE_NUMBER (5);
+  r1 = MAKE_NUMBER (4);
+  r2 = MAKE_NUMBER (3);
+  r3 = MAKE_NUMBER (2);
+
+  gc_push_frame ();
+  for (long i=g_stack; i<STACK_SIZE; i++)
+    {
+      long c = g_stack_array[i];
+      eputs ("stack["); eputs (itoa (i-STACK_SIZE)); eputs ("]: "); eputs (itoa (c));
+      int t = TYPE (c);
+      eputs (" ");
+      eputs (itoa (t));
+      if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
+        {
+          eputs (" ");
+          write_error_ (c);
+        }
+      eputs ("\n");
+    }
+
+  gc_ ();
+
+  eputs ("\n");
+  for (long i=g_stack; i<STACK_SIZE; i++)
+    {
+      long c = g_stack_array[i];
+      eputs ("stack["); eputs (itoa (i-STACK_SIZE)); eputs ("]: "); eputs (itoa (c));
+      int t = TYPE (c);
+      eputs (" ");
+      eputs (itoa (t));
+      if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
+        {
+          eputs (" ");
+          write_error_ (c);
+        }
+      if (t == TBROKEN_HEART)
+        {
+          eputs (" ");
+          c = g_cells[c].car;
+
+          eputs ("=> "); eputs (itoa (c));
+          int t = TYPE (c);
+          eputs (" ");
+          eputs (itoa (t));
+          if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
+            {
+              eputs (" ");
+              write_error_ (c);
+            }
+          // if (t == TBROKEN_HEART)
+          //   {
+          //     eputs (" ");
+          //     c = g_cells[c].car;
+
+          //     eputs ("=> "); eputs (itoa (c));
+          //     int t = TYPE (c);
+          //     eputs (" ");
+          //     eputs (itoa (t));
+          //     if (t == TSYMBOL || t == TSPECIAL || t == TNUMBER)
+          //       {
+          //         eputs (" ");
+          //         write_error_ (c);
+          //       }
+          //   }
+        }
+      eputs ("\n");
+    }
+  gc_pop_frame ();
+}