Commit 0239d6bb authored by Jon Griffiths's avatar Jon Griffiths Committed by Alexandre Julliard

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

parent e29357c2
...@@ -635,9 +635,24 @@ sub process_comment ...@@ -635,9 +635,24 @@ sub process_comment
if ($comment->{COMMENT_NAME} eq "@") if ($comment->{COMMENT_NAME} eq "@")
{ {
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 # Create an implementation name
$comment->{COMMENT_NAME} = $comment->{DLL_NAME}."_".$comment->{ORDINAL}; $comment->{COMMENT_NAME} = $comment->{DLL_NAME}."_".$comment->{ORDINAL};
} }
}
my $exported_names = $spec_details->{EXPORTED_NAMES}; my $exported_names = $spec_details->{EXPORTED_NAMES};
my $export_index = $exported_names->{$comment->{COMMENT_NAME}}; my $export_index = $exported_names->{$comment->{COMMENT_NAME}};
......
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