view patches/gs-r7029.patch @ 6512:ccc20ae889ca default tip guix

mingw::guile-2.0.7 builds.
author Jan Nieuwenhuizen <janneke@gnu.org>
date Thu, 24 Mar 2016 08:03:39 +0100
parents 6f36dc9287b8
children
line wrap: on
line source

Index: gs/src/sfxstdio.c
===================================================================
--- gs/src/sfxstdio.c	(revision 7001)
+++ gs/src/sfxstdio.c	(working copy)
@@ -155,6 +155,7 @@
 	return 0;
     s_init_ids(s);
     s->is_temp = 0;		/* not a temp stream */
+    s->foreign = 0;
     /*
      * Disable the stream now (in case we can't open the file,
      * or a filter init procedure fails) so that `restore' won't
Index: gs/src/zcontrol.c
===================================================================
--- gs/src/zcontrol.c	(revision 7022)
+++ gs/src/zcontrol.c	(working copy)
@@ -1009,12 +1009,13 @@
 	es_ptr ep = rsenum.ptr + used - 1;
 	uint count = used;
 
-	for (; count; count--, ep--)
-	    if (r_is_estack_mark(ep) &&
-		estack_mark_index(ep) == es_stopped &&
-		(ep[2].value.intval & mask) != 0
-		)
-		return scanned + (used - count + 1);
+	for (; count; count--, ep--) {
+	    if (r_is_estack_mark(ep)) {
+		if (estack_mark_index(ep) == es_stopped &&
+		  (ep[2].value.intval & mask) != 0)
+		    return scanned + (used - count + 1);
+	    }
+	}	
 	scanned += used;
     } while (ref_stack_enum_next(&rsenum));
     return 0;