From: Sebastian Hammer <quinn@indexdata.com>
Date: Fri, 17 Feb 1995 14:42:21 +0000 (+0000)
Subject: Trivial bug in fetch-loop.
X-Git-Url: http://git.indexdata.com/?a=commitdiff_plain;h=a21cc98f635f2c315cadc1640a4a6e9177e2971f;p=egate.git

Trivial bug in fetch-loop.
---

diff --git a/zlayer/zaccess.c b/zlayer/zaccess.c
index 346d4ed..7dd7d31 100644
--- a/zlayer/zaccess.c
+++ b/zlayer/zaccess.c
@@ -2,7 +2,10 @@
  * Europagate, 1995
  *
  * $Log: zaccess.c,v $
- * Revision 1.6  1995/02/17 14:41:22  quinn
+ * Revision 1.7  1995/02/17 14:42:21  quinn
+ * Trivial bug in fetch-loop.
+ *
+ * Revision 1.6  1995/02/17  14:41:22  quinn
  * Debugging.
  *
  * Revision 1.5  1995/02/17  13:58:01  quinn
@@ -421,7 +424,7 @@ const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
 	    return 0;
 	}
 	r.nextpos = PresentResponse_GetNextResultSetPosition(pdu);
-	start += r.nextpos;
+	start = r.nextpos;
 	num -= r.num;
 	switch(PresentResponse_GetRecordType(pdu))
 	{
@@ -435,9 +438,9 @@ const struct zass_presentent *zass_present(ZASS a, char *resname, int start,
 		gw_log(GW_LOG_WARN, ZASS_TYPE, "Bad tag in response rec.");
 	}
 	*rec = 0;
+	PresentResponse_Destroy(pdu);
     }
     while (num);
-    PresentResponse_Destroy(pdu);
 	
     return &r;
 }