diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-04-07 08:51:49 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-08 11:29:22 +0000 |
| commit | 45977657b0fa2c29b268b817f40e6b295a501d39 (patch) | |
| tree | 60bae3828a7280d4a28993fc2e4376977bae5fcd /pp_hot.c | |
| parent | f599b64b5d5d221c90b5f40eb5ad167f16c1822c (diff) | |
| download | perl-45977657b0fa2c29b268b817f40e6b295a501d39.tar.gz | |
Refactoring to Sv*_set() macros - patch #2
Message-ID: <20050407185149.GA4418@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@24204
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -315,7 +315,7 @@ PP(pp_preinc) if (!SvREADONLY(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) && SvIVX(TOPs) != IV_MAX) { - ++SvIVX(TOPs); + SvIV_set(TOPs, SvIVX(TOPs) + 1); SvFLAGS(TOPs) &= ~(SVp_NOK|SVp_POK); } else /* Do all the PERL_PRESERVE_IVUV conditionals in sv_inc */ @@ -2594,7 +2594,7 @@ S_get_db_sub(pTHX_ SV **svp, CV *cv) (void)SvUPGRADE(dbsv, SVt_PVIV); (void)SvIOK_on(dbsv); SAVEIV(SvIVX(dbsv)); - SvIVX(dbsv) = PTR2IV(cv); /* Do it the quickest way */ + SvIV_set(dbsv, PTR2IV(cv)); /* Do it the quickest way */ } if (CvXSUB(cv)) |