Commit 7aa0f3c4 authored by Francois Gouget's avatar Francois Gouget Committed by Alexandre Julliard

Update winapi and c2man so they know about -ret16. Remove support for

the obsolete pascal16 and -noimport. Update modules.dat so winapi knows about the new dlls.
parent 4db578fa
......@@ -252,11 +252,11 @@ sub process_spec_file
for ($call_convention)
{
/^(cdecl|stdcall|varargs|pascal|pascal16)$/
/^(cdecl|stdcall|varargs|pascal)$/
&& do { $spec_details->{NUM_FUNCS}++; last; };
/^(variable|equate)$/
&& do { $spec_details->{NUM_VARS}++; last; };
/^(forward|extern)$/
/^(extern)$/
&& do { $spec_details->{NUM_FORWARDS}++; last; };
/^stub$/ && do { $spec_details->{NUM_STUBS}++; last; };
if ($opt_verbose > 0)
......
......@@ -49,10 +49,10 @@ sub import {
my @spec_files16 = $modules->allowed_spec_files16;
$win16api = 'winapi'->new("win16", \@spec_files16);
my @spec_files32 = $modules->allowed_spec_files32;
$win32api = 'winapi'->new("win32", \@spec_files32);
@winapis = ($win16api, $win32api);
for my $internal_name ($win32api->all_internal_functions) {
......@@ -270,8 +270,8 @@ sub parse_spec_file {
my $ordinal;
if(/^(\d+|@)\s+
(pascal|pascal16|stdcall|cdecl|varargs)\s+
((?:(?:-noimport|-noname|-norelay|-i386|-ret64|-register|-interrupt|-private)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
(pascal|stdcall|cdecl|varargs)\s+
((?:(?:-noname|-norelay|-i386|-ret16|-ret64|-register|-interrupt|-private)\s+)*)(\S+)\s*\(\s*(.*?)\s*\)\s*(\S*)$/x)
{
my $calling_convention = $2;
my $flags = $3;
......@@ -380,7 +380,7 @@ sub parse_spec_file {
}
}
}
} elsif(/^(\d+|@)\s+stub(?:\s+(-noimport|-noname|-norelay|-i386|-ret64|-private))?\s+(\S+)$/) {
} elsif(/^(\d+|@)\s+stub(?:\s+(-noname|-norelay|-i386|-ret16|-ret64|-private))?\s+(\S+)$/) {
$ordinal = $1;
my $flags = $2;
......@@ -429,7 +429,7 @@ sub parse_spec_file {
} else { # if($$function_external_module{$external_name} !~ /$module/) {
$$function_external_module{$external_name} .= " & $module";
}
} elsif(/^(\d+|@)\s+extern(?:\s+(?:-noimport|-norelay|-i386|-ret64))?\s+(\S+)\s*(\S*)$/) {
} elsif(/^(\d+|@)\s+extern(?:\s+(?:-norelay|-i386|-ret16|-ret64))?\s+(\S+)\s*(\S*)$/) {
$ordinal = $1;
my $external_name = $2;
......
......@@ -193,7 +193,7 @@ dlls/imm32
dlls/iphlpapi
% dlls/kernel/comm.spec
% dlls/kernel/comm.drv.spec
% dlls/kernel/krnl386.exe.spec
......@@ -255,7 +255,7 @@ dlls/mswsock
dlls/kernel
% dlls/kernel/system.spec
% dlls/kernel/system.drv.spec
memory
misc
......@@ -315,6 +315,14 @@ dlls/msacm/msg711
dlls/msacm/winemp3
% dlls/mshtml/mshtml.spec
dlls/mshtml
% dlls/msi/msi.spec
dlls/msi
% dlls/msnet32/msnet32.spec
dlls/msnet32
......@@ -496,17 +504,17 @@ dlls/urlmon
dlls/user/dde
% dlls/user/display.spec
% dlls/user/display.drv.spec
dlls/user
objects
% dlls/user/keyboard.spec
% dlls/user/keyboard.drv.spec
dlls/user
windows
% dlls/user/mouse.spec
% dlls/user/mouse.drv.spec
dlls/user
......
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