diff options
| author | David Carlton <carlton@bactrian.org> | 2004-01-26 19:11:55 +0000 |
|---|---|---|
| committer | David Carlton <carlton@bactrian.org> | 2004-01-26 19:11:55 +0000 |
| commit | feff3e492f1aff01b62a61e38e20fc7e8fc89946 (patch) | |
| tree | 08c456fb63098f7b46e1dfa74746c8ab87a74e8c /bfd/peicode.h | |
| parent | aa0e88e3d758559942e192f3075a3edc0b2f222d (diff) | |
| download | binutils-carlton_dictionary-branch.zip binutils-carlton_dictionary-branch.tar.gz binutils-carlton_dictionary-branch.tar.bz2 | |
2004-01-26 David Carlton <carlton@kealia.com>carlton_dictionary-branch
* Merge with mainline; tag is carlton_dictionary-20040126-merge.
Diffstat (limited to 'bfd/peicode.h')
| -rw-r--r-- | bfd/peicode.h | 38 |
1 files changed, 34 insertions, 4 deletions
diff --git a/bfd/peicode.h b/bfd/peicode.h index 41fcbbc..41445e5 100644 --- a/bfd/peicode.h +++ b/bfd/peicode.h @@ -902,10 +902,40 @@ pe_ILF_build_a_bfd (bfd * abfd, symbol = symbol_name; if (import_name_type != IMPORT_NAME) - /* Skip any prefix in symbol_name. */ - while (*symbol == '@' || * symbol == '?' || * symbol == '_') - ++ symbol; - + { + bfd_boolean skipped_leading_underscore = FALSE; + bfd_boolean skipped_leading_at = FALSE; + bfd_boolean skipped_leading_question_mark = FALSE; + bfd_boolean check_again; + + /* Skip any prefix in symbol_name. */ + -- symbol; + do + { + check_again = FALSE; + ++ symbol; + + switch (*symbol) + { + case '@': + if (! skipped_leading_at) + check_again = skipped_leading_at = TRUE; + break; + case '?': + if (! skipped_leading_question_mark) + check_again = skipped_leading_question_mark = TRUE; + break; + case '_': + if (! skipped_leading_underscore) + check_again = skipped_leading_underscore = TRUE; + break; + default: + break; + } + } + while (check_again); + } + if (import_name_type == IMPORT_NAME_UNDECORATE) { /* Truncate at the first '@' */ |