[Seqinr-commits] r1988 - pkg/src

[noreply at r-forge.r-project.org]

Author: simonpenel
Date: 2016-07-21 17:50:52 +0200 (Thu, 21 Jul 2016)
New Revision: 1988

Modified:
   pkg/src/getzlibsock.c
Log:
Testing zlib sockets

Modified: pkg/src/getzlibsock.c
===================================================================
--- pkg/src/getzlibsock.c	2016-07-18 17:11:46 UTC (rev 1987)
+++ pkg/src/getzlibsock.c	2016-07-21 15:50:52 UTC (rev 1988)
@@ -18,7 +18,7 @@
 static void *extract_opaque = NULL;
 
 #define R_EOF	-1	
-#define MAXESSAIS 1	/*#define MAXESSAIS 1000000*/
+#define MAXESSAIS 2	/*#define MAXESSAIS 1000000*/
 
 SEXP getzlibsock(SEXP sock, SEXP nmax, SEXP debug)
 {
@@ -71,6 +71,9 @@
   scon= (Rsockconn)con->private;
   numsoc = scon->fd;*/
   
+  
+  numsoc ++;
+  
   if (debugon)
    	Rprintf("Socket number is %d....\n",numsoc);
   extract_opaque=prepare_sock_gz_r(numsoc);