* embed.h
*
* Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- * 2000, 2001, 2002, 2003, by Larry Wall and others
+ * 2000, 2001, 2002, 2003, 2004, by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
#define new_version Perl_new_version
#define upg_version Perl_upg_version
#define vnumify Perl_vnumify
+#define vnormal Perl_vnormal
#define vstringify Perl_vstringify
#define vcmp Perl_vcmp
#ifdef PERL_CORE
#ifdef PERL_CORE
#define yyerror Perl_yyerror
#endif
-#ifdef USE_PURE_BISON
-#ifdef PERL_CORE
-#define yylex_r Perl_yylex_r
-#endif
-#endif
#ifdef PERL_CORE
#define yylex Perl_yylex
#endif
#define new_version(a) Perl_new_version(aTHX_ a)
#define upg_version(a) Perl_upg_version(aTHX_ a)
#define vnumify(a) Perl_vnumify(aTHX_ a)
+#define vnormal(a) Perl_vnormal(aTHX_ a)
#define vstringify(a) Perl_vstringify(aTHX_ a)
#define vcmp(a,b) Perl_vcmp(aTHX_ a,b)
#ifdef PERL_CORE
#ifdef PERL_CORE
#define yyerror(a) Perl_yyerror(aTHX_ a)
#endif
-#ifdef USE_PURE_BISON
-#ifdef PERL_CORE
-#define yylex_r(a,b) Perl_yylex_r(aTHX_ a,b)
-#endif
-#endif
#ifdef PERL_CORE
#define yylex() Perl_yylex(aTHX)
#endif
#define nuke_stacks() S_nuke_stacks(aTHX)
#endif
#ifdef PERL_CORE
-#define open_script(a,b,c,d) S_open_script(aTHX_ a,b,c,d)
+#define open_script(a,b,c) S_open_script(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
#define usage(a) S_usage(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define validate_suid(a,b,c) S_validate_suid(aTHX_ a,b,c)
+#define validate_suid(a,b) S_validate_suid(aTHX_ a,b)
#endif
# if defined(IAMSUID)
#ifdef PERL_CORE
#define not_a_number(a) S_not_a_number(aTHX_ a)
#endif
#ifdef PERL_CORE
-#define visit(a) S_visit(aTHX_ a)
+#define visit(a,b,c) S_visit(aTHX_ a,b,c)
#endif
#ifdef PERL_CORE
#define sv_add_backref(a,b) S_sv_add_backref(aTHX_ a,b)