From 57def98fcb6c98601beaf31e3c48ad681bfdc2a3 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 2 Oct 1999 23:05:50 +0000 Subject: 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 --- pp_hot.c | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 904ee9f878..8afa2f8fbd 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -601,15 +601,9 @@ PP(pp_rv2hv) dTARGET; if (SvTYPE(hv) == SVt_PVAV) hv = avhv_keys((AV*)hv); -#ifdef IV_IS_QUAD if (HvFILL(hv)) - Perl_sv_setpvf(aTHX_ TARG, "%" PERL_PRId64 "/%" PERL_PRId64, - (Quad_t)HvFILL(hv), (Quad_t)HvMAX(hv) + 1); -#else - if (HvFILL(hv)) - Perl_sv_setpvf(aTHX_ TARG, "%ld/%ld", - (long)HvFILL(hv), (long)HvMAX(hv) + 1); -#endif + Perl_sv_setpvf(aTHX_ TARG, "%"IVdf"/%"IVdf, + (IV)HvFILL(hv), (IV)HvMAX(hv) + 1); else sv_setiv(TARG, 0); -- cgit v1.2.1