Minor bugfixes.
This commit is contained in:
parent
0c61028734
commit
ad00529bd8
|
@ -26,13 +26,9 @@ ULONGLONG
|
|||
|
||||
%ptr
|
||||
|
||||
CHAR *
|
||||
DWORD *
|
||||
LPCVOID
|
||||
LPDWORD *
|
||||
LPINT
|
||||
LPTHREAD_START_ROUTINE
|
||||
LPVOID
|
||||
MSVCRT__INITTERMFUN *
|
||||
MSVCRT_EXCEPTION_FRAME *
|
||||
MSVCRT_FILE *
|
||||
|
|
|
@ -35,6 +35,7 @@ WORD
|
|||
|
||||
int
|
||||
short
|
||||
signed char
|
||||
unsigned int
|
||||
|
||||
%ptr
|
||||
|
|
|
@ -3,13 +3,15 @@
|
|||
BOOL
|
||||
BYTE
|
||||
HANDLE
|
||||
INT
|
||||
UINT
|
||||
WORD
|
||||
int
|
||||
|
||||
|
||||
%ptr
|
||||
|
||||
CONTEXT86 *
|
||||
DOSRELAY
|
||||
LPDOSTASK
|
||||
LPVOID
|
||||
|
||||
|
|
|
@ -351,7 +351,7 @@ sub parse_spec_file {
|
|||
} elsif($$function_module{$internal_name} !~ /$module/) {
|
||||
$$function_module{$internal_name} .= " & $module";
|
||||
}
|
||||
} elsif(/^(\d+|@)\s+forward\s+(\S+)\s+(\S+)\.(\S+)$/) {
|
||||
} elsif(/^(\d+|@)\s+forward(?:\s+(?:-noimport|-norelay|-i386|-ret64))?\s+(\S+)\s+(\S+)\.(\S+)$/) {
|
||||
$ordinal = $1;
|
||||
|
||||
my $external_name = $2;
|
||||
|
|
|
@ -148,6 +148,8 @@ my %includes;
|
|||
my $header = $1;
|
||||
if(-e "$file_dir/$header") {
|
||||
$includes{$file}{includes}{"$file_dir/$header"}++;
|
||||
} elsif(-e "$file_dir/../$header") { # FIXME: This is not correct
|
||||
$includes{$file}{includes}{"$file_dir/../$header"}++; # FIXME: This is not correct
|
||||
} elsif(-e "$wine_dir/include/$header") {
|
||||
$includes{$file}{includes}{"include/$header"}++;
|
||||
} else {
|
||||
|
|
|
@ -50,7 +50,7 @@ sub check_function {
|
|||
}
|
||||
|
||||
my $segmented = 0;
|
||||
if($implemented_return_kind =~ /^segptr|segstr$/) {
|
||||
if(defined($implemented_return_kind) && $implemented_return_kind =~ /^segptr|segstr$/) {
|
||||
$segmented = 1;
|
||||
}
|
||||
|
||||
|
@ -73,7 +73,7 @@ sub check_function {
|
|||
} elsif($calling_convention =~ /^VFWAPIV|WINAPIV$/) {
|
||||
$implemented_calling_convention = "varargs";
|
||||
} elsif($calling_convention =~ /^__stdcall|VFWAPI|WINAPI|CALLBACK$/) {
|
||||
if($implemented_return_kind =~ /^longlong$/) {
|
||||
if(defined($implemented_return_kind) && $implemented_return_kind =~ /^longlong$/) {
|
||||
$implemented_calling_convention = "stdcall"; # FIXME: Check entry flags
|
||||
} else {
|
||||
$implemented_calling_convention = "stdcall";
|
||||
|
|
Loading…
Reference in New Issue