diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-03-21 17:55:19 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-22 20:23:52 -0700 |
commit | 7350962f469ccd5aa91df76014fab15c0a785530 (patch) | |
tree | 25cf944a0e12289bd674d3c20c7ff9750de684ca | |
parent | 19c6248174a2dd57782271308b166ab6bc3e63c8 (diff) | |
download | perl-7350962f469ccd5aa91df76014fab15c0a785530.tar.gz |
Remove yyerror_sv
This was added in the previous commit, but was unnecessary, as it
is not used anywhere and is not part of the public API.
-rw-r--r-- | embed.fnc | 1 | ||||
-rw-r--r-- | embed.h | 1 | ||||
-rw-r--r-- | proto.h | 5 | ||||
-rw-r--r-- | toke.c | 12 |
4 files changed, 0 insertions, 19 deletions
@@ -1516,7 +1516,6 @@ p |void |write_to_stderr|NN SV* msv p |int |yyerror |NN const char *const s p |int |yyerror_pv |NN const char *const s|U32 flags p |int |yyerror_pvn |NN const char *const s|STRLEN len|U32 flags -p |int |yyerror_sv |NN SV * sv|U32 flags : Used in perly.y, and by Data::Alias EXp |int |yylex p |void |yyunlex @@ -1214,7 +1214,6 @@ #define yyerror(a) Perl_yyerror(aTHX_ a) #define yyerror_pv(a,b) Perl_yyerror_pv(aTHX_ a,b) #define yyerror_pvn(a,b,c) Perl_yyerror_pvn(aTHX_ a,b,c) -#define yyerror_sv(a,b) Perl_yyerror_sv(aTHX_ a,b) #define yyparse(a) Perl_yyparse(aTHX_ a) #define yyunlex() Perl_yyunlex(aTHX) # if !(defined(DEBUGGING)) @@ -4779,11 +4779,6 @@ PERL_CALLCONV int Perl_yyerror_pvn(pTHX_ const char *const s, STRLEN len, U32 fl #define PERL_ARGS_ASSERT_YYERROR_PVN \ assert(s) -PERL_CALLCONV int Perl_yyerror_sv(pTHX_ SV * sv, U32 flags) - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_YYERROR_SV \ - assert(sv) - PERL_CALLCONV int Perl_yylex(pTHX); PERL_CALLCONV int Perl_yyparse(pTHX_ int gramtype); PERL_CALLCONV void Perl_yyunlex(pTHX); @@ -10740,18 +10740,6 @@ Perl_yyerror_pv(pTHX_ const char *const s, U32 flags) } int -Perl_yyerror_sv(pTHX_ SV * sv, U32 flags) -{ - char *s; - STRLEN len; - PERL_ARGS_ASSERT_YYERROR_SV; - s = SvPV(sv, len); - if (SvUTF8(sv)) - flags |= SVf_UTF8; - return yyerror_pvn(s, len, flags); -} - -int Perl_yyerror_pvn(pTHX_ const char *const s, STRLEN len, U32 flags) { dVAR; |