From 0239d6bb10afbafc21f8875c5d1b9ba81748fd5a Mon Sep 17 00:00:00 2001
From: Jon Griffiths <jon_p_griffiths@yahoo.com>
Date: Wed, 1 Oct 2003 03:05:43 +0000
Subject: [PATCH] Ensure we generate for -noname ordinals documented as '@'.

---
 tools/c2man.pl | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/tools/c2man.pl b/tools/c2man.pl
index 601b6580d60..0dab3bf5ca6 100755
--- a/tools/c2man.pl
+++ b/tools/c2man.pl
@@ -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};