X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=4eef0bf740947595850f1964fbf87c7ec4bc8032;hb=7fddc82f0212c2b411408f0a05ebb86f9e431bd9;hp=dd5a05dcb4f191deea6e3ee188c562071c8e54da;hpb=891f9566d7fc0fb068ade9d98aed69773e02d39c;p=p5sagit%2Fp5-mst-13.2.git diff --git a/embed.h b/embed.h index dd5a05d..4eef0bf 100644 --- a/embed.h +++ b/embed.h @@ -2,7 +2,7 @@ * 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. @@ -738,6 +738,7 @@ #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 @@ -1138,11 +1139,6 @@ #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 @@ -2159,6 +2155,134 @@ #ifdef PERL_CORE #define magic_scalarpack Perl_magic_scalarpack #endif +#ifdef PERL_IN_SV_C +#ifdef PERL_CORE +#define find_uninit_var S_find_uninit_var +#endif +#endif +#ifdef PERL_NEED_MY_HTOLE16 +#ifdef PERL_CORE +#define my_htole16 Perl_my_htole16 +#endif +#endif +#ifdef PERL_NEED_MY_LETOH16 +#ifdef PERL_CORE +#define my_letoh16 Perl_my_letoh16 +#endif +#endif +#ifdef PERL_NEED_MY_HTOBE16 +#ifdef PERL_CORE +#define my_htobe16 Perl_my_htobe16 +#endif +#endif +#ifdef PERL_NEED_MY_BETOH16 +#ifdef PERL_CORE +#define my_betoh16 Perl_my_betoh16 +#endif +#endif +#ifdef PERL_NEED_MY_HTOLE32 +#ifdef PERL_CORE +#define my_htole32 Perl_my_htole32 +#endif +#endif +#ifdef PERL_NEED_MY_LETOH32 +#ifdef PERL_CORE +#define my_letoh32 Perl_my_letoh32 +#endif +#endif +#ifdef PERL_NEED_MY_HTOBE32 +#ifdef PERL_CORE +#define my_htobe32 Perl_my_htobe32 +#endif +#endif +#ifdef PERL_NEED_MY_BETOH32 +#ifdef PERL_CORE +#define my_betoh32 Perl_my_betoh32 +#endif +#endif +#ifdef PERL_NEED_MY_HTOLE64 +#ifdef PERL_CORE +#define my_htole64 Perl_my_htole64 +#endif +#endif +#ifdef PERL_NEED_MY_LETOH64 +#ifdef PERL_CORE +#define my_letoh64 Perl_my_letoh64 +#endif +#endif +#ifdef PERL_NEED_MY_HTOBE64 +#ifdef PERL_CORE +#define my_htobe64 Perl_my_htobe64 +#endif +#endif +#ifdef PERL_NEED_MY_BETOH64 +#ifdef PERL_CORE +#define my_betoh64 Perl_my_betoh64 +#endif +#endif +#ifdef PERL_NEED_MY_HTOLES +#ifdef PERL_CORE +#define my_htoles Perl_my_htoles +#endif +#endif +#ifdef PERL_NEED_MY_LETOHS +#ifdef PERL_CORE +#define my_letohs Perl_my_letohs +#endif +#endif +#ifdef PERL_NEED_MY_HTOBES +#ifdef PERL_CORE +#define my_htobes Perl_my_htobes +#endif +#endif +#ifdef PERL_NEED_MY_BETOHS +#ifdef PERL_CORE +#define my_betohs Perl_my_betohs +#endif +#endif +#ifdef PERL_NEED_MY_HTOLEI +#ifdef PERL_CORE +#define my_htolei Perl_my_htolei +#endif +#endif +#ifdef PERL_NEED_MY_LETOHI +#ifdef PERL_CORE +#define my_letohi Perl_my_letohi +#endif +#endif +#ifdef PERL_NEED_MY_HTOBEI +#ifdef PERL_CORE +#define my_htobei Perl_my_htobei +#endif +#endif +#ifdef PERL_NEED_MY_BETOHI +#ifdef PERL_CORE +#define my_betohi Perl_my_betohi +#endif +#endif +#ifdef PERL_NEED_MY_HTOLEL +#ifdef PERL_CORE +#define my_htolel Perl_my_htolel +#endif +#endif +#ifdef PERL_NEED_MY_LETOHL +#ifdef PERL_CORE +#define my_letohl Perl_my_letohl +#endif +#endif +#ifdef PERL_NEED_MY_HTOBEL +#ifdef PERL_CORE +#define my_htobel Perl_my_htobel +#endif +#endif +#ifdef PERL_NEED_MY_BETOHL +#ifdef PERL_CORE +#define my_betohl Perl_my_betohl +#endif +#endif +#ifdef PERL_CORE +#define my_swabn Perl_my_swabn +#endif #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -3236,10 +3360,11 @@ #define newWHILEOP(a,b,c,d,e,f,g) Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g) #define new_stackinfo(a,b) Perl_new_stackinfo(aTHX_ a,b) #define scan_vstring(a,b) Perl_scan_vstring(aTHX_ a,b) -#define scan_version(a,b) Perl_scan_version(aTHX_ a,b) +#define scan_version(a,b,c) Perl_scan_version(aTHX_ a,b,c) #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 @@ -3625,7 +3750,7 @@ #define report_evil_fh(a,b,c) Perl_report_evil_fh(aTHX_ a,b,c) #endif #ifdef PERL_CORE -#define report_uninit() Perl_report_uninit(aTHX) +#define report_uninit(a) Perl_report_uninit(aTHX_ a) #endif #define vwarn(a,b) Perl_vwarn(aTHX_ a,b) #define vwarner(a,b,c) Perl_vwarner(aTHX_ a,b,c) @@ -3639,11 +3764,6 @@ #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 @@ -3925,13 +4045,13 @@ #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 @@ -4350,7 +4470,7 @@ #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) @@ -4655,6 +4775,134 @@ #ifdef PERL_CORE #define magic_scalarpack(a,b) Perl_magic_scalarpack(aTHX_ a,b) #endif +#ifdef PERL_IN_SV_C +#ifdef PERL_CORE +#define find_uninit_var(a,b,c) S_find_uninit_var(aTHX_ a,b,c) +#endif +#endif +#ifdef PERL_NEED_MY_HTOLE16 +#ifdef PERL_CORE +#define my_htole16 Perl_my_htole16 +#endif +#endif +#ifdef PERL_NEED_MY_LETOH16 +#ifdef PERL_CORE +#define my_letoh16 Perl_my_letoh16 +#endif +#endif +#ifdef PERL_NEED_MY_HTOBE16 +#ifdef PERL_CORE +#define my_htobe16 Perl_my_htobe16 +#endif +#endif +#ifdef PERL_NEED_MY_BETOH16 +#ifdef PERL_CORE +#define my_betoh16 Perl_my_betoh16 +#endif +#endif +#ifdef PERL_NEED_MY_HTOLE32 +#ifdef PERL_CORE +#define my_htole32 Perl_my_htole32 +#endif +#endif +#ifdef PERL_NEED_MY_LETOH32 +#ifdef PERL_CORE +#define my_letoh32 Perl_my_letoh32 +#endif +#endif +#ifdef PERL_NEED_MY_HTOBE32 +#ifdef PERL_CORE +#define my_htobe32 Perl_my_htobe32 +#endif +#endif +#ifdef PERL_NEED_MY_BETOH32 +#ifdef PERL_CORE +#define my_betoh32 Perl_my_betoh32 +#endif +#endif +#ifdef PERL_NEED_MY_HTOLE64 +#ifdef PERL_CORE +#define my_htole64 Perl_my_htole64 +#endif +#endif +#ifdef PERL_NEED_MY_LETOH64 +#ifdef PERL_CORE +#define my_letoh64 Perl_my_letoh64 +#endif +#endif +#ifdef PERL_NEED_MY_HTOBE64 +#ifdef PERL_CORE +#define my_htobe64 Perl_my_htobe64 +#endif +#endif +#ifdef PERL_NEED_MY_BETOH64 +#ifdef PERL_CORE +#define my_betoh64 Perl_my_betoh64 +#endif +#endif +#ifdef PERL_NEED_MY_HTOLES +#ifdef PERL_CORE +#define my_htoles Perl_my_htoles +#endif +#endif +#ifdef PERL_NEED_MY_LETOHS +#ifdef PERL_CORE +#define my_letohs Perl_my_letohs +#endif +#endif +#ifdef PERL_NEED_MY_HTOBES +#ifdef PERL_CORE +#define my_htobes Perl_my_htobes +#endif +#endif +#ifdef PERL_NEED_MY_BETOHS +#ifdef PERL_CORE +#define my_betohs Perl_my_betohs +#endif +#endif +#ifdef PERL_NEED_MY_HTOLEI +#ifdef PERL_CORE +#define my_htolei Perl_my_htolei +#endif +#endif +#ifdef PERL_NEED_MY_LETOHI +#ifdef PERL_CORE +#define my_letohi Perl_my_letohi +#endif +#endif +#ifdef PERL_NEED_MY_HTOBEI +#ifdef PERL_CORE +#define my_htobei Perl_my_htobei +#endif +#endif +#ifdef PERL_NEED_MY_BETOHI +#ifdef PERL_CORE +#define my_betohi Perl_my_betohi +#endif +#endif +#ifdef PERL_NEED_MY_HTOLEL +#ifdef PERL_CORE +#define my_htolel Perl_my_htolel +#endif +#endif +#ifdef PERL_NEED_MY_LETOHL +#ifdef PERL_CORE +#define my_letohl Perl_my_letohl +#endif +#endif +#ifdef PERL_NEED_MY_HTOBEL +#ifdef PERL_CORE +#define my_htobel Perl_my_htobel +#endif +#endif +#ifdef PERL_NEED_MY_BETOHL +#ifdef PERL_CORE +#define my_betohl Perl_my_betohl +#endif +#endif +#ifdef PERL_CORE +#define my_swabn Perl_my_swabn +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a)