* backtrace.c (display_backtrace_body): since the `print_state'

variable is not used (instead its data field is used directly as
`pstate'), protect it from the hungry compiler optimizations.
thanks to Bill Schottstaedt for the report.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 2788964..9ad37a5 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,10 @@
+2001-03-31  Michael Livshin  <mlivshin@bigfoot.com>
+
+       * backtrace.c (display_backtrace_body): since the `print_state'
+       variable is not used (instead its data field is used directly as
+       `pstate'), protect it from the hungry compiler optimizations.
+       thanks to Bill Schottstaedt for the report.
+
 2001-03-30  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * gc.[ch] (scm_tc16_allocated):  New type tag for allocated cells.

diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index d0f4820..4d2534a 100644 (file)
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -604,6 +604,8 @@ display_backtrace_body(struct display_backtrace_args *a)
       display_frame (frame, nfield, indentation, sport, a->port, pstate);
     }
 
+  scm_remember_upto_here_1 (print_state);
+  
   return SCM_UNSPECIFIED;
 }
 #undef FUNC_NAME