mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix build on platforms where the stack grows upwards.

Browse source 
* libguile/continuations.c (scm_dynthrow): Fix missing mra
   parameter to grow_stack for SCM_STACK_GROWS_UP.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
John Paul Adrian Glaubitz 2020-02-04 13:11:53 +01:00 • committed by Ludovic Courtès
parent 885484c97b
commit 51a52cd6c6
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); grow_stack (cont, mra);
#else #else
dst -= continuation->num_stack_items; dst -= continuation->num_stack_items;
if (dst <= &stack_top_element) if (dst <= &stack_top_element)