From bd6208b7126888826b1246bbe06c166afd177516 Mon Sep 17 00:00:00 2001 From: Werner Lemberg Date: Wed, 8 Mar 2023 10:49:42 +0100 Subject: apinames.c: Add comment. --- src/tools/apinames.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/tools/apinames.c b/src/tools/apinames.c index 8c395aea3..dfa258fd7 100644 --- a/src/tools/apinames.c +++ b/src/tools/apinames.c @@ -227,8 +227,9 @@ names_dump( FILE* out, 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 ); -- cgit v1.2.1