This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Silence HP-UX compiler warning
[perl5.git] / regen / embed.pl
index 07438de..3db9c41 100755 (executable)
@@ -206,10 +206,6 @@ my ($embed, $core, $ext, $api) = setup_embed();
                                    $prefix, $pat, $args;
            }
        }
-       if ( @nonnull ) {
-           my @pos = map { $has_context ? "pTHX_$_" : $_ } @nonnull;
-           push @attrs, map { sprintf( "__attribute__nonnull__(%s)", $_ ) } @pos;
-       }
        if ( @attrs ) {
            $ret .= "\n";
            $ret .= join( "\n", map { "\t\t\t$_" } @attrs );