(MAYBE_VMS_FUNCTION_PROLOGUE): change _c$main_args to

uppercase instead of relying on gas to make the case translation

From-SVN: r1645
This commit is contained in:
Richard Stallman 1992-07-21 02:03:31 +00:00
parent 015712847a
commit 1d59ba6f10

View File

@ -94,13 +94,13 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define MAYBE_VMS_FUNCTION_PROLOGUE(FILE) \
{ extern char *current_function_name; \
if (!strcmp ("main", current_function_name)) \
fprintf(FILE, "\tjsb _c$main_args\n"); \
fprintf(FILE, "\tjsb _C$MAIN_ARGS\n"); \
else { \
char *p = current_function_name; \
while (*p != '\0') \
if (*p == *__MAIN_NAME) \
if (strncmp(p, __MAIN_NAME, (sizeof __MAIN_NAME)-1) == 0) {\
fprintf(FILE, "\tjsb _c$main_args\n");\
fprintf(FILE, "\tjsb _C$MAIN_ARGS\n");\
break; \
} else \
p++; \