mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

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

Browse source 
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.
This commit is contained in:
Michael Livshin 2001-03-31 21:19:50 +00:00
parent b0839672af
commit 463b2219df
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -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> 2001-03-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.[ch] (scm_tc16_allocated): New type tag for allocated cells. * gc.[ch] (scm_tc16_allocated): New type tag for allocated cells.

2
libguile/backtrace.c
View file

@ -604,6 +604,8 @@ display_backtrace_body(struct display_backtrace_args *a)
display_frame (frame, nfield, indentation, sport, a->port, pstate); display_frame (frame, nfield, indentation, sport, a->port, pstate);
} }
scm_remember_upto_here_1 (print_state);
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }
#undef FUNC_NAME #undef FUNC_NAME