Change 18370 by jhi@lyta on 2002/12/30 02:37:38
In AIX (strict symbol exports) the cxinc is needed for List::Util.
Affected files ...
... //depot/maint-5.8/perl/embed.fnc#11 edit
... //depot/maint-5.8/perl/embed.h#13 edit
... //depot/maint-5.8/perl/global.sym#8 edit
Differences ...
==== //depot/maint-5.8/perl/embed.fnc#11 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#10~18369~ Sun Dec 29 17:38:38 2002
+++ perl/embed.fnc Sun Dec 29 18:37:38 2002
@@ -151,7 +151,7 @@
p |char* |get_no_modify
p |U32* |get_opargs
Ap |PPADDR_t*|get_ppaddr
-p |I32 |cxinc
+Ap |I32 |cxinc
Afp |void |deb |const char* pat|...
Ap |void |vdeb |const char* pat|va_list* args
Ap |void |debprofdump
==== //depot/maint-5.8/perl/embed.h#13 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#12~18369~ Sun Dec 29 17:38:38 2002
+++ perl/embed.h Sun Dec 29 18:37:38 2002
@@ -151,9 +151,7 @@
#define get_opargs Perl_get_opargs
#endif
#define get_ppaddr Perl_get_ppaddr
-#ifdef PERL_CORE
#define cxinc Perl_cxinc
-#endif
#define deb Perl_deb
#define vdeb Perl_vdeb
#define debprofdump Perl_debprofdump
@@ -2590,9 +2588,7 @@
#define get_opargs() Perl_get_opargs(aTHX)
#endif
#define get_ppaddr() Perl_get_ppaddr(aTHX)
-#ifdef PERL_CORE
#define cxinc() Perl_cxinc(aTHX)
-#endif
#define vdeb(a,b) Perl_vdeb(aTHX_ a,b)
#define debprofdump() Perl_debprofdump(aTHX)
#define debop(a) Perl_debop(aTHX_ a)
==== //depot/maint-5.8/perl/global.sym#8 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#7~18347~ Sun Dec 22 22:37:31 2002
+++ perl/global.sym Sun Dec 29 18:37:38 2002
@@ -87,6 +87,7 @@
Perl_get_op_descs
Perl_get_op_names
Perl_get_ppaddr
+Perl_cxinc
Perl_deb
Perl_vdeb
Perl_debprofdump
End of Patch.
