Commit 4ca46fda authored by Hidenori Takeshima's avatar Hidenori Takeshima Committed by Alexandre Julliard

Fix for APIs that don't have any ordinal (ordinal=@).

parent a2053ab1
...@@ -183,7 +183,7 @@ sub parse_source ...@@ -183,7 +183,7 @@ sub parse_source
} }
elsif ($state == 3) { elsif ($state == 3) {
#extract the wine API name and DLLNAME.XXX string #extract the wine API name and DLLNAME.XXX string
if ( / *([A-Za-z_0-9]+) *\(([A-Za-z0-9_]+\.[0-9]+)\) *$/ ) { if ( / *([A-Za-z_0-9]+) *\(([A-Za-z0-9_]+\.(([0-9]+)|@))\) *$/ ) {
$apiname = $1; $apiname = $1;
$apientry = $2; $apientry = $2;
$state = 1; $state = 1;
...@@ -254,7 +254,7 @@ sub parse_spec ...@@ -254,7 +254,7 @@ sub parse_spec
if( /^rsrc/ ) { next; } if( /^rsrc/ ) { next; }
if( /^import/ ) { next; } if( /^import/ ) { next; }
if( /^\s*$/ ) { next; } if( /^\s*$/ ) { next; }
if( /^\s*([0-9]+)/ ) { if( /^\s*(([0-9]+)|@)/ ) {
s/\(.*\)//; #remove all the args s/\(.*\)//; #remove all the args
($ord,$type,$name,$func) = split( /\s+/ ); ($ord,$type,$name,$func) = split( /\s+/ );
if(( $type eq "stub" ) || ($type eq "forward")) {next;} if(( $type eq "stub" ) || ($type eq "forward")) {next;}
......
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