summaryrefslogtreecommitdiff
path: root/pp.h
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-06-22 04:41:00 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-06-23 08:39:44 +0000
commit1b6737cc10a847650f574c35f419cbd680a5a5ef (patch)
treeb96d16d5faf3db00f9c9488a814c8a8d6a217387 /pp.h
parent89e33a0587050e7ef2e88ba45c87444d8506f821 (diff)
downloadperl-1b6737cc10a847650f574c35f419cbd680a5a5ef.tar.gz
Const Boy II: The Localizing
Message-ID: <20050622144059.GA19598@petdance.com> p4raw-id: //depot/perl@24945
Diffstat (limited to 'pp.h')
-rw-r--r--pp.h16
1 files changed, 13 insertions, 3 deletions
diff --git a/pp.h b/pp.h
index 8f127d1208..d5e3bf9277 100644
--- a/pp.h
+++ b/pp.h
@@ -283,8 +283,8 @@ and C<PUSHu>.
} } STMT_END
/* Same thing, but update mark register too. */
-#define MEXTEND(p,n) STMT_START {if (PL_stack_max - p < (int)(n)) { \
- int markoff = mark - PL_stack_base; \
+#define MEXTEND(p,n) STMT_START {if (PL_stack_max - p < (int)(n)) { \
+ const int markoff = mark - PL_stack_base; \
sp = stack_grow(sp,p,(int) (n)); \
mark = PL_stack_base + markoff; \
} } STMT_END
@@ -401,7 +401,7 @@ and C<PUSHu>.
#define tryAMAGICbinW(meth,assign,set) STMT_START { \
if (PL_amagic_generation) { \
SV* tmpsv; \
- SV* right= *(sp); SV* left= *(sp-1);\
+ SV* const right= *(sp); SV* const left= *(sp-1);\
if ((SvAMAGIC(left)||SvAMAGIC(right))&&\
(tmpsv=amagic_call(left, \
right, \
@@ -483,3 +483,13 @@ True if this op will be the return value of an lvalue subroutine
=cut */
#define LVRET ((PL_op->op_private & OPpMAYBE_LVSUB) && is_lvalue_sub())
+
+/*
+ * Local variables:
+ * c-indentation-style: bsd
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ *
+ * ex: set ts=8 sts=4 sw=4 noet:
+ */