summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-01-12 18:09:46 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-01-12 18:09:46 +0000
commite6438c1af8290043db1b35cdde01b706fd0e7965 (patch)
tree59adc6e10df71c34b28115e02ecfad9cdf8d8df3
parent7c8af4ef9d2544e11473e47bd0c86ea792b65202 (diff)
downloadperl-e6438c1af8290043db1b35cdde01b706fd0e7965.tar.gz
Rename RETVAL_MAX to RETURN_UNLIMITED_NUMBER.
p4raw-id: //depot/perl@8419
-rw-r--r--op.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/op.c b/op.c
index dc51040a31..1deff89300 100644
--- a/op.c
+++ b/op.c
@@ -55,7 +55,7 @@ S_Slab_Alloc(pTHX_ int m, size_t sz)
: CALL_FPTR(PL_check[type])(aTHX_ (OP*)o))
#define PAD_MAX 999999999
-#define RETVAL_MAX ( PERL_INT_MAX / 2 )
+#define RETURN_UNLIMITED_NUMBER (PERL_INT_MAX / 2)
STATIC char*
S_gv_ename(pTHX_ GV *gv)
@@ -1416,7 +1416,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
}
else { /* lvalue subroutine call */
o->op_private |= OPpLVAL_INTRO;
- PL_modcount = RETVAL_MAX;
+ PL_modcount = RETURN_UNLIMITED_NUMBER;
if (type == OP_GREPSTART || type == OP_ENTERSUB || type == OP_REFGEN) {
/* Backward compatibility mode: */
o->op_private |= OPpENTERSUB_INARGS;
@@ -1551,7 +1551,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
if (!type && cUNOPo->op_first->op_type != OP_GV)
Perl_croak(aTHX_ "Can't localize through a reference");
if (type == OP_REFGEN && o->op_flags & OPf_PARENS) {
- PL_modcount = RETVAL_MAX;
+ PL_modcount = RETURN_UNLIMITED_NUMBER;
return o; /* Treat \(@foo) like ordinary list. */
}
/* FALL THROUGH */
@@ -1570,7 +1570,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
case OP_DBSTATE:
case OP_REFGEN:
case OP_CHOMP:
- PL_modcount = RETVAL_MAX;
+ PL_modcount = RETURN_UNLIMITED_NUMBER;
break;
case OP_RV2SV:
if (!type && cUNOPo->op_first->op_type != OP_GV)
@@ -1589,7 +1589,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
case OP_PADAV:
case OP_PADHV:
- PL_modcount = RETVAL_MAX;
+ PL_modcount = RETURN_UNLIMITED_NUMBER;
if (type == OP_REFGEN && o->op_flags & OPf_PARENS)
return o; /* Treat \(@foo) like ordinary list. */
if (scalar_mod_type(o, type))
@@ -3521,7 +3521,7 @@ Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
}
}
else {
- if (PL_modcount < RETVAL_MAX &&
+ if (PL_modcount < RETURN_UNLIMITED_NUMBER &&
((LISTOP*)right)->op_last->op_type == OP_CONST)
{
SV *sv = ((SVOP*)((LISTOP*)right)->op_last)->op_sv;