Commit 0c3e654b authored by Hans Leidekker's avatar Hans Leidekker Committed by Alexandre Julliard

Make winapi_check handle spec files where no handler is specified.

parent 2d5cf553
...@@ -271,7 +271,7 @@ sub parse_spec_file { ...@@ -271,7 +271,7 @@ sub parse_spec_file {
my $ordinal; my $ordinal;
if(/^(\d+|@)\s+ if(/^(\d+|@)\s+
(pascal|pascal16|stdcall|cdecl|varargs)\s+ (pascal|pascal16|stdcall|cdecl|varargs)\s+
((?:(?:-noimport|-noname|-norelay|-i386|-ret64|-register|-interrupt)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S+)$/x) ((?:(?:-noimport|-noname|-norelay|-i386|-ret64|-register|-interrupt)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
{ {
my $calling_convention = $2; my $calling_convention = $2;
my $flags = $3; my $flags = $3;
...@@ -440,7 +440,7 @@ sub parse_spec_file { ...@@ -440,7 +440,7 @@ sub parse_spec_file {
$$module_external_calling_convention{$module}{"\@$ordinal"} = "forward"; $$module_external_calling_convention{$module}{"\@$ordinal"} = "forward";
} }
$$function_forward{$module}{$external_name} = [$forward_module, $forward_name]; $$function_forward{$module}{$external_name} = [$forward_module, $forward_name];
} elsif(/^(\d+|@)\s+extern\s+(\S+)\s+(\S+)$/) { } elsif(/^(\d+|@)\s+extern\s+(\S+)\s*(\S*)$/) {
$ordinal = $1; $ordinal = $1;
my $external_name = $2; my $external_name = $2;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment