Change 30716 by [EMAIL PROTECTED] on 2007/03/23 11:41:58
Subject: symbol-exports needed for Data::Alias
From: Matthijs van Duin <[EMAIL PROTECTED]>
Date: Tue, 20 Mar 2007 14:59:15 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/embed.fnc#472 edit
... //depot/perl/embed.h#673 edit
... //depot/perl/global.sym#329 edit
Differences ...
==== //depot/perl/embed.fnc#472 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#471~30678~ 2007-03-22 02:01:37.000000000 -0700
+++ perl/embed.fnc 2007-03-23 04:41:58.000000000 -0700
@@ -108,7 +108,7 @@
Apd |SV* |av_pop |NN AV* ar
ApdoxM |void |av_create_and_push|NN AV **const avp|NN SV *const val
Apd |void |av_push |NN AV* ar|NN SV* val
-p |void |av_reify |NN AV* ar
+EXp |void |av_reify |NN AV* ar
ApdR |SV* |av_shift |NN AV* ar
Apd |SV** |av_store |NN AV* ar|I32 key|NULLOK SV* val
Apd |void |av_undef |NN AV* ar
@@ -402,10 +402,10 @@
p |OP* |jmaybe |NN OP* arg
pP |I32 |keyword |NN const char* d|I32 len|bool all_keywords
Ap |void |leave_scope |I32 base
-p |void |lex_end
+EXp |void |lex_end
p |void |lex_start |NULLOK SV* line
Ap |void |op_null |NN OP* o
-p |void |op_clear |NN OP* o
+EXp |void |op_clear |NN OP* o
Ap |void |op_refcnt_lock
Ap |void |op_refcnt_unlock
p |OP* |linklist |NN OP* o
@@ -478,7 +478,7 @@
#endif
Afp |SV* |mess |NN const char* pat|...
Ap |SV* |vmess |NN const char* pat|NULLOK va_list* args
-p |void |qerror |NN SV* err
+EXp |void |qerror |NN SV* err
Apd |void |sortsv |NN SV** array|size_t num_elts|NN SVCOMPARE_t
cmp
Apd |void |sortsv_flags |NN SV** array|size_t num_elts|NN SVCOMPARE_t
cmp|U32 flags
Apd |int |mg_clear |NN SV* sv
@@ -492,7 +492,7 @@
Apd |int |mg_set |NN SV* sv
Ap |I32 |mg_size |NN SV* sv
Ap |void |mini_mktime |NN struct tm *pm
-p |OP* |mod |NULLOK OP* o|I32 type
+EXp |OP* |mod |NULLOK OP* o|I32 type
p |int |mode_from_discipline|NULLOK SV* discp
Ap |char* |moreswitches |NN char* s
p |OP* |my |NN OP* o
@@ -771,7 +771,7 @@
#if !defined(VMS)
p |I32 |setenv_getix |NN const char* nam
#endif
-p |void |setdefout |NULLOK GV* gv
+EXp |void |setdefout |NULLOK GV* gv
Ap |HEK* |share_hek |NN const char* str|I32 len|U32 hash
#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
np |Signal_t |sighandler |int sig|...
@@ -951,7 +951,7 @@
Apd |U8* |uvuni_to_utf8_flags |NN U8 *d|UV uv|UV flags
Apd |char* |pv_uni_display |NN SV *dsv|NN const U8 *spv|STRLEN len|STRLEN
pvlim|UV flags
ApdR |char* |sv_uni_display |NN SV *dsv|NN SV *ssv|STRLEN pvlim|UV flags
-p |void |vivify_defelem |NN SV* sv
+EXp |void |vivify_defelem |NN SV* sv
p |void |vivify_ref |NN SV* sv|U32 to_what
p |I32 |wait4pid |Pid_t pid|NN int* statusp|int flags
p |U32 |parse_unicode_opts|NN const char **popt
@@ -967,7 +967,7 @@
Ap |I32 |whichsig |NN const char* sig
p |void |write_to_stderr|NN const char* message|int msglen
p |int |yyerror |NN const char* s
-p |int |yylex
+EXp |int |yylex
p |int |yyparse
p |void |parser_free |NN const yy_parser *
p |int |yywarn |NN const char* s
==== //depot/perl/embed.h#673 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#672~30678~ 2007-03-22 02:01:37.000000000 -0700
+++ perl/embed.h 2007-03-23 04:41:58.000000000 -0700
@@ -64,7 +64,7 @@
#define av_make Perl_av_make
#define av_pop Perl_av_pop
#define av_push Perl_av_push
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define av_reify Perl_av_reify
#endif
#define av_shift Perl_av_shift
@@ -377,12 +377,14 @@
#define keyword Perl_keyword
#endif
#define leave_scope Perl_leave_scope
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define lex_end Perl_lex_end
+#endif
+#ifdef PERL_CORE
#define lex_start Perl_lex_start
#endif
#define op_null Perl_op_null
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define op_clear Perl_op_clear
#endif
#define op_refcnt_lock Perl_op_refcnt_lock
@@ -465,7 +467,7 @@
#endif
#define mess Perl_mess
#define vmess Perl_vmess
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define qerror Perl_qerror
#endif
#define sortsv Perl_sortsv
@@ -483,8 +485,10 @@
#define mg_set Perl_mg_set
#define mg_size Perl_mg_size
#define mini_mktime Perl_mini_mktime
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define mod Perl_mod
+#endif
+#ifdef PERL_CORE
#define mode_from_discipline Perl_mode_from_discipline
#endif
#define moreswitches Perl_moreswitches
@@ -793,7 +797,7 @@
#define setenv_getix Perl_setenv_getix
#endif
#endif
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define setdefout Perl_setdefout
#endif
#define share_hek Perl_share_hek
@@ -963,8 +967,10 @@
#define uvuni_to_utf8_flags Perl_uvuni_to_utf8_flags
#define pv_uni_display Perl_pv_uni_display
#define sv_uni_display Perl_sv_uni_display
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define vivify_defelem Perl_vivify_defelem
+#endif
+#ifdef PERL_CORE
#define vivify_ref Perl_vivify_ref
#define wait4pid Perl_wait4pid
#define parse_unicode_opts Perl_parse_unicode_opts
@@ -986,7 +992,11 @@
#ifdef PERL_CORE
#define write_to_stderr Perl_write_to_stderr
#define yyerror Perl_yyerror
+#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define yylex Perl_yylex
+#endif
+#ifdef PERL_CORE
#define yyparse Perl_yyparse
#define parser_free Perl_parser_free
#define yywarn Perl_yywarn
@@ -2297,7 +2307,7 @@
#define av_make(a,b) Perl_av_make(aTHX_ a,b)
#define av_pop(a) Perl_av_pop(aTHX_ a)
#define av_push(a,b) Perl_av_push(aTHX_ a,b)
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define av_reify(a) Perl_av_reify(aTHX_ a)
#endif
#define av_shift(a) Perl_av_shift(aTHX_ a)
@@ -2605,12 +2615,14 @@
#define keyword(a,b,c) Perl_keyword(aTHX_ a,b,c)
#endif
#define leave_scope(a) Perl_leave_scope(aTHX_ a)
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define lex_end() Perl_lex_end(aTHX)
+#endif
+#ifdef PERL_CORE
#define lex_start(a) Perl_lex_start(aTHX_ a)
#endif
#define op_null(a) Perl_op_null(aTHX_ a)
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define op_clear(a) Perl_op_clear(aTHX_ a)
#endif
#define op_refcnt_lock() Perl_op_refcnt_lock(aTHX)
@@ -2691,7 +2703,7 @@
#endif
#endif
#define vmess(a,b) Perl_vmess(aTHX_ a,b)
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define qerror(a) Perl_qerror(aTHX_ a)
#endif
#define sortsv(a,b,c) Perl_sortsv(aTHX_ a,b,c)
@@ -2709,8 +2721,10 @@
#define mg_set(a) Perl_mg_set(aTHX_ a)
#define mg_size(a) Perl_mg_size(aTHX_ a)
#define mini_mktime(a) Perl_mini_mktime(aTHX_ a)
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define mod(a,b) Perl_mod(aTHX_ a,b)
+#endif
+#ifdef PERL_CORE
#define mode_from_discipline(a) Perl_mode_from_discipline(aTHX_ a)
#endif
#define moreswitches(a) Perl_moreswitches(aTHX_ a)
@@ -3017,7 +3031,7 @@
#define setenv_getix(a) Perl_setenv_getix(aTHX_ a)
#endif
#endif
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define setdefout(a) Perl_setdefout(aTHX_ a)
#endif
#define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c)
@@ -3183,8 +3197,10 @@
#define uvuni_to_utf8_flags(a,b,c) Perl_uvuni_to_utf8_flags(aTHX_ a,b,c)
#define pv_uni_display(a,b,c,d,e) Perl_pv_uni_display(aTHX_ a,b,c,d,e)
#define sv_uni_display(a,b,c,d) Perl_sv_uni_display(aTHX_ a,b,c,d)
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define vivify_defelem(a) Perl_vivify_defelem(aTHX_ a)
+#endif
+#ifdef PERL_CORE
#define vivify_ref(a,b) Perl_vivify_ref(aTHX_ a,b)
#define wait4pid(a,b,c) Perl_wait4pid(aTHX_ a,b,c)
#define parse_unicode_opts(a) Perl_parse_unicode_opts(aTHX_ a)
@@ -3204,7 +3220,11 @@
#ifdef PERL_CORE
#define write_to_stderr(a,b) Perl_write_to_stderr(aTHX_ a,b)
#define yyerror(a) Perl_yyerror(aTHX_ a)
+#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
#define yylex() Perl_yylex(aTHX)
+#endif
+#ifdef PERL_CORE
#define yyparse() Perl_yyparse(aTHX)
#define parser_free(a) Perl_parser_free(aTHX_ a)
#define yywarn(a) Perl_yywarn(aTHX_ a)
==== //depot/perl/global.sym#329 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#328~30678~ 2007-03-22 02:01:37.000000000 -0700
+++ perl/global.sym 2007-03-23 04:41:58.000000000 -0700
@@ -45,6 +45,7 @@
Perl_av_make
Perl_av_pop
Perl_av_push
+Perl_av_reify
Perl_av_shift
Perl_av_store
Perl_av_undef
@@ -235,7 +236,9 @@
Perl_is_utf8_xdigit
Perl_is_utf8_mark
Perl_leave_scope
+Perl_lex_end
Perl_op_null
+Perl_op_clear
Perl_op_refcnt_lock
Perl_op_refcnt_unlock
Perl_load_module
@@ -249,6 +252,7 @@
Perl_markstack_grow
Perl_mess
Perl_vmess
+Perl_qerror
Perl_sortsv
Perl_sortsv_flags
Perl_mg_clear
@@ -261,6 +265,7 @@
Perl_mg_set
Perl_mg_size
Perl_mini_mktime
+Perl_mod
Perl_moreswitches
Perl_my_atof
Perl_my_bcopy
@@ -454,6 +459,7 @@
Perl_scan_num
Perl_scan_oct
Perl_screaminstr
+Perl_setdefout
Perl_share_hek
Perl_csighandler
Perl_stack_grow
@@ -582,12 +588,14 @@
Perl_uvuni_to_utf8_flags
Perl_pv_uni_display
Perl_sv_uni_display
+Perl_vivify_defelem
Perl_seed
Perl_warn
Perl_vwarn
Perl_warner
Perl_vwarner
Perl_whichsig
+Perl_yylex
Perl_dump_mstats
Perl_get_mstats
Perl_safesysmalloc
End of Patch.
