diff options
| author | Andy Lester <andy@petdance.com> | 2005-10-18 04:57:23 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-19 08:18:30 +0000 |
| commit | 823a54a3e80592bb1d7f6b5fc487f84a3411e104 (patch) | |
| tree | 31dcc1c257c61603a27ecb220a42a227ab753dd3 /pp_hot.c | |
| parent | d8c40edcf7b2eca3075e6c3cd36c64193c41e123 (diff) | |
| download | perl-823a54a3e80592bb1d7f6b5fc487f84a3411e104.tar.gz | |
More consting, and DRY leads to shrinking object code
Message-ID: <20051018145723.GA4964@petdance.com>
p4raw-id: //depot/perl@25803
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2557,7 +2557,7 @@ S_get_db_sub(pTHX_ SV **svp, CV *cv) && (gv = (GV*)*svp) ))) { /* Use GV from the stack as a fallback. */ /* GV is potentially non-unique, or contain different CV. */ - SV *tmp = newRV((SV*)cv); + SV * const tmp = newRV((SV*)cv); sv_setsv(dbsv, tmp); SvREFCNT_dec(tmp); } @@ -2628,7 +2628,7 @@ PP(pp_entersub) } got_rv: { - SV **sp = &sv; /* Used in tryAMAGICunDEREF macro. */ + SV * const * sp = &sv; /* Used in tryAMAGICunDEREF macro. */ tryAMAGICunDEREF(to_cv); } cv = (CV*)SvRV(sv); |