From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 26 Feb 2012 16:46:56 +0000 (-0700)
Subject: Unfix "fix" to stack address printing in Debug_Stack_Trace.
X-Git-Tag: release-9.2.0~278^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=820d8da775d52bf4587b079ed918ba6b3e8fc3ed;p=mit-scheme.git

Unfix "fix" to stack address printing in Debug_Stack_Trace.

Silly me; STACK_LOC(0) is *not* a valid object.  I don't know what gdb
was trying to tell me... but 20 year old code doesn't lie.
---

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 8838cc2c3..c72730014 100644
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -685,8 +685,8 @@ Back_Trace (outf_channel stream)
 	  break;
 	}
 #endif
-      outf (stream, "{%#lx}", ((unsigned long) stack_pointer));
       Temp = (STACK_POP ());
+      outf (stream, "{%#lx}", ((unsigned long) stack_pointer));
       if (RETURN_CODE_P (Temp))
 	{
 	  if (print_one_continuation_frame (stream, Temp))