if ( $flags =~ /r/ ) {
push @attrs, "__attribute__noreturn__";
}
+ if ( $flags =~ /D/ ) {
+ push @attrs, "__attribute__deprecated__";
+ }
if ( $is_malloc ) {
push @attrs, "__attribute__malloc__";
}
END
for $sym (sort keys %intrp) {
- next if $sym eq 'bitcount';
print $em multon($sym,'I','vTHX->');
}