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

Revert "Fix build on platforms where the stack grows upwards."

Browse source 
This patch was only meant to apply to the 3.0 branch.
This commit is contained in:
Andy Wingo 2020-03-13 17:28:43 +01:00
parent be64a3e6a8
commit 7839dc444b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/continuations.c
View file

@ -302,7 +302,7 @@ scm_dynthrow (SCM cont)
#if SCM_STACK_GROWS_UP #if SCM_STACK_GROWS_UP
if (dst + continuation->num_stack_items >= &stack_top_element) if (dst + continuation->num_stack_items >= &stack_top_element)
grow_stack (cont, mra); grow_stack (cont);
#else #else
dst -= continuation->num_stack_items; dst -= continuation->num_stack_items;
if (dst <= &stack_top_element) if (dst <= &stack_top_element)