remove debugging output

core/zip/src/Bits.h

@@ -39,25 +39,6 @@ void R__zipZOPFLI(int cxlevel, int *srcsize, char *src, int *tgtsize, char *tgt,
   return ;
 }
 #endif
-void pauls_diagnose(int cxlevel, int *srcsize, char *src, int *tgtsize, char *tgt, int *irep) {
-  static int invocations = 0;
-  invocations = invocations + 1;
-  if (invocations < 5) {
-    R__error("foobar");
-    char buffer[50];
-    sprintf(buffer,"invocation count = %d",invocations);
-    R__error(buffer);
-    sprintf(buffer,"first input: %d",src[0]);
-    R__error(buffer);
-    sprintf(buffer,"size of inp: %d",*srcsize);
-    R__error(buffer);
-    sprintf(buffer,"size of tgt: %d",*tgtsize);
-    R__error(buffer);
-    sprintf(buffer,"first  oput: %d",tgt[0]);
-    R__error(buffer);
-  }
-  return;
-}
 #ifdef BROTLI
 extern void R__zipBROTLI(int cxlevel, int *srcsize, char *src, int *tgtsize, char *tgt, int *irep) ;
 #else
@@ -628,7 +609,6 @@ void R__zipMultipleAlgorithm(int cxlevel, int *srcsize, char *src, int *tgtsize,
      /*                      6 = zopfli (zlib) */
      /*                      7 = brotli */
 {
-  pauls_diagnose(cxlevel, srcsize, src, tgtsize, tgt, irep);
   int err;
   int method   = Z_DEFLATED;
 
@@ -658,7 +638,6 @@ void R__zipMultipleAlgorithm(int cxlevel, int *srcsize, char *src, int *tgtsize,
     // The ZOPFLI compression algorithm
     R__error("calling zopfli");
     R__zipZOPFLI(cxlevel, srcsize, src, tgtsize, tgt, irep);
-    pauls_diagnose(cxlevel, srcsize, src, tgtsize, tgt, irep);
     return;
   } else if (compressionAlgorithm == 6) {
     // The BROTLI compression algorithm
@@ -795,7 +774,6 @@ void R__zipMultipleAlgorithm(int cxlevel, int *srcsize, char *src, int *tgtsize,
 
 void R__zip(int cxlevel, int *srcsize, char *src, int *tgtsize, char *tgt, int *irep)
 {
-  pauls_diagnose(cxlevel, srcsize, src, tgtsize, tgt, irep);
   R__zipMultipleAlgorithm(cxlevel, srcsize, src, tgtsize, tgt, irep, 0);
 }
 

core/zip/src/ZInflate.c

@@ -1203,18 +1203,6 @@ int R__unzip_header(int *srcsize, uch *src, int *tgtsize)
 
 void R__unzip(int *srcsize, uch *src, int *tgtsize, uch *tgt, int *irep)
 {
-  {
-    static int invocations = 0;
-    invocations = invocations + 1;
-    if (invocations < 5) {
-      fprintf(stderr,"foobar\n");
-      fprintf(stderr,"invocation count = %d\n",invocations);
-      fprintf(stderr,"first input: %d\n",src[0]);
-      fprintf(stderr,"size of inp: %d\n",*srcsize);
-      fprintf(stderr,"size of tgt: %d\n",*tgtsize);
-      fprintf(stderr,"first  oput: %d\n",tgt[0]);
-    }
-  }
   long isize;
   uch  *ibufptr,*obufptr;
   long  ibufcnt, obufcnt;
@@ -1332,7 +1320,6 @@ void R__unzip(int *srcsize, uch *src, int *tgtsize, uch *tgt, int *irep)
     return;
   }
   if (src[0] == 'L' && src[1] == '4') {
-    /*fprintf(stdout,"LZ4 decompression");*/
     int unzip_status;
     unzip_status = R__unzipLZ4(
           ibufptr, ibufcnt, obufptr, &obufcnt, src[2]);