develooper Front page | perl.perl5.porters | Postings from March 2011

[PATCH 5.13.11] make store_cop_label exportable

Thread Next
From:
vadim.konovalov
Date:
March 24, 2011 01:16
Subject:
[PATCH 5.13.11] make store_cop_label exportable
Message ID:
35BF8D9716175C43BB9D67CA60CC345E2791510F@FRMRSSXCHMBSC2.dc-m.alcatel-lucent.com
Hi,

attached is actually one-bit patch - change to make "store_cop_label" exportable on systems where export symbols should be done.

Change in "global.sym" was actually just calling "perl regen.pl"

After this patch, happy users of B::C module will be even more happy, because otherwise "unresolved external function" message during compile appears.
Actually the whole karma of B::C is to have most of perl opcode functions, so most of them really should be exported.

With all my respect to current code freeze, this should be harmless one-bit patch.
(but of course I will respect rejecting this patch also, due to this code freeze :) )

Thanks in advance for listening me,
Vadim.

diff -bur perl-5.13.11-orig/embed.fnc perl-5.13.11/embed.fnc
--- perl-5.13.11-orig/embed.fnc	Sun Mar 20 22:01:18 2011
+++ perl-5.13.11/embed.fnc	Thu Mar 24 01:16:22 2011
@@ -2441,7 +2441,7 @@
 ApoM	|const char *|fetch_cop_label|NN COP *const cop \
 		|NULLOK STRLEN *len|NULLOK U32 *flags
 : Only used  in op.c
-xpoM	|void|store_cop_label \
+XpoM	|void|store_cop_label \
 		|NN COP *const cop|NN const char *label|STRLEN len|U32 flags
 
 xpo	|int	|keyword_plugin_standard|NN char* keyword_ptr|STRLEN keyword_len|NN OP** op_ptr
diff -bur perl-5.13.11-orig/global.sym perl-5.13.11/global.sym
--- perl-5.13.11-orig/global.sym	Fri Feb 18 02:06:00 2011
+++ perl-5.13.11/global.sym	Thu Mar 24 10:55:56 2011
@@ -585,6 +585,7 @@
 Perl_stack_grow
 Perl_start_subparse
 Perl_stashpv_hvname_match
+Perl_store_cop_label
 Perl_str_to_version
 Perl_sv_2bool_flags
 Perl_sv_2cv

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About