Fix missed CompressPointer reset in EndSort when without-zlib

Reset of *AR.CompressPointer was the wrong side of an #ifdef WITHZLIB.

Also fix the --without-zlib build, broken since the split sort allocation
patch: 7d0e71d

Author: jodavies

check/fixes.frm

@@ -962,6 +962,29 @@ L F7 = f(10000*g5_);
 #pend_if mpi?
 assert runtime_error?
 *--#] Issue94 : 
+*--#[ Issue95b :
+#-
+#:filepatches        4
+#:largesize      25600
+#:maxtermsize      200
+#:smallsize      12800
+#:termsinsmall      16
+
+Off stats;
+
+#define N "323"
+S x,k;
+L F = sum_(k,1,`N',x^k);
+.sort
+
+L CheckZero = F - {`N'*(`N'+1)/2};
+id x^k?pos_ = k;
+
+Print CheckZero;
+.end
+assert succeeded?
+assert result("CheckZero") =~ expr("0")
+*--#] Issue95b : 
 *--#[ Issue97_1 :
 * "Program terminating" with oldFactArg and dot products
 V e1, e2, k1, k2;

sources/sort.c

@@ -1056,8 +1056,8 @@ LONG EndSort(PHEAD WORD *buffer, int par)
 			position = S->fPatches[S->fPatchN];
 			ss = S->sPointer;
 			if ( *ss ) {
-#ifdef WITHZLIB
 				*AR.CompressPointer = 0;
+#ifdef WITHZLIB
 				if ( S == AT.S0 && AR.NoCompress == 0 && AR.gzipCompress > 0 )
 					S->fpcompressed[S->fPatchN] = 1;
 				else
@@ -4841,8 +4841,10 @@ void CleanUpSort(int num)
 				M_free(S->inPatches, "CleanUpSort: inPatches");
 				M_free(S->tree, "CleanUpSort: tree");
 				M_free(S->used, "CleanUpSort: used");
+#ifdef WITHZLIB
 				M_free(S->fpcompressed, "CleanUpSort: fpcompressed");
 				M_free(S->fpincompressed, "CleanUpSort: fpincompressed");
+#endif
 				M_free(S->ktoi, "CleanUpSort: ktoi");
 				M_free(S->lBuffer, "CleanUpSort: lBuffer+sBuffer");
 				M_free(S->file.PObuffer, "CleanUpSort: PObuffer");