Integrate:

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 38f7f86..b4c1e80 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1,7 +1,8 @@
 /*
  *    embed.h
  *
- *    Copyright (c) 1997-2002, Larry Wall
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+ *    2000, 2001, 2002, 2003, 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.
@@ -600,6 +601,9 @@
 #define magic_setpos           Perl_magic_setpos
 #endif
 #ifdef PERL_CORE
+#define magic_setregexp                Perl_magic_setregexp
+#endif
+#ifdef PERL_CORE
 #define magic_setsig           Perl_magic_setsig
 #endif
 #ifdef PERL_CORE
@@ -763,7 +767,7 @@
 #define pad_alloc              Perl_pad_alloc
 #endif
 #ifdef PERL_CORE
-#define pad_allocmy            Perl_pad_allocmy
+#define allocmy                        Perl_allocmy
 #endif
 #ifdef PERL_CORE
 #define pad_findmy             Perl_pad_findmy
@@ -821,6 +825,7 @@
 #define set_numeric_standard   Perl_set_numeric_standard
 #define require_pv             Perl_require_pv
 #define pack_cat               Perl_pack_cat
+#define packlist               Perl_packlist
 #ifdef PERL_CORE
 #define pidgone                        Perl_pidgone
 #endif
@@ -888,6 +893,7 @@
 #define savesharedpv           Perl_savesharedpv
 #define savepvn                        Perl_savepvn
 #define savestack_grow         Perl_savestack_grow
+#define savestack_grow_cnt     Perl_savestack_grow_cnt
 #define save_aelem             Perl_save_aelem
 #define save_alloc             Perl_save_alloc
 #define save_aptr              Perl_save_aptr
@@ -1048,6 +1054,7 @@
 #define sv_setpvf              Perl_sv_setpvf
 #define sv_vsetpvf             Perl_sv_vsetpvf
 #define sv_setiv               Perl_sv_setiv
+#define sv_setpviv             Perl_sv_setpviv
 #define sv_setuv               Perl_sv_setuv
 #define sv_setnv               Perl_sv_setnv
 #define sv_setref_iv           Perl_sv_setref_iv
@@ -1084,6 +1091,7 @@
 #define unlock_condpair                Perl_unlock_condpair
 #endif
 #define unpack_str             Perl_unpack_str
+#define unpackstring           Perl_unpackstring
 #define unsharepvn             Perl_unsharepvn
 #ifdef PERL_CORE
 #define unshare_hek            Perl_unshare_hek
@@ -1176,6 +1184,7 @@
 #define sv_setpvf_mg           Perl_sv_setpvf_mg
 #define sv_vsetpvf_mg          Perl_sv_vsetpvf_mg
 #define sv_setiv_mg            Perl_sv_setiv_mg
+#define sv_setpviv_mg          Perl_sv_setpviv_mg
 #define sv_setuv_mg            Perl_sv_setuv_mg
 #define sv_setnv_mg            Perl_sv_setnv_mg
 #define sv_setpv_mg            Perl_sv_setpv_mg
@@ -1364,12 +1373,6 @@
 #define too_many_arguments     S_too_many_arguments
 #endif
 #ifdef PERL_CORE
-#define pad_addlex             S_pad_addlex
-#endif
-#ifdef PERL_CORE
-#define pad_findlex            S_pad_findlex
-#endif
-#ifdef PERL_CORE
 #define newDEFSVOP             S_newDEFSVOP
 #endif
 #ifdef PERL_CORE
@@ -1384,14 +1387,6 @@
 #ifdef PERL_CORE
 #define gv_ename               S_gv_ename
 #endif
-#  if defined(DEBUG_CLOSURES)
-#ifdef PERL_CORE
-#define cv_dump                        S_cv_dump
-#endif
-#  endif
-#ifdef PERL_CORE
-#define cv_clone2              S_cv_clone2
-#endif
 #ifdef PERL_CORE
 #define scalar_mod_type                S_scalar_mod_type
 #endif
@@ -1509,28 +1504,34 @@
 #endif
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
-#define doencodes              S_doencodes
+#define unpack_rec             S_unpack_rec
+#endif
+#ifdef PERL_CORE
+#define pack_rec               S_pack_rec
 #endif
 #ifdef PERL_CORE
 #define mul128                 S_mul128
 #endif
 #ifdef PERL_CORE
-#define is_an_int              S_is_an_int
+#define measure_struct         S_measure_struct
 #endif
 #ifdef PERL_CORE
-#define div128                 S_div128
+#define group_end              S_group_end
+#endif
+#ifdef PERL_CORE
+#define get_num                        S_get_num
 #endif
 #ifdef PERL_CORE
 #define next_symbol            S_next_symbol
 #endif
 #ifdef PERL_CORE
-#define find_count             S_find_count
+#define doencodes              S_doencodes
 #endif
 #ifdef PERL_CORE
-#define group_end              S_group_end
+#define is_an_int              S_is_an_int
 #endif
 #ifdef PERL_CORE
-#define measure_struct         S_measure_struct
+#define div128                 S_div128
 #endif
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
@@ -1573,7 +1574,7 @@
 #define doeval                 S_doeval
 #endif
 #ifdef PERL_CORE
-#define doopen_pmc             S_doopen_pmc
+#define doopen_pm              S_doopen_pm
 #endif
 #ifdef PERL_CORE
 #define path_is_absolute       S_path_is_absolute
@@ -2061,6 +2062,11 @@
 #define mess_alloc             S_mess_alloc
 #endif
 #endif
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define mulexp10               S_mulexp10
+#endif
+#endif
 #define sv_setsv_flags         Perl_sv_setsv_flags
 #define sv_catpvn_flags                Perl_sv_catpvn_flags
 #define sv_catsv_flags         Perl_sv_catsv_flags
@@ -2094,6 +2100,68 @@
 #define PerlIO_stdout          Perl_PerlIO_stdout
 #define PerlIO_stderr          Perl_PerlIO_stderr
 #endif /* PERLIO_LAYERS */
