diff options
Diffstat (limited to 'bfd/evax-etir.c')
| -rw-r--r-- | bfd/evax-etir.c | 61 |
1 files changed, 7 insertions, 54 deletions
diff --git a/bfd/evax-etir.c b/bfd/evax-etir.c index cb186f1..067af82 100644 --- a/bfd/evax-etir.c +++ b/bfd/evax-etir.c @@ -1121,8 +1121,6 @@ _bfd_evax_write_etir (abfd) asection *section; evax_section *sptr; int nextoffset; - char uname[200]; - char *nptr, *uptr; #if EVAX_DEBUG evax_debug (2, "evax_write_etir(%p)\n", abfd); @@ -1247,19 +1245,8 @@ _bfd_evax_write_etir (abfd) _bfd_evax_output_begin (abfd, ETIR_S_C_STO_GBL_LW, -1); - uptr = uname; - nptr = (char *)sym->name; - while (*nptr) - { - if (islower (*nptr)) - *uptr = toupper (*nptr); - else - *uptr = *nptr; - nptr++; - uptr++; - } - *uptr = 0; - _bfd_evax_output_counted (abfd, uname); + _bfd_evax_output_counted (abfd, + _bfd_evax_case_hack_symbol (abfd, sym->name)); _bfd_evax_output_flush (abfd); } else if (bfd_is_abs_section (sym->section)) @@ -1324,19 +1311,8 @@ _bfd_evax_write_etir (abfd) _bfd_evax_output_begin (abfd, ETIR_S_C_STO_GBL, -1); - uptr = uname; - nptr = (char *)sym->name; - while (*nptr) - { - if (islower (*nptr)) - *uptr = toupper (*nptr); - else - *uptr = *nptr; - nptr++; - uptr++; - } - *uptr = 0; - _bfd_evax_output_counted (abfd, uname); + _bfd_evax_output_counted (abfd, + _bfd_evax_case_hack_symbol (abfd, sym->name)); _bfd_evax_output_flush (abfd); } else if (bfd_is_abs_section (sym->section)) @@ -1397,20 +1373,8 @@ _bfd_evax_write_etir (abfd) evax_output_begin(abfd, ETIR_S_C_STO_HINT_GBL, -1); evax_output_long(abfd, (unsigned long)(sec->index)); evax_output_quad(abfd, (uquad)addr); - uptr = uname; - nptr = (char *)(*(*rptr)->sym_ptr_ptr)->name; - while (*nptr) - { - if (islower (*nptr)) - *uptr = toupper (*nptr); - else - *uptr = *nptr; - nptr++; - uptr++; - } - *uptr = 0; - evax_output_counted(abfd, uname); + evax_output_counted(abfd, _bfd_evax_case_hack_symbol (abfd, sym->name)); evax_output_flush(abfd); #endif } @@ -1447,19 +1411,8 @@ _bfd_evax_write_etir (abfd) _bfd_evax_output_long (abfd, (unsigned long)PRIV(evax_linkage_index)); PRIV(evax_linkage_index) += 2; - uptr = uname; - nptr = (char *)(*(*rptr)->sym_ptr_ptr)->name; - while (*nptr) - { - if (islower (*nptr)) - *uptr = toupper (*nptr); - else - *uptr = *nptr; - nptr++; - uptr++; - } - *uptr = 0; - _bfd_evax_output_counted (abfd, uname); + _bfd_evax_output_counted (abfd, + _bfd_evax_case_hack_symbol (abfd, sym->name)); _bfd_evax_output_byte (abfd, 0); _bfd_evax_output_flush (abfd); } |