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.pl | |
| 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.pl')
| -rw-r--r-- | warnings.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/warnings.pl b/warnings.pl index f2380d9dbb..c22d110eee 100644 --- a/warnings.pl +++ b/warnings.pl @@ -329,8 +329,9 @@ print WARN <<'EOM'; #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)) |