| /* BFD backend for Extended Tektronix Hex Format objects. |
| Copyright (C) 1992-2021 Free Software Foundation, Inc. |
| Written by Steve Chamberlain of Cygnus Support <sac@cygnus.com>. |
| |
| This file is part of BFD, the Binary File Descriptor library. |
| |
| This program is free software; you can redistribute it and/or modify |
| it under the terms of the GNU General Public License as published by |
| the Free Software Foundation; either version 3 of the License, or |
| (at your option) any later version. |
| |
| This program is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU General Public License for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with this program; if not, write to the Free Software |
| Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, |
| MA 02110-1301, USA. */ |
| |
| |
| /* SUBSECTION |
| Tektronix Hex Format handling |
| |
| DESCRIPTION |
| |
| Tek Hex records can hold symbols and data, but not |
| relocations. Their main application is communication with |
| devices like PROM programmers and ICE equipment. |
| |
| It seems that the sections are described as being really big, |
| the example I have says that the text section is 0..ffffffff. |
| BFD would barf with this, many apps would try to alloc 4GB to |
| read in the file. |
| |
| Tex Hex may contain many sections, but the data which comes in |
| has no tag saying which section it belongs to, so we create |
| one section for each block of data, called "blknnnn" which we |
| stick all the data into. |
| |
| TekHex may come out of order and there is no header, so an |
| initial scan is required to discover the minimum and maximum |
| addresses used to create the vma and size of the sections we |
| create. |
| We read in the data into pages of CHUNK_MASK+1 size and read |
| them out from that whenever we need to. |
| |
| Any number of sections may be created for output, we save them |
| up and output them when it's time to close the bfd. |
| |
| A TekHex record looks like: |
| EXAMPLE |
| %<block length><type><checksum><stuff><cr> |
| |
| DESCRIPTION |
| Where |
| o length |
| is the number of bytes in the record not including the % sign. |
| o type |
| is one of: |
| 3) symbol record |
| 6) data record |
| 8) termination record |
| |
| The data can come out of order, and may be discontigous. This is a |
| serial protocol, so big files are unlikely, so we keep a list of 8k chunks. */ |
| |
| #include "sysdep.h" |
| #include "bfd.h" |
| #include "libbfd.h" |
| #include "libiberty.h" |
| |
| typedef struct |
| { |
| bfd_vma low; |
| bfd_vma high; |
| } addr_range_type; |
| |
| typedef struct tekhex_symbol_struct |
| { |
| asymbol symbol; |
| struct tekhex_symbol_struct *prev; |
| } tekhex_symbol_type; |
| |
| static const char digs[] = "0123456789ABCDEF"; |
| |
| static char sum_block[256]; |
| |
| #define NOT_HEX 20 |
| #define NIBBLE(x) hex_value(x) |
| #define HEX(buffer) ((NIBBLE ((buffer)[0]) << 4) + NIBBLE ((buffer)[1])) |
| #define ISHEX(x) hex_p(x) |
| #define TOHEX(d, x) \ |
| (d)[1] = digs[(x) & 0xf]; \ |
| (d)[0] = digs[((x)>>4)&0xf]; |
| |
| /* Here's an example |
| %3A6C6480004E56FFFC4E717063B0AEFFFC6D0652AEFFFC60F24E5E4E75 |
| %1B3709T_SEGMENT1108FFFFFFFF |
| %2B3AB9T_SEGMENT7Dgcc_compiled$1087hello$c10 |
| %373829T_SEGMENT80int$t1$r1$$214741080char$t2$r2$0$12710 |
| %373769T_SEGMENT80long$int$t3$r1$$1080unsigned$int$t4$10 |
| %373CA9T_SEGMENT80long$unsigned$in1080short$int$t6$r1$10 |
| %373049T_SEGMENT80long$long$int$t71080short$unsigned$i10 |
| %373A29T_SEGMENT80long$long$unsign1080signed$char$t10$10 |
| %373D69T_SEGMENT80unsigned$char$t11080float$t12$r1$4$010 |
| %373D19T_SEGMENT80double$t13$r1$8$1080long$double$t14$10 |
| %2734D9T_SEGMENT8Bvoid$t15$151035_main10 |
| %2F3CA9T_SEGMENT81$1081$1681$1E81$21487main$F110 |
| %2832F9T_SEGMENT83i$18FFFFFFFC81$1481$214 |
| %07 8 10 10 |
| |
| explanation: |
| %3A6C6480004E56FFFC4E717063B0AEFFFC6D0652AEFFFC60F24E5E4E75 |
| ^ ^^ ^ ^-data |
| | || +------ 4 char integer 0x8000 |
| | |+-------- checksum |
| | +--------- type 6 (data record) |
| +----------- length 3a chars |
| <---------------------- 3a (58 chars) -------------------> |
| |
| %1B3709T_SEGMENT1108FFFFFFFF |
| ^ ^^ ^- 8 character integer 0xffffffff |
| | |+- 1 character integer 0 |
| | +-- type 1 symbol (section definition) |
| +------------ 9 char symbol T_SEGMENT |
| |
| %2B3AB9T_SEGMENT7Dgcc_compiled$1087hello$c10 |
| %373829T_SEGMENT80int$t1$r1$$214741080char$t2$r2$0$12710 |
| %373769T_SEGMENT80long$int$t3$r1$$1080unsigned$int$t4$10 |
| %373CA9T_SEGMENT80long$unsigned$in1080short$int$t6$r1$10 |
| %373049T_SEGMENT80long$long$int$t71080short$unsigned$i10 |
| %373A29T_SEGMENT80long$long$unsign1080signed$char$t10$10 |
| %373D69T_SEGMENT80unsigned$char$t11080float$t12$r1$4$010 |
| %373D19T_SEGMENT80double$t13$r1$8$1080long$double$t14$10 |
| %2734D9T_SEGMENT8Bvoid$t15$151035_main10 |
| %2F3CA9T_SEGMENT81$1081$1681$1E81$21487main$F110 |
| %2832F9T_SEGMENT83i$18FFFFFFFC81$1481$214 |
| %0781010 |
| |
| Turns into |
| sac@thepub$ ./objdump -dx -m m68k f |
| |
| f: file format tekhex |
| -----x--- 9/55728 -134219416 Sep 29 15:13 1995 f |
| architecture: UNKNOWN!, flags 0x00000010: |
| HAS_SYMS |
| start address 0x00000000 |
| SECTION 0 [D00000000] : size 00020000 vma 00000000 align 2**0 |
| ALLOC, LOAD |
| SECTION 1 [D00008000] : size 00002001 vma 00008000 align 2**0 |
| |
| SECTION 2 [T_SEGMENT] : size ffffffff vma 00000000 align 2**0 |
| |
| SYMBOL TABLE: |
| 00000000 g T_SEGMENT gcc_compiled$ |
| 00000000 g T_SEGMENT hello$c |
| 00000000 g T_SEGMENT int$t1$r1$$21474 |
| 00000000 g T_SEGMENT char$t2$r2$0$127 |
| 00000000 g T_SEGMENT long$int$t3$r1$$ |
| 00000000 g T_SEGMENT unsigned$int$t4$ |
| 00000000 g T_SEGMENT long$unsigned$in |
| 00000000 g T_SEGMENT short$int$t6$r1$ |
| 00000000 g T_SEGMENT long$long$int$t7 |
| 00000000 g T_SEGMENT short$unsigned$i |
| 00000000 g T_SEGMENT long$long$unsign |
| 00000000 g T_SEGMENT signed$char$t10$ |
| 00000000 g T_SEGMENT unsigned$char$t1 |
| 00000000 g T_SEGMENT float$t12$r1$4$0 |
| 00000000 g T_SEGMENT double$t13$r1$8$ |
| 00000000 g T_SEGMENT long$double$t14$ |
| 00000000 g T_SEGMENT void$t15$15 |
| 00000000 g T_SEGMENT _main |
| 00000000 g T_SEGMENT $ |
| 00000000 g T_SEGMENT $ |
| 00000000 g T_SEGMENT $ |
| 00000010 g T_SEGMENT $ |
| 00000000 g T_SEGMENT main$F1 |
| fcffffff g T_SEGMENT i$1 |
| 00000000 g T_SEGMENT $ |
| 00000010 g T_SEGMENT $ |
| |
| RELOCATION RECORDS FOR [D00000000]: (none) |
| |
| RELOCATION RECORDS FOR [D00008000]: (none) |
| |
| RELOCATION RECORDS FOR [T_SEGMENT]: (none) |
| |
| Disassembly of section D00000000: |
| ... |
| 00008000 ($+)7ff0 linkw fp,#-4 |
| 00008004 ($+)7ff4 nop |
| 00008006 ($+)7ff6 movel #99,d0 |
| 00008008 ($+)7ff8 cmpl fp@(-4),d0 |
| 0000800c ($+)7ffc blts 00008014 ($+)8004 |
| 0000800e ($+)7ffe addql #1,fp@(-4) |
| 00008012 ($+)8002 bras 00008006 ($+)7ff6 |
| 00008014 ($+)8004 unlk fp |
| 00008016 ($+)8006 rts |
| ... */ |
| |
| static void |
| tekhex_init (void) |
| { |
| unsigned int i; |
| static bool inited = false; |
| int val; |
| |
| if (! inited) |
| { |
| inited = true; |
| hex_init (); |
| val = 0; |
| for (i = 0; i < 10; i++) |
| sum_block[i + '0'] = val++; |
| |
| for (i = 'A'; i <= 'Z'; i++) |
| sum_block[i] = val++; |
| |
| sum_block['$'] = val++; |
| sum_block['%'] = val++; |
| sum_block['.'] = val++; |
| sum_block['_'] = val++; |
| for (i = 'a'; i <= 'z'; i++) |
| sum_block[i] = val++; |
| } |
| } |
| |
| /* The maximum number of bytes on a line is FF. */ |
| #define MAXCHUNK 0xff |
| /* The number of bytes we fit onto a line on output. */ |
| #define CHUNK 21 |
| |
| /* We cannot output our tekhexords as we see them, we have to glue them |
| together, this is done in this structure : */ |
| |
| struct tekhex_data_list_struct |
| { |
| unsigned char *data; |
| bfd_vma where; |
| bfd_size_type size; |
| struct tekhex_data_list_struct *next; |
| |
| }; |
| typedef struct tekhex_data_list_struct tekhex_data_list_type; |
| |
| #define CHUNK_MASK 0x1fff |
| #define CHUNK_SPAN 32 |
| |
| struct data_struct |
| { |
| unsigned char chunk_data[CHUNK_MASK + 1]; |
| unsigned char chunk_init[(CHUNK_MASK + 1 + CHUNK_SPAN - 1) / CHUNK_SPAN]; |
| bfd_vma vma; |
| struct data_struct *next; |
| }; |
| |
| typedef struct tekhex_data_struct |
| { |
| tekhex_data_list_type *head; |
| unsigned int type; |
| struct tekhex_symbol_struct *symbols; |
| struct data_struct *data; |
| } tdata_type; |
| |
| #define enda(x) (x->vma + x->size) |
| |
| static bool |
| getvalue (char **srcp, bfd_vma *valuep, char * endp) |
| { |
| char *src = *srcp; |
| bfd_vma value = 0; |
| unsigned int len; |
| |
| if (src >= endp) |
| return false; |
| |
| if (!ISHEX (*src)) |
| return false; |
| |
| len = hex_value (*src++); |
| if (len == 0) |
| len = 16; |
| while (len-- && src < endp) |
| { |
| if (!ISHEX (*src)) |
| return false; |
| value = value << 4 | hex_value (*src++); |
| } |
| |
| *srcp = src; |
| *valuep = value; |
| return len == -1U; |
| } |
| |
| static bool |
| getsym (char *dstp, char **srcp, unsigned int *lenp, char * endp) |
| { |
| char *src = *srcp; |
| unsigned int i; |
| unsigned int len; |
| |
| if (!ISHEX (*src)) |
| return false; |
| |
| len = hex_value (*src++); |
| if (len == 0) |
| len = 16; |
| for (i = 0; i < len && (src + i) < endp; i++) |
| dstp[i] = src[i]; |
| dstp[i] = 0; |
| *srcp = src + i; |
| *lenp = len; |
| return i == len; |
| } |
| |
| static struct data_struct * |
| find_chunk (bfd *abfd, bfd_vma vma, bool create) |
| { |
| struct data_struct *d = abfd->tdata.tekhex_data->data; |
| |
| vma &= ~CHUNK_MASK; |
| while (d && (d->vma) != vma) |
| d = d->next; |
| |
| if (!d && create) |
| { |
| /* No chunk for this address, so make one up. */ |
| d = (struct data_struct *) |
| bfd_zalloc (abfd, (bfd_size_type) sizeof (struct data_struct)); |
| |
| if (!d) |
| return NULL; |
| |
| d->next = abfd->tdata.tekhex_data->data; |
| d->vma = vma; |
| abfd->tdata.tekhex_data->data = d; |
| } |
| return d; |
| } |
| |
| static void |
| insert_byte (bfd *abfd, int value, bfd_vma addr) |
| { |
| if (value != 0) |
| { |
| /* Find the chunk that this byte needs and put it in. */ |
| struct data_struct *d = find_chunk (abfd, addr, true); |
| |
| d->chunk_data[addr & CHUNK_MASK] = value; |
| d->chunk_init[(addr & CHUNK_MASK) / CHUNK_SPAN] = 1; |
| } |
| } |
| |
| /* The first pass is to find the names of all the sections, and see |
| how big the data is. */ |
| |
| static bool |
| first_phase (bfd *abfd, int type, char *src, char * src_end) |
| { |
| asection *section, *alt_section; |
| unsigned int len; |
| bfd_vma val; |
| char sym[17]; /* A symbol can only be 16chars long. */ |
| |
| switch (type) |
| { |
| case '6': |
| /* Data record - read it and store it. */ |
| { |
| bfd_vma addr; |
| |
| if (!getvalue (&src, &addr, src_end)) |
| return false; |
| |
| while (*src && src < src_end - 1) |
| { |
| insert_byte (abfd, HEX (src), addr); |
| src += 2; |
| addr++; |
| } |
| return true; |
| } |
| |
| case '3': |
| /* Symbol record, read the segment. */ |
| if (!getsym (sym, &src, &len, src_end)) |
| return false; |
| section = bfd_get_section_by_name (abfd, sym); |
| if (section == NULL) |
| { |
| char *n = (char *) bfd_alloc (abfd, (bfd_size_type) len + 1); |
| |
| if (!n) |
| return false; |
| memcpy (n, sym, len + 1); |
| section = bfd_make_section (abfd, n); |
| if (section == NULL) |
| return false; |
| } |
| alt_section = NULL; |
| while (src < src_end && *src) |
| { |
| switch (*src) |
| { |
| case '1': /* Section range. */ |
| src++; |
| if (!getvalue (&src, §ion->vma, src_end)) |
| return false; |
| if (!getvalue (&src, &val, src_end)) |
| return false; |
| if (val < section->vma) |
| val = section->vma; |
| section->size = val - section->vma; |
| /* PR 17512: file: objdump-s-endless-loop.tekhex. |
| Check for overlarge section sizes. */ |
| if (section->size & 0x80000000) |
| return false; |
| section->flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC; |
| break; |
| case '0': |
| case '2': |
| case '3': |
| case '4': |
| case '6': |
| case '7': |
| case '8': |
| /* Symbols, add to section. */ |
| { |
| size_t amt = sizeof (tekhex_symbol_type); |
| tekhex_symbol_type *new_symbol = (tekhex_symbol_type *) |
| bfd_alloc (abfd, amt); |
| char stype = (*src); |
| |
| if (!new_symbol) |
| return false; |
| new_symbol->symbol.the_bfd = abfd; |
| src++; |
| abfd->symcount++; |
| abfd->flags |= HAS_SYMS; |
| new_symbol->prev = abfd->tdata.tekhex_data->symbols; |
| abfd->tdata.tekhex_data->symbols = new_symbol; |
| if (!getsym (sym, &src, &len, src_end)) |
| return false; |
| new_symbol->symbol.name = (const char *) |
| bfd_alloc (abfd, (bfd_size_type) len + 1); |
| if (!new_symbol->symbol.name) |
| return false; |
| memcpy ((char *) (new_symbol->symbol.name), sym, len + 1); |
| new_symbol->symbol.section = section; |
| if (stype <= '4') |
| new_symbol->symbol.flags = (BSF_GLOBAL | BSF_EXPORT); |
| else |
| new_symbol->symbol.flags = BSF_LOCAL; |
| if (stype == '2' || stype == '6') |
| new_symbol->symbol.section = bfd_abs_section_ptr; |
| else if (stype == '3' || stype == '7') |
| { |
| if ((section->flags & SEC_DATA) == 0) |
| section->flags |= SEC_CODE; |
| else |
| { |
| if (alt_section == NULL) |
| alt_section |
| = bfd_get_next_section_by_name (NULL, section); |
| if (alt_section == NULL) |
| alt_section = bfd_make_section_anyway_with_flags |
| (abfd, section->name, |
| (section->flags & ~SEC_DATA) | SEC_CODE); |
| if (alt_section == NULL) |
| return false; |
| new_symbol->symbol.section = alt_section; |
| } |
| } |
| else if (stype == '4' || stype == '8') |
| { |
| if ((section->flags & SEC_CODE) == 0) |
| section->flags |= SEC_DATA; |
| else |
| { |
| if (alt_section == NULL) |
| alt_section |
| = bfd_get_next_section_by_name (NULL, section); |
| if (alt_section == NULL) |
| alt_section = bfd_make_section_anyway_with_flags |
| (abfd, section->name, |
| (section->flags & ~SEC_CODE) | SEC_DATA); |
| if (alt_section == NULL) |
| return false; |
| new_symbol->symbol.section = alt_section; |
| } |
| } |
| if (!getvalue (&src, &val, src_end)) |
| return false; |
| new_symbol->symbol.value = val - section->vma; |
| break; |
| } |
| default: |
| return false; |
| } |
| } |
| } |
| |
| return true; |
| } |
| |
| /* Pass over a tekhex, calling one of the above functions on each |
| record. */ |
| |
| static bool |
| pass_over (bfd *abfd, bool (*func) (bfd *, int, char *, char *)) |
| { |
| unsigned int chars_on_line; |
| bool is_eof = false; |
| |
| /* To the front of the file. */ |
| if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0) |
| return false; |
| |
| while (! is_eof) |
| { |
| char src[MAXCHUNK]; |
| char type; |
| |
| /* Find first '%'. */ |
| is_eof = (bool) (bfd_bread (src, (bfd_size_type) 1, abfd) != 1); |
| while (!is_eof && *src != '%') |
| is_eof = (bool) (bfd_bread (src, (bfd_size_type) 1, abfd) != 1); |
| |
| if (is_eof) |
| break; |
| |
| /* Fetch the type and the length and the checksum. */ |
| if (bfd_bread (src, (bfd_size_type) 5, abfd) != 5) |
| return false; |
| |
| type = src[2]; |
| |
| if (!ISHEX (src[0]) || !ISHEX (src[1])) |
| break; |
| |
| /* Already read five chars. */ |
| chars_on_line = HEX (src) - 5; |
| |
| if (chars_on_line >= MAXCHUNK) |
| return false; |
| |
| if (bfd_bread (src, (bfd_size_type) chars_on_line, abfd) != chars_on_line) |
| return false; |
| |
| /* Put a null at the end. */ |
| src[chars_on_line] = 0; |
| if (!func (abfd, type, src, src + chars_on_line)) |
| return false; |
| } |
| |
| return true; |
| } |
| |
| static long |
| tekhex_canonicalize_symtab (bfd *abfd, asymbol **table) |
| { |
| tekhex_symbol_type *p = abfd->tdata.tekhex_data->symbols; |
| unsigned int c = bfd_get_symcount (abfd); |
| |
| table[c] = 0; |
| while (p) |
| { |
| table[--c] = &(p->symbol); |
| p = p->prev; |
| } |
| |
| return bfd_get_symcount (abfd); |
| } |
| |
| static long |
| tekhex_get_symtab_upper_bound (bfd *abfd) |
| { |
| return (abfd->symcount + 1) * (sizeof (struct tekhex_asymbol_struct *)); |
| |
| } |
| |
| static bool |
| tekhex_mkobject (bfd *abfd) |
| { |
| tdata_type *tdata; |
| |
| tdata = (tdata_type *) bfd_alloc (abfd, (bfd_size_type) sizeof (tdata_type)); |
| if (!tdata) |
| return false; |
| abfd->tdata.tekhex_data = tdata; |
| tdata->type = 1; |
| tdata->head = NULL; |
| tdata->symbols = NULL; |
| tdata->data = NULL; |
| return true; |
| } |
| |
| /* Return TRUE if the file looks like it's in TekHex format. Just look |
| for a percent sign and some hex digits. */ |
| |
| static bfd_cleanup |
| tekhex_object_p (bfd *abfd) |
| { |
| char b[4]; |
| |
| tekhex_init (); |
| |
| if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0 |
| || bfd_bread (b, (bfd_size_type) 4, abfd) != 4) |
| return NULL; |
| |
| if (b[0] != '%' || !ISHEX (b[1]) || !ISHEX (b[2]) || !ISHEX (b[3])) |
| return NULL; |
| |
| tekhex_mkobject (abfd); |
| |
| if (!pass_over (abfd, first_phase)) |
| return NULL; |
| |
| return _bfd_no_cleanup; |
| } |
| |
| static void |
| move_section_contents (bfd *abfd, |
| asection *section, |
| const void * locationp, |
| file_ptr offset, |
| bfd_size_type count, |
| bool get) |
| { |
| bfd_vma addr; |
| char *location = (char *) locationp; |
| bfd_vma prev_number = 1; /* Nothing can have this as a high bit. */ |
| struct data_struct *d = NULL; |
| |
| BFD_ASSERT (offset == 0); |
| for (addr = section->vma; count != 0; count--, addr++) |
| { |
| /* Get high bits of address. */ |
| bfd_vma chunk_number = addr & ~(bfd_vma) CHUNK_MASK; |
| bfd_vma low_bits = addr & CHUNK_MASK; |
| bool must_write = !get && *location != 0; |
| |
| if (chunk_number != prev_number || (!d && must_write)) |
| { |
| /* Different chunk, so move pointer. */ |
| d = find_chunk (abfd, chunk_number, must_write); |
| prev_number = chunk_number; |
| } |
| |
| if (get) |
| { |
| if (d) |
| *location = d->chunk_data[low_bits]; |
| else |
| *location = 0; |
| } |
| else if (must_write) |
| { |
| d->chunk_data[low_bits] = *location; |
| d->chunk_init[low_bits / CHUNK_SPAN] = 1; |
| } |
| |
| location++; |
| } |
| } |
| |
| static bool |
| tekhex_get_section_contents (bfd *abfd, |
| asection *section, |
| void * locationp, |
| file_ptr offset, |
| bfd_size_type count) |
| { |
| if (section->flags & (SEC_LOAD | SEC_ALLOC)) |
| { |
| move_section_contents (abfd, section, locationp, offset, count, true); |
| return true; |
| } |
| |
| return false; |
| } |
| |
| static bool |
| tekhex_set_arch_mach (bfd *abfd, |
| enum bfd_architecture arch, |
| unsigned long machine) |
| { |
| /* Ignore errors about unknown architecture. */ |
| return (bfd_default_set_arch_mach (abfd, arch, machine) |
| || arch == bfd_arch_unknown); |
| } |
| |
| /* We have to save up all the Tekhexords for a splurge before output. */ |
| |
| static bool |
| tekhex_set_section_contents (bfd *abfd, |
| sec_ptr section, |
| const void * locationp, |
| file_ptr offset, |
| bfd_size_type bytes_to_do) |
| { |
| if (section->flags & (SEC_LOAD | SEC_ALLOC)) |
| { |
| move_section_contents (abfd, section, locationp, offset, bytes_to_do, |
| false); |
| return true; |
| } |
| |
| return false; |
| } |
| |
| static void |
| writevalue (char **dst, bfd_vma value) |
| { |
| char *p = *dst; |
| int len; |
| int shift; |
| |
| for (len = 8, shift = 28; shift; shift -= 4, len--) |
| { |
| if ((value >> shift) & 0xf) |
| { |
| *p++ = len + '0'; |
| while (len) |
| { |
| *p++ = digs[(value >> shift) & 0xf]; |
| shift -= 4; |
| len--; |
| } |
| *dst = p; |
| return; |
| |
| } |
| } |
| *p++ = '1'; |
| *p++ = '0'; |
| *dst = p; |
| } |
| |
| static void |
| writesym (char **dst, const char *sym) |
| { |
| char *p = *dst; |
| int len = (sym ? strlen (sym) : 0); |
| |
| if (len >= 16) |
| { |
| *p++ = '0'; |
| len = 16; |
| } |
| else |
| { |
| if (len == 0) |
| { |
| *p++ = '1'; |
| sym = "$"; |
| len = 1; |
| } |
| else |
| *p++ = digs[len]; |
| } |
| |
| while (len--) |
| *p++ = *sym++; |
| |
| *dst = p; |
| } |
| |
| static void |
| out (bfd *abfd, int type, char *start, char *end) |
| { |
| int sum = 0; |
| char *s; |
| char front[6]; |
| bfd_size_type wrlen; |
| |
| front[0] = '%'; |
| TOHEX (front + 1, end - start + 5); |
| front[3] = type; |
| |
| for (s = start; s < end; s++) |
| sum += sum_block[(unsigned char) *s]; |
| |
| sum += sum_block[(unsigned char) front[1]]; /* Length. */ |
| sum += sum_block[(unsigned char) front[2]]; |
| sum += sum_block[(unsigned char) front[3]]; /* Type. */ |
| TOHEX (front + 4, sum); |
| if (bfd_bwrite (front, (bfd_size_type) 6, abfd) != 6) |
| abort (); |
| end[0] = '\n'; |
| wrlen = end - start + 1; |
| if (bfd_bwrite (start, wrlen, abfd) != wrlen) |
| abort (); |
| } |
| |
| static bool |
| tekhex_write_object_contents (bfd *abfd) |
| { |
| char buffer[100]; |
| asymbol **p; |
| asection *s; |
| struct data_struct *d; |
| |
| tekhex_init (); |
| |
| /* And the raw data. */ |
| for (d = abfd->tdata.tekhex_data->data; |
| d != NULL; |
| d = d->next) |
| { |
| int low; |
| int addr; |
| |
| /* Write it in blocks of 32 bytes. */ |
| for (addr = 0; addr < CHUNK_MASK + 1; addr += CHUNK_SPAN) |
| { |
| if (d->chunk_init[addr / CHUNK_SPAN]) |
| { |
| char *dst = buffer; |
| |
| writevalue (&dst, addr + d->vma); |
| for (low = 0; low < CHUNK_SPAN; low++) |
| { |
| TOHEX (dst, d->chunk_data[addr + low]); |
| dst += 2; |
| } |
| out (abfd, '6', buffer, dst); |
| } |
| } |
| } |
| |
| /* Write all the section headers for the sections. */ |
| for (s = abfd->sections; s != NULL; s = s->next) |
| { |
| char *dst = buffer; |
| |
| writesym (&dst, s->name); |
| *dst++ = '1'; |
| writevalue (&dst, s->vma); |
| writevalue (&dst, s->vma + s->size); |
| out (abfd, '3', buffer, dst); |
| } |
| |
| /* And the symbols. */ |
| if (abfd->outsymbols) |
| { |
| for (p = abfd->outsymbols; *p; p++) |
| { |
| int section_code = bfd_decode_symclass (*p); |
| |
| if (section_code != '?') |
| { |
| /* Do not include debug symbols. */ |
| asymbol *sym = *p; |
| char *dst = buffer; |
| |
| writesym (&dst, sym->section->name); |
| |
| switch (section_code) |
| { |
| case 'A': |
| *dst++ = '2'; |
| break; |
| case 'a': |
| *dst++ = '6'; |
| break; |
| case 'D': |
| case 'B': |
| case 'O': |
| *dst++ = '4'; |
| break; |
| case 'd': |
| case 'b': |
| case 'o': |
| *dst++ = '8'; |
| break; |
| case 'T': |
| *dst++ = '3'; |
| break; |
| case 't': |
| *dst++ = '7'; |
| break; |
| case 'C': |
| case 'U': |
| bfd_set_error (bfd_error_wrong_format); |
| return false; |
| } |
| |
| writesym (&dst, sym->name); |
| writevalue (&dst, sym->value + sym->section->vma); |
| out (abfd, '3', buffer, dst); |
| } |
| } |
| } |
| |
| /* And the terminator. */ |
| if (bfd_bwrite ("%0781010\n", (bfd_size_type) 9, abfd) != 9) |
| abort (); |
| return true; |
| } |
| |
| static int |
| tekhex_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED, |
| struct bfd_link_info *info ATTRIBUTE_UNUSED) |
| { |
| return 0; |
| } |
| |
| static asymbol * |
| tekhex_make_empty_symbol (bfd *abfd) |
| { |
| size_t amt = sizeof (struct tekhex_symbol_struct); |
| tekhex_symbol_type *new_symbol = (tekhex_symbol_type *) bfd_zalloc (abfd, |
| amt); |
| |
| if (!new_symbol) |
| return NULL; |
| new_symbol->symbol.the_bfd = abfd; |
| new_symbol->prev = NULL; |
| return &(new_symbol->symbol); |
| } |
| |
| static void |
| tekhex_get_symbol_info (bfd *abfd ATTRIBUTE_UNUSED, |
| asymbol *symbol, |
| symbol_info *ret) |
| { |
| bfd_symbol_info (symbol, ret); |
| } |
| |
| static void |
| tekhex_print_symbol (bfd *abfd, |
| void * filep, |
| asymbol *symbol, |
| bfd_print_symbol_type how) |
| { |
| FILE *file = (FILE *) filep; |
| |
| switch (how) |
| { |
| case bfd_print_symbol_name: |
| fprintf (file, "%s", symbol->name); |
| break; |
| case bfd_print_symbol_more: |
| break; |
| |
| case bfd_print_symbol_all: |
| { |
| const char *section_name = symbol->section->name; |
| |
| bfd_print_symbol_vandf (abfd, (void *) file, symbol); |
| |
| fprintf (file, " %-5s %s", |
| section_name, symbol->name); |
| } |
| } |
| } |
| |
| #define tekhex_close_and_cleanup _bfd_generic_close_and_cleanup |
| #define tekhex_bfd_free_cached_info _bfd_generic_bfd_free_cached_info |
| #define tekhex_new_section_hook _bfd_generic_new_section_hook |
| #define tekhex_bfd_is_target_special_symbol _bfd_bool_bfd_asymbol_false |
| #define tekhex_bfd_is_local_label_name bfd_generic_is_local_label_name |
| #define tekhex_get_lineno _bfd_nosymbols_get_lineno |
| #define tekhex_find_nearest_line _bfd_nosymbols_find_nearest_line |
| #define tekhex_find_line _bfd_nosymbols_find_line |
| #define tekhex_find_inliner_info _bfd_nosymbols_find_inliner_info |
| #define tekhex_get_symbol_version_string _bfd_nosymbols_get_symbol_version_string |
| #define tekhex_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol |
| #define tekhex_read_minisymbols _bfd_generic_read_minisymbols |
| #define tekhex_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol |
| #define tekhex_bfd_get_relocated_section_contents bfd_generic_get_relocated_section_contents |
| #define tekhex_bfd_relax_section bfd_generic_relax_section |
| #define tekhex_bfd_gc_sections bfd_generic_gc_sections |
| #define tekhex_bfd_lookup_section_flags bfd_generic_lookup_section_flags |
| #define tekhex_bfd_merge_sections bfd_generic_merge_sections |
| #define tekhex_bfd_is_group_section bfd_generic_is_group_section |
| #define tekhex_bfd_group_name bfd_generic_group_name |
| #define tekhex_bfd_discard_group bfd_generic_discard_group |
| #define tekhex_section_already_linked _bfd_generic_section_already_linked |
| #define tekhex_bfd_define_common_symbol bfd_generic_define_common_symbol |
| #define tekhex_bfd_link_hide_symbol _bfd_generic_link_hide_symbol |
| #define tekhex_bfd_define_start_stop bfd_generic_define_start_stop |
| #define tekhex_bfd_link_hash_table_create _bfd_generic_link_hash_table_create |
| #define tekhex_bfd_link_add_symbols _bfd_generic_link_add_symbols |
| #define tekhex_bfd_link_just_syms _bfd_generic_link_just_syms |
| #define tekhex_bfd_copy_link_hash_symbol_type _bfd_generic_copy_link_hash_symbol_type |
| #define tekhex_bfd_final_link _bfd_generic_final_link |
| #define tekhex_bfd_link_split_section _bfd_generic_link_split_section |
| #define tekhex_get_section_contents_in_window _bfd_generic_get_section_contents_in_window |
| #define tekhex_bfd_link_check_relocs _bfd_generic_link_check_relocs |
| |
| const bfd_target tekhex_vec = |
| { |
| "tekhex", /* Name. */ |
| bfd_target_tekhex_flavour, |
| BFD_ENDIAN_UNKNOWN, /* Target byte order. */ |
| BFD_ENDIAN_UNKNOWN, /* Target headers byte order. */ |
| (EXEC_P | /* Object flags. */ |
| HAS_SYMS | HAS_LINENO | HAS_DEBUG | |
| HAS_RELOC | HAS_LOCALS | WP_TEXT | D_PAGED), |
| (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS |
| | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* Section flags. */ |
| 0, /* Leading underscore. */ |
| ' ', /* AR_pad_char. */ |
| 16, /* AR_max_namelen. */ |
| 0, /* match priority. */ |
| TARGET_KEEP_UNUSED_SECTION_SYMBOLS, /* keep unused section symbols. */ |
| bfd_getb64, bfd_getb_signed_64, bfd_putb64, |
| bfd_getb32, bfd_getb_signed_32, bfd_putb32, |
| bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Data. */ |
| bfd_getb64, bfd_getb_signed_64, bfd_putb64, |
| bfd_getb32, bfd_getb_signed_32, bfd_putb32, |
| bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Headers. */ |
| |
| { |
| _bfd_dummy_target, |
| tekhex_object_p, /* bfd_check_format. */ |
| _bfd_dummy_target, |
| _bfd_dummy_target, |
| }, |
| { |
| _bfd_bool_bfd_false_error, |
| tekhex_mkobject, |
| _bfd_generic_mkarchive, |
| _bfd_bool_bfd_false_error, |
| }, |
| { /* bfd_write_contents. */ |
| _bfd_bool_bfd_false_error, |
| tekhex_write_object_contents, |
| _bfd_write_archive_contents, |
| _bfd_bool_bfd_false_error, |
| }, |
| |
| BFD_JUMP_TABLE_GENERIC (tekhex), |
| BFD_JUMP_TABLE_COPY (_bfd_generic), |
| BFD_JUMP_TABLE_CORE (_bfd_nocore), |
| BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive), |
| BFD_JUMP_TABLE_SYMBOLS (tekhex), |
| BFD_JUMP_TABLE_RELOCS (_bfd_norelocs), |
| BFD_JUMP_TABLE_WRITE (tekhex), |
| BFD_JUMP_TABLE_LINK (tekhex), |
| BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic), |
| |
| NULL, |
| |
| NULL |
| }; |