diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-18 19:28:30 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-21 09:39:35 +0000 |
| commit | bfed75c6338f0ba740aa210f4b0267e39ca4662b (patch) | |
| tree | ceaa91a3d877b0eaf3000f01f413f942619a2d9f /op.c | |
| parent | a87115f0a1b74f765307464de281024d76c71ad6 (diff) | |
| download | perl-bfed75c6338f0ba740aa210f4b0267e39ca4662b.tar.gz | |
More consting goodness
Message-ID: <20050319072830.GA7721@petdance.com>
p4raw-id: //depot/perl@24049
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -176,21 +176,21 @@ S_no_fh_allowed(pTHX_ OP *o) } STATIC OP * -S_too_few_arguments(pTHX_ OP *o, char *name) +S_too_few_arguments(pTHX_ OP *o, const char *name) { yyerror(Perl_form(aTHX_ "Not enough arguments for %s", name)); return o; } STATIC OP * -S_too_many_arguments(pTHX_ OP *o, char *name) +S_too_many_arguments(pTHX_ OP *o, const char *name) { yyerror(Perl_form(aTHX_ "Too many arguments for %s", name)); return o; } STATIC void -S_bad_type(pTHX_ I32 n, char *t, char *name, OP *kid) +S_bad_type(pTHX_ I32 n, const char *t, const char *name, OP *kid) { yyerror(Perl_form(aTHX_ "Type of arg %d to %s must be %s (not %s)", (int)n, name, t, OP_DESC(kid))); @@ -518,8 +518,8 @@ Perl_linklist(pTHX_ OP *o) OP * Perl_scalarkids(pTHX_ OP *o) { - OP *kid; if (o && o->op_flags & OPf_KIDS) { + OP *kid; for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling) scalar(kid); } @@ -4575,7 +4575,7 @@ Used by C<xsubpp> to hook up XSUBs as Perl subs. */ CV * -Perl_newXS(pTHX_ char *name, XSUBADDR_t subaddr, char *filename) +Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename) { GV *gv = gv_fetchpv(name ? name : (PL_curstash ? "__ANON__" : "__ANON__::__ANON__"), |