~ chicken-core (chicken-5) 69510911f2fb816f2550b7554903cf01cbfd8823


commit 69510911f2fb816f2550b7554903cf01cbfd8823
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Sep 5 22:37:03 2016 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Sep 10 22:58:21 2016 +1200

    Trace temp stack resizing with "-:g" rather than "-:d"

diff --git a/runtime.c b/runtime.c
index e930b883..5d2863bd 100644
--- a/runtime.c
+++ b/runtime.c
@@ -2803,8 +2803,9 @@ void C_save_and_reclaim(void *trampoline, int n, C_word *av)
     if(fixed_temporary_stack_size)
       panic(C_text("fixed temporary stack overflow (\"apply\" called with too many arguments?)"));
 
-    if(debug_mode) {
-      C_dbg(C_text("debug"), C_text("resizing temporary stack dynamically from " UWORD_COUNT_FORMAT_STRING "k to " UWORD_COUNT_FORMAT_STRING "k ...\n"),
+
+    if(gc_report_flag) {
+      C_dbg(C_text("GC"), C_text("resizing temporary stack dynamically from " UWORD_COUNT_FORMAT_STRING "k to " UWORD_COUNT_FORMAT_STRING "k ...\n"),
             C_wordstobytes(temporary_stack_size) / 1024,
             C_wordstobytes(new_size) / 1024);
     }
Trap