bfd/tekhex.c

   1 /* BFD backend for Extended Tektronix Hex Format  objects.
   2    Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
   3
   4    Written by Steve Chamberlain of Cygnus Support <sac@cygnus.com>.
   5
   6 This file is part of BFD, the Binary File Descriptor library.
   7
   8 This program is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 2 of the License, or
  11 (at your option) any later version.
  12
  13 This program is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with this program; if not, write to the Free Software
  20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  21
  22 /*
  23 SUBSECTION
  24         Tektronix Hex Format handling
  25
  26 DESCRIPTION
  27
  28         Tek Hex records can hold symbols and data, but not
  29         relocations. Their main application is communication with
  30         devices like PROM programmers and ICE equipment.
  31
  32         It seems that the sections are descibed as being really big,
  33         the example I have says that the text section is 0..ffffffff.
  34         BFD would barf with this, many apps would try to alloc 4GB to
  35         read in the file.
  36
  37         Tex Hex may contain many sections, but the data which comes in
  38         has no tag saying which section it belongs to, so we create
  39         one section for each block of data, called "blknnnn" which we
  40         stick all the data into.
  41
  42         TekHex may come out of  order and there is no header, so an
  43         initial scan is required  to discover the minimum and maximum
  44         addresses used to create the vma and size of the sections we
  45         create.
  46         We read in the data into pages of CHUNK_MASK+1 size and read
  47         them out from that whenever we need to.
  48
  49         Any number of sections may be created for output, we save them
  50         up and output them when it's time to close the bfd.
  51
  52
  53         A TekHex record looks like:
  54 EXAMPLE
  55         %<block length><type><checksum><stuff><cr>
  56
  57 DESCRIPTION
  58         Where
  59         o length
  60         is the number of bytes in the record not including the % sign.
  61         o type
  62         is one of:
  63         3) symbol record
  64         6) data record
  65         8) termination record
  66
  67
  68 The data can come out of order, and may be discontigous. This is a
  69 serial protocol, so big files are unlikely, so we keep a list of 8k chunks
  70 */
  71
  72 #include "bfd.h"
  73 #include "sysdep.h"
  74 #include "libbfd.h"
  75 #include "libiberty.h"
  76
  77 typedef struct
  78   {
  79     bfd_vma low;
  80     bfd_vma high;
  81   } addr_range_type;
  82
  83 typedef struct tekhex_symbol_struct
  84   {
  85
  86     asymbol symbol;
  87     struct tekhex_symbol_struct *prev;
  88
  89   } tekhex_symbol_type;
  90
  91 static const char digs[] = "0123456789ABCDEF";
  92
  93 static char sum_block[256];
  94
  95 #define NOT_HEX 20
  96 #define NIBBLE(x) hex_value(x)
  97 #define HEX(buffer) ((NIBBLE((buffer)[0])<<4) + NIBBLE((buffer)[1]))
  98 #define TOHEX(d,x) \
  99 (d)[1] = digs[(x) & 0xf]; \
 100 (d)[0] = digs[((x)>>4)&0xf];
 101 #define ISHEX(x)  hex_p(x)
 102
 103 /*
 104 Here's an example
 105 %3A6C6480004E56FFFC4E717063B0AEFFFC6D0652AEFFFC60F24E5E4E75
 106 %1B3709T_SEGMENT1108FFFFFFFF
 107 %2B3AB9T_SEGMENT7Dgcc_compiled$1087hello$c10
 108 %373829T_SEGMENT80int$t1$r1$$214741080char$t2$r2$0$12710
 109 %373769T_SEGMENT80long$int$t3$r1$$1080unsigned$int$t4$10
 110 %373CA9T_SEGMENT80long$unsigned$in1080short$int$t6$r1$10
 111 %373049T_SEGMENT80long$long$int$t71080short$unsigned$i10
 112 %373A29T_SEGMENT80long$long$unsign1080signed$char$t10$10
 113 %373D69T_SEGMENT80unsigned$char$t11080float$t12$r1$4$010
 114 %373D19T_SEGMENT80double$t13$r1$8$1080long$double$t14$10
 115 %2734D9T_SEGMENT8Bvoid$t15$151035_main10
 116 %2F3CA9T_SEGMENT81$1081$1681$1E81$21487main$F110
 117 %2832F9T_SEGMENT83i$18FFFFFFFC81$1481$214
 118 %07 8 10 10
 119
 120 explanation:
 121 %3A6C6480004E56FFFC4E717063B0AEFFFC6D0652AEFFFC60F24E5E4E75
 122  ^ ^^ ^     ^-data
 123  | || +------ 4 char integer 0x8000
 124  | |+-------- checksum
 125  | +--------- type 6 (data record)
 126  +----------- length 3a chars
 127  <---------------------- 3a (58 chars) ------------------->
 128
 129 %1B3709T_SEGMENT1108FFFFFFFF
 130       ^         ^^ ^- 8 character integer 0xffffffff
 131       |         |+-   1 character integer 0
 132       |         +--   type 1 symbol (section definition)
 133       +------------   9 char symbol T_SEGMENT
 134
 135 %2B3AB9T_SEGMENT7Dgcc_compiled$1087hello$c10
 136 %373829T_SEGMENT80int$t1$r1$$214741080char$t2$r2$0$12710
 137 %373769T_SEGMENT80long$int$t3$r1$$1080unsigned$int$t4$10
 138 %373CA9T_SEGMENT80long$unsigned$in1080short$int$t6$r1$10
 139 %373049T_SEGMENT80long$long$int$t71080short$unsigned$i10
 140 %373A29T_SEGMENT80long$long$unsign1080signed$char$t10$10
 141 %373D69T_SEGMENT80unsigned$char$t11080float$t12$r1$4$010
 142 %373D19T_SEGMENT80double$t13$r1$8$1080long$double$t14$10
 143 %2734D9T_SEGMENT8Bvoid$t15$151035_main10
 144 %2F3CA9T_SEGMENT81$1081$1681$1E81$21487main$F110
 145 %2832F9T_SEGMENT83i$18FFFFFFFC81$1481$214
 146 %0781010
 147
 148 Turns into
 149 sac@thepub$ ./objdump -dx -m m68k f
 150
 151 f:     file format tekhex
 152 -----x--- 9/55728 -134219416 Sep 29 15:13 1995 f
 153 architecture: UNKNOWN!, flags 0x00000010:
 154 HAS_SYMS
 155 start address 0x00000000
 156 SECTION 0 [D00000000]   : size 00020000 vma 00000000 align 2**0
 157  ALLOC, LOAD
 158 SECTION 1 [D00008000]   : size 00002001 vma 00008000 align 2**0
 159
 160 SECTION 2 [T_SEGMENT]   : size ffffffff vma 00000000 align 2**0
 161
 162 SYMBOL TABLE:
 163 00000000  g       T_SEGMENT gcc_compiled$
 164 00000000  g       T_SEGMENT hello$c
 165 00000000  g       T_SEGMENT int$t1$r1$$21474
 166 00000000  g       T_SEGMENT char$t2$r2$0$127
 167 00000000  g       T_SEGMENT long$int$t3$r1$$
 168 00000000  g       T_SEGMENT unsigned$int$t4$
 169 00000000  g       T_SEGMENT long$unsigned$in
 170 00000000  g       T_SEGMENT short$int$t6$r1$
 171 00000000  g       T_SEGMENT long$long$int$t7
 172 00000000  g       T_SEGMENT short$unsigned$i
 173 00000000  g       T_SEGMENT long$long$unsign
 174 00000000  g       T_SEGMENT signed$char$t10$
 175 00000000  g       T_SEGMENT unsigned$char$t1
 176 00000000  g       T_SEGMENT float$t12$r1$4$0
 177 00000000  g       T_SEGMENT double$t13$r1$8$
 178 00000000  g       T_SEGMENT long$double$t14$
 179 00000000  g       T_SEGMENT void$t15$15
 180 00000000  g       T_SEGMENT _main
 181 00000000  g       T_SEGMENT $
 182 00000000  g       T_SEGMENT $
 183 00000000  g       T_SEGMENT $
 184 00000010  g       T_SEGMENT $
 185 00000000  g       T_SEGMENT main$F1
 186 fcffffff  g       T_SEGMENT i$1
 187 00000000  g       T_SEGMENT $
 188 00000010  g       T_SEGMENT $
 189
 190
 191 RELOCATION RECORDS FOR [D00000000]: (none)
 192
 193 RELOCATION RECORDS FOR [D00008000]: (none)
 194
 195 RELOCATION RECORDS FOR [T_SEGMENT]: (none)
 196
 197 Disassembly of section D00000000:
 198 ...
 199 00008000 ($+)7ff0 linkw fp,#-4
 200 00008004 ($+)7ff4 nop
 201 00008006 ($+)7ff6 movel #99,d0
 202 00008008 ($+)7ff8 cmpl fp@(-4),d0
 203 0000800c ($+)7ffc blts 00008014 ($+)8004
 204 0000800e ($+)7ffe addql #1,fp@(-4)
 205 00008012 ($+)8002 bras 00008006 ($+)7ff6
 206 00008014 ($+)8004 unlk fp
 207 00008016 ($+)8006 rts
 208 ...
 209
 210 */
 211
 212 static void
 213 tekhex_init ()
 214 {
 215   unsigned int i;
 216   static boolean inited = false;
 217   int val;
 218
 219   if (inited == false)
 220     {
 221       inited = true;
 222       hex_init ();
 223       val = 0;
 224       for (i = 0; i < 10; i++)
 225         {
 226           sum_block[i + '0'] = val++;
 227         }
 228       for (i = 'A'; i <= 'Z'; i++)
 229         {
 230           sum_block[i] = val++;
 231         }
 232       sum_block['$'] = val++;
 233       sum_block['%'] = val++;
 234       sum_block['.'] = val++;
 235       sum_block['_'] = val++;
 236       for (i = 'a'; i <= 'z'; i++)
 237         {
 238           sum_block[i] = val++;
 239         }
 240     }
 241 }
 242
 243 /* The maximum number of bytes on a line is FF */
 244 #define MAXCHUNK 0xff
 245 /* The number of bytes we fit onto a line on output */
 246 #define CHUNK 21
 247
 248 /* We cannot output our tekhexords as we see them, we have to glue them
 249    together, this is done in this structure : */
 250
 251 struct tekhex_data_list_struct
 252 {
 253   unsigned char *data;
 254   bfd_vma where;
 255   bfd_size_type size;
 256   struct tekhex_data_list_struct *next;
 257
 258 };
 259 typedef struct tekhex_data_list_struct tekhex_data_list_type;
 260
 261 #define CHUNK_MASK 0x1fff
 262
 263 struct data_struct
 264   {
 265     char chunk_data[CHUNK_MASK + 1];
 266     char chunk_init[CHUNK_MASK + 1];
 267     bfd_vma vma;
 268     struct data_struct *next;
 269   };
 270
 271 typedef struct tekhex_data_struct
 272 {
 273   tekhex_data_list_type *head;
 274   unsigned int type;
 275   struct tekhex_symbol_struct *symbols;
 276   struct data_struct *data;
 277 } tdata_type;
 278
 279 #define enda(x) (x->vma + x->size)
 280
 281 static bfd_vma
 282 getvalue (srcp)
 283      char **srcp;
 284 {
 285   char *src = *srcp;
 286   bfd_vma value = 0;
 287   unsigned int len = hex_value(*src++);
 288
 289   if (len == 0)
 290     len = 16;
 291   while (len--)
 292     {
 293       value = value << 4 | hex_value(*src++);
 294     }
 295   *srcp = src;
 296   return value;
 297 }
 298
 299 static unsigned int
 300 getsym (dstp, srcp)
 301      char *dstp;
 302      char **srcp;
 303 {
 304   char *src = *srcp;
 305   unsigned int i;
 306   unsigned int len = hex_value(*src++);
 307
 308   if (len == 0)
 309     len = 16;
 310   for (i = 0; i < len; i++)
 311     dstp[i] = src[i];
 312   dstp[i] = 0;
 313   *srcp = src + i;
 314   return len;
 315 }
 316
 317 struct data_struct *
 318 find_chunk (abfd, vma)
 319      bfd *abfd;
 320      bfd_vma vma;
 321 {
 322   struct data_struct *d = abfd->tdata.tekhex_data->data;
 323
 324   vma &= ~CHUNK_MASK;
 325   while (d && (d->vma) != vma)
 326     {
 327       d = d->next;
 328     }
 329   if (!d)
 330     {
 331       char *sname = bfd_alloc (abfd, 12);
 332
 333       /* No chunk for this address, so make one up */
 334       d = (struct data_struct *)
 335         bfd_alloc (abfd, sizeof (struct data_struct));
 336
 337       if (!sname || !d)
 338         return NULL;
 339
 340       memset (d->chunk_init, 0, CHUNK_MASK + 1);
 341       memset (d->chunk_data, 0, CHUNK_MASK + 1);
 342       d->next = abfd->tdata.tekhex_data->data;
 343       d->vma = vma;
 344       abfd->tdata.tekhex_data->data = d;
 345     }
 346   return d;
 347 }
 348
 349 static void
 350 insert_byte (abfd, value, addr)
 351      bfd *abfd;
 352      int value;
 353      bfd_vma addr;
 354 {
 355   /* Find the chunk that this byte needs and put it in */
 356   struct data_struct *d = find_chunk (abfd, addr);
 357
 358   d->chunk_data[addr & CHUNK_MASK] = value;
 359   d->chunk_init[addr & CHUNK_MASK] = 1;
 360 }
 361
 362 /* The first pass is to find the names of all the sections, and see
 363   how big the data is */
 364 static void
 365 first_phase (abfd, type, src)
 366      bfd *abfd;
 367      char type;
 368      char *src;
 369 {
 370   asection *section = bfd_abs_section_ptr;
 371   int len;
 372   char sym[17];                 /* A symbol can only be 16chars long */
 373
 374   switch (type)
 375     {
 376     case '6':
 377       /* Data record - read it and store it */
 378       {
 379         bfd_vma addr = getvalue (&src);
 380
 381         while (*src)
 382           {
 383             insert_byte (abfd, HEX (src), addr);
 384             src += 2;
 385             addr++;
 386           }
 387       }
 388
 389       return;
 390     case '3':
 391       /* Symbol record, read the segment */
 392       len = getsym (sym, &src);
 393       section = bfd_get_section_by_name (abfd, sym);
 394       if (section == (asection *) NULL)
 395         {
 396           char *n = bfd_alloc (abfd, len + 1);
 397
 398           if (!n)
 399             abort();            /* FIXME */
 400           memcpy (n, sym, len + 1);
 401           section = bfd_make_section (abfd, n);
 402         }
 403       while (*src)
 404         {
 405           switch (*src)
 406             {
 407             case '1':           /* section range */
 408               src++;
 409               section->vma = getvalue (&src);
 410               section->_raw_size = getvalue (&src) - section->vma;
 411               section->flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
 412               break;
 413             case '0':
 414             case '2':
 415             case '3':
 416             case '4':
 417             case '6':
 418             case '7':
 419             case '8':
 420               /* Symbols, add to section */
 421               {
 422                 tekhex_symbol_type *new =
 423                 (tekhex_symbol_type *) bfd_alloc (abfd,
 424                                                sizeof (tekhex_symbol_type));
 425                 char type = (*src);
 426
 427                 if (!new)
 428                   abort();      /* FIXME */
 429                 new->symbol.the_bfd = abfd;
 430                 src++;
 431                 abfd->symcount++;
 432                 abfd->flags |= HAS_SYMS;
 433                 new->prev = abfd->tdata.tekhex_data->symbols;
 434                 abfd->tdata.tekhex_data->symbols = new;
 435                 len = getsym (sym, &src);
 436                 new->symbol.name = bfd_alloc (abfd, len + 1);
 437                 if (!new->symbol.name)
 438                   abort();      /* FIXME */
 439                 memcpy ((char *) (new->symbol.name), sym, len + 1);
 440                 new->symbol.section = section;
 441                 if (type <= '4')
 442                   new->symbol.flags = (BSF_GLOBAL | BSF_EXPORT);
 443                 else
 444                   new->symbol.flags = BSF_LOCAL;
 445                 new->symbol.value = getvalue (&src) - section->vma;
 446               }
 447             }
 448         }
 449     }
 450 }
 451
 452 /* Pass over an tekhex, calling one of the above functions on each
 453    record.  */
 454
 455 static void
 456  pass_over (abfd, func)
 457      bfd *abfd;
 458      void (*func) ();
 459 {
 460   unsigned int chars_on_line;
 461   boolean eof = false;
 462
 463   /* To the front of the file */
 464   if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
 465     abort ();
 466   while (eof == false)
 467     {
 468       char buffer[MAXCHUNK];
 469       char *src = buffer;
 470       char type;
 471
 472       /* Find first '%' */
 473       eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1);
 474       while (*src != '%' && !eof)
 475         {
 476           eof = (boolean) (bfd_read (src, 1, 1, abfd) != 1);
 477         }
 478       if (eof)
 479         break;
 480       src++;
 481
 482       /* Fetch the type and the length and the checksum */
 483       if (bfd_read (src, 1, 5, abfd) != 5)
 484         abort (); /* FIXME */
 485
 486       type = src[2];
 487
 488       if (!ISHEX (src[0]) || !ISHEX (src[1]))
 489         break;
 490
 491       chars_on_line = HEX (src) - 5;    /* Already read five char */
 492
 493       if (bfd_read (src, 1, chars_on_line, abfd) != chars_on_line)
 494         abort (); /* FIXME */
 495       src[chars_on_line] = 0;   /* put a null at the end */
 496
 497       func (abfd, type, src);
 498     }
 499
 500 }
 501
 502 long
 503 tekhex_get_symtab (abfd, table)
 504      bfd *abfd;
 505      asymbol **table;
 506
 507 {
 508   tekhex_symbol_type *p = abfd->tdata.tekhex_data->symbols;
 509   unsigned int c = bfd_get_symcount (abfd);
 510
 511   table[c] = 0;
 512   while (p)
 513     {
 514       table[--c] = &(p->symbol);
 515       p = p->prev;
 516     }
 517
 518   return bfd_get_symcount (abfd);
 519 }
 520
 521 long
 522 tekhex_get_symtab_upper_bound (abfd)
 523      bfd *abfd;
 524 {
 525   return (abfd->symcount + 1) * (sizeof (struct tekhex_asymbol_struct *));
 526
 527 }
 528
 529 static boolean
 530 tekhex_mkobject (abfd)
 531      bfd *abfd;
 532 {
 533   tdata_type *tdata = (tdata_type *) bfd_alloc (abfd, sizeof (tdata_type));
 534
 535   if (!tdata)
 536     return false;
 537   abfd->tdata.tekhex_data = tdata;
 538   tdata->type = 1;
 539   tdata->head = (tekhex_data_list_type *) NULL;
 540   tdata->symbols = (struct tekhex_symbol_struct *) NULL;
 541   tdata->data = (struct data_struct *) NULL;
 542   return true;
 543 }
 544
 545 /*
 546   Return true if the file looks like it's in TekHex format. Just look
 547   for a percent sign and some hex digits */
 548
 549 static const bfd_target *
 550 tekhex_object_p (abfd)
 551      bfd *abfd;
 552 {
 553   char b[4];
 554
 555   tekhex_init ();
 556
 557   if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
 558       || bfd_read (b, 1, 4, abfd) != 4)
 559     return NULL;
 560
 561   if (b[0] != '%' || !ISHEX (b[1]) || !ISHEX (b[2]) || !ISHEX (b[3]))
 562     return (const bfd_target *) NULL;
 563
 564   tekhex_mkobject (abfd);
 565
 566   pass_over (abfd, first_phase);
 567   return abfd->xvec;
 568 }
 569
 570 static void
 571 move_section_contents (abfd, section, locationp, offset, count, get)
 572      bfd *abfd;
 573      asection *section;
 574      PTR locationp;
 575      file_ptr offset;
 576      bfd_size_type count;
 577      boolean get;
 578 {
 579   bfd_vma addr;
 580   char *location = (char *) locationp;
 581   bfd_vma prev_number = 1;      /* Nothing can have this as a high bit*/
 582   struct data_struct *d = (struct data_struct *) NULL;
 583
 584   for (addr = section->vma; count != 0; count--, addr++)
 585     {
 586
 587       bfd_vma chunk_number = addr & ~CHUNK_MASK;        /* Get high bits of address */
 588       bfd_vma low_bits = addr & CHUNK_MASK;
 589
 590       if (chunk_number != prev_number)
 591         {
 592           /* Different chunk, so move pointer */
 593           d = find_chunk (abfd, chunk_number);
 594         }
 595
 596       if (get)
 597         {
 598           if (d->chunk_init[low_bits])
 599             {
 600               *location = d->chunk_data[low_bits];
 601             }
 602           else
 603             {
 604               *location = 0;
 605             }
 606         }
 607       else
 608         {
 609           d->chunk_data[low_bits] = *location;
 610           d->chunk_init[low_bits] = (*location != 0);
 611         }
 612
 613       location++;
 614
 615     }
 616
 617 }
 618 static boolean
 619 tekhex_get_section_contents (abfd, section, locationp, offset, count)
 620      bfd *abfd;
 621      asection *section;
 622      PTR locationp;
 623      file_ptr offset;
 624      bfd_size_type count;
 625 {
 626   if (section->flags & (SEC_LOAD | SEC_ALLOC))
 627     {
 628       move_section_contents (abfd, section, locationp, offset, count, true);
 629       return true;
 630     }
 631   else
 632     return false;
 633 }
 634
 635 boolean
 636 tekhex_set_arch_mach (abfd, arch, machine)
 637      bfd *abfd;
 638      enum bfd_architecture arch;
 639      unsigned long machine;
 640 {
 641   return bfd_default_set_arch_mach (abfd, arch, machine);
 642 }
 643
 644 /* we have to save up all the Tekhexords for a splurge before output,
 645     */
 646
 647 static boolean
 648 tekhex_set_section_contents (abfd, section, locationp, offset, bytes_to_do)
 649      bfd *abfd;
 650      sec_ptr section;
 651      PTR locationp;
 652      file_ptr offset;
 653      bfd_size_type bytes_to_do;
 654 {
 655
 656   if (abfd->output_has_begun == false)
 657     {
 658       /* The first time around, allocate enough sections to hold all the chunks */
 659       asection *s = abfd->sections;
 660       bfd_vma vma;
 661
 662       for (s = abfd->sections; s; s = s->next)
 663         {
 664           if (s->flags & SEC_LOAD)
 665             {
 666               for (vma = s->vma & ~CHUNK_MASK;
 667                    vma < s->vma + s->_raw_size;
 668                    vma += CHUNK_MASK)
 669                 find_chunk (abfd, vma);
 670             }
 671         }
 672
 673     }
 674   if (section->flags & (SEC_LOAD | SEC_ALLOC))
 675     {
 676       move_section_contents (abfd, section, locationp, offset, bytes_to_do, false);
 677       return true;
 678     }
 679   else
 680     return false;
 681
 682 }
 683
 684 static void
 685 writevalue (dst, value)
 686      char **dst;
 687      bfd_vma value;
 688 {
 689   char *p = *dst;
 690   int len;
 691   int shift;
 692
 693   for (len = 8, shift = 28; shift; shift -= 4, len--)
 694     {
 695       if ((value >> shift) & 0xf)
 696         {
 697           *p++ = len + '0';
 698           while (len)
 699             {
 700               *p++ = digs[(value >> shift) & 0xf];
 701               shift -= 4;
 702               len--;
 703             }
 704           *dst = p;
 705           return;
 706
 707         }
 708     }
 709   *p++ = '1';
 710   *p++ = '0';
 711   *dst = p;
 712 }
 713
 714 static void
 715 writesym (dst, sym)
 716      char **dst;
 717      CONST char *sym;
 718 {
 719   char *p = *dst;
 720   int len = (sym ? strlen (sym) : 0);
 721
 722   if (len >= 16)
 723     {
 724       *p++ = '0';
 725       len = 16;
 726     }
 727
 728   else
 729     {
 730       if (len == 0)
 731         {
 732           *p++ = '1';
 733           sym = "$";
 734           len = 1;
 735         }
 736       else
 737         {
 738           *p++ = digs[len];
 739         }
 740     }
 741
 742   while (len--)
 743     {
 744       *p++ = *sym++;
 745     }
 746   *dst = p;
 747 }
 748
 749 static void
 750 out (abfd, type, start, end)
 751      bfd *abfd;
 752      char type;
 753      char *start;
 754      char *end;
 755 {
 756   int sum = 0;
 757   char *s;
 758   char front[6];
 759   bfd_size_type wrlen;
 760
 761   front[0] = '%';
 762   TOHEX (front + 1, end - start + 5);
 763   front[3] = type;
 764
 765   for (s = start; s < end; s++)
 766     {
 767       sum += sum_block[(unsigned char) *s];
 768     }
 769
 770   sum += sum_block[(unsigned char) front[1]];   /*  length */
 771   sum += sum_block[(unsigned char) front[2]];
 772   sum += sum_block[(unsigned char) front[3]];   /* type */
 773   TOHEX (front + 4, sum);
 774   if (bfd_write (front, 1, 6, abfd) != 6)
 775     abort ();
 776   end[0] = '\n';
 777   wrlen = end - start + 1;
 778   if (bfd_write (start, 1, wrlen, abfd) != wrlen)
 779     abort ();
 780 }
 781
 782 static boolean
 783 tekhex_write_object_contents (abfd)
 784      bfd *abfd;
 785 {
 786   int bytes_written;
 787   char buffer[100];
 788   asymbol **p;
 789   asection *s;
 790   struct data_struct *d;
 791
 792   bytes_written = 0;
 793
 794   /* And the raw data */
 795   for (d = abfd->tdata.tekhex_data->data;
 796        d != (struct data_struct *) NULL;
 797        d = d->next)
 798     {
 799       int low;
 800
 801       CONST int span = 32;
 802       int addr;
 803
 804       /* Write it in blocks of 32 bytes */
 805
 806       for (addr = 0; addr < CHUNK_MASK + 1; addr += span)
 807         {
 808           int need = 0;
 809
 810           /* Check to see if necessary */
 811           for (low = 0; !need && low < span; low++)
 812             {
 813               if (d->chunk_init[addr + low])
 814                 need = 1;
 815             }
 816           if (need)
 817             {
 818               char *dst = buffer;
 819
 820               writevalue (&dst, addr + d->vma);
 821               for (low = 0; low < span; low++)
 822                 {
 823                   TOHEX (dst, d->chunk_data[addr + low]);
 824                   dst += 2;
 825                 }
 826               out (abfd, '6', buffer, dst);
 827             }
 828         }
 829     }
 830   /* write all the section headers for the sections */
 831   for (s = abfd->sections; s != (asection *) NULL; s = s->next)
 832     {
 833       char *dst = buffer;
 834
 835       writesym (&dst, s->name);
 836       *dst++ = '1';
 837       writevalue (&dst, s->vma);
 838       writevalue (&dst, s->vma + s->_raw_size);
 839       out (abfd, '3', buffer, dst);
 840     }
 841
 842   /* And the symbols */
 843   for (p = abfd->outsymbols; *p; p++)
 844     {
 845       int section_code = bfd_decode_symclass (*p);
 846
 847       if (section_code != '?')
 848         {                       /* do not include debug symbols */
 849           asymbol *s = *p;
 850           char *dst = buffer;
 851
 852           writesym (&dst, s->section->name);
 853
 854           switch (section_code)
 855             {
 856             case 'A':
 857               *dst++ = '2';
 858               break;
 859             case 'a':
 860               *dst++ = '6';
 861               break;
 862             case 'D':
 863             case 'B':
 864             case 'O':
 865               *dst++ = '4';
 866               break;
 867             case 'd':
 868             case 'b':
 869             case 'o':
 870               *dst++ = '8';
 871               break;
 872             case 'T':
 873               *dst++ = '3';
 874               break;
 875             case 't':
 876               *dst++ = '7';
 877               break;
 878             case 'C':
 879             case 'U':
 880               bfd_set_error (bfd_error_wrong_format);
 881               return false;
 882             }
 883
 884           writesym (&dst, s->name);
 885           writevalue (&dst, s->value + s->section->vma);
 886           out (abfd, '3', buffer, dst);
 887         }
 888     }
 889
 890   /* And the terminator */
 891   if (bfd_write ("%0781010\n", 1, 9, abfd) != 9)
 892     abort ();
 893   return true;
 894 }
 895
 896 static int
 897   tekhex_sizeof_headers (abfd, exec)
 898      bfd *abfd;
 899      boolean exec;
 900
 901 {
 902   return 0;
 903 }
 904
 905 static asymbol *
 906 tekhex_make_empty_symbol (abfd)
 907      bfd *abfd;
 908 {
 909   tekhex_symbol_type *new =
 910   (tekhex_symbol_type *) bfd_zalloc (abfd, sizeof (struct tekhex_symbol_struct));
 911
 912   if (!new)
 913     return NULL;
 914   new->symbol.the_bfd = abfd;
 915   new->prev = (struct tekhex_symbol_struct *) NULL;
 916   return &(new->symbol);
 917 }
 918
 919 static void
 920 tekhex_get_symbol_info (ignore_abfd, symbol, ret)
 921      bfd *ignore_abfd;
 922      asymbol *symbol;
 923      symbol_info *ret;
 924 {
 925   bfd_symbol_info (symbol, ret);
 926 }
 927
 928 static void
 929 tekhex_print_symbol (ignore_abfd, filep, symbol, how)
 930      bfd *ignore_abfd;
 931      PTR filep;
 932      asymbol *symbol;
 933      bfd_print_symbol_type how;
 934 {
 935   FILE *file = (FILE *) filep;
 936
 937   switch (how)
 938     {
 939     case bfd_print_symbol_name:
 940       fprintf (file, "%s", symbol->name);
 941       break;
 942     case bfd_print_symbol_more:
 943       break;
 944
 945     case bfd_print_symbol_all:
 946       {
 947         CONST char *section_name = symbol->section->name;
 948
 949         bfd_print_symbol_vandf ((PTR) file, symbol);
 950
 951         fprintf (file, " %-5s %s",
 952                  section_name,
 953                  symbol->name);
 954       }
 955     }
 956 }
 957
 958 #define tekhex_close_and_cleanup _bfd_generic_close_and_cleanup
 959 #define tekhex_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
 960 #define tekhex_new_section_hook _bfd_generic_new_section_hook
 961
 962 #define tekhex_bfd_is_local_label bfd_generic_is_local_label
 963 #define tekhex_get_lineno _bfd_nosymbols_get_lineno
 964 #define tekhex_find_nearest_line _bfd_nosymbols_find_nearest_line
 965 #define tekhex_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
 966 #define tekhex_read_minisymbols _bfd_generic_read_minisymbols
 967 #define tekhex_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
 968
 969 #define tekhex_bfd_get_relocated_section_contents \
 970   bfd_generic_get_relocated_section_contents
 971 #define tekhex_bfd_relax_section bfd_generic_relax_section
 972 #define tekhex_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
 973 #define tekhex_bfd_link_add_symbols _bfd_generic_link_add_symbols
 974 #define tekhex_bfd_final_link _bfd_generic_final_link
 975 #define tekhex_bfd_link_split_section _bfd_generic_link_split_section
 976
 977 #define tekhex_get_section_contents_in_window \
 978   _bfd_generic_get_section_contents_in_window
 979
 980 const bfd_target tekhex_vec =
 981 {
 982   "tekhex",                     /* name */
 983   bfd_target_tekhex_flavour,
 984   true,                         /* target byte order */
 985   true,                         /* target headers byte order */
 986   (EXEC_P |                     /* object flags */
 987    HAS_SYMS | HAS_LINENO | HAS_DEBUG | HAS_RELOC | HAS_LOCALS |
 988    WP_TEXT | D_PAGED),
 989   (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS
 990    | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */
 991   0,                            /* leading underscore */
 992   ' ',                          /* ar_pad_char */
 993   16,                           /* ar_max_namelen */
 994   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 995   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 996   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* data */
 997   bfd_getb64, bfd_getb_signed_64, bfd_putb64,
 998   bfd_getb32, bfd_getb_signed_32, bfd_putb32,
 999   bfd_getb16, bfd_getb_signed_16, bfd_putb16,   /* hdrs */
1000
1001   {
1002     _bfd_dummy_target,
1003     tekhex_object_p,            /* bfd_check_format */
1004     _bfd_dummy_target,
1005     _bfd_dummy_target,
1006   },
1007   {
1008     bfd_false,
1009     tekhex_mkobject,
1010     _bfd_generic_mkarchive,
1011     bfd_false,
1012   },
1013   {                             /* bfd_write_contents */
1014     bfd_false,
1015     tekhex_write_object_contents,
1016     _bfd_write_archive_contents,
1017     bfd_false,
1018   },
1019
1020   BFD_JUMP_TABLE_GENERIC (tekhex),
1021   BFD_JUMP_TABLE_COPY (_bfd_generic),
1022   BFD_JUMP_TABLE_CORE (_bfd_nocore),
1023   BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
1024   BFD_JUMP_TABLE_SYMBOLS (tekhex),
1025   BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
1026   BFD_JUMP_TABLE_WRITE (tekhex),
1027   BFD_JUMP_TABLE_LINK (tekhex),
1028   BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
1029
1030   (PTR) 0
1031 };