From 5fc77ea6a96802c3ec47c1e2c8b1d2fbc29ffeee Mon Sep 17 00:00:00 2001
From: Philip Chimento <philip.chimento@gmail.com>
Date: Sat, 21 Oct 2023 13:48:22 -0700
Subject: [PATCH] debug

---
 interpreters/glulxe/serial.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/interpreters/glulxe/serial.c b/interpreters/glulxe/serial.c
index 2ce4908..df158ea 100644
--- a/interpreters/glulxe/serial.c
+++ b/interpreters/glulxe/serial.c
@@ -89,11 +89,14 @@ int init_serial()
   return TRUE;
 }
 
+#include <stdio.h>
+
 /* final_serial():
    Clean up memory when the VM shuts down.
 */
 void final_serial()
 {
+  fprintf(stderr, "-----\nfinal_serial undo_chain=%p\n-----\n", undo_chain);
   if (undo_chain) {
     int ix;
     for (ix=0; ix<undo_chain_num; ix++) {
@@ -166,6 +169,7 @@ glui32 perform_saveundo()
 
   if (res == 0) {
     /* Trim it down to the perfect size. */
+    fprintf(stderr, "-----\nrealloc dest.ptr\n-----\n");
     dest.ptr = glulx_realloc(dest.ptr, dest.pos);
     if (!dest.ptr)
       res = 1;
@@ -202,8 +206,10 @@ glui32 perform_saveundo()
     if (undo_chain_num < undo_chain_size)
       undo_chain_num += 1;
     dest.ptr = NULL;
+    fprintf(stderr, "-----\nsuccessful perform_saveundo\n-----\n");
   }
   else {
+    fprintf(stderr, "-----\nunsuccessful perform_saveundo\n-----\n");
     /* It didn't work. */
     if (dest.ptr) {
       glulx_free(dest.ptr);