Ensure we generate for -noname ordinals documented as '@'.

This commit is contained in:
Jon Griffiths 2003-10-01 03:05:43 +00:00 committed by Alexandre Julliard
parent e29357c2d3
commit 0239d6bb10
1 changed files with 17 additions and 2 deletions

View File

@ -635,8 +635,23 @@ sub process_comment
if ($comment->{COMMENT_NAME} eq "@")
{
# Create an implementation name
$comment->{COMMENT_NAME} = $comment->{DLL_NAME}."_".$comment->{ORDINAL};
my $found = 0;
# Find the name from the .spec file
for (@{$spec_details->{EXPORTS}})
{
if (@$_[0] eq $comment->{ORDINAL})
{
$comment->{COMMENT_NAME} = @$_[2];
$found = 1;
}
}
if ($found == 0)
{
# Create an implementation name
$comment->{COMMENT_NAME} = $comment->{DLL_NAME}."_".$comment->{ORDINAL};
}
}
my $exported_names = $spec_details->{EXPORTED_NAMES};