* alpha.md (call_vms, call_value_vms): Strip leading * from symbol.

From-SVN: r20703
This commit is contained in:
Klaus Kaempf 1998-06-24 17:55:03 +00:00 committed by Richard Henderson
parent bc57e97056
commit a59fb7979d
2 changed files with 14 additions and 4 deletions

View File

@ -1,3 +1,7 @@
Wed Jun 24 17:55:15 1998 Klaus Kaempf <kkaempf@progis.de>
* alpha.md (call_vms, call_value_vms): Strip leading * from symbol.
Wed Jun 24 16:27:23 1998 John Carr <jfc@mit.edu>
* expr.c (get_memory_rtx): New function.

View File

@ -3553,10 +3553,13 @@
if (GET_CODE (operands[0]) == SYMBOL_REF)
{
extern char *savealloc ();
char *symbol = XSTR (operands[0], 0);
char *linksym = savealloc (strlen (symbol) + 6);
char *linksym, *symbol = XSTR (operands[0], 0);
rtx linkage;
if (*symbol == '*')
symbol++;
linksym = savealloc (strlen (symbol) + 6);
alpha_need_linkage (symbol, 0);
linksym[0] = '$';
@ -3658,10 +3661,13 @@
if (GET_CODE (operands[1]) == SYMBOL_REF)
{
extern char *savealloc ();
char *symbol = XSTR (operands[1], 0);
char *linksym = savealloc (strlen (symbol) + 6);
char *linksym, *symbol = XSTR (operands[1], 0);
rtx linkage;
if (*symbol == '*')
symbol++;
linksym = savealloc (strlen (symbol) + 6);
alpha_need_linkage (symbol, 0);
linksym[0] = '$';
strcpy (linksym+1, symbol);