File: | src/gnu/usr.bin/binutils-2.17/bfd/srec.c |
Warning: | line 546, column 13 Array access (from variable 'data') results in a null pointer dereference |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | /* BFD back-end for s-record objects. | |||
2 | Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, | |||
3 | 2000, 2001, 2002, 2003, 2004, 2005 | |||
4 | Free Software Foundation, Inc. | |||
5 | Written by Steve Chamberlain of Cygnus Support <sac@cygnus.com>. | |||
6 | ||||
7 | This file is part of BFD, the Binary File Descriptor library. | |||
8 | ||||
9 | This program is free software; you can redistribute it and/or modify | |||
10 | it under the terms of the GNU General Public License as published by | |||
11 | the Free Software Foundation; either version 2 of the License, or | |||
12 | (at your option) any later version. | |||
13 | ||||
14 | This program is distributed in the hope that it will be useful, | |||
15 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |||
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |||
17 | GNU General Public License for more details. | |||
18 | ||||
19 | You should have received a copy of the GNU General Public License | |||
20 | along with this program; if not, write to the Free Software | |||
21 | Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */ | |||
22 | ||||
23 | /* SUBSECTION | |||
24 | S-Record handling | |||
25 | ||||
26 | DESCRIPTION | |||
27 | ||||
28 | Ordinary S-Records cannot hold anything but addresses and | |||
29 | data, so that's all that we implement. | |||
30 | ||||
31 | The only interesting thing is that S-Records may come out of | |||
32 | order and there is no header, so an initial scan is required | |||
33 | to discover the minimum and maximum addresses used to create | |||
34 | the vma and size of the only section we create. We | |||
35 | arbitrarily call this section ".text". | |||
36 | ||||
37 | When bfd_get_section_contents is called the file is read | |||
38 | again, and this time the data is placed into a bfd_alloc'd | |||
39 | area. | |||
40 | ||||
41 | Any number of sections may be created for output, we save them | |||
42 | up and output them when it's time to close the bfd. | |||
43 | ||||
44 | An s record looks like: | |||
45 | ||||
46 | EXAMPLE | |||
47 | S<type><length><address><data><checksum> | |||
48 | ||||
49 | DESCRIPTION | |||
50 | Where | |||
51 | o length | |||
52 | is the number of bytes following upto the checksum. Note that | |||
53 | this is not the number of chars following, since it takes two | |||
54 | chars to represent a byte. | |||
55 | o type | |||
56 | is one of: | |||
57 | 0) header record | |||
58 | 1) two byte address data record | |||
59 | 2) three byte address data record | |||
60 | 3) four byte address data record | |||
61 | 7) four byte address termination record | |||
62 | 8) three byte address termination record | |||
63 | 9) two byte address termination record | |||
64 | ||||
65 | o address | |||
66 | is the start address of the data following, or in the case of | |||
67 | a termination record, the start address of the image | |||
68 | o data | |||
69 | is the data. | |||
70 | o checksum | |||
71 | is the sum of all the raw byte data in the record, from the length | |||
72 | upwards, modulo 256 and subtracted from 255. | |||
73 | ||||
74 | SUBSECTION | |||
75 | Symbol S-Record handling | |||
76 | ||||
77 | DESCRIPTION | |||
78 | Some ICE equipment understands an addition to the standard | |||
79 | S-Record format; symbols and their addresses can be sent | |||
80 | before the data. | |||
81 | ||||
82 | The format of this is: | |||
83 | ($$ <modulename> | |||
84 | (<space> <symbol> <address>)*) | |||
85 | $$ | |||
86 | ||||
87 | so a short symbol table could look like: | |||
88 | ||||
89 | EXAMPLE | |||
90 | $$ flash.x | |||
91 | $$ flash.c | |||
92 | _port6 $0 | |||
93 | _delay $4 | |||
94 | _start $14 | |||
95 | _etext $8036 | |||
96 | _edata $8036 | |||
97 | _end $8036 | |||
98 | $$ | |||
99 | ||||
100 | DESCRIPTION | |||
101 | We allow symbols to be anywhere in the data stream - the module names | |||
102 | are always ignored. */ | |||
103 | ||||
104 | #include "bfd.h" | |||
105 | #include "sysdep.h" | |||
106 | #include "libbfd.h" | |||
107 | #include "libiberty.h" | |||
108 | #include "safe-ctype.h" | |||
109 | ||||
110 | ||||
111 | /* Macros for converting between hex and binary. */ | |||
112 | ||||
113 | static const char digs[] = "0123456789ABCDEF"; | |||
114 | ||||
115 | #define NIBBLE(x)((unsigned int) _hex_value[(unsigned char) (x)]) hex_value(x)((unsigned int) _hex_value[(unsigned char) (x)]) | |||
116 | #define HEX(buffer)((((unsigned int) _hex_value[(unsigned char) ((buffer)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((buffer)[1]) ])) ((NIBBLE ((buffer)[0])((unsigned int) _hex_value[(unsigned char) ((buffer)[0])])<<4) + NIBBLE ((buffer)[1])((unsigned int) _hex_value[(unsigned char) ((buffer)[1])])) | |||
117 | #define TOHEX(d, x, ch)d[1] = digs[(x) & 0xf]; d[0] = digs[((x)>>4)&0xf ]; ch += ((x) & 0xff); \ | |||
118 | d[1] = digs[(x) & 0xf]; \ | |||
119 | d[0] = digs[((x)>>4)&0xf]; \ | |||
120 | ch += ((x) & 0xff); | |||
121 | #define ISHEX(x)(((unsigned int) _hex_value[(unsigned char) (x)]) != 99) hex_p(x)(((unsigned int) _hex_value[(unsigned char) (x)]) != 99) | |||
122 | ||||
123 | /* The maximum number of address+data+crc bytes on a line is FF. */ | |||
124 | #define MAXCHUNK0xff 0xff | |||
125 | ||||
126 | /* Default size for a CHUNK. */ | |||
127 | #define DEFAULT_CHUNK16 16 | |||
128 | ||||
129 | /* The number of data bytes we actually fit onto a line on output. | |||
130 | This variable can be modified by objcopy's --srec-len parameter. | |||
131 | For a 0x75 byte record you should set --srec-len=0x70. */ | |||
132 | unsigned int Chunk = DEFAULT_CHUNK16; | |||
133 | ||||
134 | /* The type of srec output (free or forced to S3). | |||
135 | This variable can be modified by objcopy's --srec-forceS3 | |||
136 | parameter. */ | |||
137 | bfd_boolean S3Forced = FALSE0; | |||
138 | ||||
139 | /* When writing an S-record file, the S-records can not be output as | |||
140 | they are seen. This structure is used to hold them in memory. */ | |||
141 | ||||
142 | struct srec_data_list_struct | |||
143 | { | |||
144 | struct srec_data_list_struct *next; | |||
145 | bfd_byte *data; | |||
146 | bfd_vma where; | |||
147 | bfd_size_type size; | |||
148 | }; | |||
149 | ||||
150 | typedef struct srec_data_list_struct srec_data_list_type; | |||
151 | ||||
152 | /* When scanning the S-record file, a linked list of srec_symbol | |||
153 | structures is built to represent the symbol table (if there is | |||
154 | one). */ | |||
155 | ||||
156 | struct srec_symbol | |||
157 | { | |||
158 | struct srec_symbol *next; | |||
159 | const char *name; | |||
160 | bfd_vma val; | |||
161 | }; | |||
162 | ||||
163 | /* The S-record tdata information. */ | |||
164 | ||||
165 | typedef struct srec_data_struct | |||
166 | { | |||
167 | srec_data_list_type *head; | |||
168 | srec_data_list_type *tail; | |||
169 | unsigned int type; | |||
170 | struct srec_symbol *symbols; | |||
171 | struct srec_symbol *symtail; | |||
172 | asymbol *csymbols; | |||
173 | } | |||
174 | tdata_type; | |||
175 | ||||
176 | /* Initialize by filling in the hex conversion array. */ | |||
177 | ||||
178 | static void | |||
179 | srec_init (void) | |||
180 | { | |||
181 | static bfd_boolean inited = FALSE0; | |||
182 | ||||
183 | if (! inited) | |||
184 | { | |||
185 | inited = TRUE1; | |||
186 | hex_init (); | |||
187 | } | |||
188 | } | |||
189 | ||||
190 | /* Set up the S-record tdata information. */ | |||
191 | ||||
192 | static bfd_boolean | |||
193 | srec_mkobject (bfd *abfd) | |||
194 | { | |||
195 | tdata_type *tdata; | |||
196 | ||||
197 | srec_init (); | |||
198 | ||||
199 | tdata = bfd_alloc (abfd, sizeof (tdata_type)); | |||
200 | if (tdata == NULL((void*)0)) | |||
201 | return FALSE0; | |||
202 | ||||
203 | abfd->tdata.srec_data = tdata; | |||
204 | tdata->type = 1; | |||
205 | tdata->head = NULL((void*)0); | |||
206 | tdata->tail = NULL((void*)0); | |||
207 | tdata->symbols = NULL((void*)0); | |||
208 | tdata->symtail = NULL((void*)0); | |||
209 | tdata->csymbols = NULL((void*)0); | |||
210 | ||||
211 | return TRUE1; | |||
212 | } | |||
213 | ||||
214 | /* Read a byte from an S record file. Set *ERRORPTR if an error | |||
215 | occurred. Return EOF on error or end of file. */ | |||
216 | ||||
217 | static int | |||
218 | srec_get_byte (bfd *abfd, bfd_boolean *errorptr) | |||
219 | { | |||
220 | bfd_byte c; | |||
221 | ||||
222 | if (bfd_bread (&c, (bfd_size_type) 1, abfd) != 1) | |||
223 | { | |||
224 | if (bfd_get_error () != bfd_error_file_truncated) | |||
225 | *errorptr = TRUE1; | |||
226 | return EOF(-1); | |||
227 | } | |||
228 | ||||
229 | return (int) (c & 0xff); | |||
230 | } | |||
231 | ||||
232 | /* Report a problem in an S record file. FIXME: This probably should | |||
233 | not call fprintf, but we really do need some mechanism for printing | |||
234 | error messages. */ | |||
235 | ||||
236 | static void | |||
237 | srec_bad_byte (bfd *abfd, | |||
238 | unsigned int lineno, | |||
239 | int c, | |||
240 | bfd_boolean error) | |||
241 | { | |||
242 | if (c == EOF(-1)) | |||
243 | { | |||
244 | if (! error) | |||
245 | bfd_set_error (bfd_error_file_truncated); | |||
246 | } | |||
247 | else | |||
248 | { | |||
249 | char buf[10]; | |||
250 | ||||
251 | if (! ISPRINT (c)(_sch_istable[(c) & 0xff] & (unsigned short)(_sch_isprint ))) | |||
252 | sprintf (buf, "\\%03o", (unsigned int) c); | |||
253 | else | |||
254 | { | |||
255 | buf[0] = c; | |||
256 | buf[1] = '\0'; | |||
257 | } | |||
258 | (*_bfd_error_handler) | |||
259 | (_("%B:%d: Unexpected character `%s' in S-record file\n")("%B:%d: Unexpected character `%s' in S-record file\n"), | |||
260 | abfd, lineno, buf); | |||
261 | bfd_set_error (bfd_error_bad_value); | |||
262 | } | |||
263 | } | |||
264 | ||||
265 | /* Add a new symbol found in an S-record file. */ | |||
266 | ||||
267 | static bfd_boolean | |||
268 | srec_new_symbol (bfd *abfd, const char *name, bfd_vma val) | |||
269 | { | |||
270 | struct srec_symbol *n; | |||
271 | ||||
272 | n = bfd_alloc (abfd, sizeof (* n)); | |||
273 | if (n == NULL((void*)0)) | |||
274 | return FALSE0; | |||
275 | ||||
276 | n->name = name; | |||
277 | n->val = val; | |||
278 | ||||
279 | if (abfd->tdata.srec_data->symbols == NULL((void*)0)) | |||
280 | abfd->tdata.srec_data->symbols = n; | |||
281 | else | |||
282 | abfd->tdata.srec_data->symtail->next = n; | |||
283 | abfd->tdata.srec_data->symtail = n; | |||
284 | n->next = NULL((void*)0); | |||
285 | ||||
286 | ++abfd->symcount; | |||
287 | ||||
288 | return TRUE1; | |||
289 | } | |||
290 | ||||
291 | /* Read the S record file and turn it into sections. We create a new | |||
292 | section for each contiguous set of bytes. */ | |||
293 | ||||
294 | static bfd_boolean | |||
295 | srec_scan (bfd *abfd) | |||
296 | { | |||
297 | int c; | |||
298 | unsigned int lineno = 1; | |||
299 | bfd_boolean error = FALSE0; | |||
300 | bfd_byte *buf = NULL((void*)0); | |||
| ||||
301 | size_t bufsize = 0; | |||
302 | asection *sec = NULL((void*)0); | |||
303 | char *symbuf = NULL((void*)0); | |||
304 | ||||
305 | if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET0) != 0) | |||
306 | goto error_return; | |||
307 | ||||
308 | while ((c = srec_get_byte (abfd, &error)) != EOF(-1)) | |||
309 | { | |||
310 | /* We only build sections from contiguous S-records, so if this | |||
311 | is not an S-record, then stop building a section. */ | |||
312 | if (c != 'S' && c != '\r' && c != '\n') | |||
313 | sec = NULL((void*)0); | |||
314 | ||||
315 | switch (c) | |||
316 | { | |||
317 | default: | |||
318 | srec_bad_byte (abfd, lineno, c, error); | |||
319 | goto error_return; | |||
320 | ||||
321 | case '\n': | |||
322 | ++lineno; | |||
323 | break; | |||
324 | ||||
325 | case '\r': | |||
326 | break; | |||
327 | ||||
328 | case '$': | |||
329 | /* Starting a module name, which we ignore. */ | |||
330 | while ((c = srec_get_byte (abfd, &error)) != '\n' | |||
331 | && c != EOF(-1)) | |||
332 | ; | |||
333 | if (c == EOF(-1)) | |||
334 | { | |||
335 | srec_bad_byte (abfd, lineno, c, error); | |||
336 | goto error_return; | |||
337 | } | |||
338 | ||||
339 | ++lineno; | |||
340 | break; | |||
341 | ||||
342 | case ' ': | |||
343 | do | |||
344 | { | |||
345 | bfd_size_type alc; | |||
346 | char *p, *symname; | |||
347 | bfd_vma symval; | |||
348 | ||||
349 | /* Starting a symbol definition. */ | |||
350 | while ((c = srec_get_byte (abfd, &error)) != EOF(-1) | |||
351 | && (c == ' ' || c == '\t')) | |||
352 | ; | |||
353 | ||||
354 | if (c == '\n' || c == '\r') | |||
355 | break; | |||
356 | ||||
357 | if (c == EOF(-1)) | |||
358 | { | |||
359 | srec_bad_byte (abfd, lineno, c, error); | |||
360 | goto error_return; | |||
361 | } | |||
362 | ||||
363 | alc = 10; | |||
364 | symbuf = bfd_malloc (alc + 1); | |||
365 | if (symbuf == NULL((void*)0)) | |||
366 | goto error_return; | |||
367 | ||||
368 | p = symbuf; | |||
369 | ||||
370 | *p++ = c; | |||
371 | while ((c = srec_get_byte (abfd, &error)) != EOF(-1) | |||
372 | && ! ISSPACE (c)(_sch_istable[(c) & 0xff] & (unsigned short)(_sch_isspace ))) | |||
373 | { | |||
374 | if ((bfd_size_type) (p - symbuf) >= alc) | |||
375 | { | |||
376 | char *n; | |||
377 | ||||
378 | alc *= 2; | |||
379 | n = bfd_realloc (symbuf, alc + 1); | |||
380 | if (n == NULL((void*)0)) | |||
381 | goto error_return; | |||
382 | p = n + (p - symbuf); | |||
383 | symbuf = n; | |||
384 | } | |||
385 | ||||
386 | *p++ = c; | |||
387 | } | |||
388 | ||||
389 | if (c == EOF(-1)) | |||
390 | { | |||
391 | srec_bad_byte (abfd, lineno, c, error); | |||
392 | goto error_return; | |||
393 | } | |||
394 | ||||
395 | *p++ = '\0'; | |||
396 | symname = bfd_alloc (abfd, (bfd_size_type) (p - symbuf)); | |||
397 | if (symname == NULL((void*)0)) | |||
398 | goto error_return; | |||
399 | strcpy (symname, symbuf); | |||
400 | free (symbuf); | |||
401 | symbuf = NULL((void*)0); | |||
402 | ||||
403 | while ((c = srec_get_byte (abfd, &error)) != EOF(-1) | |||
404 | && (c == ' ' || c == '\t')) | |||
405 | ; | |||
406 | if (c == EOF(-1)) | |||
407 | { | |||
408 | srec_bad_byte (abfd, lineno, c, error); | |||
409 | goto error_return; | |||
410 | } | |||
411 | ||||
412 | /* Skip a dollar sign before the hex value. */ | |||
413 | if (c == '$') | |||
414 | { | |||
415 | c = srec_get_byte (abfd, &error); | |||
416 | if (c == EOF(-1)) | |||
417 | { | |||
418 | srec_bad_byte (abfd, lineno, c, error); | |||
419 | goto error_return; | |||
420 | } | |||
421 | } | |||
422 | ||||
423 | symval = 0; | |||
424 | while (ISHEX (c)(((unsigned int) _hex_value[(unsigned char) (c)]) != 99)) | |||
425 | { | |||
426 | symval <<= 4; | |||
427 | symval += NIBBLE (c)((unsigned int) _hex_value[(unsigned char) (c)]); | |||
428 | c = srec_get_byte (abfd, &error); | |||
429 | } | |||
430 | ||||
431 | if (! srec_new_symbol (abfd, symname, symval)) | |||
432 | goto error_return; | |||
433 | } | |||
434 | while (c == ' ' || c == '\t') | |||
435 | ; | |||
436 | ||||
437 | if (c == '\n') | |||
438 | ++lineno; | |||
439 | else if (c != '\r') | |||
440 | { | |||
441 | srec_bad_byte (abfd, lineno, c, error); | |||
442 | goto error_return; | |||
443 | } | |||
444 | ||||
445 | break; | |||
446 | ||||
447 | case 'S': | |||
448 | { | |||
449 | file_ptr pos; | |||
450 | char hdr[3]; | |||
451 | unsigned int bytes; | |||
452 | bfd_vma address; | |||
453 | bfd_byte *data; | |||
454 | ||||
455 | /* Starting an S-record. */ | |||
456 | ||||
457 | pos = bfd_tell (abfd) - 1; | |||
458 | ||||
459 | if (bfd_bread (hdr, (bfd_size_type) 3, abfd) != 3) | |||
460 | goto error_return; | |||
461 | ||||
462 | if (! ISHEX (hdr[1])(((unsigned int) _hex_value[(unsigned char) (hdr[1])]) != 99) || ! ISHEX (hdr[2])(((unsigned int) _hex_value[(unsigned char) (hdr[2])]) != 99)) | |||
463 | { | |||
464 | if (! ISHEX (hdr[1])(((unsigned int) _hex_value[(unsigned char) (hdr[1])]) != 99)) | |||
465 | c = hdr[1]; | |||
466 | else | |||
467 | c = hdr[2]; | |||
468 | srec_bad_byte (abfd, lineno, c, error); | |||
469 | goto error_return; | |||
470 | } | |||
471 | ||||
472 | bytes = HEX (hdr + 1)((((unsigned int) _hex_value[(unsigned char) ((hdr + 1)[0])]) <<4) + ((unsigned int) _hex_value[(unsigned char) ((hdr + 1)[1])])); | |||
473 | if (bytes * 2 > bufsize) | |||
474 | { | |||
475 | if (buf != NULL((void*)0)) | |||
476 | free (buf); | |||
477 | buf = bfd_malloc ((bfd_size_type) bytes * 2); | |||
478 | if (buf == NULL((void*)0)) | |||
479 | goto error_return; | |||
480 | bufsize = bytes * 2; | |||
481 | } | |||
482 | ||||
483 | if (bfd_bread (buf, (bfd_size_type) bytes * 2, abfd) != bytes * 2) | |||
484 | goto error_return; | |||
485 | ||||
486 | /* Ignore the checksum byte. */ | |||
487 | --bytes; | |||
488 | ||||
489 | address = 0; | |||
490 | data = buf; | |||
491 | switch (hdr[0]) | |||
492 | { | |||
493 | case '0': | |||
494 | case '5': | |||
495 | /* Prologue--ignore the file name, but stop building a | |||
496 | section at this point. */ | |||
497 | sec = NULL((void*)0); | |||
498 | break; | |||
499 | ||||
500 | case '3': | |||
501 | address = HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
502 | data += 2; | |||
503 | --bytes; | |||
504 | /* Fall through. */ | |||
505 | case '2': | |||
506 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
507 | data += 2; | |||
508 | --bytes; | |||
509 | /* Fall through. */ | |||
510 | case '1': | |||
511 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
512 | data += 2; | |||
513 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
514 | data += 2; | |||
515 | bytes -= 2; | |||
516 | ||||
517 | if (sec != NULL((void*)0) | |||
518 | && sec->vma + sec->size == address) | |||
519 | { | |||
520 | /* This data goes at the end of the section we are | |||
521 | currently building. */ | |||
522 | sec->size += bytes; | |||
523 | } | |||
524 | else | |||
525 | { | |||
526 | char secbuf[20]; | |||
527 | char *secname; | |||
528 | bfd_size_type amt; | |||
529 | ||||
530 | sprintf (secbuf, ".sec%d", bfd_count_sections (abfd)((abfd)->section_count) + 1); | |||
531 | amt = strlen (secbuf) + 1; | |||
532 | secname = bfd_alloc (abfd, amt); | |||
533 | strcpy (secname, secbuf); | |||
534 | sec = bfd_make_section (abfd, secname); | |||
535 | if (sec == NULL((void*)0)) | |||
536 | goto error_return; | |||
537 | sec->flags = SEC_HAS_CONTENTS0x100 | SEC_LOAD0x002 | SEC_ALLOC0x001; | |||
538 | sec->vma = address; | |||
539 | sec->lma = address; | |||
540 | sec->size = bytes; | |||
541 | sec->filepos = pos; | |||
542 | } | |||
543 | break; | |||
544 | ||||
545 | case '7': | |||
546 | address = HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
| ||||
547 | data += 2; | |||
548 | /* Fall through. */ | |||
549 | case '8': | |||
550 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
551 | data += 2; | |||
552 | /* Fall through. */ | |||
553 | case '9': | |||
554 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
555 | data += 2; | |||
556 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
557 | data += 2; | |||
558 | ||||
559 | /* This is a termination record. */ | |||
560 | abfd->start_address = address; | |||
561 | ||||
562 | if (buf != NULL((void*)0)) | |||
563 | free (buf); | |||
564 | ||||
565 | return TRUE1; | |||
566 | } | |||
567 | } | |||
568 | break; | |||
569 | } | |||
570 | } | |||
571 | ||||
572 | if (error) | |||
573 | goto error_return; | |||
574 | ||||
575 | if (buf != NULL((void*)0)) | |||
576 | free (buf); | |||
577 | ||||
578 | return TRUE1; | |||
579 | ||||
580 | error_return: | |||
581 | if (symbuf != NULL((void*)0)) | |||
582 | free (symbuf); | |||
583 | if (buf != NULL((void*)0)) | |||
584 | free (buf); | |||
585 | return FALSE0; | |||
586 | } | |||
587 | ||||
588 | /* Check whether an existing file is an S-record file. */ | |||
589 | ||||
590 | static const bfd_target * | |||
591 | srec_object_p (bfd *abfd) | |||
592 | { | |||
593 | void * tdata_save; | |||
594 | bfd_byte b[4]; | |||
595 | ||||
596 | srec_init (); | |||
597 | ||||
598 | if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET0) != 0 | |||
599 | || bfd_bread (b, (bfd_size_type) 4, abfd) != 4) | |||
600 | return NULL((void*)0); | |||
601 | ||||
602 | if (b[0] != 'S' || !ISHEX (b[1])(((unsigned int) _hex_value[(unsigned char) (b[1])]) != 99) || !ISHEX (b[2])(((unsigned int) _hex_value[(unsigned char) (b[2])]) != 99) || !ISHEX (b[3])(((unsigned int) _hex_value[(unsigned char) (b[3])]) != 99)) | |||
603 | { | |||
604 | bfd_set_error (bfd_error_wrong_format); | |||
605 | return NULL((void*)0); | |||
606 | } | |||
607 | ||||
608 | tdata_save = abfd->tdata.any; | |||
609 | if (! srec_mkobject (abfd) || ! srec_scan (abfd)) | |||
610 | { | |||
611 | if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL((void*)0)) | |||
612 | bfd_release (abfd, abfd->tdata.any); | |||
613 | abfd->tdata.any = tdata_save; | |||
614 | return NULL((void*)0); | |||
615 | } | |||
616 | ||||
617 | if (abfd->symcount > 0) | |||
618 | abfd->flags |= HAS_SYMS0x10; | |||
619 | ||||
620 | return abfd->xvec; | |||
621 | } | |||
622 | ||||
623 | /* Check whether an existing file is an S-record file with symbols. */ | |||
624 | ||||
625 | static const bfd_target * | |||
626 | symbolsrec_object_p (bfd *abfd) | |||
627 | { | |||
628 | void * tdata_save; | |||
629 | char b[2]; | |||
630 | ||||
631 | srec_init (); | |||
632 | ||||
633 | if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET0) != 0 | |||
634 | || bfd_bread (b, (bfd_size_type) 2, abfd) != 2) | |||
635 | return NULL((void*)0); | |||
636 | ||||
637 | if (b[0] != '$' || b[1] != '$') | |||
638 | { | |||
639 | bfd_set_error (bfd_error_wrong_format); | |||
640 | return NULL((void*)0); | |||
641 | } | |||
642 | ||||
643 | tdata_save = abfd->tdata.any; | |||
644 | if (! srec_mkobject (abfd) || ! srec_scan (abfd)) | |||
645 | { | |||
646 | if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL((void*)0)) | |||
647 | bfd_release (abfd, abfd->tdata.any); | |||
648 | abfd->tdata.any = tdata_save; | |||
649 | return NULL((void*)0); | |||
650 | } | |||
651 | ||||
652 | if (abfd->symcount > 0) | |||
653 | abfd->flags |= HAS_SYMS0x10; | |||
654 | ||||
655 | return abfd->xvec; | |||
656 | } | |||
657 | ||||
658 | /* Read in the contents of a section in an S-record file. */ | |||
659 | ||||
660 | static bfd_boolean | |||
661 | srec_read_section (bfd *abfd, asection *section, bfd_byte *contents) | |||
662 | { | |||
663 | int c; | |||
664 | bfd_size_type sofar = 0; | |||
665 | bfd_boolean error = FALSE0; | |||
666 | bfd_byte *buf = NULL((void*)0); | |||
667 | size_t bufsize = 0; | |||
668 | ||||
669 | if (bfd_seek (abfd, section->filepos, SEEK_SET0) != 0) | |||
670 | goto error_return; | |||
671 | ||||
672 | while ((c = srec_get_byte (abfd, &error)) != EOF(-1)) | |||
673 | { | |||
674 | bfd_byte hdr[3]; | |||
675 | unsigned int bytes; | |||
676 | bfd_vma address; | |||
677 | bfd_byte *data; | |||
678 | ||||
679 | if (c == '\r' || c == '\n') | |||
680 | continue; | |||
681 | ||||
682 | /* This is called after srec_scan has already been called, so we | |||
683 | ought to know the exact format. */ | |||
684 | BFD_ASSERT (c == 'S')do { if (!(c == 'S')) bfd_assert("/usr/src/gnu/usr.bin/binutils-2.17/bfd/srec.c" ,684); } while (0); | |||
685 | ||||
686 | if (bfd_bread (hdr, (bfd_size_type) 3, abfd) != 3) | |||
687 | goto error_return; | |||
688 | ||||
689 | BFD_ASSERT (ISHEX (hdr[1]) && ISHEX (hdr[2]))do { if (!((((unsigned int) _hex_value[(unsigned char) (hdr[1 ])]) != 99) && (((unsigned int) _hex_value[(unsigned char ) (hdr[2])]) != 99))) bfd_assert("/usr/src/gnu/usr.bin/binutils-2.17/bfd/srec.c" ,689); } while (0); | |||
690 | ||||
691 | bytes = HEX (hdr + 1)((((unsigned int) _hex_value[(unsigned char) ((hdr + 1)[0])]) <<4) + ((unsigned int) _hex_value[(unsigned char) ((hdr + 1)[1])])); | |||
692 | ||||
693 | if (bytes * 2 > bufsize) | |||
694 | { | |||
695 | if (buf != NULL((void*)0)) | |||
696 | free (buf); | |||
697 | buf = bfd_malloc ((bfd_size_type) bytes * 2); | |||
698 | if (buf == NULL((void*)0)) | |||
699 | goto error_return; | |||
700 | bufsize = bytes * 2; | |||
701 | } | |||
702 | ||||
703 | if (bfd_bread (buf, (bfd_size_type) bytes * 2, abfd) != bytes * 2) | |||
704 | goto error_return; | |||
705 | ||||
706 | address = 0; | |||
707 | data = buf; | |||
708 | switch (hdr[0]) | |||
709 | { | |||
710 | default: | |||
711 | BFD_ASSERT (sofar == section->size)do { if (!(sofar == section->size)) bfd_assert("/usr/src/gnu/usr.bin/binutils-2.17/bfd/srec.c" ,711); } while (0); | |||
712 | if (buf != NULL((void*)0)) | |||
713 | free (buf); | |||
714 | return TRUE1; | |||
715 | ||||
716 | case '3': | |||
717 | address = HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
718 | data += 2; | |||
719 | --bytes; | |||
720 | /* Fall through. */ | |||
721 | case '2': | |||
722 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
723 | data += 2; | |||
724 | --bytes; | |||
725 | /* Fall through. */ | |||
726 | case '1': | |||
727 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
728 | data += 2; | |||
729 | address = (address << 8) | HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
730 | data += 2; | |||
731 | bytes -= 2; | |||
732 | ||||
733 | if (address != section->vma + sofar) | |||
734 | { | |||
735 | /* We've come to the end of this section. */ | |||
736 | BFD_ASSERT (sofar == section->size)do { if (!(sofar == section->size)) bfd_assert("/usr/src/gnu/usr.bin/binutils-2.17/bfd/srec.c" ,736); } while (0); | |||
737 | if (buf != NULL((void*)0)) | |||
738 | free (buf); | |||
739 | return TRUE1; | |||
740 | } | |||
741 | ||||
742 | /* Don't consider checksum. */ | |||
743 | --bytes; | |||
744 | ||||
745 | while (bytes-- != 0) | |||
746 | { | |||
747 | contents[sofar] = HEX (data)((((unsigned int) _hex_value[(unsigned char) ((data)[0])])<< 4) + ((unsigned int) _hex_value[(unsigned char) ((data)[1])]) ); | |||
748 | data += 2; | |||
749 | ++sofar; | |||
750 | } | |||
751 | ||||
752 | break; | |||
753 | } | |||
754 | } | |||
755 | ||||
756 | if (error) | |||
757 | goto error_return; | |||
758 | ||||
759 | BFD_ASSERT (sofar == section->size)do { if (!(sofar == section->size)) bfd_assert("/usr/src/gnu/usr.bin/binutils-2.17/bfd/srec.c" ,759); } while (0); | |||
760 | ||||
761 | if (buf != NULL((void*)0)) | |||
762 | free (buf); | |||
763 | ||||
764 | return TRUE1; | |||
765 | ||||
766 | error_return: | |||
767 | if (buf != NULL((void*)0)) | |||
768 | free (buf); | |||
769 | return FALSE0; | |||
770 | } | |||
771 | ||||
772 | /* Get the contents of a section in an S-record file. */ | |||
773 | ||||
774 | static bfd_boolean | |||
775 | srec_get_section_contents (bfd *abfd, | |||
776 | asection *section, | |||
777 | void * location, | |||
778 | file_ptr offset, | |||
779 | bfd_size_type count) | |||
780 | { | |||
781 | if (section->used_by_bfd == NULL((void*)0)) | |||
782 | { | |||
783 | section->used_by_bfd = bfd_alloc (abfd, section->size); | |||
784 | if (section->used_by_bfd == NULL((void*)0) && section->size != 0) | |||
785 | return FALSE0; | |||
786 | ||||
787 | if (! srec_read_section (abfd, section, section->used_by_bfd)) | |||
788 | return FALSE0; | |||
789 | } | |||
790 | ||||
791 | memcpy (location, (bfd_byte *) section->used_by_bfd + offset, | |||
792 | (size_t) count); | |||
793 | ||||
794 | return TRUE1; | |||
795 | } | |||
796 | ||||
797 | /* Set the architecture. We accept an unknown architecture here. */ | |||
798 | ||||
799 | static bfd_boolean | |||
800 | srec_set_arch_mach (bfd *abfd, enum bfd_architecture arch, unsigned long mach) | |||
801 | { | |||
802 | if (arch != bfd_arch_unknown) | |||
803 | return bfd_default_set_arch_mach (abfd, arch, mach); | |||
804 | ||||
805 | abfd->arch_info = & bfd_default_arch_struct; | |||
806 | return TRUE1; | |||
807 | } | |||
808 | ||||
809 | /* We have to save up all the Srecords for a splurge before output. */ | |||
810 | ||||
811 | static bfd_boolean | |||
812 | srec_set_section_contents (bfd *abfd, | |||
813 | sec_ptr section, | |||
814 | const void * location, | |||
815 | file_ptr offset, | |||
816 | bfd_size_type bytes_to_do) | |||
817 | { | |||
818 | tdata_type *tdata = abfd->tdata.srec_data; | |||
819 | srec_data_list_type *entry; | |||
820 | ||||
821 | entry = bfd_alloc (abfd, sizeof (* entry)); | |||
822 | if (entry == NULL((void*)0)) | |||
823 | return FALSE0; | |||
824 | ||||
825 | if (bytes_to_do | |||
826 | && (section->flags & SEC_ALLOC0x001) | |||
827 | && (section->flags & SEC_LOAD0x002)) | |||
828 | { | |||
829 | bfd_byte *data; | |||
830 | ||||
831 | data = bfd_alloc (abfd, bytes_to_do); | |||
832 | if (data == NULL((void*)0)) | |||
833 | return FALSE0; | |||
834 | memcpy ((void *) data, location, (size_t) bytes_to_do); | |||
835 | ||||
836 | /* Ff S3Forced is TRUE then always select S3 records, | |||
837 | regardless of the siez of the addresses. */ | |||
838 | if (S3Forced) | |||
839 | tdata->type = 3; | |||
840 | else if ((section->lma + offset + bytes_to_do - 1) <= 0xffff) | |||
841 | ; /* The default, S1, is OK. */ | |||
842 | else if ((section->lma + offset + bytes_to_do - 1) <= 0xffffff | |||
843 | && tdata->type <= 2) | |||
844 | tdata->type = 2; | |||
845 | else | |||
846 | tdata->type = 3; | |||
847 | ||||
848 | entry->data = data; | |||
849 | entry->where = section->lma + offset; | |||
850 | entry->size = bytes_to_do; | |||
851 | ||||
852 | /* Sort the records by address. Optimize for the common case of | |||
853 | adding a record to the end of the list. */ | |||
854 | if (tdata->tail != NULL((void*)0) | |||
855 | && entry->where >= tdata->tail->where) | |||
856 | { | |||
857 | tdata->tail->next = entry; | |||
858 | entry->next = NULL((void*)0); | |||
859 | tdata->tail = entry; | |||
860 | } | |||
861 | else | |||
862 | { | |||
863 | srec_data_list_type **look; | |||
864 | ||||
865 | for (look = &tdata->head; | |||
866 | *look != NULL((void*)0) && (*look)->where < entry->where; | |||
867 | look = &(*look)->next) | |||
868 | ; | |||
869 | entry->next = *look; | |||
870 | *look = entry; | |||
871 | if (entry->next == NULL((void*)0)) | |||
872 | tdata->tail = entry; | |||
873 | } | |||
874 | } | |||
875 | return TRUE1; | |||
876 | } | |||
877 | ||||
878 | /* Write a record of type, of the supplied number of bytes. The | |||
879 | supplied bytes and length don't have a checksum. That's worked out | |||
880 | here. */ | |||
881 | ||||
882 | static bfd_boolean | |||
883 | srec_write_record (bfd *abfd, | |||
884 | unsigned int type, | |||
885 | bfd_vma address, | |||
886 | const bfd_byte *data, | |||
887 | const bfd_byte *end) | |||
888 | { | |||
889 | char buffer[2 * MAXCHUNK0xff + 6]; | |||
890 | unsigned int check_sum = 0; | |||
891 | const bfd_byte *src = data; | |||
892 | char *dst = buffer; | |||
893 | char *length; | |||
894 | bfd_size_type wrlen; | |||
895 | ||||
896 | *dst++ = 'S'; | |||
897 | *dst++ = '0' + type; | |||
898 | ||||
899 | length = dst; | |||
900 | dst += 2; /* Leave room for dst. */ | |||
901 | ||||
902 | switch (type) | |||
903 | { | |||
904 | case 3: | |||
905 | case 7: | |||
906 | TOHEX (dst, (address >> 24), check_sum)dst[1] = digs[((address >> 24)) & 0xf]; dst[0] = digs [(((address >> 24))>>4)&0xf]; check_sum += (( (address >> 24)) & 0xff);; | |||
907 | dst += 2; | |||
908 | case 8: | |||
909 | case 2: | |||
910 | TOHEX (dst, (address >> 16), check_sum)dst[1] = digs[((address >> 16)) & 0xf]; dst[0] = digs [(((address >> 16))>>4)&0xf]; check_sum += (( (address >> 16)) & 0xff);; | |||
911 | dst += 2; | |||
912 | case 9: | |||
913 | case 1: | |||
914 | case 0: | |||
915 | TOHEX (dst, (address >> 8), check_sum)dst[1] = digs[((address >> 8)) & 0xf]; dst[0] = digs [(((address >> 8))>>4)&0xf]; check_sum += ((( address >> 8)) & 0xff);; | |||
916 | dst += 2; | |||
917 | TOHEX (dst, (address), check_sum)dst[1] = digs[((address)) & 0xf]; dst[0] = digs[(((address ))>>4)&0xf]; check_sum += (((address)) & 0xff);; | |||
918 | dst += 2; | |||
919 | break; | |||
920 | ||||
921 | } | |||
922 | for (src = data; src < end; src++) | |||
923 | { | |||
924 | TOHEX (dst, *src, check_sum)dst[1] = digs[(*src) & 0xf]; dst[0] = digs[((*src)>> 4)&0xf]; check_sum += ((*src) & 0xff);; | |||
925 | dst += 2; | |||
926 | } | |||
927 | ||||
928 | /* Fill in the length. */ | |||
929 | TOHEX (length, (dst - length) / 2, check_sum)length[1] = digs[((dst - length) / 2) & 0xf]; length[0] = digs[(((dst - length) / 2)>>4)&0xf]; check_sum += ( ((dst - length) / 2) & 0xff);; | |||
930 | check_sum &= 0xff; | |||
931 | check_sum = 255 - check_sum; | |||
932 | TOHEX (dst, check_sum, check_sum)dst[1] = digs[(check_sum) & 0xf]; dst[0] = digs[((check_sum )>>4)&0xf]; check_sum += ((check_sum) & 0xff);; | |||
933 | dst += 2; | |||
934 | ||||
935 | *dst++ = '\r'; | |||
936 | *dst++ = '\n'; | |||
937 | wrlen = dst - buffer; | |||
938 | ||||
939 | return bfd_bwrite ((void *) buffer, wrlen, abfd) == wrlen; | |||
940 | } | |||
941 | ||||
942 | static bfd_boolean | |||
943 | srec_write_header (bfd *abfd) | |||
944 | { | |||
945 | unsigned int len = strlen (abfd->filename); | |||
946 | ||||
947 | /* I'll put an arbitrary 40 char limit on header size. */ | |||
948 | if (len > 40) | |||
949 | len = 40; | |||
950 | ||||
951 | return srec_write_record (abfd, 0, (bfd_vma) 0, | |||
952 | (bfd_byte *) abfd->filename, | |||
953 | (bfd_byte *) abfd->filename + len); | |||
954 | } | |||
955 | ||||
956 | static bfd_boolean | |||
957 | srec_write_section (bfd *abfd, | |||
958 | tdata_type *tdata, | |||
959 | srec_data_list_type *list) | |||
960 | { | |||
961 | unsigned int octets_written = 0; | |||
962 | bfd_byte *location = list->data; | |||
963 | ||||
964 | /* Validate number of data bytes to write. The srec length byte | |||
965 | counts the address, data and crc bytes. S1 (tdata->type == 1) | |||
966 | records have two address bytes, S2 (tdata->type == 2) records | |||
967 | have three, and S3 (tdata->type == 3) records have four. | |||
968 | The total length can't exceed 255, and a zero data length will | |||
969 | spin for a long time. */ | |||
970 | if (Chunk == 0) | |||
971 | Chunk = 1; | |||
972 | else if (Chunk > MAXCHUNK0xff - tdata->type - 2) | |||
973 | Chunk = MAXCHUNK0xff - tdata->type - 2; | |||
974 | ||||
975 | while (octets_written < list->size) | |||
976 | { | |||
977 | bfd_vma address; | |||
978 | unsigned int octets_this_chunk = list->size - octets_written; | |||
979 | ||||
980 | if (octets_this_chunk > Chunk) | |||
981 | octets_this_chunk = Chunk; | |||
982 | ||||
983 | address = list->where + octets_written / bfd_octets_per_byte (abfd); | |||
984 | ||||
985 | if (! srec_write_record (abfd, | |||
986 | tdata->type, | |||
987 | address, | |||
988 | location, | |||
989 | location + octets_this_chunk)) | |||
990 | return FALSE0; | |||
991 | ||||
992 | octets_written += octets_this_chunk; | |||
993 | location += octets_this_chunk; | |||
994 | } | |||
995 | ||||
996 | return TRUE1; | |||
997 | } | |||
998 | ||||
999 | static bfd_boolean | |||
1000 | srec_write_terminator (bfd *abfd, tdata_type *tdata) | |||
1001 | { | |||
1002 | return srec_write_record (abfd, 10 - tdata->type, | |||
1003 | abfd->start_address, NULL((void*)0), NULL((void*)0)); | |||
1004 | } | |||
1005 | ||||
1006 | static bfd_boolean | |||
1007 | srec_write_symbols (bfd *abfd) | |||
1008 | { | |||
1009 | /* Dump out the symbols of a bfd. */ | |||
1010 | int i; | |||
1011 | int count = bfd_get_symcount (abfd)((abfd)->symcount); | |||
1012 | ||||
1013 | if (count) | |||
1014 | { | |||
1015 | bfd_size_type len; | |||
1016 | asymbol **table = bfd_get_outsymbols (abfd)((abfd)->outsymbols); | |||
1017 | ||||
1018 | len = strlen (abfd->filename); | |||
1019 | if (bfd_bwrite ("$$ ", (bfd_size_type) 3, abfd) != 3 | |||
1020 | || bfd_bwrite (abfd->filename, len, abfd) != len | |||
1021 | || bfd_bwrite ("\r\n", (bfd_size_type) 2, abfd) != 2) | |||
1022 | return FALSE0; | |||
1023 | ||||
1024 | for (i = 0; i < count; i++) | |||
1025 | { | |||
1026 | asymbol *s = table[i]; | |||
1027 | if (! bfd_is_local_label (abfd, s) | |||
1028 | && (s->flags & BSF_DEBUGGING0x08) == 0) | |||
1029 | { | |||
1030 | /* Just dump out non debug symbols. */ | |||
1031 | char buf[43], *p; | |||
1032 | ||||
1033 | len = strlen (s->name); | |||
1034 | if (bfd_bwrite (" ", (bfd_size_type) 2, abfd) != 2 | |||
1035 | || bfd_bwrite (s->name, len, abfd) != len) | |||
1036 | return FALSE0; | |||
1037 | ||||
1038 | sprintf_vma (buf + 2, (s->valuesprintf (buf + 2, "%016lx", (s->value + s->section-> output_section->lma + s->section->output_offset)) | |||
1039 | + s->section->output_section->lmasprintf (buf + 2, "%016lx", (s->value + s->section-> output_section->lma + s->section->output_offset)) | |||
1040 | + s->section->output_offset))sprintf (buf + 2, "%016lx", (s->value + s->section-> output_section->lma + s->section->output_offset)); | |||
1041 | p = buf + 2; | |||
1042 | while (p[0] == '0' && p[1] != 0) | |||
1043 | p++; | |||
1044 | len = strlen (p); | |||
1045 | p[len] = '\r'; | |||
1046 | p[len + 1] = '\n'; | |||
1047 | *--p = '$'; | |||
1048 | *--p = ' '; | |||
1049 | len += 4; | |||
1050 | if (bfd_bwrite (p, len, abfd) != len) | |||
1051 | return FALSE0; | |||
1052 | } | |||
1053 | } | |||
1054 | if (bfd_bwrite ("$$ \r\n", (bfd_size_type) 5, abfd) != 5) | |||
1055 | return FALSE0; | |||
1056 | } | |||
1057 | ||||
1058 | return TRUE1; | |||
1059 | } | |||
1060 | ||||
1061 | static bfd_boolean | |||
1062 | internal_srec_write_object_contents (bfd *abfd, int symbols) | |||
1063 | { | |||
1064 | tdata_type *tdata = abfd->tdata.srec_data; | |||
1065 | srec_data_list_type *list; | |||
1066 | ||||
1067 | if (symbols) | |||
1068 | { | |||
1069 | if (! srec_write_symbols (abfd)) | |||
1070 | return FALSE0; | |||
1071 | } | |||
1072 | ||||
1073 | if (! srec_write_header (abfd)) | |||
1074 | return FALSE0; | |||
1075 | ||||
1076 | /* Now wander though all the sections provided and output them. */ | |||
1077 | list = tdata->head; | |||
1078 | ||||
1079 | while (list != (srec_data_list_type *) NULL((void*)0)) | |||
1080 | { | |||
1081 | if (! srec_write_section (abfd, tdata, list)) | |||
1082 | return FALSE0; | |||
1083 | list = list->next; | |||
1084 | } | |||
1085 | return srec_write_terminator (abfd, tdata); | |||
1086 | } | |||
1087 | ||||
1088 | static bfd_boolean | |||
1089 | srec_write_object_contents (bfd *abfd) | |||
1090 | { | |||
1091 | return internal_srec_write_object_contents (abfd, 0); | |||
1092 | } | |||
1093 | ||||
1094 | static bfd_boolean | |||
1095 | symbolsrec_write_object_contents (bfd *abfd) | |||
1096 | { | |||
1097 | return internal_srec_write_object_contents (abfd, 1); | |||
1098 | } | |||
1099 | ||||
1100 | static int | |||
1101 | srec_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED__attribute__ ((__unused__)), | |||
1102 | bfd_boolean exec ATTRIBUTE_UNUSED__attribute__ ((__unused__))) | |||
1103 | { | |||
1104 | return 0; | |||
1105 | } | |||
1106 | ||||
1107 | /* Return the amount of memory needed to read the symbol table. */ | |||
1108 | ||||
1109 | static long | |||
1110 | srec_get_symtab_upper_bound (bfd *abfd) | |||
1111 | { | |||
1112 | return (bfd_get_symcount (abfd)((abfd)->symcount) + 1) * sizeof (asymbol *); | |||
1113 | } | |||
1114 | ||||
1115 | /* Return the symbol table. */ | |||
1116 | ||||
1117 | static long | |||
1118 | srec_canonicalize_symtab (bfd *abfd, asymbol **alocation) | |||
1119 | { | |||
1120 | bfd_size_type symcount = bfd_get_symcount (abfd)((abfd)->symcount); | |||
1121 | asymbol *csymbols; | |||
1122 | unsigned int i; | |||
1123 | ||||
1124 | csymbols = abfd->tdata.srec_data->csymbols; | |||
1125 | if (csymbols == NULL((void*)0)) | |||
1126 | { | |||
1127 | asymbol *c; | |||
1128 | struct srec_symbol *s; | |||
1129 | ||||
1130 | csymbols = bfd_alloc (abfd, symcount * sizeof (asymbol)); | |||
1131 | if (csymbols == NULL((void*)0) && symcount != 0) | |||
1132 | return 0; | |||
1133 | abfd->tdata.srec_data->csymbols = csymbols; | |||
1134 | ||||
1135 | for (s = abfd->tdata.srec_data->symbols, c = csymbols; | |||
1136 | s != NULL((void*)0); | |||
1137 | s = s->next, ++c) | |||
1138 | { | |||
1139 | c->the_bfd = abfd; | |||
1140 | c->name = s->name; | |||
1141 | c->value = s->val; | |||
1142 | c->flags = BSF_GLOBAL0x02; | |||
1143 | c->section = bfd_abs_section_ptr((asection *) &bfd_abs_section); | |||
1144 | c->udata.p = NULL((void*)0); | |||
1145 | } | |||
1146 | } | |||
1147 | ||||
1148 | for (i = 0; i < symcount; i++) | |||
1149 | *alocation++ = csymbols++; | |||
1150 | *alocation = NULL((void*)0); | |||
1151 | ||||
1152 | return symcount; | |||
1153 | } | |||
1154 | ||||
1155 | static void | |||
1156 | srec_get_symbol_info (bfd *ignore_abfd ATTRIBUTE_UNUSED__attribute__ ((__unused__)), | |||
1157 | asymbol *symbol, | |||
1158 | symbol_info *ret) | |||
1159 | { | |||
1160 | bfd_symbol_info (symbol, ret); | |||
1161 | } | |||
1162 | ||||
1163 | static void | |||
1164 | srec_print_symbol (bfd *abfd, | |||
1165 | void * afile, | |||
1166 | asymbol *symbol, | |||
1167 | bfd_print_symbol_type how) | |||
1168 | { | |||
1169 | FILE *file = (FILE *) afile; | |||
1170 | ||||
1171 | switch (how) | |||
1172 | { | |||
1173 | case bfd_print_symbol_name: | |||
1174 | fprintf (file, "%s", symbol->name); | |||
1175 | break; | |||
1176 | default: | |||
1177 | bfd_print_symbol_vandf (abfd, (void *) file, symbol); | |||
1178 | fprintf (file, " %-5s %s", | |||
1179 | symbol->section->name, | |||
1180 | symbol->name); | |||
1181 | } | |||
1182 | } | |||
1183 | ||||
1184 | #define srec_close_and_cleanupbfd_true _bfd_generic_close_and_cleanupbfd_true | |||
1185 | #define srec_bfd_free_cached_infobfd_true _bfd_generic_bfd_free_cached_infobfd_true | |||
1186 | #define srec_new_section_hook((bfd_boolean (*) (bfd *, asection *)) bfd_true) _bfd_generic_new_section_hook((bfd_boolean (*) (bfd *, asection *)) bfd_true) | |||
1187 | #define srec_bfd_is_target_special_symbol((bfd_boolean (*) (bfd *, asymbol *)) bfd_false) ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false) | |||
1188 | #define srec_bfd_is_local_label_namebfd_generic_is_local_label_name bfd_generic_is_local_label_name | |||
1189 | #define srec_get_lineno((alent *(*) (bfd *, asymbol *)) bfd_nullvoidptr) _bfd_nosymbols_get_lineno((alent *(*) (bfd *, asymbol *)) bfd_nullvoidptr) | |||
1190 | #define srec_find_nearest_line((bfd_boolean (*) (bfd *, asection *, asymbol **, bfd_vma, const char **, const char **, unsigned int *)) bfd_false) _bfd_nosymbols_find_nearest_line((bfd_boolean (*) (bfd *, asection *, asymbol **, bfd_vma, const char **, const char **, unsigned int *)) bfd_false) | |||
1191 | #define srec_find_inliner_info((bfd_boolean (*) (bfd *, const char **, const char **, unsigned int *)) bfd_false) _bfd_nosymbols_find_inliner_info((bfd_boolean (*) (bfd *, const char **, const char **, unsigned int *)) bfd_false) | |||
1192 | #define srec_make_empty_symbol_bfd_generic_make_empty_symbol _bfd_generic_make_empty_symbol | |||
1193 | #define srec_bfd_make_debug_symbol((asymbol *(*) (bfd *, void *, unsigned long)) bfd_nullvoidptr ) _bfd_nosymbols_bfd_make_debug_symbol((asymbol *(*) (bfd *, void *, unsigned long)) bfd_nullvoidptr ) | |||
1194 | #define srec_read_minisymbols_bfd_generic_read_minisymbols _bfd_generic_read_minisymbols | |||
1195 | #define srec_minisymbol_to_symbol_bfd_generic_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol | |||
1196 | #define srec_get_reloc_upper_bound((long (*) (bfd *, asection *)) bfd_0l) ((long (*) (bfd *, asection *)) bfd_0l) | |||
1197 | #define srec_canonicalize_reloc((long (*) (bfd *, asection *, arelent **, asymbol **)) bfd_0l ) ((long (*) (bfd *, asection *, arelent **, asymbol **)) bfd_0l) | |||
1198 | #define srec_bfd_reloc_type_lookup((reloc_howto_type *(*) (bfd *, bfd_reloc_code_real_type)) bfd_nullvoidptr ) _bfd_norelocs_bfd_reloc_type_lookup((reloc_howto_type *(*) (bfd *, bfd_reloc_code_real_type)) bfd_nullvoidptr ) | |||
1199 | #define srec_get_section_contents_in_window_bfd_generic_get_section_contents_in_window _bfd_generic_get_section_contents_in_window | |||
1200 | #define srec_bfd_get_relocated_section_contentsbfd_generic_get_relocated_section_contents bfd_generic_get_relocated_section_contents | |||
1201 | #define srec_bfd_relax_sectionbfd_generic_relax_section bfd_generic_relax_section | |||
1202 | #define srec_bfd_gc_sectionsbfd_generic_gc_sections bfd_generic_gc_sections | |||
1203 | #define srec_bfd_merge_sectionsbfd_generic_merge_sections bfd_generic_merge_sections | |||
1204 | #define srec_bfd_is_group_sectionbfd_generic_is_group_section bfd_generic_is_group_section | |||
1205 | #define srec_bfd_discard_groupbfd_generic_discard_group bfd_generic_discard_group | |||
1206 | #define srec_section_already_linked_bfd_generic_section_already_linked _bfd_generic_section_already_linked | |||
1207 | #define srec_bfd_link_hash_table_create_bfd_generic_link_hash_table_create _bfd_generic_link_hash_table_create | |||
1208 | #define srec_bfd_link_hash_table_free_bfd_generic_link_hash_table_free _bfd_generic_link_hash_table_free | |||
1209 | #define srec_bfd_link_add_symbols_bfd_generic_link_add_symbols _bfd_generic_link_add_symbols | |||
1210 | #define srec_bfd_link_just_syms_bfd_generic_link_just_syms _bfd_generic_link_just_syms | |||
1211 | #define srec_bfd_final_link_bfd_generic_final_link _bfd_generic_final_link | |||
1212 | #define srec_bfd_link_split_section_bfd_generic_link_split_section _bfd_generic_link_split_section | |||
1213 | ||||
1214 | const bfd_target srec_vec = | |||
1215 | { | |||
1216 | "srec", /* Name. */ | |||
1217 | bfd_target_srec_flavour, | |||
1218 | BFD_ENDIAN_UNKNOWN, /* Target byte order. */ | |||
1219 | BFD_ENDIAN_UNKNOWN, /* Target headers byte order. */ | |||
1220 | (HAS_RELOC0x01 | EXEC_P0x02 | /* Object flags. */ | |||
1221 | HAS_LINENO0x04 | HAS_DEBUG0x08 | | |||
1222 | HAS_SYMS0x10 | HAS_LOCALS0x20 | WP_TEXT0x80 | D_PAGED0x100), | |||
1223 | (SEC_CODE0x010 | SEC_DATA0x020 | SEC_ROM0x040 | SEC_HAS_CONTENTS0x100 | |||
1224 | | SEC_ALLOC0x001 | SEC_LOAD0x002 | SEC_RELOC0x004), /* Section flags. */ | |||
1225 | 0, /* Leading underscore. */ | |||
1226 | ' ', /* AR_pad_char. */ | |||
1227 | 16, /* AR_max_namelen. */ | |||
1228 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |||
1229 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |||
1230 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Data. */ | |||
1231 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |||
1232 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |||
1233 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Hdrs. */ | |||
1234 | ||||
1235 | { | |||
1236 | _bfd_dummy_target, | |||
1237 | srec_object_p, /* bfd_check_format. */ | |||
1238 | _bfd_dummy_target, | |||
1239 | _bfd_dummy_target, | |||
1240 | }, | |||
1241 | { | |||
1242 | bfd_false, | |||
1243 | srec_mkobject, | |||
1244 | _bfd_generic_mkarchive, | |||
1245 | bfd_false, | |||
1246 | }, | |||
1247 | { /* bfd_write_contents. */ | |||
1248 | bfd_false, | |||
1249 | srec_write_object_contents, | |||
1250 | _bfd_write_archive_contents, | |||
1251 | bfd_false, | |||
1252 | }, | |||
1253 | ||||
1254 | BFD_JUMP_TABLE_GENERIC (srec)bfd_true, bfd_true, ((bfd_boolean (*) (bfd *, asection *)) bfd_true ), srec_get_section_contents, _bfd_generic_get_section_contents_in_window, | |||
1255 | BFD_JUMP_TABLE_COPY (_bfd_generic)((bfd_boolean (*) (bfd *, bfd *)) bfd_true), ((bfd_boolean (* ) (bfd *, bfd *)) bfd_true), _bfd_generic_init_private_section_data , ((bfd_boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true ), ((bfd_boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true ), ((bfd_boolean (*) (bfd *, bfd *)) bfd_true), ((bfd_boolean (*) (bfd *, flagword)) bfd_true), ((bfd_boolean (*) (bfd *, void *)) bfd_true), | |||
1256 | BFD_JUMP_TABLE_CORE (_bfd_nocore)_bfd_nocore_core_file_failing_command, _bfd_nocore_core_file_failing_signal , _bfd_nocore_core_file_matches_executable_p, | |||
1257 | BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive)bfd_false, bfd_false, ((bfd_boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false), ((void (*) (bfd *, const char *, char *)) bfd_void), ((bfd_boolean (*) (bfd *, unsigned int , struct orl *, unsigned int, int)) bfd_false), bfd_nullvoidptr , ((bfd *(*) (bfd *, bfd *)) bfd_nullvoidptr), ((bfd *(*) (bfd *, symindex)) bfd_nullvoidptr), bfd_generic_stat_arch_elt, bfd_false, | |||
1258 | BFD_JUMP_TABLE_SYMBOLS (srec)srec_get_symtab_upper_bound, srec_canonicalize_symtab, _bfd_generic_make_empty_symbol , srec_print_symbol, srec_get_symbol_info, bfd_generic_is_local_label_name , ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false), ((alent * (*) (bfd *, asymbol *)) bfd_nullvoidptr), ((bfd_boolean (*) ( bfd *, asection *, asymbol **, bfd_vma, const char **, const char **, unsigned int *)) bfd_false), _bfd_generic_find_line, ((bfd_boolean (*) (bfd *, const char **, const char **, unsigned int *)) bfd_false ), ((asymbol *(*) (bfd *, void *, unsigned long)) bfd_nullvoidptr ), _bfd_generic_read_minisymbols, _bfd_generic_minisymbol_to_symbol, | |||
1259 | BFD_JUMP_TABLE_RELOCS (srec)((long (*) (bfd *, asection *)) bfd_0l), ((long (*) (bfd *, asection *, arelent **, asymbol **)) bfd_0l), ((reloc_howto_type *(*) (bfd *, bfd_reloc_code_real_type)) bfd_nullvoidptr), | |||
1260 | BFD_JUMP_TABLE_WRITE (srec)srec_set_arch_mach, srec_set_section_contents, | |||
1261 | BFD_JUMP_TABLE_LINK (srec)srec_sizeof_headers, bfd_generic_get_relocated_section_contents , bfd_generic_relax_section, _bfd_generic_link_hash_table_create , _bfd_generic_link_hash_table_free, _bfd_generic_link_add_symbols , _bfd_generic_link_just_syms, _bfd_generic_final_link, _bfd_generic_link_split_section , bfd_generic_gc_sections, bfd_generic_merge_sections, bfd_generic_is_group_section , bfd_generic_discard_group, _bfd_generic_section_already_linked, | |||
1262 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic)_bfd_n1, ((long (*) (bfd *, asymbol **)) _bfd_n1), ((long (*) (bfd *, long, asymbol **, long, asymbol **, asymbol **)) _bfd_n1 ), _bfd_n1, ((long (*) (bfd *, arelent **, asymbol **)) _bfd_n1 ), | |||
1263 | ||||
1264 | NULL((void*)0), | |||
1265 | ||||
1266 | NULL((void*)0) | |||
1267 | }; | |||
1268 | ||||
1269 | const bfd_target symbolsrec_vec = | |||
1270 | { | |||
1271 | "symbolsrec", /* Name. */ | |||
1272 | bfd_target_srec_flavour, | |||
1273 | BFD_ENDIAN_UNKNOWN, /* Target byte order. */ | |||
1274 | BFD_ENDIAN_UNKNOWN, /* Target headers byte order. */ | |||
1275 | (HAS_RELOC0x01 | EXEC_P0x02 | /* Object flags. */ | |||
1276 | HAS_LINENO0x04 | HAS_DEBUG0x08 | | |||
1277 | HAS_SYMS0x10 | HAS_LOCALS0x20 | WP_TEXT0x80 | D_PAGED0x100), | |||
1278 | (SEC_CODE0x010 | SEC_DATA0x020 | SEC_ROM0x040 | SEC_HAS_CONTENTS0x100 | |||
1279 | | SEC_ALLOC0x001 | SEC_LOAD0x002 | SEC_RELOC0x004), /* Section flags. */ | |||
1280 | 0, /* Leading underscore. */ | |||
1281 | ' ', /* AR_pad_char. */ | |||
1282 | 16, /* AR_max_namelen. */ | |||
1283 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |||
1284 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |||
1285 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Data. */ | |||
1286 | bfd_getb64, bfd_getb_signed_64, bfd_putb64, | |||
1287 | bfd_getb32, bfd_getb_signed_32, bfd_putb32, | |||
1288 | bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Headers. */ | |||
1289 | ||||
1290 | { | |||
1291 | _bfd_dummy_target, | |||
1292 | symbolsrec_object_p, /* bfd_check_format. */ | |||
1293 | _bfd_dummy_target, | |||
1294 | _bfd_dummy_target, | |||
1295 | }, | |||
1296 | { | |||
1297 | bfd_false, | |||
1298 | srec_mkobject, | |||
1299 | _bfd_generic_mkarchive, | |||
1300 | bfd_false, | |||
1301 | }, | |||
1302 | { /* bfd_write_contents. */ | |||
1303 | bfd_false, | |||
1304 | symbolsrec_write_object_contents, | |||
1305 | _bfd_write_archive_contents, | |||
1306 | bfd_false, | |||
1307 | }, | |||
1308 | ||||
1309 | BFD_JUMP_TABLE_GENERIC (srec)bfd_true, bfd_true, ((bfd_boolean (*) (bfd *, asection *)) bfd_true ), srec_get_section_contents, _bfd_generic_get_section_contents_in_window, | |||
1310 | BFD_JUMP_TABLE_COPY (_bfd_generic)((bfd_boolean (*) (bfd *, bfd *)) bfd_true), ((bfd_boolean (* ) (bfd *, bfd *)) bfd_true), _bfd_generic_init_private_section_data , ((bfd_boolean (*) (bfd *, asection *, bfd *, asection *)) bfd_true ), ((bfd_boolean (*) (bfd *, asymbol *, bfd *, asymbol *)) bfd_true ), ((bfd_boolean (*) (bfd *, bfd *)) bfd_true), ((bfd_boolean (*) (bfd *, flagword)) bfd_true), ((bfd_boolean (*) (bfd *, void *)) bfd_true), | |||
1311 | BFD_JUMP_TABLE_CORE (_bfd_nocore)_bfd_nocore_core_file_failing_command, _bfd_nocore_core_file_failing_signal , _bfd_nocore_core_file_matches_executable_p, | |||
1312 | BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive)bfd_false, bfd_false, ((bfd_boolean (*) (bfd *, char **, bfd_size_type *, const char **)) bfd_false), ((void (*) (bfd *, const char *, char *)) bfd_void), ((bfd_boolean (*) (bfd *, unsigned int , struct orl *, unsigned int, int)) bfd_false), bfd_nullvoidptr , ((bfd *(*) (bfd *, bfd *)) bfd_nullvoidptr), ((bfd *(*) (bfd *, symindex)) bfd_nullvoidptr), bfd_generic_stat_arch_elt, bfd_false, | |||
1313 | BFD_JUMP_TABLE_SYMBOLS (srec)srec_get_symtab_upper_bound, srec_canonicalize_symtab, _bfd_generic_make_empty_symbol , srec_print_symbol, srec_get_symbol_info, bfd_generic_is_local_label_name , ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false), ((alent * (*) (bfd *, asymbol *)) bfd_nullvoidptr), ((bfd_boolean (*) ( bfd *, asection *, asymbol **, bfd_vma, const char **, const char **, unsigned int *)) bfd_false), _bfd_generic_find_line, ((bfd_boolean (*) (bfd *, const char **, const char **, unsigned int *)) bfd_false ), ((asymbol *(*) (bfd *, void *, unsigned long)) bfd_nullvoidptr ), _bfd_generic_read_minisymbols, _bfd_generic_minisymbol_to_symbol, | |||
1314 | BFD_JUMP_TABLE_RELOCS (srec)((long (*) (bfd *, asection *)) bfd_0l), ((long (*) (bfd *, asection *, arelent **, asymbol **)) bfd_0l), ((reloc_howto_type *(*) (bfd *, bfd_reloc_code_real_type)) bfd_nullvoidptr), | |||
1315 | BFD_JUMP_TABLE_WRITE (srec)srec_set_arch_mach, srec_set_section_contents, | |||
1316 | BFD_JUMP_TABLE_LINK (srec)srec_sizeof_headers, bfd_generic_get_relocated_section_contents , bfd_generic_relax_section, _bfd_generic_link_hash_table_create , _bfd_generic_link_hash_table_free, _bfd_generic_link_add_symbols , _bfd_generic_link_just_syms, _bfd_generic_final_link, _bfd_generic_link_split_section , bfd_generic_gc_sections, bfd_generic_merge_sections, bfd_generic_is_group_section , bfd_generic_discard_group, _bfd_generic_section_already_linked, | |||
1317 | BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic)_bfd_n1, ((long (*) (bfd *, asymbol **)) _bfd_n1), ((long (*) (bfd *, long, asymbol **, long, asymbol **, asymbol **)) _bfd_n1 ), _bfd_n1, ((long (*) (bfd *, arelent **, asymbol **)) _bfd_n1 ), | |||
1318 | ||||
1319 | NULL((void*)0), | |||
1320 | ||||
1321 | NULL((void*)0) | |||
1322 | }; |