From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 12 Oct 1999 05:02:35 +0000 (+0000)
Subject: avoid warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce70748ce2d3d9defeea8ef8502d3c62a671c707;p=p5sagit%2Fp5-mst-13.2.git

avoid warnings

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

diff --git a/malloc.c b/malloc.c
index 4e3e0b8..f35a4f2 100644
--- a/malloc.c
+++ b/malloc.c
@@ -900,6 +900,8 @@ emergency_sbrk(MEM_SIZE size)
   do_croak:
     MALLOC_UNLOCK;
     croak("Out of memory during request for %i bytes", size);
+    /* NOTREACHED */
+    return Nullch;
 }
 
 #else /* !(defined(PERL_EMERGENCY_SBRK) && defined(PERL_CORE)) */
@@ -1574,7 +1576,7 @@ Perl_realloc(void *mp, size_t nbytes)
 		    bad_free_warn = (pbf) ? atoi(pbf) : 1;
 		}
 		if (!bad_free_warn)
-		    return;
+		    return Nullch;
 #ifdef RCHECK
 		warn("%srealloc() %signored",
 		    (ovp->ov_rmagic == RMAGIC - 1 ? "" : "Bad "),
@@ -1582,7 +1584,7 @@ Perl_realloc(void *mp, size_t nbytes)
 #else
 		warn("%s", "Bad realloc() ignored");
 #endif
-		return;				/* sanity */
+		return Nullch;			/* sanity */
 	    }
 
 	onb = BUCKET_SIZE_REAL(bucket);