From db04688faa20f3576257c0fe41752ec435beab9a Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:25 -0800
Subject: Import Upstream version 5c3

---
 continue.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'continue.c')

diff --git a/continue.c b/continue.c
index 2f0f225..a41931e 100644
--- a/continue.c
+++ b/continue.c
@@ -186,13 +186,17 @@ void dynthrow(a)
   register long j;
   register STACKITEM *src, *dst = cont->stkbse;
 # ifdef STACK_GROWS_UP
+#  ifndef hpux
   if (a[2] && (a - ((long *)a[3]) < SCM_GROWTH))
     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);
 # else
+#  ifndef hpux
   if (a[2] && (((long *)a[3]) - a < SCM_GROWTH))
     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)); */
   dst -= cont->length;
   if PTR_LE(dst, (STACKITEM *)&a) grow_throw(a);
-- 
cgit v1.2.3