diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-20 17:48:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-20 17:48:21 +0000 |
| commit | bb17208353b2f15e0bf22099038f9ea336d6de2a (patch) | |
| tree | 5c1ace6caa469990ceca08a4a829a4ea29250b21 /dump.c | |
| parent | 8a27f21b702728eba502a2ab9428475e0535d96d (diff) | |
| download | perl-bb17208353b2f15e0bf22099038f9ea336d6de2a.tar.gz | |
PVFMs don't need CvDEPTH, and PVCVs don't use SvIVX, so moving
xcv_depth into the IV union saves 4(ish) bytes per CV and format.
"ish" because it was a long, but has been changed to I32 (along with
the corresponding field in struct block_sub) so as not to enlarge the
IV union on platforms where sizeof(long) > sizeof(IV), or struct
block_sub where sizeof(long) > sizeof(I32)
p4raw-id: //depot/perl@27247
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1283,8 +1283,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo SvREFCNT_dec(d); return; } - if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV) - || type == SVt_IV) { + if (type == SVt_IV || (type >= SVt_PVIV && type != SVt_PVAV + && type != SVt_PVHV && type != SVt_PVCV)) { if (SvIsUV(sv) #ifdef PERL_OLD_COPY_ON_WRITE || SvIsCOW(sv) |