From ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:31 -0800 Subject: Import Upstream version 5e2 --- continue.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'continue.c') diff --git a/continue.c b/continue.c index a72ce4b..ec0097b 100644 --- a/continue.c +++ b/continue.c @@ -191,7 +191,7 @@ void dynthrow(a) puts("grow_throw: check if long growth[]; being optimized out"); # endif /* if (a[2]) fprintf(stderr, " ct = %ld, dist = %ld\n", a[2], (((long *)a[3]) - a)); */ - if PTR_GE(dst + (cont->length), (STACKITEM *)&a) grow_throw(a); + if (PTR_GE(dst + (cont->length), (STACKITEM *)&a)) grow_throw(a); # else # ifndef hpux if (a[2] && (((long *)a[3]) - a < SCM_GROWTH)) @@ -199,7 +199,7 @@ void dynthrow(a) # endif /* if (a[2]) fprintf(stderr, " ct = %ld, dist = %ld\n", a[2], (((long *)a[3]) - a)); */ dst -= cont->length; - if PTR_LE(dst, (STACKITEM *)&a) grow_throw(a); + if (PTR_LE(dst, (STACKITEM *)&a)) grow_throw(a); # endif/* def STACK_GROWS_UP */ FLUSH_REGISTER_WINDOWS; src = (STACKITEM *)(cont + 1); -- cgit v1.2.3