perldelta item on B::Deparse package+label fix

[perl5.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index 0287c85..9c55cb4 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -253,6 +253,9 @@ sub write_protos {
        if ( $flags =~ /r/ ) {
            push @attrs, "__attribute__noreturn__";
        }
+       if ( $flags =~ /D/ ) {
+           push @attrs, "__attribute__deprecated__";
+       }
        if ( $is_malloc ) {
            push @attrs, "__attribute__malloc__";
        }
@@ -696,7 +699,6 @@ print $em do_not_edit ("embedvar.h"), <<'END';
 END
 
 for $sym (sort keys %intrp) {
-    next if $sym eq 'bitcount';
     print $em multon($sym,'I','vTHX->');
 }