winapi_check: Add support for the new architectures in the spec files.

[Francois Gouget]

---
 tools/winapi/winapi.pm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/winapi/winapi.pm b/tools/winapi/winapi.pm
index 4e64d2c..bc1835c 100644
--- a/tools/winapi/winapi.pm
+++ b/tools/winapi/winapi.pm
@@ -289,9 +289,9 @@ sub parse_spec_file($$) {
 	}
 
 	my $ordinal;
-	my $ARCHES="alpha|i386|powerpc|sparc|x86_64";
+	my $ARCHES="alpha|i386|powerpc|sparc|win32|win64|x86_64";
 	if(/^(\d+|@)\s+
-	   (pascal|stdcall|cdecl|varargs)\s+
+	   (cdecl|pascal|stdcall|varargs)\s+
 	   ((?:(?:-arch=(?:$ARCHES)(?:,(?:$ARCHES))*|-noname|-norelay|-i386|-ret16|-ret64|-register|-interrupt|-private)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
 	{
 	    my $calling_convention = $2;
@@ -449,7 +449,7 @@ sub parse_spec_file($$) {
 	    } else { # if($$function_external_modules{$external_name} !~ /$module/) {
 		$$function_external_modules{$external_name} .= " & $module";
 	    }
-	} elsif(/^(\d+|@)\s+extern(?:\s+(?:-norelay|-i386|-ret16|-ret64))?\s+(\S+)\s*(\S*)$/) {
+	} elsif(/^(\d+|@)\s+extern(?:\s+(?:-arch=(?:$ARCHES)(?:,(?:$ARCHES))*|-norelay|-i386|-ret16|-ret64))?\s+(\S+)\s*(\S*)$/) {
 	    $ordinal = $1;
 
 	    my $external_name = $2;
-- 
1.6.3.3