Commit c23a9d0e by Jason Merrill

*** empty log message ***

From-SVN: r9794
parent 16b3c7c7
...@@ -1974,17 +1974,30 @@ toc_section () \ ...@@ -1974,17 +1974,30 @@ toc_section () \
/* This outputs NAME to FILE up to the first null or '['. */ /* This outputs NAME to FILE up to the first null or '['. */
#define RS6000_OUTPUT_BASENAME(FILE, NAME) \ #define RS6000_OUTPUT_BASENAME(FILE, NAME) \
if ((NAME)[0] == '*' || (NAME)[strlen (NAME) - 1] != ']') \ { \
assemble_name (FILE, NAME); \ char *_p; \
else \
{ \
int _len = strlen (NAME); \
char *_p = alloca (_len + 1); \
\ \
strcpy (_p, NAME); \ STRIP_NAME_ENCODING (_p, (NAME)); \
_p[_len - 4] = '\0'; \ assemble_name ((FILE), _p); \
assemble_name (FILE, _p); \ }
}
/* Remove any trailing [DS] or the like from the symbol name. */
#define STRIP_NAME_ENCODING(VAR,NAME) \
do \
{ \
if ((NAME)[0] == '*' || (NAME)[strlen (NAME) - 1] != ']') \
(VAR) = (NAME); \
else \
{ \
int _len = strlen (NAME); \
(VAR) = alloca (_len + 1); \
\
strcpy ((VAR), NAME); \
(VAR)[_len - 4] = '\0'; \
} \
} \
while (0)
/* Output something to declare an external symbol to the assembler. Most /* Output something to declare an external symbol to the assembler. Most
assemblers don't need this. assemblers don't need this.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment