From ce70748ce2d3d9defeea8ef8502d3c62a671c707 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 12 Oct 1999 05:02:35 +0000
Subject: avoid warnings

p4raw-id: //depot/perl@4351
---
 malloc.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'malloc.c')

diff --git a/malloc.c b/malloc.c
index 4e3e0b8fdd..f35a4f23e4 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);
-- 
cgit v1.2.1