tools: Preserve ordinal when updating specfiles.

This commit is contained in:
André Hentschel 2011-06-23 00:02:30 +02:00 committed by Alexandre Julliard
parent 84d68639be
commit ed3a276591
1 changed files with 2 additions and 2 deletions

View File

@ -214,7 +214,7 @@ sub update_spec_file($)
{
my $callconv = $parent{callconv} ne "stub" ? $parent{callconv} :
$parent{spec} =~ /msvc/ ? "cdecl" : "stdcall"; # hack
$_ = sprintf "@ %s %s%s", $callconv, $flags, $func;
$_ = sprintf "$descr{ordinal} %s %s%s", $callconv, $flags, $func;
if ($parent{target} =~ /$group_head\./) # use the same forward as parent if possible
{
@ -227,7 +227,7 @@ sub update_spec_file($)
}
else
{
$_ = sprintf "@ stub %s%s", $flags, $func;
$_ = sprintf "$descr{ordinal} stub %s%s", $flags, $func;
}
$_ .= $descr{comment} || "";