diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-02 23:05:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-02 23:05:50 +0000 |
| commit | 57def98fcb6c98601beaf31e3c48ad681bfdc2a3 (patch) | |
| tree | 1c2ca5d1ae7bb4508bf076e61eda828a50a82f9d /op.c | |
| parent | ac8eabc1ebb57d426c973b83f7ee5241b2084b4e (diff) | |
| download | perl-57def98fcb6c98601beaf31e3c48ad681bfdc2a3.tar.gz | |
Untangle the IV_IS_QUAD jungle by introduding
macros to be used when doing formatted printing:
IVdf, UVuf, UVxf, UVof. Also introduce Uid_t_SIGN.
p4raw-id: //depot/cfgperl@4288
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 18 |
1 files changed, 2 insertions, 16 deletions
@@ -5048,17 +5048,10 @@ Perl_ck_fun(pTHX_ OP *o) char *name = SvPVx(((SVOP*)kid)->op_sv, n_a); OP *newop = newAVREF(newGVOP(OP_GV, 0, gv_fetchpv(name, TRUE, SVt_PVAV) )); -#ifdef IV_IS_QUAD if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ WARN_SYNTAX, - "Array @%s missing the @ in argument %" PERL_PRId64 " of %s()", + "Array @%s missing the @ in argument %"IVdf" of %s()", name, (IV)numargs, PL_op_desc[type]); -#else - if (ckWARN(WARN_SYNTAX)) - Perl_warner(aTHX_ WARN_SYNTAX, - "Array @%s missing the @ in argument %ld of %s()", - name, (long)numargs, PL_op_desc[type]); -#endif op_free(kid); kid = newop; kid->op_sibling = sibl; @@ -5075,17 +5068,10 @@ Perl_ck_fun(pTHX_ OP *o) char *name = SvPVx(((SVOP*)kid)->op_sv, n_a); OP *newop = newHVREF(newGVOP(OP_GV, 0, gv_fetchpv(name, TRUE, SVt_PVHV) )); -#ifdef IV_IS_QUAD if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ WARN_SYNTAX, - "Hash %%%s missing the %% in argument %" PERL_PRId64 " of %s()", + "Hash %%%s missing the %% in argument %"IVdf" of %s()", name, (IV)numargs, PL_op_desc[type]); -#else - if (ckWARN(WARN_SYNTAX)) - Perl_warner(aTHX_ WARN_SYNTAX, - "Hash %%%s missing the %% in argument %ld of %s()", - name, (long)numargs, PL_op_desc[type]); -#endif op_free(kid); kid = newop; kid->op_sibling = sibl; |