From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Jun 2001 15:56:35 +0000 (+0000)
Subject: Zero() is not available in x2p (or, rather, some of its
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=948ed65c2d5d9ca21c1cfa047db55fc6022dc977;p=p5sagit%2Fp5-mst-13.2.git

Zero() is not available in x2p (or, rather, some of its
implementations like memzero() might not be available.)

p4raw-id: //depot/perl@10378
---

diff --git a/x2p/hash.c b/x2p/hash.c
index a2a4f6b..fa35ba6 100644
--- a/x2p/hash.c
+++ b/x2p/hash.c
@@ -137,7 +137,7 @@ hsplit(HASH *tb)
     register HENT **oentry;
 
     a = (HENT**) saferealloc((char*)tb->tbl_array, newsize * sizeof(HENT*));
-    Zero(&a[oldsize], oldsize, HENT*); /* zero second half */
+    memset(&a[oldsize], 0, oldsize * sizeof(HENT*)); /* zero second half */
     tb->tbl_max = --newsize;
     tb->tbl_array = a;
 
@@ -171,7 +171,7 @@ hnew(void)
     tb->tbl_fill = 0;
     tb->tbl_max = 7;
     hiterinit(tb);	/* so each() will start off right */
-    Zero(tb->tbl_array, 8, sizeof(HENT*));
+    memset(tb->tbl_array, 0, 8 * sizeof(HENT*));
     return tb;
 }