Module: wine Branch: master Commit: 8013173924cf4096432b3d29ab8e9f7293e852f9 URL: http://source.winehq.org/git/wine.git/?a=commit;h=8013173924cf4096432b3d29ab... Author: Alexandre Julliard <julliard(a)winehq.org> Date: Thu Feb 6 11:19:16 2014 +0100 make_specfiles: Don't propagate -noname flag to non-ordinal functions. --- tools/make_specfiles | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/tools/make_specfiles b/tools/make_specfiles index 1dd4533..9b9a6b6 100755 --- a/tools/make_specfiles +++ b/tools/make_specfiles @@ -223,15 +223,15 @@ sub update_file($) # parse a spec file line sub parse_line($$$) { - my ($name, $line, $_) = @_; + my ($name, $line, $str) = @_; - if (/^\s*(\@|\d+)\s+(stdcall|cdecl|varargs|thiscall|stub|extern)\s+((?:-\S+\s+)*)([A-Za-z0-9_\@\$?]+)(?:\s*(\([^)]*\)))?(?:\s+([A-Za-z0-9_\@\$?.]+))?(\s*\#.*)?/) + if ($str =~ /^\s*(\@|\d+)\s+(stdcall|cdecl|varargs|thiscall|stub|extern)\s+((?:-\S+\s+)*)([A-Za-z0-9_\@\$?]+)(?:\s*(\([^)]*\)))?(?:\s+([A-Za-z0-9_\@\$?.]+))?(\s*\#.*)?/) { return ( "ordinal" => $1, "callconv" => $2, "flags" => $3, "name" => $4, "args" => $5 || "", "target" => $6 || $4, "comment" => $7, "spec" => $name ); } - return () if /^\s*$/; - return () if /^\s*\#/; + return () if $str =~ /^\s*$/; + return () if $str =~ /^\s*\#/; printf STDERR "$name.spec:$line: error: Unrecognized line $_\n"; } @@ -300,6 +300,7 @@ sub update_spec_file($) { $flags = $parent{flags}; $flags =~ s/-ordinal\s*// if $descr{ordinal} eq "@"; + $flags =~ s/-noname\s*// if $descr{ordinal} eq "@"; if ($descr{flags} =~ /-private/) # preserve -private flag { $flags = "-private " . $flags unless $flags =~ /-private/;