Remove OPpCONST_FOLDED

Now that we have op->op_folded, we don’t need OPpCONST_FOLDED any
more.  In removing it, I modified B::Concise to output op_folded the
way OPpCONST_FOLDED was output before, since it can be helpful to have
it when reading op dumps.

1 files changed, 1 insertions, 5 deletions

diff --git a/op.c b/op.c
index 3ea01950d8..87e3403f16 100644
--- a/op.c
+++ b/op.c
@@ -3439,7 +3439,7 @@ S_fold_constants(pTHX_ OP *o)
 	newop = newGVOP(OP_GV, 0, MUTABLE_GV(sv));
     else
     {
-	newop = newSVOP(OP_CONST, OPpCONST_FOLDED<<8, MUTABLE_SV(sv));
+	newop = newSVOP(OP_CONST, 0, MUTABLE_SV(sv));
 	newop->op_folded = 1;
     }
     op_getmad(o,newop,'f');
@@ -6015,8 +6015,6 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp)
 	          || other->op_type == OP_TRANS)
 		/* Mark the op as being unbindable with =~ */
 		other->op_flags |= OPf_SPECIAL;
-	    else if (other->op_type == OP_CONST)
-		other->op_private |= OPpCONST_FOLDED;
 
 	    other->op_folded = 1;
 	    return other;
@@ -6178,8 +6176,6 @@ Perl_newCONDOP(pTHX_ I32 flags, OP *first, OP *trueop, OP *falseop)
 	      || live->op_type == OP_TRANS || live->op_type == OP_TRANSR)
 	    /* Mark the op as being unbindable with =~ */
 	    live->op_flags |= OPf_SPECIAL;
-	else if (live->op_type == OP_CONST)
-	    live->op_private |= OPpCONST_FOLDED;
 	live->op_folded = 1;
 	return live;
     }