#define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))
-OP *
+static OP *
S_linklist(pTHX_ OP *o)
{
OP *first;
return o->op_next;
}
-OP *
+static OP *
S_scalarkids(pTHX_ OP *o)
{
if (o && o->op_flags & OPf_KIDS) {
return scalar(o);
}
-/* This is used in S_doeval in pp_ctl.c */
OP *
Perl_scalar(pTHX_ OP *o)
{
return o;
}
-/* This is used in S_doeval in pp_ctl.c */
OP *
Perl_scalarvoid(pTHX_ OP *o)
{
return o;
}
-OP *
+static OP *
S_listkids(pTHX_ OP *o)
{
if (o && o->op_flags & OPf_KIDS) {
return o;
}
-/* This is used in S_doeval in pp_ctl.c */
OP *
Perl_list(pTHX_ OP *o)
{
return o;
}
-OP *
+static OP *
S_scalarseq(pTHX_ OP *o)
{
dVAR;
return o;
}
-/* This is used in perly.y */
OP *
Perl_sawparens(pTHX_ OP *o)
{
return o;
}
-OP *
+static OP *
S_fold_constants(pTHX_ register OP *o)
{
dVAR;
return o;
}
-OP *
+static OP *
S_gen_constant_list(pTHX_ register OP *o)
{
dVAR;
return newOP(OP_STUB, 0);
}
-OP *
+static OP *
S_force_list(pTHX_ OP *o)
{
if (!o || o->op_type != OP_LIST)