ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tools/c2man.pl
View File

@ -634,10 +634,25 @@ 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}};