diff options
author | Steve Peters <steve@fisharerojo.org> | 2006-10-30 00:22:00 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2006-10-30 00:22:00 +0000 |
commit | 667e29483278676092af95a151e7ae7d8eb1d304 (patch) | |
tree | 1168e9c990fd84d85dcd080c666df5a75aefcb22 /malloc.c | |
parent | 802134916c56985ba8dc700565240474646eb9f7 (diff) | |
download | perl-667e29483278676092af95a151e7ae7d8eb1d304.tar.gz |
Changes to get perl to compile with g++ on Cygwin. Some additional
changes will be needed to get it to link though.
p4raw-id: //depot/perl@29142
Diffstat (limited to 'malloc.c')
-rw-r--r-- | malloc.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2001,12 +2001,12 @@ morecore(register int bucket) } Free_t -Perl_mfree(void *mp) +Perl_mfree(Malloc_t where) { dVAR; register MEM_SIZE size; register union overhead *ovp; - char *cp = (char*)mp; + char *cp = (char*)where; #ifdef PACK_MALLOC u_char bucket; #endif @@ -2324,7 +2324,7 @@ Perl_strdup(const char *s) MEM_SIZE l = strlen(s); char *s1 = (char *)Perl_malloc(l+1); - return CopyD(s, s1, (MEM_SIZE)(l+1), char); + return (char *)CopyD(s, s1, (MEM_SIZE)(l+1), char); } #ifdef PERL_CORE @@ -2347,7 +2347,7 @@ Perl_putenv(char *a) if (l < sizeof(buf)) var = buf; else - var = Perl_malloc(l + 1); + var = (char *)Perl_malloc(l + 1); Copy(a, var, l, char); var[l + 1] = 0; my_setenv(var, val+1); |