From 0b250b9ef0d5134fdb23236140643970d9a3fbf5 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 20 Aug 1999 22:09:56 +0000 Subject: DEBUG_m() adjusted to internalize dTHX p4raw-id: //depot/perl@4013 --- util.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'util.c') diff --git a/util.c b/util.c index afec79e214..51d757512b 100644 --- a/util.c +++ b/util.c @@ -139,10 +139,8 @@ Perl_safesysrealloc(Malloc_t where,MEM_SIZE size) #endif ptr = PerlMem_realloc(where,size); - DEBUG_m( { - PerlIO_printf(Perl_debug_log, "0x%lx: (%05d) rfree\n",where,PL_an++); - PerlIO_printf(Perl_debug_log, "0x%lx: (%05d) realloc %ld bytes\n",ptr,PL_an++,(long)size); - } ) + DEBUG_m(PerlIO_printf(Perl_debug_log, "0x%lx: (%05d) rfree\n",where,PL_an++)); + DEBUG_m(PerlIO_printf(Perl_debug_log, "0x%lx: (%05d) realloc %ld bytes\n",ptr,PL_an++,(long)size)); if (ptr != Nullch) return ptr; -- cgit v1.2.1