From 948ed65c2d5d9ca21c1cfa047db55fc6022dc977 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 1 Jun 2001 15:56:35 +0000 Subject: [PATCH] Zero() is not available in x2p (or, rather, some of its implementations like memzero() might not be available.) p4raw-id: //depot/perl@10378 --- x2p/hash.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; } -- 2.7.4