Rework the perldata vXX => ... entry a bit.

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index 8793f64..951ff7b 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1,7 +1,8 @@
 /*
  *    embed.h
  *
- *    Copyright (c) 1997-2003, 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.
@@ -28,6 +29,7 @@
 
 #if defined(PERL_IMPLICIT_SYS)
 #endif
+#define doing_taint            Perl_doing_taint
 #if defined(USE_ITHREADS)
 #  if defined(PERL_IMPLICIT_SYS)
 #  endif
@@ -807,6 +809,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
@@ -874,6 +877,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
@@ -954,6 +958,9 @@
 #ifdef PERL_CORE
 #define sighandler             Perl_sighandler
 #endif
+#ifdef PERL_CORE
+#define csighandler            Perl_csighandler
+#endif
 #define stack_grow             Perl_stack_grow
 #define start_subparse         Perl_start_subparse
 #ifdef PERL_CORE
@@ -1068,6 +1075,7 @@
 #define unlnk                  Perl_unlnk
 #endif
 #define unpack_str             Perl_unpack_str
+#define unpackstring           Perl_unpackstring
 #define unsharepvn             Perl_unsharepvn
 #ifdef PERL_CORE
 #define unshare_hek            Perl_unshare_hek
@@ -1106,6 +1114,9 @@
 #define parse_unicode_opts     Perl_parse_unicode_opts
 #endif
 #ifdef PERL_CORE
+#define seed                   Perl_seed
+#endif
+#ifdef PERL_CORE
 #define report_evil_fh         Perl_report_evil_fh
 #endif
 #ifdef PERL_CORE
@@ -1120,6 +1131,9 @@
 #endif
 #define whichsig               Perl_whichsig
 #ifdef PERL_CORE
+#define write_to_stderr                Perl_write_to_stderr
+#endif
+#ifdef PERL_CORE
 #define yyerror                        Perl_yyerror
 #endif
 #ifdef USE_PURE_BISON
@@ -1463,9 +1477,6 @@
 #ifdef PERL_CORE
 #define refto                  S_refto
 #endif
-#ifdef PERL_CORE
-#define seed                   S_seed
-#endif
 #endif
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
@@ -1539,7 +1550,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
@@ -2029,6 +2040,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
@@ -2119,12 +2135,17 @@
 #define cv_dump                        S_cv_dump
 #endif
 #  endif
+#endif
 #ifdef PERL_CORE
-#define cv_clone2              S_cv_clone2
+#define find_runcv             Perl_find_runcv
 #endif
+#ifdef PERL_CORE
+#define free_tied_hv_pool      Perl_free_tied_hv_pool
 #endif
+#if defined(DEBUGGING)
 #ifdef PERL_CORE
-#define find_runcv             Perl_find_runcv
+#define get_debug_opts         Perl_get_debug_opts
+#endif
 #endif
 #define ck_anoncode            Perl_ck_anoncode
 #define ck_bitop               Perl_ck_bitop
@@ -2519,6 +2540,7 @@
 
 #if defined(PERL_IMPLICIT_SYS)
 #endif
+#define doing_taint            Perl_doing_taint
 #if defined(USE_ITHREADS)
 #  if defined(PERL_IMPLICIT_SYS)
 #  endif
@@ -3277,6 +3299,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
@@ -3344,6 +3367,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)
@@ -3424,6 +3448,9 @@
 #ifdef PERL_CORE
 #define sighandler             Perl_sighandler
 #endif
+#ifdef PERL_CORE
+#define csighandler            Perl_csighandler
+#endif
 #define stack_grow(a,b,c)      Perl_stack_grow(aTHX_ a,b,c)
 #define start_subparse(a,b)    Perl_start_subparse(aTHX_ a,b)
 #ifdef PERL_CORE
@@ -3538,6 +3565,7 @@
 #define unlnk(a)               Perl_unlnk(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)
@@ -3576,6 +3604,9 @@
 #define parse_unicode_opts(a)  Perl_parse_unicode_opts(aTHX_ a)
 #endif
 #ifdef PERL_CORE
+#define seed()                 Perl_seed(aTHX)
+#endif
+#ifdef PERL_CORE
 #define report_evil_fh(a,b,c)  Perl_report_evil_fh(aTHX_ a,b,c)
 #endif
 #ifdef PERL_CORE
@@ -3588,6 +3619,9 @@
 #endif
 #define whichsig(a)            Perl_whichsig(aTHX_ a)
 #ifdef PERL_CORE
+#define write_to_stderr(a,b)   Perl_write_to_stderr(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
 #define yyerror(a)             Perl_yyerror(aTHX_ a)
 #endif
 #ifdef USE_PURE_BISON
@@ -3927,9 +3961,6 @@
 #ifdef PERL_CORE
 #define refto(a)               S_refto(aTHX_ a)
 #endif
-#ifdef PERL_CORE
-#define seed()                 S_seed(aTHX)
-#endif
 #endif
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
@@ -4003,7 +4034,7 @@
 #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)
@@ -4492,6 +4523,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)
@@ -4575,19 +4611,24 @@
 #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)
+#define pad_findlex(a,b,c,d,e,f,g)     S_pad_findlex(aTHX_ a,b,c,d,e,f,g)
 #endif
 #  if defined(DEBUGGING)
 #ifdef PERL_CORE
 #define cv_dump(a,b)           S_cv_dump(aTHX_ a,b)
 #endif
 #  endif
+#endif
 #ifdef PERL_CORE
-#define cv_clone2(a,b)         S_cv_clone2(aTHX_ a,b)
+#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
+#if defined(DEBUGGING)
 #ifdef PERL_CORE
-#define find_runcv(a)          Perl_find_runcv(aTHX_ a)
+#define get_debug_opts(a)      Perl_get_debug_opts(aTHX_ a)
+#endif
 #endif
 #define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
 #define ck_bitop(a)            Perl_ck_bitop(aTHX_ a)