diff options
| -rw-r--r-- | ext/B/B/CC.pm | 2 | ||||
| -rw-r--r-- | handy.h | 5 | ||||
| -rw-r--r-- | proto.h | 4 | ||||
| -rw-r--r-- | sv.c | 4 |
4 files changed, 4 insertions, 11 deletions
diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm index 0f4cfd2858..4c877d9c5b 100644 --- a/ext/B/B/CC.pm +++ b/ext/B/B/CC.pm @@ -1438,7 +1438,7 @@ sub compile { last OPTION; } elsif ($opt eq "o") { $arg ||= shift @options; - open(STDOUT, ">$arg") or return "$arg: $!\n"; + open(STDOUT, ">$arg") or return "open '>$arg': $!\n"; } elsif ($opt eq "n") { $arg ||= shift @options; $module_name = $arg; @@ -263,6 +263,9 @@ typedef U16 line_t; */ #ifndef lint + +#define NEWSV(x,len) newSV(len) + #ifndef LEAKTEST #define New(x,v,n,t) (v = (t*)safemalloc((MEM_SIZE)((n)*sizeof(t)))) @@ -274,7 +277,6 @@ typedef U16 line_t; #define Renewc(v,n,t,c) \ (v = (c*)saferealloc((Malloc_t)(v),(MEM_SIZE)((n)*sizeof(t)))) #define Safefree(d) safefree((Malloc_t)(d)) -#define NEWSV(x,len) newSV(len) #else /* LEAKTEST */ @@ -287,7 +289,6 @@ typedef U16 line_t; #define Renewc(v,n,t,c) \ (v = (c*)safexrealloc((Malloc_t)(v),(MEM_SIZE)((n)*sizeof(t)))) #define Safefree(d) safexfree((Malloc_t)(d)) -#define NEWSV(x,len) newSV(x,len) #define MAXXCOUNT 1400 #define MAXY_SIZE 80 @@ -333,11 +333,7 @@ SV* newRV _((SV* ref)); #if !defined(__GNUC__) && (defined(CRIPPLED_CC) || defined(USE_THREADS)) SV* newRV_noinc _((SV *)); #endif -#ifdef LEAKTEST -SV* newSV _((I32 x, STRLEN len)); -#else SV* newSV _((STRLEN len)); -#endif OP* newSVREF _((OP* o)); OP* newSVOP _((I32 type, I32 flags, SV* sv)); SV* newSViv _((IV i)); @@ -2417,11 +2417,7 @@ sv_catpv_mg(register SV *sv, register char *ptr) } SV * -#ifdef LEAKTEST -newSV(I32 x, STRLEN len) -#else newSV(STRLEN len) -#endif { register SV *sv; |