diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 00:25:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-21 00:25:00 +0000 |
| commit | 2ba999ece4e8727143f109b401921cec33e5b6dc (patch) | |
| tree | 3b90703fd22dbbbcaaf2d62c7a808ccc2245a4e7 /malloc.c | |
| parent | 1d860e8540fc3e1d7f817d85d4429f8631e61cdf (diff) | |
| download | perl-2ba999ece4e8727143f109b401921cec33e5b6dc.tar.gz | |
misplaced braces
p4raw-id: //depot/perl@5175
Diffstat (limited to 'malloc.c')
| -rw-r--r-- | malloc.c | 28 |
1 files changed, 17 insertions, 11 deletions
@@ -1520,25 +1520,28 @@ Perl_mfree(void *mp) if (!bad_free_warn) return; #ifdef RCHECK +#ifdef PERL_CORE { dTHX; -#ifdef PERL_CORE if (!PERL_IS_ALIVE || !PL_curcop || ckWARN_d(WARN_MALLOC)) Perl_warner(aTHX_ WARN_MALLOC, "%s free() ignored", ovp->ov_rmagic == RMAGIC - 1 ? "Duplicate" : "Bad"); + } #else - warn("%s free() ignored", - ovp->ov_rmagic == RMAGIC - 1 ? "Duplicate" : "Bad"); + warn("%s free() ignored", + ovp->ov_rmagic == RMAGIC - 1 ? "Duplicate" : "Bad"); #endif #else #ifdef PERL_CORE + { + dTHX; if (!PERL_IS_ALIVE || !PL_curcop || ckWARN_d(WARN_MALLOC)) Perl_warner(aTHX_ WARN_MALLOC, "%s", "Bad free() ignored"); + } #else - warn("%s", "Bad free() ignored"); + warn("%s", "Bad free() ignored"); #endif - } #endif return; /* sanity */ } @@ -1617,28 +1620,31 @@ Perl_realloc(void *mp, size_t nbytes) if (!bad_free_warn) return Nullch; #ifdef RCHECK +#ifdef PERL_CORE { dTHX; -#ifdef PERL_CORE if (!PERL_IS_ALIVE || !PL_curcop || ckWARN_d(WARN_MALLOC)) Perl_warner(aTHX_ WARN_MALLOC, "%srealloc() %signored", (ovp->ov_rmagic == RMAGIC - 1 ? "" : "Bad "), ovp->ov_rmagic == RMAGIC - 1 ? "of freed memory " : ""); + } #else - warn("%srealloc() %signored", - (ovp->ov_rmagic == RMAGIC - 1 ? "" : "Bad "), - ovp->ov_rmagic == RMAGIC - 1 ? "of freed memory " : ""); + warn("%srealloc() %signored", + (ovp->ov_rmagic == RMAGIC - 1 ? "" : "Bad "), + ovp->ov_rmagic == RMAGIC - 1 ? "of freed memory " : ""); #endif #else #ifdef PERL_CORE + { + dTHX; if (!PERL_IS_ALIVE || !PL_curcop || ckWARN_d(WARN_MALLOC)) Perl_warner(aTHX_ WARN_MALLOC, "%s", "Bad realloc() ignored"); + } #else - warn("%s", "Bad realloc() ignored"); + warn("%s", "Bad realloc() ignored"); #endif - } #endif return Nullch; /* sanity */ } |