Upgrade to Encode 1.92.

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

diff --git a/embed.h b/embed.h
index b4a4658..8793f64 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1,7 +1,7 @@
 /*
  *    embed.h
  *
- *    Copyright (c) 1997-2002, Larry Wall
+ *    Copyright (c) 1997-2003, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -1034,6 +1034,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
@@ -1156,6 +1157,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
@@ -1467,28 +1469,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)
@@ -2031,8 +2039,10 @@
 #define my_atof2               Perl_my_atof2
 #define my_socketpair          Perl_my_socketpair
 #ifdef PERL_COPY_ON_WRITE
+#ifdef PERL_CORE
 #define sv_setsv_cow           Perl_sv_setsv_cow
 #endif
+#endif
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 #define PerlIO_close           Perl_PerlIO_close
 #define PerlIO_fill            Perl_PerlIO_fill
@@ -3494,6 +3504,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)
@@ -3612,6 +3623,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)
@@ -3921,28 +3933,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)
@@ -4484,8 +4502,10 @@
 #define my_atof2(a,b)          Perl_my_atof2(aTHX_ a,b)
 #define my_socketpair          Perl_my_socketpair
 #ifdef PERL_COPY_ON_WRITE
+#ifdef PERL_CORE
 #define sv_setsv_cow(a,b)      Perl_sv_setsv_cow(aTHX_ a,b)
 #endif
+#endif
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
 #define PerlIO_close(a)                Perl_PerlIO_close(aTHX_ a)
 #define PerlIO_fill(a)         Perl_PerlIO_fill(aTHX_ a)