# New Ticket Created by NotFound # Please include the string: [perl #55358] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=55358 >
The static function get_op is declared but not defined in several files, because the declaration is unconditionally generated in Ops2c/Utils.pm This patch fixes the issue, allowing a cleaner build when the warning -Wunused-function is used. -- Salu2
Index: lib/Parrot/Ops2c/Utils.pm =================================================================== --- lib/Parrot/Ops2c/Utils.pm (revisión: 28110) +++ lib/Parrot/Ops2c/Utils.pm (copia de trabajo) @@ -560,10 +560,14 @@ $self->{defines} +END_C + + if ( $self->{suffix} eq '' && !$self->{flag}->{dynamic} ) { + print $fh <<END_C_2; static int get_op(const char * name, int full); -END_C - +END_C_2 + } my $text = $self->{ops}->preamble( $self->{trans} ); $text =~ s/\bops_addr\b/$self->{bs}ops_addr/g; print $fh $text;