diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-15 05:51:15 -0500 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-15 16:30:05 +0000 |
| commit | aec46f14fac1bc74bf8ad4054a6f9674b324f8d2 (patch) | |
| tree | a721e80508692d28218dc799de854ad1efec3aa0 /op.c | |
| parent | 73beb80caec743f7a0628a7df6def488c00ea59a (diff) | |
| download | perl-aec46f14fac1bc74bf8ad4054a6f9674b324f8d2.tar.gz | |
more embed cleanup
Message-ID: <20050715155115.GC29983@petdance.com>
(and run regen.pl)
p4raw-id: //depot/perl@25156
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -128,8 +128,8 @@ Perl_Slab_Alloc(pTHX_ int m, size_t sz) void Perl_Slab_Free(pTHX_ void *op) { - I32 **ptr = (I32 **) op; - I32 *slab = ptr[-1]; + I32 ** const ptr = (I32 **) op; + I32 * const slab = ptr[-1]; assert( ptr-1 > (I32 **) slab ); assert( ptr < ( (I32 **) slab + PERL_SLAB_SIZE) ); assert( *slab > 0 ); @@ -3027,10 +3027,10 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg) veop = Nullop; - if (version != Nullop) { + if (version) { SV *vesv = ((SVOP*)version)->op_sv; - if (arg == Nullop && !SvNIOKp(vesv)) { + if (!arg && !SvNIOKp(vesv)) { arg = version; } else { @@ -4248,7 +4248,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) ps = Nullch; if (!name && PERLDB_NAMEANON && CopLINE(PL_curcop)) { - SV *sv = sv_newmortal(); + SV * const sv = sv_newmortal(); Perl_sv_setpvf(aTHX_ sv, "%s[%s:%"IVdf"]", PL_curstash ? "__ANON__" : "__ANON__::__ANON__", CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); |