Change 27492 by [EMAIL PROTECTED] on 2006/03/14 08:35:24
Subject: [PATCH] looks_like_bool can be const
From: [EMAIL PROTECTED] (Andy Lester)
Date: Mon, 13 Mar 2006 09:31:52 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/embed.fnc#332 edit
... //depot/perl/op.c#786 edit
... //depot/perl/proto.h#679 edit
Differences ...
==== //depot/perl/embed.fnc#332 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#331~27478~ 2006-03-11 14:29:56.000000000 -0800
+++ perl/embed.fnc 2006-03-14 00:35:24.000000000 -0800
@@ -1147,7 +1147,7 @@
sR |OP* |no_fh_allowed|NN OP *o
sR |OP* |too_few_arguments|NN OP *o|NN const char* name
sR |OP* |too_many_arguments|NN OP *o|NN const char* name
-s |bool |looks_like_bool|NN OP* o
+s |bool |looks_like_bool|NN const OP* o
s |OP* |newGIVWHENOP |NULLOK OP* cond|NN OP *block \
|I32 enter_opcode|I32 leave_opcode \
|PADOFFSET entertarg
==== //depot/perl/op.c#786 (text) ====
Index: perl/op.c
--- perl/op.c#785~27477~ 2006-03-11 14:08:34.000000000 -0800
+++ perl/op.c 2006-03-14 00:35:24.000000000 -0800
@@ -4607,7 +4607,7 @@
*/
STATIC
bool
-S_looks_like_bool(pTHX_ OP *o)
+S_looks_like_bool(pTHX_ const OP *o)
{
dVAR;
switch(o->op_type) {
@@ -4678,7 +4678,7 @@
OP *
Perl_newWHENOP(pTHX_ OP *cond, OP *block)
{
- bool cond_llb = (!cond || looks_like_bool(cond));
+ const bool cond_llb = (!cond || looks_like_bool(cond));
OP *cond_op;
if (cond_llb)
==== //depot/perl/proto.h#679 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#678~27478~ 2006-03-11 14:29:56.000000000 -0800
+++ perl/proto.h 2006-03-14 00:35:24.000000000 -0800
@@ -3180,7 +3180,7 @@
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2);
-STATIC bool S_looks_like_bool(pTHX_ OP* o)
+STATIC bool S_looks_like_bool(pTHX_ const OP* o)
__attribute__nonnull__(pTHX_1);
STATIC OP* S_newGIVWHENOP(pTHX_ OP* cond, OP *block, I32 enter_opcode, I32
leave_opcode, PADOFFSET entertarg)
End of Patch.
