commit bd6208b7126888826b1246bbe06c166afd177516
author Werner Lemberg <wl@gnu.org> Wed Mar 08 10:49:42 2023 +0100
committer Werner Lemberg <wl@gnu.org> Wed Mar 08 10:49:42 2023 +0100
tree 0833c4e5f1fcd29cece0e0c3067e60afbd678d9d
parent d5c6b948acbce11f0c4bd1989d2e6261586279e3

apinames.c: Add comment.

src/tools/apinames.c

diff --git a/src/tools/apinames.c b/src/tools/apinames.c
index 8c395ae..dfa258f 100644
--- a/src/tools/apinames.c
+++ b/src/tools/apinames.c
@@ -227,8 +227,9 @@
         panic( "could not shorten name '%s'", the_names[nn].name );
       fprintf( out, "symbol_vector = ( %s = PROCEDURE)\n", short_symbol );
 
+      /* Also emit a 64-bit symbol, as created by the `vms_auto64` tool. */
+      /* It has the string '64__' appended to its name.                  */
       strcat( the_names[nn].name , "64__" );
-
       if ( vms_shorten_symbol( the_names[nn].name, short_symbol, 1 ) == -1 )
         panic( "could not shorten name '%s'", the_names[nn].name );
       fprintf( out, "symbol_vector = ( %s = PROCEDURE)\n", short_symbol );