Fixed the compress/gzip/hide bug.

vermaseren · Jan 15, 2016 · 43a5b1e · 43a5b1e
1 parent 258f42e
commit 43a5b1e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/sources/sort.c b/sources/sort.c
@@ -1560,7 +1560,7 @@ WORD PutOut(PHEAD WORD *term, POSITION *position, FILEHANDLE *fi, WORD ncomp)
 				}
 #ifdef WITHZLIB
 				if ( !AR.NoCompress && ncomp > 0 && AR.gzipCompress > 0
-					&& dobracketindex == 0 ) {
+					&& dobracketindex == 0 && fi->zsp != 0 ) {
 					fi->POfill = p;
 					if ( PutOutputGZIP(fi) ) return(-1);
 					p = fi->PObuffer;
@@ -1691,7 +1691,7 @@ WORD FlushOut(POSITION *position, FILEHANDLE *fi, int compr)
 		}
 #ifdef WITHZLIB
 		if ( AT.SS == AT.S0 && !AR.NoCompress && AR.gzipCompress > 0
-		&& dobracketindex == 0 && ( compr > 0 ) ) {
+		&& dobracketindex == 0 && ( compr > 0 ) && fi->zsp != 0 ) {
 			if ( PutOutputGZIP(fi) ) return(-1);
 			fi->POfill = fi->PObuffer;
 		}
@@ -1754,7 +1754,7 @@ WORD FlushOut(POSITION *position, FILEHANDLE *fi, int compr)
 	if ( fi->handle >= 0 ) {
 #ifdef WITHZLIB
 		if ( AT.SS == AT.S0 && !AR.NoCompress && AR.gzipCompress > 0
-		&& dobracketindex == 0 && ( compr > 0 ) ) {
+		&& dobracketindex == 0 && ( compr > 0 ) && fi->zsp != 0 ) {
 			if ( FlushOutputGZIP(fi) ) return(-1);
 			fi->POfill = fi->PObuffer;
 		}
@@ -1810,7 +1810,7 @@ WORD FlushOut(POSITION *position, FILEHANDLE *fi, int compr)
 	}
 #ifdef WITHZLIB
 	if ( AT.SS == AT.S0 && !AR.NoCompress && AR.gzipCompress > 0
-		&& dobracketindex == 0 && ( compr > 0 ) ) {
+		&& dobracketindex == 0 && ( compr > 0 ) && fi->zsp != 0 ) {
 		PUTZERO(*position);
 		if ( fi->handle >= 0 ) {
 #ifdef ALLLOCK

diff --git a/sources/startup.c b/sources/startup.c
@@ -1211,7 +1211,7 @@ WORD IniVars()
 	AC.OutNumberType = RATIONALMODE;
 	AM.gOutNumberType = RATIONALMODE;
 #ifdef WITHZLIB
-	AR.gzipCompress = 0;
+	AR.gzipCompress = GZIPDEFAULT;
 #endif
 	AR.BracketOn = 0;
 	AC.bracketindexflag = 0;