Warn about implementing a -register function as stdcall.

This commit is contained in:
Francois Gouget 2004-10-21 20:58:13 +00:00 committed by Alexandre Julliard
parent 66b16e01d3
commit 9c26e5ba21
1 changed files with 8 additions and 1 deletions

View File

@ -156,7 +156,14 @@ sub _check_function($$$$$$) {
$declared_calling_convention = $1;
}
if($implemented_calling_convention ne $declared_calling_convention &&
if ($declared_register)
{
if ($implemented_calling_convention eq "stdcall")
{
$output->write("-register functions should not be implemented as stdcall\n");
}
}
elsif($implemented_calling_convention ne $declared_calling_convention &&
$implemented_calling_convention ne "asm" &&
!($declared_calling_convention =~ /^pascal/ && $forbidden_return_type) &&
!($implemented_calling_convention =~ /^cdecl|varargs$/ && $declared_calling_convention =~ /^cdecl|varargs$/))