system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-10-04 21:17:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

winapi_check: Extend support for '-arch=xxx' in spec files.

Browse source
This commit is contained in:
Francois Gouget 2008-12-17 10:28:29 +01:00 committed by Alexandre Julliard
parent cf7c8a2425
commit 5e3e05e043
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tools/winapi/winapi.pm
View file

@ -279,9 +279,10 @@ sub parse_spec_file($$) {
}
my $ordinal;
my $ARCHES="alpha|i386|powerpc|sparc|x86_64";
if(/^(\d+|@)\s+
(pascal|stdcall|cdecl|varargs)\s+
((?:(?:-arch=(?:i386|x86_64)|-noname|-norelay|-i386|-ret16|-ret64|-register|-interrupt|-private)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
((?:(?:-arch=(?:$ARCHES)(?:,(?:$ARCHES))*|-noname|-norelay|-i386|-ret16|-ret64|-register|-interrupt|-private)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
{
my $calling_convention = $2;
my $flags = $3;
@ -396,7 +397,7 @@ sub parse_spec_file($$) {
}
}
}
} elsif(/^(\d+|@)\s+stub(?:\s+(-noname|-norelay|-i386|-ret16|-ret64|-private))?\s+(\S+)$/) {
} elsif(/^(\d+|@)\s+stub(?:\s+(-arch=(?:$ARCHES)(?:,(?:$ARCHES))*|-noname|-norelay|-i386|-ret16|-ret64|-private))?\s+(\S+)$/) {
$ordinal = $1;
my $flags = $2;