+#ifdef PERL_CORE
+#define deb_stack_all          Perl_deb_stack_all
+#endif
+#ifdef PERL_IN_DEB_C
+#ifdef PERL_CORE
+#define deb_stack_n            S_deb_stack_n
+#endif
+#endif
+#ifdef PERL_CORE
+#define pad_new                        Perl_pad_new
+#endif
+#ifdef PERL_CORE
+#define pad_undef              Perl_pad_undef
+#endif
+#ifdef PERL_CORE
+#define pad_add_name           Perl_pad_add_name
+#endif
+#ifdef PERL_CORE
+#define pad_add_anon           Perl_pad_add_anon
+#endif
+#ifdef PERL_CORE
+#define pad_check_dup          Perl_pad_check_dup
+#endif
+#ifdef DEBUGGING
+#ifdef PERL_CORE
+#define pad_setsv              Perl_pad_setsv
+#endif
+#endif
+#ifdef PERL_CORE
+#define pad_block_start                Perl_pad_block_start
+#endif
+#ifdef PERL_CORE
+#define pad_tidy               Perl_pad_tidy
+#endif
+#ifdef PERL_CORE
+#define do_dump_pad            Perl_do_dump_pad
+#endif
+#ifdef PERL_CORE
+#define pad_fixup_inner_anons  Perl_pad_fixup_inner_anons
+#endif
+#ifdef PERL_CORE
+#define pad_push               Perl_pad_push
+#endif
+#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define pad_findlex            S_pad_findlex
+#endif
+#  if defined(DEBUGGING)
+#ifdef PERL_CORE
+#define cv_dump                        S_cv_dump
+#endif
+#  endif
+#ifdef PERL_CORE
+#define cv_clone2              S_cv_clone2
+#endif
+#endif
+#ifdef PERL_CORE
+#define find_runcv             Perl_find_runcv
+#endif
+#ifdef PERL_CORE
+#define free_tied_hv_pool      Perl_free_tied_hv_pool
+#endif
 #define ck_anoncode            Perl_ck_anoncode
 #define ck_bitop               Perl_ck_bitop
 #define ck_concat              Perl_ck_concat
