diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-02-19 23:58:53 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-02-19 23:58:53 +0000 |
| commit | 594cd643de6a38f85185ea4c238c0784e3cf076a (patch) | |
| tree | 562f77079ac92576610fbef46b497d737f94efbd /warnings.h | |
| parent | bae1192d8838abbb774747207533573c1bc72f97 (diff) | |
| download | perl-594cd643de6a38f85185ea4c238c0784e3cf076a.tar.gz | |
Avoid *some* g++ errors. (But not all yet)
p4raw-id: //depot/perl@30365
Diffstat (limited to 'warnings.h')
| -rw-r--r-- | warnings.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/warnings.h b/warnings.h index 5364a519c5..1c36628eff 100644 --- a/warnings.h +++ b/warnings.h @@ -91,8 +91,9 @@ #define isWARNf_on(c,x) (IsSet((U8 *)(c + 1), 2*(x)+1)) #define DUP_WARNINGS(p) \ - (STRLEN*)(specialWARN(p) ? (p) \ - : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char)) + (specialWARN(p) ? (STRLEN*)(p) \ + : (STRLEN*)CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, \ + char)) #define ckWARN(w) Perl_ckwarn(aTHX_ packWARN(w)) #define ckWARN2(w1,w2) Perl_ckwarn(aTHX_ packWARN2(w1,w2)) |