URL
https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 25 |
Rev 148 |
| Line 385... |
Line 385... |
for (name = sym->name; *name; ++name)
|
for (name = sym->name; *name; ++name)
|
{
|
{
|
if (*name == '$')
|
if (*name == '$')
|
return 0;
|
return 0;
|
|
|
if (*name == '.')
|
while (*name == '.')
|
{
|
{
|
/* Allow GCC cloned functions. */
|
/* Allow both nested subprograms (which end with ".NNN", where N is
|
if (strlen (name) > 7 && strncmp (name, ".clone.", 7) == 0)
|
a digit) and GCC cloned functions (which contain ".clone").
|
name += 6;
|
Allow for multiple iterations of both - apparently GCC can clone
|
|
clones and subprograms. */
|
|
int digit_seen = 0;
|
|
#define CLONE_NAME ".clone."
|
|
#define CLONE_NAME_LEN strlen (CLONE_NAME)
|
|
|
/* Do not discard nested subprograms (those
|
if (strlen (name) > CLONE_NAME_LEN
|
which end with .NNN, where N are digits). */
|
&& strncmp (name, CLONE_NAME, CLONE_NAME_LEN) == 0)
|
for (name++; *name; name++)
|
name += CLONE_NAME_LEN - 1;
|
if (! ISDIGIT (*name))
|
|
return 0;
|
|
|
|
|
for (name++; *name; name++)
|
|
if (digit_seen && *name == '.')
|
break;
|
break;
|
|
else if (ISDIGIT (*name))
|
|
digit_seen = 1;
|
|
else
|
|
return 0;
|
}
|
}
|
}
|
}
|
|
|
/* On systems where the C compiler adds an underscore to all
|
/* On systems where the C compiler adds an underscore to all
|
names, static names without underscores seem usually to be
|
names, static names without underscores seem usually to be
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.