@@ -3037,6 +3105,9 @@
 #define magic_setpos(a,b)      Perl_magic_setpos(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
+#define magic_setregexp(a,b)   Perl_magic_setregexp(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
 #define magic_setsig(a,b)      Perl_magic_setsig(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
@@ -3198,7 +3269,7 @@
 #define pad_alloc(a,b)         Perl_pad_alloc(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
-#define pad_allocmy(a)         Perl_pad_allocmy(aTHX_ a)
+#define allocmy(a)             Perl_allocmy(aTHX_ a)
 #endif
 #ifdef PERL_CORE
 #define pad_findmy(a)          Perl_pad_findmy(aTHX_ a)
@@ -3210,7 +3281,7 @@
 #define oopsHV(a)              Perl_oopsHV(aTHX_ a)
 #endif
 #ifdef PERL_CORE
-#define pad_leavemy(a)         Perl_pad_leavemy(aTHX_ a)
+#define pad_leavemy()          Perl_pad_leavemy(aTHX)
 #endif
 #define pad_sv(a)              Perl_pad_sv(aTHX_ a)
 #ifdef PERL_CORE
@@ -3220,7 +3291,7 @@
 #define pad_reset()            Perl_pad_reset(aTHX)
 #endif
 #ifdef PERL_CORE
-#define pad_swipe(a)           Perl_pad_swipe(aTHX_ a)
+#define pad_swipe(a,b)         Perl_pad_swipe(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
 #define peep(a)                        Perl_peep(aTHX_ a)
@@ -3257,6 +3328,7 @@
 #define set_numeric_standard() Perl_set_numeric_standard(aTHX)
 #define require_pv(a)          Perl_require_pv(aTHX_ a)
 #define pack_cat(a,b,c,d,e,f,g)        Perl_pack_cat(aTHX_ a,b,c,d,e,f,g)
+#define packlist(a,b,c,d,e)    Perl_packlist(aTHX_ a,b,c,d,e)
 #ifdef PERL_CORE
 #define pidgone(a,b)           Perl_pidgone(aTHX_ a,b)
 #endif
@@ -3324,6 +3396,7 @@
 #define savesharedpv(a)                Perl_savesharedpv(aTHX_ a)
 #define savepvn(a,b)           Perl_savepvn(aTHX_ a,b)
 #define savestack_grow()       Perl_savestack_grow(aTHX)
+#define savestack_grow_cnt(a)  Perl_savestack_grow_cnt(aTHX_ a)
 #define save_aelem(a,b,c)      Perl_save_aelem(aTHX_ a,b,c)
 #define save_alloc(a,b)                Perl_save_alloc(aTHX_ a,b)
 #define save_aptr(a)           Perl_save_aptr(aTHX_ a)
@@ -3482,6 +3555,7 @@
 #define sv_reset(a,b)          Perl_sv_reset(aTHX_ a,b)
 #define sv_vsetpvf(a,b,c)      Perl_sv_vsetpvf(aTHX_ a,b,c)
 #define sv_setiv(a,b)          Perl_sv_setiv(aTHX_ a,b)
+#define sv_setpviv(a,b)                Perl_sv_setpviv(aTHX_ a,b)
 #define sv_setuv(a,b)          Perl_sv_setuv(aTHX_ a,b)
 #define sv_setnv(a,b)          Perl_sv_setnv(aTHX_ a,b)
 #define sv_setref_iv(a,b,c)    Perl_sv_setref_iv(aTHX_ a,b,c)
@@ -3518,6 +3592,7 @@
 #define unlock_condpair(a)     Perl_unlock_condpair(aTHX_ a)
 #endif
 #define unpack_str(a,b,c,d,e,f,g,h)    Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h)
+#define unpackstring(a,b,c,d,e)        Perl_unpackstring(aTHX_ a,b,c,d,e)
 #define unsharepvn(a,b,c)      Perl_unsharepvn(aTHX_ a,b,c)
 #ifdef PERL_CORE
 #define unshare_hek(a)         Perl_unshare_hek(aTHX_ a)
@@ -3606,6 +3681,7 @@
 #define sv_catsv_mg(a,b)       Perl_sv_catsv_mg(aTHX_ a,b)
 #define sv_vsetpvf_mg(a,b,c)   Perl_sv_vsetpvf_mg(aTHX_ a,b,c)
 #define sv_setiv_mg(a,b)       Perl_sv_setiv_mg(aTHX_ a,b)
+#define sv_setpviv_mg(a,b)     Perl_sv_setpviv_mg(aTHX_ a,b)
 #define sv_setuv_mg(a,b)       Perl_sv_setuv_mg(aTHX_ a,b)
 #define sv_setnv_mg(a,b)       Perl_sv_setnv_mg(aTHX_ a,b)
 #define sv_setpv_mg(a,b)       Perl_sv_setpv_mg(aTHX_ a,b)
@@ -3792,12 +3868,6 @@
 #define too_many_arguments(a,b)        S_too_many_arguments(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
-#define pad_addlex(a)          S_pad_addlex(aTHX_ a)
-#endif
-#ifdef PERL_CORE
-#define pad_findlex(a,b,c,d,e,f,g)     S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
-#endif
-#ifdef PERL_CORE
 #define newDEFSVOP()           S_newDEFSVOP(aTHX)
 #endif
 #ifdef PERL_CORE
@@ -3812,14 +3882,6 @@
 #ifdef PERL_CORE
 #define gv_ename(a)            S_gv_ename(aTHX_ a)
 #endif
-#  if defined(DEBUG_CLOSURES)
-#ifdef PERL_CORE
-#define cv_dump(a)             S_cv_dump(aTHX_ a)
-#endif
-#  endif
-#ifdef PERL_CORE
-#define cv_clone2(a,b)         S_cv_clone2(aTHX_ a,b)
-#endif
 #ifdef PERL_CORE
 #define scalar_mod_type(a,b)   S_scalar_mod_type(aTHX_ a,b)
 #endif
@@ -3937,28 +3999,34 @@
 #endif
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
-#define doencodes(a,b,c)       S_doencodes(aTHX_ a,b,c)
+#define unpack_rec(a,b,c,d,e)  S_unpack_rec(aTHX_ a,b,c,d,e)
+#endif
+#ifdef PERL_CORE
+#define pack_rec(a,b,c,d)      S_pack_rec(aTHX_ a,b,c,d)
 #endif
 #ifdef PERL_CORE
 #define mul128(a,b)            S_mul128(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
-#define is_an_int(a,b)         S_is_an_int(aTHX_ a,b)
+#define measure_struct(a)      S_measure_struct(aTHX_ a)
 #endif
 #ifdef PERL_CORE
-#define div128(a,b)            S_div128(aTHX_ a,b)
+#define group_end(a,b,c)       S_group_end(aTHX_ a,b,c)
 #endif
 #ifdef PERL_CORE
-#define next_symbol(a,b)       S_next_symbol(aTHX_ a,b)
+#define get_num(a,b)           S_get_num(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
-#define find_count(a,b,c)      S_find_count(aTHX_ a,b,c)
+#define next_symbol(a)         S_next_symbol(aTHX_ a)
 #endif
 #ifdef PERL_CORE
-#define group_end(a,b,c)       S_group_end(aTHX_ a,b,c)
+#define doencodes(a,b,c)       S_doencodes(aTHX_ a,b,c)
 #endif
 #ifdef PERL_CORE
-#define measure_struct(a,b)    S_measure_struct(aTHX_ a,b)
+#define is_an_int(a,b)         S_is_an_int(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
+#define div128(a,b)            S_div128(aTHX_ a,b)
 #endif
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
@@ -3998,10 +4066,10 @@
 #define save_lines(a,b)                S_save_lines(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
-#define doeval(a,b)            S_doeval(aTHX_ a,b)
+#define doeval(a,b,c,d)                S_doeval(aTHX_ a,b,c,d)
 #endif
 #ifdef PERL_CORE
-#define doopen_pmc(a,b)                S_doopen_pmc(aTHX_ a,b)
+#define doopen_pm(a,b)         S_doopen_pm(aTHX_ a,b)
 #endif
 #ifdef PERL_CORE
 #define path_is_absolute(a)    S_path_is_absolute(aTHX_ a)
@@ -4488,6 +4556,11 @@
 #define mess_alloc()           S_mess_alloc(aTHX)
 #endif
 #endif
+#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define mulexp10               S_mulexp10
+#endif
+#endif
 #define sv_setsv_flags(a,b,c)  Perl_sv_setsv_flags(aTHX_ a,b,c)
 #define sv_catpvn_flags(a,b,c,d)       Perl_sv_catpvn_flags(aTHX_ a,b,c,d)
 #define sv_catsv_flags(a,b,c)  Perl_sv_catsv_flags(aTHX_ a,b,c)
@@ -4521,6 +4594,68 @@
 #define PerlIO_stdout()                Perl_PerlIO_stdout(aTHX)
 #define PerlIO_stderr()                Perl_PerlIO_stderr(aTHX)
 #endif /* PERLIO_LAYERS */
+#ifdef PERL_CORE
+#define deb_stack_all()                Perl_deb_stack_all(aTHX)
+#endif
+#ifdef PERL_IN_DEB_C
+#ifdef PERL_CORE
+#define deb_stack_n(a,b,c,d,e) S_deb_stack_n(aTHX_ a,b,c,d,e)
+#endif
+#endif
+#ifdef PERL_CORE
+#define pad_new(a)             Perl_pad_new(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define pad_undef(a)           Perl_pad_undef(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define pad_add_name(a,b,c,d)  Perl_pad_add_name(aTHX_ a,b,c,d)
+#endif
+#ifdef PERL_CORE
+#define pad_add_anon(a,b)      Perl_pad_add_anon(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
+#define pad_check_dup(a,b,c)   Perl_pad_check_dup(aTHX_ a,b,c)
+#endif
+#ifdef DEBUGGING
+#ifdef PERL_CORE
+#define pad_setsv(a,b)         Perl_pad_setsv(aTHX_ a,b)
+#endif
+#endif
+#ifdef PERL_CORE
+#define pad_block_start(a)     Perl_pad_block_start(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define pad_tidy(a)            Perl_pad_tidy(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define do_dump_pad(a,b,c,d)   Perl_do_dump_pad(aTHX_ a,b,c,d)
+#endif
+#ifdef PERL_CORE
+#define pad_fixup_inner_anons(a,b,c)   Perl_pad_fixup_inner_anons(aTHX_ a,b,c)
+#endif
+#ifdef PERL_CORE
+#define pad_push(a,b,c)                Perl_pad_push(aTHX_ a,b,c)
+#endif
+#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
+#define pad_findlex(a,b,c)     S_pad_findlex(aTHX_ a,b,c)
+#endif
+#  if defined(DEBUGGING)
+#ifdef PERL_CORE
+#define cv_dump(a,b)           S_cv_dump(aTHX_ a,b)
+#endif
+#  endif
+#ifdef PERL_CORE
+#define cv_clone2(a,b)         S_cv_clone2(aTHX_ a,b)
+#endif
+#endif
+#ifdef PERL_CORE
+#define find_runcv(a)          Perl_find_runcv(aTHX_ a)
+#endif
+#ifdef PERL_CORE
+#define free_tied_hv_pool()    Perl_free_tied_hv_pool(aTHX)
+#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)