?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2008-09-26 Kai Tietz <kai.tietz@onevision.com>
[binutils.git] / bfd / ieee.c
blobd032e9c133a3246913b59ff7e933433c4753f9f9
1 /* BFD back-end for ieee-695 objects.
2 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
3 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
4 Free Software Foundation, Inc.
5
6 Written by Steve Chamberlain of Cygnus Support.
7
8 This file is part of BFD, the Binary File Descriptor library.
9
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
14
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
19
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
23 MA 02110-1301, USA. */
24
25
26 #define KEEPMINUSPCININST 0
27
28 /* IEEE 695 format is a stream of records, which we parse using a simple one-
29 token (which is one byte in this lexicon) lookahead recursive decent
30 parser. */
31
32 #include "sysdep.h"
33 #include "bfd.h"
34 #include "libbfd.h"
35 #include "ieee.h"
36 #include "libieee.h"
37 #include "safe-ctype.h"
38
39 struct output_buffer_struct
40 {
41 unsigned char *ptrp;
42 int buffer;
43 };
44
45 static unsigned char *output_ptr_start;
46 static unsigned char *output_ptr;
47 static unsigned char *output_ptr_end;
48 static unsigned char *input_ptr_start;
49 static unsigned char *input_ptr;
50 static unsigned char *input_ptr_end;
51 static bfd *input_bfd;
52 static bfd *output_bfd;
53 static int output_buffer;
54
55
56 static void block (void);
57
58 /* Functions for writing to ieee files in the strange way that the
59 standard requires. */
60
61 static bfd_boolean
62 ieee_write_byte (bfd *abfd, int barg)
63 {
64 bfd_byte byte;
65
66 byte = barg;
67 if (bfd_bwrite ((void *) &byte, (bfd_size_type) 1, abfd) != 1)
68 return FALSE;
69 return TRUE;
70 }
71
72 static bfd_boolean
73 ieee_write_2bytes (bfd *abfd, int bytes)
74 {
75 bfd_byte buffer[2];
76
77 buffer[0] = bytes >> 8;
78 buffer[1] = bytes & 0xff;
79 if (bfd_bwrite ((void *) buffer, (bfd_size_type) 2, abfd) != 2)
80 return FALSE;
81 return TRUE;
82 }
83
84 static bfd_boolean
85 ieee_write_int (bfd *abfd, bfd_vma value)
86 {
87 if (value <= 127)
88 {
89 if (! ieee_write_byte (abfd, (bfd_byte) value))
90 return FALSE;
91 }
92 else
93 {
94 unsigned int length;
95
96 /* How many significant bytes ? */
97 /* FIXME FOR LONGER INTS. */
98 if (value & 0xff000000)
99 length = 4;
100 else if (value & 0x00ff0000)
101 length = 3;
102 else if (value & 0x0000ff00)
103 length = 2;
104 else
105 length = 1;
106
107 if (! ieee_write_byte (abfd,
108 (bfd_byte) ((int) ieee_number_repeat_start_enum
109 + length)))
110 return FALSE;
111 switch (length)
112 {
113 case 4:
114 if (! ieee_write_byte (abfd, (bfd_byte) (value >> 24)))
115 return FALSE;
116 /* Fall through. */
117 case 3:
118 if (! ieee_write_byte (abfd, (bfd_byte) (value >> 16)))
119 return FALSE;
120 /* Fall through. */
121 case 2:
122 if (! ieee_write_byte (abfd, (bfd_byte) (value >> 8)))
123 return FALSE;
124 /* Fall through. */
125 case 1:
126 if (! ieee_write_byte (abfd, (bfd_byte) (value)))
127 return FALSE;
128 }
129 }
130
131 return TRUE;
132 }
133
134 static bfd_boolean
135 ieee_write_id (bfd *abfd, const char *id)
136 {
137 size_t length = strlen (id);
138
139 if (length <= 127)
140 {
141 if (! ieee_write_byte (abfd, (bfd_byte) length))
142 return FALSE;
143 }
144 else if (length < 255)
145 {
146 if (! ieee_write_byte (abfd, ieee_extension_length_1_enum)
147 || ! ieee_write_byte (abfd, (bfd_byte) length))
148 return FALSE;
149 }
150 else if (length < 65535)
151 {
152 if (! ieee_write_byte (abfd, ieee_extension_length_2_enum)
153 || ! ieee_write_2bytes (abfd, (int) length))
154 return FALSE;
155 }
156 else
157 {
158 (*_bfd_error_handler)
159 (_("%s: string too long (%d chars, max 65535)"),
160 bfd_get_filename (abfd), length);
161 bfd_set_error (bfd_error_invalid_operation);
162 return FALSE;
163 }
164
165 if (bfd_bwrite ((void *) id, (bfd_size_type) length, abfd) != length)
166 return FALSE;
167 return TRUE;
168 }
169 \f
170 /* Functions for reading from ieee files in the strange way that the
171 standard requires. */
172
173 #define this_byte(ieee) *((ieee)->input_p)
174 #define next_byte(ieee) ((ieee)->input_p++)
175 #define this_byte_and_next(ieee) (*((ieee)->input_p++))
176
177 static unsigned short
178 read_2bytes (common_header_type *ieee)
179 {
180 unsigned char c1 = this_byte_and_next (ieee);
181 unsigned char c2 = this_byte_and_next (ieee);
182
183 return (c1 << 8) | c2;
184 }
185
186 static void
187 bfd_get_string (common_header_type *ieee, char *string, size_t length)
188 {
189 size_t i;
190
191 for (i = 0; i < length; i++)
192 string[i] = this_byte_and_next (ieee);
193 }
194
195 static char *
196 read_id (common_header_type *ieee)
197 {
198 size_t length;
199 char *string;
200
201 length = this_byte_and_next (ieee);
202 if (length <= 0x7f)
203 /* Simple string of length 0 to 127. */
204 ;
205
206 else if (length == 0xde)
207 /* Length is next byte, allowing 0..255. */
208 length = this_byte_and_next (ieee);
209
210 else if (length == 0xdf)
211 {
212 /* Length is next two bytes, allowing 0..65535. */
213 length = this_byte_and_next (ieee);
214 length = (length * 256) + this_byte_and_next (ieee);
215 }
216
217 /* Buy memory and read string. */
218 string = bfd_alloc (ieee->abfd, (bfd_size_type) length + 1);
219 if (!string)
220 return NULL;
221 bfd_get_string (ieee, string, length);
222 string[length] = 0;
223 return string;
224 }
225
226 static bfd_boolean
227 ieee_write_expression (bfd *abfd,
228 bfd_vma value,
229 asymbol *symbol,
230 bfd_boolean pcrel,
231 unsigned int index)
232 {
233 unsigned int term_count = 0;
234
235 if (value != 0)
236 {
237 if (! ieee_write_int (abfd, value))
238 return FALSE;
239 term_count++;
240 }
241
242 /* Badly formatted binaries can have a missing symbol,
243 so test here to prevent a seg fault. */
244 if (symbol != NULL)
245 {
246 if (bfd_is_com_section (symbol->section)
247 || bfd_is_und_section (symbol->section))
248 {
249 /* Def of a common symbol. */
250 if (! ieee_write_byte (abfd, ieee_variable_X_enum)
251 || ! ieee_write_int (abfd, symbol->value))
252 return FALSE;
253 term_count ++;
254 }
255 else if (! bfd_is_abs_section (symbol->section))
256 {
257 /* Ref to defined symbol - */
258 if (symbol->flags & BSF_GLOBAL)
259 {
260 if (! ieee_write_byte (abfd, ieee_variable_I_enum)
261 || ! ieee_write_int (abfd, symbol->value))
262 return FALSE;
263 term_count++;
264 }
265 else if (symbol->flags & (BSF_LOCAL | BSF_SECTION_SYM))
266 {
267 /* This is a reference to a defined local symbol. We can
268 easily do a local as a section+offset. */
269 if (! ieee_write_byte (abfd, ieee_variable_R_enum)
270 || ! ieee_write_byte (abfd,
271 (bfd_byte) (symbol->section->index
272 + IEEE_SECTION_NUMBER_BASE)))
273 return FALSE;
274
275 term_count++;
276 if (symbol->value != 0)
277 {
278 if (! ieee_write_int (abfd, symbol->value))
279 return FALSE;
280 term_count++;
281 }
282 }
283 else
284 {
285 (*_bfd_error_handler)
286 (_("%s: unrecognized symbol `%s' flags 0x%x"),
287 bfd_get_filename (abfd), bfd_asymbol_name (symbol),
288 symbol->flags);
289 bfd_set_error (bfd_error_invalid_operation);
290 return FALSE;
291 }
292 }
293 }
294
295 if (pcrel)
296 {
297 /* Subtract the pc from here by asking for PC of this section. */
298 if (! ieee_write_byte (abfd, ieee_variable_P_enum)
299 || ! ieee_write_byte (abfd,
300 (bfd_byte) (index + IEEE_SECTION_NUMBER_BASE))
301 || ! ieee_write_byte (abfd, ieee_function_minus_enum))
302 return FALSE;
303 }
304
305 /* Handle the degenerate case of a 0 address. */
306 if (term_count == 0)
307 if (! ieee_write_int (abfd, (bfd_vma) 0))
308 return FALSE;
309
310 while (term_count > 1)
311 {
312 if (! ieee_write_byte (abfd, ieee_function_plus_enum))
313 return FALSE;
314 term_count--;
315 }
316
317 return TRUE;
318 }
319 \f
320 /* Writes any integer into the buffer supplied and always takes 5 bytes. */
321
322 static void
323 ieee_write_int5 (bfd_byte *buffer, bfd_vma value)
324 {
325 buffer[0] = (bfd_byte) ieee_number_repeat_4_enum;
326 buffer[1] = (value >> 24) & 0xff;
327 buffer[2] = (value >> 16) & 0xff;
328 buffer[3] = (value >> 8) & 0xff;
329 buffer[4] = (value >> 0) & 0xff;
330 }
331
332 static bfd_boolean
333 ieee_write_int5_out (bfd *abfd, bfd_vma value)
334 {
335 bfd_byte b[5];
336
337 ieee_write_int5 (b, value);
338 if (bfd_bwrite ((void *) b, (bfd_size_type) 5, abfd) != 5)
339 return FALSE;
340 return TRUE;
341 }
342
343 static bfd_boolean
344 parse_int (common_header_type *ieee, bfd_vma *value_ptr)
345 {
346 int value = this_byte (ieee);
347 int result;
348
349 if (value >= 0 && value <= 127)
350 {
351 *value_ptr = value;
352 next_byte (ieee);
353 return TRUE;
354 }
355 else if (value >= 0x80 && value <= 0x88)
356 {
357 unsigned int count = value & 0xf;
358
359 result = 0;
360 next_byte (ieee);
361 while (count)
362 {
363 result = (result << 8) | this_byte_and_next (ieee);
364 count--;
365 }
366 *value_ptr = result;
367 return TRUE;
368 }
369 return FALSE;
370 }
371
372 static int
373 parse_i (common_header_type *ieee, bfd_boolean *ok)
374 {
375 bfd_vma x = 0;
376 *ok = parse_int (ieee, &x);
377 return x;
378 }
379
380 static bfd_vma
381 must_parse_int (common_header_type *ieee)
382 {
383 bfd_vma result = 0;
384 BFD_ASSERT (parse_int (ieee, &result));
385 return result;
386 }
387
388 typedef struct
389 {
390 bfd_vma value;
391 asection *section;
392 ieee_symbol_index_type symbol;
393 } ieee_value_type;
394
395
396 #if KEEPMINUSPCININST
397
398 #define SRC_MASK(arg) arg
399 #define PCREL_OFFSET FALSE
400
401 #else
402
403 #define SRC_MASK(arg) 0
404 #define PCREL_OFFSET TRUE
405
406 #endif
407
408 static reloc_howto_type abs32_howto =
409 HOWTO (1,
410 0,
411 2,
412 32,
413 FALSE,
414 0,
415 complain_overflow_bitfield,
416 0,
417 "abs32",
418 TRUE,
419 0xffffffff,
420 0xffffffff,
421 FALSE);
422
423 static reloc_howto_type abs16_howto =
424 HOWTO (1,
425 0,
426 1,
427 16,
428 FALSE,
429 0,
430 complain_overflow_bitfield,
431 0,
432 "abs16",
433 TRUE,
434 0x0000ffff,
435 0x0000ffff,
436 FALSE);
437
438 static reloc_howto_type abs8_howto =
439 HOWTO (1,
440 0,
441 0,
442 8,
443 FALSE,
444 0,
445 complain_overflow_bitfield,
446 0,
447 "abs8",
448 TRUE,
449 0x000000ff,
450 0x000000ff,
451 FALSE);
452
453 static reloc_howto_type rel32_howto =
454 HOWTO (1,
455 0,
456 2,
457 32,
458 TRUE,
459 0,
460 complain_overflow_signed,
461 0,
462 "rel32",
463 TRUE,
464 SRC_MASK (0xffffffff),
465 0xffffffff,
466 PCREL_OFFSET);
467
468 static reloc_howto_type rel16_howto =
469 HOWTO (1,
470 0,
471 1,
472 16,
473 TRUE,
474 0,
475 complain_overflow_signed,
476 0,
477 "rel16",
478 TRUE,
479 SRC_MASK (0x0000ffff),
480 0x0000ffff,
481 PCREL_OFFSET);
482
483 static reloc_howto_type rel8_howto =
484 HOWTO (1,
485 0,
486 0,
487 8,
488 TRUE,
489 0,
490 complain_overflow_signed,
491 0,
492 "rel8",
493 TRUE,
494 SRC_MASK (0x000000ff),
495 0x000000ff,
496 PCREL_OFFSET);
497
498 static ieee_symbol_index_type NOSYMBOL = {0, 0};
499
500 static void
501 parse_expression (ieee_data_type *ieee,
502 bfd_vma *value,
503 ieee_symbol_index_type *symbol,
504 bfd_boolean *pcrel,
505 unsigned int *extra,
506 asection **section)
507
508 {
509 bfd_boolean loop = TRUE;
510 ieee_value_type stack[10];
511 ieee_value_type *sp = stack;
512 asection *dummy;
513
514 #define POS sp[1]
515 #define TOS sp[0]
516 #define NOS sp[-1]
517 #define INC sp++;
518 #define DEC sp--;
519
520 /* The stack pointer always points to the next unused location. */
521 #define PUSH(x,y,z) TOS.symbol = x; TOS.section = y; TOS.value = z; INC;
522 #define POP(x,y,z) DEC; x = TOS.symbol; y = TOS.section; z = TOS.value;
523
524 while (loop && ieee->h.input_p < ieee->h.last_byte)
525 {
526 switch (this_byte (&(ieee->h)))
527 {
528 case ieee_variable_P_enum:
529 /* P variable, current program counter for section n. */
530 {
531 int section_n;
532
533 next_byte (&(ieee->h));
534 *pcrel = TRUE;
535 section_n = must_parse_int (&(ieee->h));
536 PUSH (NOSYMBOL, bfd_abs_section_ptr, 0);
537 break;
538 }
539 case ieee_variable_L_enum:
540 /* L variable address of section N. */
541 next_byte (&(ieee->h));
542 PUSH (NOSYMBOL, ieee->section_table[must_parse_int (&(ieee->h))], 0);
543 break;
544 case ieee_variable_R_enum:
545 /* R variable, logical address of section module. */
546 /* FIXME, this should be different to L. */
547 next_byte (&(ieee->h));
548 PUSH (NOSYMBOL, ieee->section_table[must_parse_int (&(ieee->h))], 0);
549 break;
550 case ieee_variable_S_enum:
551 /* S variable, size in MAUS of section module. */
552 next_byte (&(ieee->h));
553 PUSH (NOSYMBOL,
554 0,
555 ieee->section_table[must_parse_int (&(ieee->h))]->size);
556 break;
557 case ieee_variable_I_enum:
558 /* Push the address of variable n. */
559 {
560 ieee_symbol_index_type sy;
561
562 next_byte (&(ieee->h));
563 sy.index = (int) must_parse_int (&(ieee->h));
564 sy.letter = 'I';
565
566 PUSH (sy, bfd_abs_section_ptr, 0);
567 }
568 break;
569 case ieee_variable_X_enum:
570 /* Push the address of external variable n. */
571 {
572 ieee_symbol_index_type sy;
573
574 next_byte (&(ieee->h));
575 sy.index = (int) (must_parse_int (&(ieee->h)));
576 sy.letter = 'X';
577
578 PUSH (sy, bfd_und_section_ptr, 0);
579 }
580 break;
581 case ieee_function_minus_enum:
582 {
583 bfd_vma value1, value2;
584 asection *section1, *section_dummy;
585 ieee_symbol_index_type sy;
586
587 next_byte (&(ieee->h));
588
589 POP (sy, section1, value1);
590 POP (sy, section_dummy, value2);
591 PUSH (sy, section1 ? section1 : section_dummy, value2 - value1);
592 }
593 break;
594 case ieee_function_plus_enum:
595 {
596 bfd_vma value1, value2;
597 asection *section1;
598 asection *section2;
599 ieee_symbol_index_type sy1;
600 ieee_symbol_index_type sy2;
601
602 next_byte (&(ieee->h));
603
604 POP (sy1, section1, value1);
605 POP (sy2, section2, value2);
606 PUSH (sy1.letter ? sy1 : sy2,
607 bfd_is_abs_section (section1) ? section2 : section1,
608 value1 + value2);
609 }
610 break;
611 default:
612 {
613 bfd_vma va;
614
615 BFD_ASSERT (this_byte (&(ieee->h)) < (int) ieee_variable_A_enum
616 || this_byte (&(ieee->h)) > (int) ieee_variable_Z_enum);
617 if (parse_int (&(ieee->h), &va))
618 {
619 PUSH (NOSYMBOL, bfd_abs_section_ptr, va);
620 }
621 else
622 /* Thats all that we can understand. */
623 loop = FALSE;
624 }
625 }
626 }
627
628 /* As far as I can see there is a bug in the Microtec IEEE output
629 which I'm using to scan, whereby the comma operator is omitted
630 sometimes in an expression, giving expressions with too many
631 terms. We can tell if that's the case by ensuring that
632 sp == stack here. If not, then we've pushed something too far,
633 so we keep adding. */
634 while (sp != stack + 1)
635 {
636 asection *section1;
637 ieee_symbol_index_type sy1;
638
639 POP (sy1, section1, *extra);
640 }
641
642 POP (*symbol, dummy, *value);
643 if (section)
644 *section = dummy;
645 }
646
647
648 #define ieee_seek(ieee, offset) \
649 do \
650 { \
651 ieee->h.input_p = ieee->h.first_byte + offset; \
652 ieee->h.last_byte = (ieee->h.first_byte \
653 + ieee_part_after (ieee, offset)); \
654 } \
655 while (0)
656
657 #define ieee_pos(ieee) \
658 (ieee->h.input_p - ieee->h.first_byte)
659
660 /* Find the first part of the ieee file after HERE. */
661
662 static file_ptr
663 ieee_part_after (ieee_data_type *ieee, file_ptr here)
664 {
665 int part;
666 file_ptr after = ieee->w.r.me_record;
667
668 /* File parts can come in any order, except that module end is
669 guaranteed to be last (and the header first). */
670 for (part = 0; part < N_W_VARIABLES; part++)
671 if (ieee->w.offset[part] > here && after > ieee->w.offset[part])
672 after = ieee->w.offset[part];
673
674 return after;
675 }
676
677 static unsigned int last_index;
678 static char last_type; /* Is the index for an X or a D. */
679
680 static ieee_symbol_type *
681 get_symbol (bfd *abfd ATTRIBUTE_UNUSED,
682 ieee_data_type *ieee,
683 ieee_symbol_type *last_symbol,
684 unsigned int *symbol_count,
685 ieee_symbol_type ***pptr,
686 unsigned int *max_index,
687 int this_type)
688 {
689 /* Need a new symbol. */
690 unsigned int new_index = must_parse_int (&(ieee->h));
691
692 if (new_index != last_index || this_type != last_type)
693 {
694 ieee_symbol_type *new_symbol;
695 bfd_size_type amt = sizeof (ieee_symbol_type);
696
697 new_symbol = bfd_alloc (ieee->h.abfd, amt);
698 if (!new_symbol)
699 return NULL;
700
701 new_symbol->index = new_index;
702 last_index = new_index;
703 (*symbol_count)++;
704 **pptr = new_symbol;
705 *pptr = &new_symbol->next;
706 if (new_index > *max_index)
707 *max_index = new_index;
708
709 last_type = this_type;
710 new_symbol->symbol.section = bfd_abs_section_ptr;
711 return new_symbol;
712 }
713 return last_symbol;
714 }
715
716 static bfd_boolean
717 ieee_slurp_external_symbols (bfd *abfd)
718 {
719 ieee_data_type *ieee = IEEE_DATA (abfd);
720 file_ptr offset = ieee->w.r.external_part;
721
722 ieee_symbol_type **prev_symbols_ptr = &ieee->external_symbols;
723 ieee_symbol_type **prev_reference_ptr = &ieee->external_reference;
724 ieee_symbol_type *symbol = NULL;
725 unsigned int symbol_count = 0;
726 bfd_boolean loop = TRUE;
727
728 last_index = 0xffffff;
729 ieee->symbol_table_full = TRUE;
730
731 ieee_seek (ieee, offset);
732
733 while (loop)
734 {
735 switch (this_byte (&(ieee->h)))
736 {
737 case ieee_nn_record:
738 next_byte (&(ieee->h));
739
740 symbol = get_symbol (abfd, ieee, symbol, &symbol_count,
741 & prev_symbols_ptr,
742 & ieee->external_symbol_max_index, 'I');
743 if (symbol == NULL)
744 return FALSE;
745
746 symbol->symbol.the_bfd = abfd;
747 symbol->symbol.name = read_id (&(ieee->h));
748 symbol->symbol.udata.p = NULL;
749 symbol->symbol.flags = BSF_NO_FLAGS;
750 break;
751 case ieee_external_symbol_enum:
752 next_byte (&(ieee->h));
753
754 symbol = get_symbol (abfd, ieee, symbol, &symbol_count,
755 &prev_symbols_ptr,
756 &ieee->external_symbol_max_index, 'D');
757 if (symbol == NULL)
758 return FALSE;
759
760 BFD_ASSERT (symbol->index >= ieee->external_symbol_min_index);
761
762 symbol->symbol.the_bfd = abfd;
763 symbol->symbol.name = read_id (&(ieee->h));
764 symbol->symbol.udata.p = NULL;
765 symbol->symbol.flags = BSF_NO_FLAGS;
766 break;
767 case ieee_attribute_record_enum >> 8:
768 {
769 unsigned int symbol_name_index;
770 unsigned int symbol_type_index;
771 unsigned int symbol_attribute_def;
772 bfd_vma value = 0;
773
774 switch (read_2bytes (&ieee->h))
775 {
776 case ieee_attribute_record_enum:
777 symbol_name_index = must_parse_int (&(ieee->h));
778 symbol_type_index = must_parse_int (&(ieee->h));
779 symbol_attribute_def = must_parse_int (&(ieee->h));
780 switch (symbol_attribute_def)
781 {
782 case 8:
783 case 19:
784 parse_int (&ieee->h, &value);
785 break;
786 default:
787 (*_bfd_error_handler)
788 (_("%B: unimplemented ATI record %u for symbol %u"),
789 abfd, symbol_attribute_def, symbol_name_index);
790 bfd_set_error (bfd_error_bad_value);
791 return FALSE;
792 break;
793 }
794 break;
795 case ieee_external_reference_info_record_enum:
796 /* Skip over ATX record. */
797 parse_int (&(ieee->h), &value);
798 parse_int (&(ieee->h), &value);
799 parse_int (&(ieee->h), &value);
800 parse_int (&(ieee->h), &value);
801 break;
802 case ieee_atn_record_enum:
803 /* We may get call optimization information here,
804 which we just ignore. The format is
805 {$F1}${CE}{index}{$00}{$3F}{$3F}{#_of_ASNs}. */
806 parse_int (&ieee->h, &value);
807 parse_int (&ieee->h, &value);
808 parse_int (&ieee->h, &value);
809 if (value != 0x3f)
810 {
811 (*_bfd_error_handler)
812 (_("%B: unexpected ATN type %d in external part"),
813 abfd, (int) value);
814 bfd_set_error (bfd_error_bad_value);
815 return FALSE;
816 }
817 parse_int (&ieee->h, &value);
818 parse_int (&ieee->h, &value);
819 while (value > 0)
820 {
821 bfd_vma val1;
822
823 --value;
824
825 switch (read_2bytes (&ieee->h))
826 {
827 case ieee_asn_record_enum:
828 parse_int (&ieee->h, &val1);
829 parse_int (&ieee->h, &val1);
830 break;
831
832 default:
833 (*_bfd_error_handler)
834 (_("%B: unexpected type after ATN"), abfd);
835 bfd_set_error (bfd_error_bad_value);
836 return FALSE;
837 }
838 }
839 }
840 }
841 break;
842 case ieee_value_record_enum >> 8:
843 {
844 unsigned int symbol_name_index;
845 ieee_symbol_index_type symbol_ignore;
846 bfd_boolean pcrel_ignore;
847 unsigned int extra;
848
849 next_byte (&(ieee->h));
850 next_byte (&(ieee->h));
851
852 symbol_name_index = must_parse_int (&(ieee->h));
853 parse_expression (ieee,
854 &symbol->symbol.value,
855 &symbol_ignore,
856 &pcrel_ignore,
857 &extra,
858 &symbol->symbol.section);
859
860 /* Fully linked IEEE-695 files tend to give every symbol
861 an absolute value. Try to convert that back into a
862 section relative value. FIXME: This won't always to
863 the right thing. */
864 if (bfd_is_abs_section (symbol->symbol.section)
865 && (abfd->flags & HAS_RELOC) == 0)
866 {
867 bfd_vma val;
868 asection *s;
869
870 val = symbol->symbol.value;
871 for (s = abfd->sections; s != NULL; s = s->next)
872 {
873 if (val >= s->vma && val < s->vma + s->size)
874 {
875 symbol->symbol.section = s;
876 symbol->symbol.value -= s->vma;
877 break;
878 }
879 }
880 }
881
882 symbol->symbol.flags = BSF_GLOBAL | BSF_EXPORT;
883
884 }
885 break;
886 case ieee_weak_external_reference_enum:
887 {
888 bfd_vma size;
889 bfd_vma value;
890
891 next_byte (&(ieee->h));
892 /* Throw away the external reference index. */
893 (void) must_parse_int (&(ieee->h));
894 /* Fetch the default size if not resolved. */
895 size = must_parse_int (&(ieee->h));
896 /* Fetch the default value if available. */
897 if (! parse_int (&(ieee->h), &value))
898 value = 0;
899 /* This turns into a common. */
900 symbol->symbol.section = bfd_com_section_ptr;
901 symbol->symbol.value = size;
902 }
903 break;
904
905 case ieee_external_reference_enum:
906 next_byte (&(ieee->h));
907
908 symbol = get_symbol (abfd, ieee, symbol, &symbol_count,
909 &prev_reference_ptr,
910 &ieee->external_reference_max_index, 'X');
911 if (symbol == NULL)
912 return FALSE;
913
914 symbol->symbol.the_bfd = abfd;
915 symbol->symbol.name = read_id (&(ieee->h));
916 symbol->symbol.udata.p = NULL;
917 symbol->symbol.section = bfd_und_section_ptr;
918 symbol->symbol.value = (bfd_vma) 0;
919 symbol->symbol.flags = 0;
920
921 BFD_ASSERT (symbol->index >= ieee->external_reference_min_index);
922 break;
923
924 default:
925 loop = FALSE;
926 }
927 }
928
929 if (ieee->external_symbol_max_index != 0)
930 {
931 ieee->external_symbol_count =
932 ieee->external_symbol_max_index -
933 ieee->external_symbol_min_index + 1;
934 }
935 else
936 ieee->external_symbol_count = 0;
937
938 if (ieee->external_reference_max_index != 0)
939 {
940 ieee->external_reference_count =
941 ieee->external_reference_max_index -
942 ieee->external_reference_min_index + 1;
943 }
944 else
945 ieee->external_reference_count = 0;
946
947 abfd->symcount =
948 ieee->external_reference_count + ieee->external_symbol_count;
949
950 if (symbol_count != abfd->symcount)
951 /* There are gaps in the table -- */
952 ieee->symbol_table_full = FALSE;
953
954 *prev_symbols_ptr = NULL;
955 *prev_reference_ptr = NULL;
956
957 return TRUE;
958 }
959
960 static bfd_boolean
961 ieee_slurp_symbol_table (bfd *abfd)
962 {
963 if (! IEEE_DATA (abfd)->read_symbols)
964 {
965 if (! ieee_slurp_external_symbols (abfd))
966 return FALSE;
967 IEEE_DATA (abfd)->read_symbols = TRUE;
968 }
969 return TRUE;
970 }
971
972 static long
973 ieee_get_symtab_upper_bound (bfd *abfd)
974 {
975 if (! ieee_slurp_symbol_table (abfd))
976 return -1;
977
978 return (abfd->symcount != 0) ?
979 (abfd->symcount + 1) * (sizeof (ieee_symbol_type *)) : 0;
980 }
981
982 /* Move from our internal lists to the canon table, and insert in
983 symbol index order. */
984
985 extern const bfd_target ieee_vec;
986
987 static long
988 ieee_canonicalize_symtab (bfd *abfd, asymbol **location)
989 {
990 ieee_symbol_type *symp;
991 static bfd dummy_bfd;
992 static asymbol empty_symbol =
993 {
994 &dummy_bfd,
995 " ieee empty",
996 (symvalue) 0,
997 BSF_DEBUGGING,
998 bfd_abs_section_ptr
999 #ifdef __STDC__
1000 /* K&R compilers can't initialise unions. */
1001 , { 0 }
1002 #endif
1003 };
1004
1005 if (abfd->symcount)
1006 {
1007 ieee_data_type *ieee = IEEE_DATA (abfd);
1008
1009 dummy_bfd.xvec = &ieee_vec;
1010 if (! ieee_slurp_symbol_table (abfd))
1011 return -1;
1012
1013 if (! ieee->symbol_table_full)
1014 {
1015 /* Arrgh - there are gaps in the table, run through and fill them
1016 up with pointers to a null place. */
1017 unsigned int i;
1018
1019 for (i = 0; i < abfd->symcount; i++)
1020 location[i] = &empty_symbol;
1021 }
1022
1023 ieee->external_symbol_base_offset = -ieee->external_symbol_min_index;
1024 for (symp = IEEE_DATA (abfd)->external_symbols;
1025 symp != (ieee_symbol_type *) NULL;
1026 symp = symp->next)
1027 /* Place into table at correct index locations. */
1028 location[symp->index + ieee->external_symbol_base_offset] = &symp->symbol;
1029
1030 /* The external refs are indexed in a bit. */
1031 ieee->external_reference_base_offset =
1032 -ieee->external_reference_min_index + ieee->external_symbol_count;
1033
1034 for (symp = IEEE_DATA (abfd)->external_reference;
1035 symp != (ieee_symbol_type *) NULL;
1036 symp = symp->next)
1037 location[symp->index + ieee->external_reference_base_offset] =
1038 &symp->symbol;
1039 }
1040
1041 if (abfd->symcount)
1042 location[abfd->symcount] = (asymbol *) NULL;
1043
1044 return abfd->symcount;
1045 }
1046
1047 static asection *
1048 get_section_entry (bfd *abfd, ieee_data_type *ieee, unsigned int index)
1049 {
1050 if (index >= ieee->section_table_size)
1051 {
1052 unsigned int c, i;
1053 asection **n;
1054 bfd_size_type amt;
1055
1056 c = ieee->section_table_size;
1057 if (c == 0)
1058 c = 20;
1059 while (c <= index)
1060 c *= 2;
1061
1062 amt = c;
1063 amt *= sizeof (asection *);
1064 n = bfd_realloc (ieee->section_table, amt);
1065 if (n == NULL)
1066 return NULL;
1067
1068 for (i = ieee->section_table_size; i < c; i++)
1069 n[i] = NULL;
1070
1071 ieee->section_table = n;
1072 ieee->section_table_size = c;
1073 }
1074
1075 if (ieee->section_table[index] == (asection *) NULL)
1076 {
1077 char *tmp = bfd_alloc (abfd, (bfd_size_type) 11);
1078 asection *section;
1079
1080 if (!tmp)
1081 return NULL;
1082 sprintf (tmp, " fsec%4d", index);
1083 section = bfd_make_section (abfd, tmp);
1084 ieee->section_table[index] = section;
1085 section->target_index = index;
1086 ieee->section_table[index] = section;
1087 }
1088 return ieee->section_table[index];
1089 }
1090
1091 static void
1092 ieee_slurp_sections (bfd *abfd)
1093 {
1094 ieee_data_type *ieee = IEEE_DATA (abfd);
1095 file_ptr offset = ieee->w.r.section_part;
1096 char *name;
1097
1098 if (offset != 0)
1099 {
1100 bfd_byte section_type[3];
1101
1102 ieee_seek (ieee, offset);
1103 while (TRUE)
1104 {
1105 switch (this_byte (&(ieee->h)))
1106 {
1107 case ieee_section_type_enum:
1108 {
1109 asection *section;
1110 unsigned int section_index;
1111
1112 next_byte (&(ieee->h));
1113 section_index = must_parse_int (&(ieee->h));
1114
1115 section = get_section_entry (abfd, ieee, section_index);
1116
1117 section_type[0] = this_byte_and_next (&(ieee->h));
1118
1119 /* Set minimal section attributes. Attributes are
1120 extended later, based on section contents. */
1121 switch (section_type[0])
1122 {
1123 case 0xC1:
1124 /* Normal attributes for absolute sections. */
1125 section_type[1] = this_byte (&(ieee->h));
1126 section->flags = SEC_ALLOC;
1127 switch (section_type[1])
1128 {
1129 /* AS Absolute section attributes. */
1130 case 0xD3:
1131 next_byte (&(ieee->h));
1132 section_type[2] = this_byte (&(ieee->h));
1133 switch (section_type[2])
1134 {
1135 case 0xD0:
1136 /* Normal code. */
1137 next_byte (&(ieee->h));
1138 section->flags |= SEC_CODE;
1139 break;
1140 case 0xC4:
1141 /* Normal data. */
1142 next_byte (&(ieee->h));
1143 section->flags |= SEC_DATA;
1144 break;
1145 case 0xD2:
1146 next_byte (&(ieee->h));
1147 /* Normal rom data. */
1148 section->flags |= SEC_ROM | SEC_DATA;
1149 break;
1150 default:
1151 break;
1152 }
1153 }
1154 break;
1155
1156 /* Named relocatable sections (type C). */
1157 case 0xC3:
1158 section_type[1] = this_byte (&(ieee->h));
1159 section->flags = SEC_ALLOC;
1160 switch (section_type[1])
1161 {
1162 case 0xD0: /* Normal code (CP). */
1163 next_byte (&(ieee->h));
1164 section->flags |= SEC_CODE;
1165 break;
1166 case 0xC4: /* Normal data (CD). */
1167 next_byte (&(ieee->h));
1168 section->flags |= SEC_DATA;
1169 break;
1170 case 0xD2: /* Normal rom data (CR). */
1171 next_byte (&(ieee->h));
1172 section->flags |= SEC_ROM | SEC_DATA;
1173 break;
1174 default:
1175 break;
1176 }
1177 }
1178
1179 /* Read section name, use it if non empty. */
1180 name = read_id (&ieee->h);
1181 if (name[0])
1182 section->name = name;
1183
1184 /* Skip these fields, which we don't care about. */
1185 {
1186 bfd_vma parent, brother, context;
1187
1188 parse_int (&(ieee->h), &parent);
1189 parse_int (&(ieee->h), &brother);
1190 parse_int (&(ieee->h), &context);
1191 }
1192 }
1193 break;
1194 case ieee_section_alignment_enum:
1195 {
1196 unsigned int section_index;
1197 bfd_vma value;
1198 asection *section;
1199
1200 next_byte (&(ieee->h));
1201 section_index = must_parse_int (&ieee->h);
1202 section = get_section_entry (abfd, ieee, section_index);
1203 if (section_index > ieee->section_count)
1204 ieee->section_count = section_index;
1205
1206 section->alignment_power =
1207 bfd_log2 (must_parse_int (&ieee->h));
1208 (void) parse_int (&(ieee->h), &value);
1209 }
1210 break;
1211 case ieee_e2_first_byte_enum:
1212 {
1213 asection *section;
1214 ieee_record_enum_type t;
1215
1216 t = (ieee_record_enum_type) (read_2bytes (&(ieee->h)));
1217 switch (t)
1218 {
1219 case ieee_section_size_enum:
1220 section = ieee->section_table[must_parse_int (&(ieee->h))];
1221 section->size = must_parse_int (&(ieee->h));
1222 break;
1223 case ieee_physical_region_size_enum:
1224 section = ieee->section_table[must_parse_int (&(ieee->h))];
1225 section->size = must_parse_int (&(ieee->h));
1226 break;
1227 case ieee_region_base_address_enum:
1228 section = ieee->section_table[must_parse_int (&(ieee->h))];
1229 section->vma = must_parse_int (&(ieee->h));
1230 section->lma = section->vma;
1231 break;
1232 case ieee_mau_size_enum:
1233 must_parse_int (&(ieee->h));
1234 must_parse_int (&(ieee->h));
1235 break;
1236 case ieee_m_value_enum:
1237 must_parse_int (&(ieee->h));
1238 must_parse_int (&(ieee->h));
1239 break;
1240 case ieee_section_base_address_enum:
1241 section = ieee->section_table[must_parse_int (&(ieee->h))];
1242 section->vma = must_parse_int (&(ieee->h));
1243 section->lma = section->vma;
1244 break;
1245 case ieee_section_offset_enum:
1246 (void) must_parse_int (&(ieee->h));
1247 (void) must_parse_int (&(ieee->h));
1248 break;
1249 default:
1250 return;
1251 }
1252 }
1253 break;
1254 default:
1255 return;
1256 }
1257 }
1258 }
1259 }
1260
1261 /* Make a section for the debugging information, if any. We don't try
1262 to interpret the debugging information; we just point the section
1263 at the area in the file so that program which understand can dig it
1264 out. */
1265
1266 static bfd_boolean
1267 ieee_slurp_debug (bfd *abfd)
1268 {
1269 ieee_data_type *ieee = IEEE_DATA (abfd);
1270 asection *sec;
1271 file_ptr debug_end;
1272 flagword flags;
1273
1274 if (ieee->w.r.debug_information_part == 0)
1275 return TRUE;
1276
1277 flags = SEC_DEBUGGING | SEC_HAS_CONTENTS;
1278 sec = bfd_make_section_with_flags (abfd, ".debug", flags);
1279 if (sec == NULL)
1280 return FALSE;
1281 sec->filepos = ieee->w.r.debug_information_part;
1282
1283 debug_end = ieee_part_after (ieee, ieee->w.r.debug_information_part);
1284 sec->size = debug_end - ieee->w.r.debug_information_part;
1285
1286 return TRUE;
1287 }
1288 \f
1289 /* Archive stuff. */
1290
1291 static const bfd_target *
1292 ieee_archive_p (bfd *abfd)
1293 {
1294 char *library;
1295 unsigned int i;
1296 unsigned char buffer[512];
1297 file_ptr buffer_offset = 0;
1298 ieee_ar_data_type *save = abfd->tdata.ieee_ar_data;
1299 ieee_ar_data_type *ieee;
1300 bfd_size_type alc_elts;
1301 ieee_ar_obstack_type *elts = NULL;
1302 bfd_size_type amt = sizeof (ieee_ar_data_type);
1303
1304 abfd->tdata.ieee_ar_data = bfd_alloc (abfd, amt);
1305 if (!abfd->tdata.ieee_ar_data)
1306 goto error_ret_restore;
1307 ieee = IEEE_AR_DATA (abfd);
1308
1309 /* Ignore the return value here. It doesn't matter if we don't read
1310 the entire buffer. We might have a very small ieee file. */
1311 bfd_bread ((void *) buffer, (bfd_size_type) sizeof (buffer), abfd);
1312
1313 ieee->h.first_byte = buffer;
1314 ieee->h.input_p = buffer;
1315
1316 ieee->h.abfd = abfd;
1317
1318 if (this_byte (&(ieee->h)) != Module_Beginning)
1319 goto got_wrong_format_error;
1320
1321 next_byte (&(ieee->h));
1322 library = read_id (&(ieee->h));
1323 if (strcmp (library, "LIBRARY") != 0)
1324 goto got_wrong_format_error;
1325
1326 /* Throw away the filename. */
1327 read_id (&(ieee->h));
1328
1329 ieee->element_count = 0;
1330 ieee->element_index = 0;
1331
1332 next_byte (&(ieee->h)); /* Drop the ad part. */
1333 must_parse_int (&(ieee->h)); /* And the two dummy numbers. */
1334 must_parse_int (&(ieee->h));
1335
1336 alc_elts = 10;
1337 elts = bfd_malloc (alc_elts * sizeof *elts);
1338 if (elts == NULL)
1339 goto error_return;
1340
1341 /* Read the index of the BB table. */
1342 while (1)
1343 {
1344 int rec;
1345 ieee_ar_obstack_type *t;
1346
1347 rec = read_2bytes (&(ieee->h));
1348 if (rec != (int) ieee_assign_value_to_variable_enum)
1349 break;
1350
1351 if (ieee->element_count >= alc_elts)
1352 {
1353 ieee_ar_obstack_type *n;
1354
1355 alc_elts *= 2;
1356 n = bfd_realloc (elts, alc_elts * sizeof (* elts));
1357 if (n == NULL)
1358 goto error_return;
1359 elts = n;
1360 }
1361
1362 t = &elts[ieee->element_count];
1363 ieee->element_count++;
1364
1365 must_parse_int (&(ieee->h));
1366 t->file_offset = must_parse_int (&(ieee->h));
1367 t->abfd = (bfd *) NULL;
1368
1369 /* Make sure that we don't go over the end of the buffer. */
1370 if ((size_t) ieee_pos (IEEE_DATA (abfd)) > sizeof (buffer) / 2)
1371 {
1372 /* Past half way, reseek and reprime. */
1373 buffer_offset += ieee_pos (IEEE_DATA (abfd));
1374 if (bfd_seek (abfd, buffer_offset, SEEK_SET) != 0)
1375 goto error_return;
1376
1377 /* Again ignore return value of bfd_bread. */
1378 bfd_bread ((void *) buffer, (bfd_size_type) sizeof (buffer), abfd);
1379 ieee->h.first_byte = buffer;
1380 ieee->h.input_p = buffer;
1381 }
1382 }
1383
1384 amt = ieee->element_count;
1385 amt *= sizeof *ieee->elements;
1386 ieee->elements = bfd_alloc (abfd, amt);
1387 if (ieee->elements == NULL)
1388 goto error_return;
1389
1390 memcpy (ieee->elements, elts, (size_t) amt);
1391 free (elts);
1392 elts = NULL;
1393
1394 /* Now scan the area again, and replace BB offsets with file offsets. */
1395 for (i = 2; i < ieee->element_count; i++)
1396 {
1397 if (bfd_seek (abfd, ieee->elements[i].file_offset, SEEK_SET) != 0)
1398 goto error_return;
1399
1400 /* Again ignore return value of bfd_bread. */
1401 bfd_bread ((void *) buffer, (bfd_size_type) sizeof (buffer), abfd);
1402 ieee->h.first_byte = buffer;
1403 ieee->h.input_p = buffer;
1404
1405 next_byte (&(ieee->h)); /* Drop F8. */
1406 next_byte (&(ieee->h)); /* Drop 14. */
1407 must_parse_int (&(ieee->h)); /* Drop size of block. */
1408
1409 if (must_parse_int (&(ieee->h)) != 0)
1410 /* This object has been deleted. */
1411 ieee->elements[i].file_offset = 0;
1412 else
1413 ieee->elements[i].file_offset = must_parse_int (&(ieee->h));
1414 }
1415
1416 /* abfd->has_armap = ;*/
1417
1418 return abfd->xvec;
1419
1420 got_wrong_format_error:
1421 bfd_set_error (bfd_error_wrong_format);
1422 error_return:
1423 if (elts != NULL)
1424 free (elts);
1425 bfd_release (abfd, ieee);
1426 error_ret_restore:
1427 abfd->tdata.ieee_ar_data = save;
1428
1429 return NULL;
1430 }
1431
1432 static bfd_boolean
1433 ieee_mkobject (bfd *abfd)
1434 {
1435 bfd_size_type amt;
1436
1437 output_ptr_start = NULL;
1438 output_ptr = NULL;
1439 output_ptr_end = NULL;
1440 input_ptr_start = NULL;
1441 input_ptr = NULL;
1442 input_ptr_end = NULL;
1443 input_bfd = NULL;
1444 output_bfd = NULL;
1445 output_buffer = 0;
1446 amt = sizeof (ieee_data_type);
1447 abfd->tdata.ieee_data = bfd_zalloc (abfd, amt);
1448 return abfd->tdata.ieee_data != NULL;
1449 }
1450
1451 static bfd_boolean
1452 do_one (ieee_data_type *ieee,
1453 ieee_per_section_type *current_map,
1454 unsigned char *location_ptr,
1455 asection *s,
1456 int iterations)
1457 {
1458 switch (this_byte (&(ieee->h)))
1459 {
1460 case ieee_load_constant_bytes_enum:
1461 {
1462 unsigned int number_of_maus;
1463 unsigned int i;
1464
1465 next_byte (&(ieee->h));
1466 number_of_maus = must_parse_int (&(ieee->h));
1467
1468 for (i = 0; i < number_of_maus; i++)
1469 {
1470 location_ptr[current_map->pc++] = this_byte (&(ieee->h));
1471 next_byte (&(ieee->h));
1472 }
1473 }
1474 break;
1475
1476 case ieee_load_with_relocation_enum:
1477 {
1478 bfd_boolean loop = TRUE;
1479
1480 next_byte (&(ieee->h));
1481 while (loop)
1482 {
1483 switch (this_byte (&(ieee->h)))
1484 {
1485 case ieee_variable_R_enum:
1486
1487 case ieee_function_signed_open_b_enum:
1488 case ieee_function_unsigned_open_b_enum:
1489 case ieee_function_either_open_b_enum:
1490 {
1491 unsigned int extra = 4;
1492 bfd_boolean pcrel = FALSE;
1493 asection *section;
1494 ieee_reloc_type *r;
1495
1496 r = bfd_alloc (ieee->h.abfd, sizeof (* r));
1497 if (!r)
1498 return FALSE;
1499
1500 *(current_map->reloc_tail_ptr) = r;
1501 current_map->reloc_tail_ptr = &r->next;
1502 r->next = (ieee_reloc_type *) NULL;
1503 next_byte (&(ieee->h));
1504 /* abort();*/
1505 r->relent.sym_ptr_ptr = 0;
1506 parse_expression (ieee,
1507 &r->relent.addend,
1508 &r->symbol,
1509 &pcrel, &extra, &section);
1510 r->relent.address = current_map->pc;
1511 s->flags |= SEC_RELOC;
1512 s->owner->flags |= HAS_RELOC;
1513 s->reloc_count++;
1514 if (r->relent.sym_ptr_ptr == NULL && section != NULL)
1515 r->relent.sym_ptr_ptr = section->symbol_ptr_ptr;
1516
1517 if (this_byte (&(ieee->h)) == (int) ieee_comma)
1518 {
1519 next_byte (&(ieee->h));
1520 /* Fetch number of bytes to pad. */
1521 extra = must_parse_int (&(ieee->h));
1522 };
1523
1524 switch (this_byte (&(ieee->h)))
1525 {
1526 case ieee_function_signed_close_b_enum:
1527 next_byte (&(ieee->h));
1528 break;
1529 case ieee_function_unsigned_close_b_enum:
1530 next_byte (&(ieee->h));
1531 break;
1532 case ieee_function_either_close_b_enum:
1533 next_byte (&(ieee->h));
1534 break;
1535 default:
1536 break;
1537 }
1538 /* Build a relocation entry for this type. */
1539 /* If pc rel then stick -ve pc into instruction
1540 and take out of reloc ..
1541
1542 I've changed this. It's all too complicated. I
1543 keep 0 in the instruction now. */
1544
1545 switch (extra)
1546 {
1547 case 0:
1548 case 4:
1549
1550 if (pcrel)
1551 {
1552 #if KEEPMINUSPCININST
1553 bfd_put_32 (ieee->h.abfd, -current_map->pc,
1554 location_ptr + current_map->pc);
1555 r->relent.howto = &rel32_howto;
1556 r->relent.addend -= current_map->pc;
1557 #else
1558 bfd_put_32 (ieee->h.abfd, (bfd_vma) 0, location_ptr +
1559 current_map->pc);
1560 r->relent.howto = &rel32_howto;
1561 #endif
1562 }
1563 else
1564 {
1565 bfd_put_32 (ieee->h.abfd, (bfd_vma) 0,
1566 location_ptr + current_map->pc);
1567 r->relent.howto = &abs32_howto;
1568 }
1569 current_map->pc += 4;
1570 break;
1571 case 2:
1572 if (pcrel)
1573 {
1574 #if KEEPMINUSPCININST
1575 bfd_put_16 (ieee->h.abfd, (bfd_vma) -current_map->pc,
1576 location_ptr + current_map->pc);
1577 r->relent.addend -= current_map->pc;
1578 r->relent.howto = &rel16_howto;
1579 #else
1580
1581 bfd_put_16 (ieee->h.abfd, (bfd_vma) 0,
1582 location_ptr + current_map->pc);
1583 r->relent.howto = &rel16_howto;
1584 #endif
1585 }
1586
1587 else
1588 {
1589 bfd_put_16 (ieee->h.abfd, (bfd_vma) 0,
1590 location_ptr + current_map->pc);
1591 r->relent.howto = &abs16_howto;
1592 }
1593 current_map->pc += 2;
1594 break;
1595 case 1:
1596 if (pcrel)
1597 {
1598 #if KEEPMINUSPCININST
1599 bfd_put_8 (ieee->h.abfd, (int) (-current_map->pc), location_ptr + current_map->pc);
1600 r->relent.addend -= current_map->pc;
1601 r->relent.howto = &rel8_howto;
1602 #else
1603 bfd_put_8 (ieee->h.abfd, 0, location_ptr + current_map->pc);
1604 r->relent.howto = &rel8_howto;
1605 #endif
1606 }
1607 else
1608 {
1609 bfd_put_8 (ieee->h.abfd, 0, location_ptr + current_map->pc);
1610 r->relent.howto = &abs8_howto;
1611 }
1612 current_map->pc += 1;
1613 break;
1614
1615 default:
1616 BFD_FAIL ();
1617 return FALSE;
1618 }
1619 }
1620 break;
1621 default:
1622 {
1623 bfd_vma this_size;
1624
1625 if (parse_int (&(ieee->h), &this_size))
1626 {
1627 unsigned int i;
1628
1629 for (i = 0; i < this_size; i++)
1630 {
1631 location_ptr[current_map->pc++] = this_byte (&(ieee->h));
1632 next_byte (&(ieee->h));
1633 }
1634 }
1635 else
1636 loop = FALSE;
1637 }
1638 }
1639
1640 /* Prevent more than the first load-item of an LR record
1641 from being repeated (MRI convention). */
1642 if (iterations != 1)
1643 loop = FALSE;
1644 }
1645 }
1646 }
1647 return TRUE;
1648 }
1649
1650 /* Read in all the section data and relocation stuff too. */
1651
1652 static bfd_boolean
1653 ieee_slurp_section_data (bfd *abfd)
1654 {
1655 bfd_byte *location_ptr = (bfd_byte *) NULL;
1656 ieee_data_type *ieee = IEEE_DATA (abfd);
1657 unsigned int section_number;
1658 ieee_per_section_type *current_map = NULL;
1659 asection *s;
1660
1661 /* Seek to the start of the data area. */
1662 if (ieee->read_data)
1663 return TRUE;
1664 ieee->read_data = TRUE;
1665 ieee_seek (ieee, ieee->w.r.data_part);
1666
1667 /* Allocate enough space for all the section contents. */
1668 for (s = abfd->sections; s != (asection *) NULL; s = s->next)
1669 {
1670 ieee_per_section_type *per = ieee_per_section (s);
1671 arelent **relpp;
1672
1673 if ((s->flags & SEC_DEBUGGING) != 0)
1674 continue;
1675 per->data = bfd_alloc (ieee->h.abfd, s->size);
1676 if (!per->data)
1677 return FALSE;
1678 relpp = &s->relocation;
1679 per->reloc_tail_ptr = (ieee_reloc_type **) relpp;
1680 }
1681
1682 while (TRUE)
1683 {
1684 switch (this_byte (&(ieee->h)))
1685 {
1686 /* IF we see anything strange then quit. */
1687 default:
1688 return TRUE;
1689
1690 case ieee_set_current_section_enum:
1691 next_byte (&(ieee->h));
1692 section_number = must_parse_int (&(ieee->h));
1693 s = ieee->section_table[section_number];
1694 s->flags |= SEC_LOAD | SEC_HAS_CONTENTS;
1695 current_map = ieee_per_section (s);
1696 location_ptr = current_map->data - s->vma;
1697 /* The document I have says that Microtec's compilers reset
1698 this after a sec section, even though the standard says not
1699 to, SO... */
1700 current_map->pc = s->vma;
1701 break;
1702
1703 case ieee_e2_first_byte_enum:
1704 next_byte (&(ieee->h));
1705 switch (this_byte (&(ieee->h)))
1706 {
1707 case ieee_set_current_pc_enum & 0xff:
1708 {
1709 bfd_vma value;
1710 ieee_symbol_index_type symbol;
1711 unsigned int extra;
1712 bfd_boolean pcrel;
1713
1714 next_byte (&(ieee->h));
1715 must_parse_int (&(ieee->h)); /* Throw away section #. */
1716 parse_expression (ieee, &value,
1717 &symbol,
1718 &pcrel, &extra,
1719 0);
1720 current_map->pc = value;
1721 BFD_ASSERT ((unsigned) (value - s->vma) <= s->size);
1722 }
1723 break;
1724
1725 case ieee_value_starting_address_enum & 0xff:
1726 next_byte (&(ieee->h));
1727 if (this_byte (&(ieee->h)) == ieee_function_either_open_b_enum)
1728 next_byte (&(ieee->h));
1729 abfd->start_address = must_parse_int (&(ieee->h));
1730 /* We've got to the end of the data now - */
1731 return TRUE;
1732 default:
1733 BFD_FAIL ();
1734 return FALSE;
1735 }
1736 break;
1737 case ieee_repeat_data_enum:
1738 {
1739 /* Repeat the following LD or LR n times - we do this by
1740 remembering the stream pointer before running it and
1741 resetting it and running it n times. We special case
1742 the repetition of a repeat_data/load_constant. */
1743 unsigned int iterations;
1744 unsigned char *start;
1745
1746 next_byte (&(ieee->h));
1747 iterations = must_parse_int (&(ieee->h));
1748 start = ieee->h.input_p;
1749 if (start[0] == (int) ieee_load_constant_bytes_enum
1750 && start[1] == 1)
1751 {
1752 while (iterations != 0)
1753 {
1754 location_ptr[current_map->pc++] = start[2];
1755 iterations--;
1756 }
1757 next_byte (&(ieee->h));
1758 next_byte (&(ieee->h));
1759 next_byte (&(ieee->h));
1760 }
1761 else
1762 {
1763 while (iterations != 0)
1764 {
1765 ieee->h.input_p = start;
1766 if (!do_one (ieee, current_map, location_ptr, s,
1767 (int) iterations))
1768 return FALSE;
1769 iterations--;
1770 }
1771 }
1772 }
1773 break;
1774 case ieee_load_constant_bytes_enum:
1775 case ieee_load_with_relocation_enum:
1776 if (!do_one (ieee, current_map, location_ptr, s, 1))
1777 return FALSE;
1778 }
1779 }
1780 }
1781
1782 static const bfd_target *
1783 ieee_object_p (bfd *abfd)
1784 {
1785 char *processor;
1786 unsigned int part;
1787 ieee_data_type *ieee;
1788 unsigned char buffer[300];
1789 ieee_data_type *save = IEEE_DATA (abfd);
1790 bfd_size_type amt;
1791
1792 abfd->tdata.ieee_data = 0;
1793 ieee_mkobject (abfd);
1794
1795 ieee = IEEE_DATA (abfd);
1796 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
1797 goto fail;
1798 /* Read the first few bytes in to see if it makes sense. Ignore
1799 bfd_bread return value; The file might be very small. */
1800 bfd_bread ((void *) buffer, (bfd_size_type) sizeof (buffer), abfd);
1801
1802 ieee->h.input_p = buffer;
1803 if (this_byte_and_next (&(ieee->h)) != Module_Beginning)
1804 goto got_wrong_format;
1805
1806 ieee->read_symbols = FALSE;
1807 ieee->read_data = FALSE;
1808 ieee->section_count = 0;
1809 ieee->external_symbol_max_index = 0;
1810 ieee->external_symbol_min_index = IEEE_PUBLIC_BASE;
1811 ieee->external_reference_min_index = IEEE_REFERENCE_BASE;
1812 ieee->external_reference_max_index = 0;
1813 ieee->h.abfd = abfd;
1814 ieee->section_table = NULL;
1815 ieee->section_table_size = 0;
1816
1817 processor = ieee->mb.processor = read_id (&(ieee->h));
1818 if (strcmp (processor, "LIBRARY") == 0)
1819 goto got_wrong_format;
1820 ieee->mb.module_name = read_id (&(ieee->h));
1821 if (abfd->filename == (const char *) NULL)
1822 abfd->filename = ieee->mb.module_name;
1823
1824 /* Determine the architecture and machine type of the object file. */
1825 {
1826 const bfd_arch_info_type *arch;
1827 char family[10];
1828
1829 /* IEEE does not specify the format of the processor identification
1830 string, so the compiler is free to put in it whatever it wants.
1831 We try here to recognize different processors belonging to the
1832 m68k family. Code for other processors can be added here. */
1833 if ((processor[0] == '6') && (processor[1] == '8'))
1834 {
1835 if (processor[2] == '3') /* 683xx integrated processors. */
1836 {
1837 switch (processor[3])
1838 {
1839 case '0': /* 68302, 68306, 68307 */
1840 case '2': /* 68322, 68328 */
1841 case '5': /* 68356 */
1842 strcpy (family, "68000"); /* MC68000-based controllers. */
1843 break;
1844
1845 case '3': /* 68330, 68331, 68332, 68333,
1846 68334, 68335, 68336, 68338 */
1847 case '6': /* 68360 */
1848 case '7': /* 68376 */
1849 strcpy (family, "68332"); /* CPU32 and CPU32+ */
1850 break;
1851
1852 case '4':
1853 if (processor[4] == '9') /* 68349 */
1854 strcpy (family, "68030"); /* CPU030 */
1855 else /* 68340, 68341 */
1856 strcpy (family, "68332"); /* CPU32 and CPU32+ */
1857 break;
1858
1859 default: /* Does not exist yet. */
1860 strcpy (family, "68332"); /* Guess it will be CPU32 */
1861 }
1862 }
1863 else if (TOUPPER (processor[3]) == 'F') /* 68F333 */
1864 strcpy (family, "68332"); /* CPU32 */
1865 else if ((TOUPPER (processor[3]) == 'C') /* Embedded controllers. */
1866 && ((TOUPPER (processor[2]) == 'E')
1867 || (TOUPPER (processor[2]) == 'H')
1868 || (TOUPPER (processor[2]) == 'L')))
1869 {
1870 strcpy (family, "68");
1871 strncat (family, processor + 4, 7);
1872 family[9] = '\0';
1873 }
1874 else /* "Regular" processors. */
1875 {
1876 strncpy (family, processor, 9);
1877 family[9] = '\0';
1878 }
1879 }
1880 else if ((CONST_STRNEQ (processor, "cpu32")) /* CPU32 and CPU32+ */
1881 || (CONST_STRNEQ (processor, "CPU32")))
1882 strcpy (family, "68332");
1883 else
1884 {
1885 strncpy (family, processor, 9);
1886 family[9] = '\0';
1887 }
1888
1889 arch = bfd_scan_arch (family);
1890 if (arch == 0)
1891 goto got_wrong_format;
1892 abfd->arch_info = arch;
1893 }
1894
1895 if (this_byte (&(ieee->h)) != (int) ieee_address_descriptor_enum)
1896 goto fail;
1897
1898 next_byte (&(ieee->h));
1899
1900 if (! parse_int (&(ieee->h), &ieee->ad.number_of_bits_mau))
1901 goto fail;
1902
1903 if (! parse_int (&(ieee->h), &ieee->ad.number_of_maus_in_address))
1904 goto fail;
1905
1906 /* If there is a byte order info, take it. */
1907 if (this_byte (&(ieee->h)) == (int) ieee_variable_L_enum
1908 || this_byte (&(ieee->h)) == (int) ieee_variable_M_enum)
1909 next_byte (&(ieee->h));
1910
1911 for (part = 0; part < N_W_VARIABLES; part++)
1912 {
1913 bfd_boolean ok;
1914
1915 if (read_2bytes (&(ieee->h)) != (int) ieee_assign_value_to_variable_enum)
1916 goto fail;
1917
1918 if (this_byte_and_next (&(ieee->h)) != part)
1919 goto fail;
1920
1921 ieee->w.offset[part] = parse_i (&(ieee->h), &ok);
1922 if (! ok)
1923 goto fail;
1924 }
1925
1926 if (ieee->w.r.external_part != 0)
1927 abfd->flags = HAS_SYMS;
1928
1929 /* By now we know that this is a real IEEE file, we're going to read
1930 the whole thing into memory so that we can run up and down it
1931 quickly. We can work out how big the file is from the trailer
1932 record. */
1933
1934 amt = ieee->w.r.me_record + 1;
1935 IEEE_DATA (abfd)->h.first_byte = bfd_alloc (ieee->h.abfd, amt);
1936 if (!IEEE_DATA (abfd)->h.first_byte)
1937 goto fail;
1938 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
1939 goto fail;
1940 /* FIXME: Check return value. I'm not sure whether it needs to read
1941 the entire buffer or not. */
1942 bfd_bread ((void *) (IEEE_DATA (abfd)->h.first_byte),
1943 (bfd_size_type) ieee->w.r.me_record + 1, abfd);
1944
1945 ieee_slurp_sections (abfd);
1946
1947 if (! ieee_slurp_debug (abfd))
1948 goto fail;
1949
1950 /* Parse section data to activate file and section flags implied by
1951 section contents. */
1952 if (! ieee_slurp_section_data (abfd))
1953 goto fail;
1954
1955 return abfd->xvec;
1956 got_wrong_format:
1957 bfd_set_error (bfd_error_wrong_format);
1958 fail:
1959 bfd_release (abfd, ieee);
1960 abfd->tdata.ieee_data = save;
1961 return (const bfd_target *) NULL;
1962 }
1963
1964 static void
1965 ieee_get_symbol_info (bfd *ignore_abfd ATTRIBUTE_UNUSED,
1966 asymbol *symbol,
1967 symbol_info *ret)
1968 {
1969 bfd_symbol_info (symbol, ret);
1970 if (symbol->name[0] == ' ')
1971 ret->name = "* empty table entry ";
1972 if (!symbol->section)
1973 ret->type = (symbol->flags & BSF_LOCAL) ? 'a' : 'A';
1974 }
1975
1976 static void
1977 ieee_print_symbol (bfd *abfd,
1978 void * afile,
1979 asymbol *symbol,
1980 bfd_print_symbol_type how)
1981 {
1982 FILE *file = (FILE *) afile;
1983
1984 switch (how)
1985 {
1986 case bfd_print_symbol_name:
1987 fprintf (file, "%s", symbol->name);
1988 break;
1989 case bfd_print_symbol_more:
1990 BFD_FAIL ();
1991 break;
1992 case bfd_print_symbol_all:
1993 {
1994 const char *section_name =
1995 (symbol->section == (asection *) NULL
1996 ? "*abs"
1997 : symbol->section->name);
1998
1999 if (symbol->name[0] == ' ')
2000 fprintf (file, "* empty table entry ");
2001 else
2002 {
2003 bfd_print_symbol_vandf (abfd, (void *) file, symbol);
2004
2005 fprintf (file, " %-5s %04x %02x %s",
2006 section_name,
2007 (unsigned) ieee_symbol (symbol)->index,
2008 (unsigned) 0,
2009 symbol->name);
2010 }
2011 }
2012 break;
2013 }
2014 }
2015
2016 static bfd_boolean
2017 ieee_new_section_hook (bfd *abfd, asection *newsect)
2018 {
2019 if (!newsect->used_by_bfd)
2020 {
2021 newsect->used_by_bfd = bfd_alloc (abfd, sizeof (ieee_per_section_type));
2022 if (!newsect->used_by_bfd)
2023 return FALSE;
2024 }
2025 ieee_per_section (newsect)->data = NULL;
2026 ieee_per_section (newsect)->section = newsect;
2027 return _bfd_generic_new_section_hook (abfd, newsect);
2028 }
2029
2030 static long
2031 ieee_get_reloc_upper_bound (bfd *abfd, sec_ptr asect)
2032 {
2033 if ((asect->flags & SEC_DEBUGGING) != 0)
2034 return 0;
2035 if (! ieee_slurp_section_data (abfd))
2036 return -1;
2037 return (asect->reloc_count + 1) * sizeof (arelent *);
2038 }
2039
2040 static bfd_boolean
2041 ieee_get_section_contents (bfd *abfd,
2042 sec_ptr section,
2043 void * location,
2044 file_ptr offset,
2045 bfd_size_type count)
2046 {
2047 ieee_per_section_type *p = ieee_per_section (section);
2048 if ((section->flags & SEC_DEBUGGING) != 0)
2049 return _bfd_generic_get_section_contents (abfd, section, location,
2050 offset, count);
2051 ieee_slurp_section_data (abfd);
2052 (void) memcpy ((void *) location, (void *) (p->data + offset), (unsigned) count);
2053 return TRUE;
2054 }
2055
2056 static long
2057 ieee_canonicalize_reloc (bfd *abfd,
2058 sec_ptr section,
2059 arelent **relptr,
2060 asymbol **symbols)
2061 {
2062 ieee_reloc_type *src = (ieee_reloc_type *) (section->relocation);
2063 ieee_data_type *ieee = IEEE_DATA (abfd);
2064
2065 if ((section->flags & SEC_DEBUGGING) != 0)
2066 return 0;
2067
2068 while (src != (ieee_reloc_type *) NULL)
2069 {
2070 /* Work out which symbol to attach it this reloc to. */
2071 switch (src->symbol.letter)
2072 {
2073 case 'I':
2074 src->relent.sym_ptr_ptr =
2075 symbols + src->symbol.index + ieee->external_symbol_base_offset;
2076 break;
2077 case 'X':
2078 src->relent.sym_ptr_ptr =
2079 symbols + src->symbol.index + ieee->external_reference_base_offset;
2080 break;
2081 case 0:
2082 if (src->relent.sym_ptr_ptr != NULL)
2083 src->relent.sym_ptr_ptr =
2084 src->relent.sym_ptr_ptr[0]->section->symbol_ptr_ptr;
2085 break;
2086 default:
2087
2088 BFD_FAIL ();
2089 }
2090 *relptr++ = &src->relent;
2091 src = src->next;
2092 }
2093 *relptr = NULL;
2094 return section->reloc_count;
2095 }
2096
2097 static int
2098 comp (const void * ap, const void * bp)
2099 {
2100 arelent *a = *((arelent **) ap);
2101 arelent *b = *((arelent **) bp);
2102 return a->address - b->address;
2103 }
2104
2105 /* Write the section headers. */
2106
2107 static bfd_boolean
2108 ieee_write_section_part (bfd *abfd)
2109 {
2110 ieee_data_type *ieee = IEEE_DATA (abfd);
2111 asection *s;
2112
2113 ieee->w.r.section_part = bfd_tell (abfd);
2114 for (s = abfd->sections; s != (asection *) NULL; s = s->next)
2115 {
2116 if (! bfd_is_abs_section (s)
2117 && (s->flags & SEC_DEBUGGING) == 0)
2118 {
2119 if (! ieee_write_byte (abfd, ieee_section_type_enum)
2120 || ! ieee_write_byte (abfd,
2121 (bfd_byte) (s->index
2122 + IEEE_SECTION_NUMBER_BASE)))
2123 return FALSE;
2124
2125 if (abfd->flags & EXEC_P)
2126 {
2127 /* This image is executable, so output absolute sections. */
2128 if (! ieee_write_byte (abfd, ieee_variable_A_enum)
2129 || ! ieee_write_byte (abfd, ieee_variable_S_enum))
2130 return FALSE;
2131 }
2132 else
2133 {
2134 if (! ieee_write_byte (abfd, ieee_variable_C_enum))
2135 return FALSE;
2136 }
2137
2138 switch (s->flags & (SEC_CODE | SEC_DATA | SEC_ROM))
2139 {
2140 case SEC_CODE | SEC_LOAD:
2141 case SEC_CODE:
2142 if (! ieee_write_byte (abfd, ieee_variable_P_enum))
2143 return FALSE;
2144 break;
2145 case SEC_DATA:
2146 default:
2147 if (! ieee_write_byte (abfd, ieee_variable_D_enum))
2148 return FALSE;
2149 break;
2150 case SEC_ROM:
2151 case SEC_ROM | SEC_DATA:
2152 case SEC_ROM | SEC_LOAD:
2153 case SEC_ROM | SEC_DATA | SEC_LOAD:
2154 if (! ieee_write_byte (abfd, ieee_variable_R_enum))
2155 return FALSE;
2156 }
2157
2158
2159 if (! ieee_write_id (abfd, s->name))
2160 return FALSE;
2161 /* Alignment. */
2162 if (! ieee_write_byte (abfd, ieee_section_alignment_enum)
2163 || ! ieee_write_byte (abfd,
2164 (bfd_byte) (s->index
2165 + IEEE_SECTION_NUMBER_BASE))
2166 || ! ieee_write_int (abfd, (bfd_vma) 1 << s->alignment_power))
2167 return FALSE;
2168
2169 /* Size. */
2170 if (! ieee_write_2bytes (abfd, ieee_section_size_enum)
2171 || ! ieee_write_byte (abfd,
2172 (bfd_byte) (s->index
2173 + IEEE_SECTION_NUMBER_BASE))
2174 || ! ieee_write_int (abfd, s->size))
2175 return FALSE;
2176 if (abfd->flags & EXEC_P)
2177 {
2178 /* Relocateable sections don't have asl records. */
2179 /* Vma. */
2180 if (! ieee_write_2bytes (abfd, ieee_section_base_address_enum)
2181 || ! ieee_write_byte (abfd,
2182 ((bfd_byte)
2183 (s->index
2184 + IEEE_SECTION_NUMBER_BASE)))
2185 || ! ieee_write_int (abfd, s->lma))
2186 return FALSE;
2187 }
2188 }
2189 }
2190
2191 return TRUE;
2192 }
2193
2194 static bfd_boolean
2195 do_with_relocs (bfd *abfd, asection *s)
2196 {
2197 unsigned int number_of_maus_in_address =
2198 bfd_arch_bits_per_address (abfd) / bfd_arch_bits_per_byte (abfd);
2199 unsigned int relocs_to_go = s->reloc_count;
2200 bfd_byte *stream = ieee_per_section (s)->data;
2201 arelent **p = s->orelocation;
2202 bfd_size_type current_byte_index = 0;
2203
2204 qsort (s->orelocation,
2205 relocs_to_go,
2206 sizeof (arelent **),
2207 comp);
2208
2209 /* Output the section preheader. */
2210 if (! ieee_write_byte (abfd, ieee_set_current_section_enum)
2211 || ! ieee_write_byte (abfd,
2212 (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE))
2213 || ! ieee_write_2bytes (abfd, ieee_set_current_pc_enum)
2214 || ! ieee_write_byte (abfd,
2215 (bfd_byte) (s->index + IEEE_SECTION_NUMBER_BASE)))
2216 return FALSE;
2217
2218 if ((abfd->flags & EXEC_P) != 0 && relocs_to_go == 0)
2219 {
2220 if (! ieee_write_int (abfd, s->lma))
2221 return FALSE;
2222 }
2223 else
2224 {
2225 if (! ieee_write_expression (abfd, (bfd_vma) 0, s->symbol, 0, 0))
2226 return FALSE;
2227 }
2228
2229 if (relocs_to_go == 0)
2230 {
2231 /* If there aren't any relocations then output the load constant
2232 byte opcode rather than the load with relocation opcode. */
2233 while (current_byte_index < s->size)
2234 {
2235 bfd_size_type run;
2236 unsigned int MAXRUN = 127;
2237
2238 run = MAXRUN;
2239 if (run > s->size - current_byte_index)
2240 run = s->size - current_byte_index;
2241
2242 if (run != 0)
2243 {
2244 if (! ieee_write_byte (abfd, ieee_load_constant_bytes_enum))
2245 return FALSE;
2246 /* Output a stream of bytes. */
2247 if (! ieee_write_int (abfd, run))
2248 return FALSE;
2249 if (bfd_bwrite ((void *) (stream + current_byte_index), run, abfd)
2250 != run)
2251 return FALSE;
2252 current_byte_index += run;
2253 }
2254 }
2255 }
2256 else
2257 {
2258 if (! ieee_write_byte (abfd, ieee_load_with_relocation_enum))
2259 return FALSE;
2260
2261 /* Output the data stream as the longest sequence of bytes
2262 possible, allowing for the a reasonable packet size and
2263 relocation stuffs. */
2264 if (stream == NULL)
2265 {
2266 /* Outputting a section without data, fill it up. */
2267 stream = bfd_zalloc (abfd, s->size);
2268 if (!stream)
2269 return FALSE;
2270 }
2271 while (current_byte_index < s->size)
2272 {
2273 bfd_size_type run;
2274 unsigned int MAXRUN = 127;
2275
2276 if (relocs_to_go)
2277 {
2278 run = (*p)->address - current_byte_index;
2279 if (run > MAXRUN)
2280 run = MAXRUN;
2281 }
2282 else
2283 run = MAXRUN;
2284
2285 if (run > s->size - current_byte_index)
2286 run = s->size - current_byte_index;
2287
2288 if (run != 0)
2289 {
2290 /* Output a stream of bytes. */
2291 if (! ieee_write_int (abfd, run))
2292 return FALSE;
2293 if (bfd_bwrite ((void *) (stream + current_byte_index), run, abfd)
2294 != run)
2295 return FALSE;
2296 current_byte_index += run;
2297 }
2298
2299 /* Output any relocations here. */
2300 if (relocs_to_go && (*p) && (*p)->address == current_byte_index)
2301 {
2302 while (relocs_to_go
2303 && (*p) && (*p)->address == current_byte_index)
2304 {
2305 arelent *r = *p;
2306 bfd_signed_vma ov;
2307 switch (r->howto->size)
2308 {
2309 case 2:
2310 ov = bfd_get_signed_32 (abfd,
2311 stream + current_byte_index);
2312 current_byte_index += 4;
2313 break;
2314 case 1:
2315 ov = bfd_get_signed_16 (abfd,
2316 stream + current_byte_index);
2317 current_byte_index += 2;
2318 break;
2319 case 0:
2320 ov = bfd_get_signed_8 (abfd,
2321 stream + current_byte_index);
2322 current_byte_index++;
2323 break;
2324 default:
2325 ov = 0;
2326 BFD_FAIL ();
2327 return FALSE;
2328 }
2329
2330 ov &= r->howto->src_mask;
2331
2332 if (r->howto->pc_relative
2333 && ! r->howto->pcrel_offset)
2334 ov += r->address;
2335
2336 if (! ieee_write_byte (abfd,
2337 ieee_function_either_open_b_enum))
2338 return FALSE;
2339
2340 if (r->sym_ptr_ptr != (asymbol **) NULL)
2341 {
2342 if (! ieee_write_expression (abfd, r->addend + ov,
2343 *(r->sym_ptr_ptr),
2344 r->howto->pc_relative,
2345 (unsigned) s->index))
2346 return FALSE;
2347 }
2348 else
2349 {
2350 if (! ieee_write_expression (abfd, r->addend + ov,
2351 (asymbol *) NULL,
2352 r->howto->pc_relative,
2353 (unsigned) s->index))
2354 return FALSE;
2355 }
2356
2357 if (number_of_maus_in_address
2358 != bfd_get_reloc_size (r->howto))
2359 {
2360 bfd_vma rsize = bfd_get_reloc_size (r->howto);
2361 if (! ieee_write_int (abfd, rsize))
2362 return FALSE;
2363 }
2364 if (! ieee_write_byte (abfd,
2365 ieee_function_either_close_b_enum))
2366 return FALSE;
2367
2368 relocs_to_go--;
2369 p++;
2370 }
2371
2372 }
2373 }
2374 }
2375
2376 return TRUE;
2377 }
2378
2379 /* If there are no relocations in the output section then we can be
2380 clever about how we write. We block items up into a max of 127
2381 bytes. */
2382
2383 static bfd_boolean
2384 do_as_repeat (bfd *abfd, asection *s)
2385 {
2386 if (s->size)
2387 {
2388 if (! ieee_write_byte (abfd, ieee_set_current_section_enum)
2389 || ! ieee_write_byte (abfd,
2390 (bfd_byte) (s->index
2391 + IEEE_SECTION_NUMBER_BASE))
2392 || ! ieee_write_byte (abfd, ieee_set_current_pc_enum >> 8)
2393 || ! ieee_write_byte (abfd, ieee_set_current_pc_enum & 0xff)
2394 || ! ieee_write_byte (abfd,
2395 (bfd_byte) (s->index
2396 + IEEE_SECTION_NUMBER_BASE)))
2397 return FALSE;
2398
2399 if ((abfd->flags & EXEC_P) != 0)
2400 {
2401 if (! ieee_write_int (abfd, s->lma))
2402 return FALSE;
2403 }
2404 else
2405 {
2406 if (! ieee_write_expression (abfd, (bfd_vma) 0, s->symbol, 0, 0))
2407 return FALSE;
2408 }
2409
2410 if (! ieee_write_byte (abfd, ieee_repeat_data_enum)
2411 || ! ieee_write_int (abfd, s->size)
2412 || ! ieee_write_byte (abfd, ieee_load_constant_bytes_enum)
2413 || ! ieee_write_byte (abfd, 1)
2414 || ! ieee_write_byte (abfd, 0))
2415 return FALSE;
2416 }
2417
2418 return TRUE;
2419 }
2420
2421 static bfd_boolean
2422 do_without_relocs (bfd *abfd, asection *s)
2423 {
2424 bfd_byte *stream = ieee_per_section (s)->data;
2425
2426 if (stream == 0 || ((s->flags & SEC_LOAD) == 0))
2427 {
2428 if (! do_as_repeat (abfd, s))
2429 return FALSE;
2430 }
2431 else
2432 {
2433 unsigned int i;
2434
2435 for (i = 0; i < s->size; i++)
2436 {
2437 if (stream[i] != 0)
2438 {
2439 if (! do_with_relocs (abfd, s))
2440 return FALSE;
2441 return TRUE;
2442 }
2443 }
2444 if (! do_as_repeat (abfd, s))
2445 return FALSE;
2446 }
2447
2448 return TRUE;
2449 }
2450
2451 static void
2452 fill (void)
2453 {
2454 bfd_size_type amt = input_ptr_end - input_ptr_start;
2455 /* FIXME: Check return value. I'm not sure whether it needs to read
2456 the entire buffer or not. */
2457 bfd_bread ((void *) input_ptr_start, amt, input_bfd);
2458 input_ptr = input_ptr_start;
2459 }
2460
2461 static void
2462 flush (void)
2463 {
2464 bfd_size_type amt = output_ptr - output_ptr_start;
2465
2466 if (bfd_bwrite ((void *) (output_ptr_start), amt, output_bfd) != amt)
2467 abort ();
2468 output_ptr = output_ptr_start;
2469 output_buffer++;
2470 }
2471
2472 #define THIS() ( *input_ptr )
2473 #define NEXT() { input_ptr++; if (input_ptr == input_ptr_end) fill (); }
2474 #define OUT(x) { *output_ptr++ = (x); if (output_ptr == output_ptr_end) flush (); }
2475
2476 static void
2477 write_int (int value)
2478 {
2479 if (value >= 0 && value <= 127)
2480 {
2481 OUT (value);
2482 }
2483 else
2484 {
2485 unsigned int length;
2486
2487 /* How many significant bytes ? */
2488 /* FIXME FOR LONGER INTS. */
2489 if (value & 0xff000000)
2490 length = 4;
2491 else if (value & 0x00ff0000)
2492 length = 3;
2493 else if (value & 0x0000ff00)
2494 length = 2;
2495 else
2496 length = 1;
2497
2498 OUT ((int) ieee_number_repeat_start_enum + length);
2499 switch (length)
2500 {
2501 case 4:
2502 OUT (value >> 24);
2503 case 3:
2504 OUT (value >> 16);
2505 case 2:
2506 OUT (value >> 8);
2507 case 1:
2508 OUT (value);
2509 }
2510 }
2511 }
2512
2513 static void
2514 copy_id (void)
2515 {
2516 int length = THIS ();
2517 char ch;
2518
2519 OUT (length);
2520 NEXT ();
2521 while (length--)
2522 {
2523 ch = THIS ();
2524 OUT (ch);
2525 NEXT ();
2526 }
2527 }
2528
2529 #define VAR(x) ((x | 0x80))
2530 static void
2531 copy_expression (void)
2532 {
2533 int stack[10];
2534 int *tos = stack;
2535 int value;
2536
2537 while (1)
2538 {
2539 switch (THIS ())
2540 {
2541 case 0x84:
2542 NEXT ();
2543 value = THIS ();
2544 NEXT ();
2545 value = (value << 8) | THIS ();
2546 NEXT ();
2547 value = (value << 8) | THIS ();
2548 NEXT ();
2549 value = (value << 8) | THIS ();
2550 NEXT ();
2551 *tos++ = value;
2552 break;
2553 case 0x83:
2554 NEXT ();
2555 value = THIS ();
2556 NEXT ();
2557 value = (value << 8) | THIS ();
2558 NEXT ();
2559 value = (value << 8) | THIS ();
2560 NEXT ();
2561 *tos++ = value;
2562 break;
2563 case 0x82:
2564 NEXT ();
2565 value = THIS ();
2566 NEXT ();
2567 value = (value << 8) | THIS ();
2568 NEXT ();
2569 *tos++ = value;
2570 break;
2571 case 0x81:
2572 NEXT ();
2573 value = THIS ();
2574 NEXT ();
2575 *tos++ = value;
2576 break;
2577 case 0x80:
2578 NEXT ();
2579 *tos++ = 0;
2580 break;
2581 default:
2582 if (THIS () > 0x84)
2583 {
2584 /* Not a number, just bug out with the answer. */
2585 write_int (*(--tos));
2586 return;
2587 }
2588 *tos++ = THIS ();
2589 NEXT ();
2590 break;
2591 case 0xa5:
2592 /* PLUS anything. */
2593 value = *(--tos);
2594 value += *(--tos);
2595 *tos++ = value;
2596 NEXT ();
2597 break;
2598 case VAR ('R'):
2599 {
2600 int section_number;
2601 ieee_data_type *ieee;
2602 asection *s;
2603
2604 NEXT ();
2605 section_number = THIS ();
2606
2607 NEXT ();
2608 ieee = IEEE_DATA (input_bfd);
2609 s = ieee->section_table[section_number];
2610 value = 0;
2611 if (s->output_section)
2612 value = s->output_section->lma;
2613 value += s->output_offset;
2614 *tos++ = value;
2615 }
2616 break;
2617 case 0x90:
2618 {
2619 NEXT ();
2620 write_int (*(--tos));
2621 OUT (0x90);
2622 return;
2623 }
2624 }
2625 }
2626 }
2627
2628 /* Drop the int in the buffer, and copy a null into the gap, which we
2629 will overwrite later. */
2630
2631 static void
2632 fill_int (struct output_buffer_struct *buf)
2633 {
2634 if (buf->buffer == output_buffer)
2635 {
2636 /* Still a chance to output the size. */
2637 int value = output_ptr - buf->ptrp + 3;
2638 buf->ptrp[0] = value >> 24;
2639 buf->ptrp[1] = value >> 16;
2640 buf->ptrp[2] = value >> 8;
2641 buf->ptrp[3] = value >> 0;
2642 }
2643 }
2644
2645 static void
2646 drop_int (struct output_buffer_struct *buf)
2647 {
2648 int type = THIS ();
2649 int ch;
2650
2651 if (type <= 0x84)
2652 {
2653 NEXT ();
2654 switch (type)
2655 {
2656 case 0x84:
2657 ch = THIS ();
2658 NEXT ();
2659 case 0x83:
2660 ch = THIS ();
2661 NEXT ();
2662 case 0x82:
2663 ch = THIS ();
2664 NEXT ();
2665 case 0x81:
2666 ch = THIS ();
2667 NEXT ();
2668 case 0x80:
2669 break;
2670 }
2671 }
2672 OUT (0x84);
2673 buf->ptrp = output_ptr;
2674 buf->buffer = output_buffer;
2675 OUT (0);
2676 OUT (0);
2677 OUT (0);
2678 OUT (0);
2679 }
2680
2681 static void
2682 copy_int (void)
2683 {
2684 int type = THIS ();
2685 int ch;
2686 if (type <= 0x84)
2687 {
2688 OUT (type);
2689 NEXT ();
2690 switch (type)
2691 {
2692 case 0x84:
2693 ch = THIS ();
2694 NEXT ();
2695 OUT (ch);
2696 case 0x83:
2697 ch = THIS ();
2698 NEXT ();
2699 OUT (ch);
2700 case 0x82:
2701 ch = THIS ();
2702 NEXT ();
2703 OUT (ch);
2704 case 0x81:
2705 ch = THIS ();
2706 NEXT ();
2707 OUT (ch);
2708 case 0x80:
2709 break;
2710 }
2711 }
2712 }
2713
2714 #define ID copy_id ()
2715 #define INT copy_int ()
2716 #define EXP copy_expression ()
2717 #define INTn(q) copy_int ()
2718 #define EXPn(q) copy_expression ()
2719
2720 static void
2721 copy_till_end (void)
2722 {
2723 int ch = THIS ();
2724
2725 while (1)
2726 {
2727 while (ch <= 0x80)
2728 {
2729 OUT (ch);
2730 NEXT ();
2731 ch = THIS ();
2732 }
2733 switch (ch)
2734 {
2735 case 0x84:
2736 OUT (THIS ());
2737 NEXT ();
2738 case 0x83:
2739 OUT (THIS ());
2740 NEXT ();
2741 case 0x82:
2742 OUT (THIS ());
2743 NEXT ();
2744 case 0x81:
2745 OUT (THIS ());
2746 NEXT ();
2747 OUT (THIS ());
2748 NEXT ();
2749
2750 ch = THIS ();
2751 break;
2752 default:
2753 return;
2754 }
2755 }
2756
2757 }
2758
2759 static void
2760 f1_record (void)
2761 {
2762 int ch;
2763
2764 /* ATN record. */
2765 NEXT ();
2766 ch = THIS ();
2767 switch (ch)
2768 {
2769 default:
2770 OUT (0xf1);
2771 OUT (ch);
2772 break;
2773 case 0xc9:
2774 NEXT ();
2775 OUT (0xf1);
2776 OUT (0xc9);
2777 INT;
2778 INT;
2779 ch = THIS ();
2780 switch (ch)
2781 {
2782 case 0x16:
2783 NEXT ();
2784 break;
2785 case 0x01:
2786 NEXT ();
2787 break;
2788 case 0x00:
2789 NEXT ();
2790 INT;
2791 break;
2792 case 0x03:
2793 NEXT ();
2794 INT;
2795 break;
2796 case 0x13:
2797 EXPn (instruction address);
2798 break;
2799 default:
2800 break;
2801 }
2802 break;
2803 case 0xd8:
2804 /* EXternal ref. */
2805 NEXT ();
2806 OUT (0xf1);
2807 OUT (0xd8);
2808 EXP;
2809 EXP;
2810 EXP;
2811 EXP;
2812 break;
2813 case 0xce:
2814 NEXT ();
2815 OUT (0xf1);
2816 OUT (0xce);
2817 INT;
2818 INT;
2819 ch = THIS ();
2820 INT;
2821 switch (ch)
2822 {
2823 case 0x01:
2824 INT;
2825 INT;
2826 break;
2827 case 0x02:
2828 INT;
2829 break;
2830 case 0x04:
2831 EXPn (external function);
2832 break;
2833 case 0x05:
2834 break;
2835 case 0x07:
2836 INTn (line number);
2837 INT;
2838 case 0x08:
2839 break;
2840 case 0x0a:
2841 INTn (locked register);
2842 INT;
2843 break;
2844 case 0x3f:
2845 copy_till_end ();
2846 break;
2847 case 0x3e:
2848 copy_till_end ();
2849 break;
2850 case 0x40:
2851 copy_till_end ();
2852 break;
2853 case 0x41:
2854 ID;
2855 break;
2856 }
2857 }
2858 }
2859
2860 static void
2861 f0_record (void)
2862 {
2863 /* Attribute record. */
2864 NEXT ();
2865 OUT (0xf0);
2866 INTn (Symbol name);
2867 ID;
2868 }
2869
2870 static void
2871 f2_record (void)
2872 {
2873 NEXT ();
2874 OUT (0xf2);
2875 INT;
2876 NEXT ();
2877 OUT (0xce);
2878 INT;
2879 copy_till_end ();
2880 }
2881
2882 static void
2883 f8_record (void)
2884 {
2885 int ch;
2886 NEXT ();
2887 ch = THIS ();
2888 switch (ch)
2889 {
2890 case 0x01:
2891 case 0x02:
2892 case 0x03:
2893 /* Unique typedefs for module. */
2894 /* GLobal typedefs. */
2895 /* High level module scope beginning. */
2896 {
2897 struct output_buffer_struct ob;
2898
2899 NEXT ();
2900 OUT (0xf8);
2901 OUT (ch);
2902 drop_int (&ob);
2903 ID;
2904
2905 block ();
2906
2907 NEXT ();
2908 fill_int (&ob);
2909 OUT (0xf9);
2910 }
2911 break;
2912 case 0x04:
2913 /* Global function. */
2914 {
2915 struct output_buffer_struct ob;
2916
2917 NEXT ();
2918 OUT (0xf8);
2919 OUT (0x04);
2920 drop_int (&ob);
2921 ID;
2922 INTn (stack size);
2923 INTn (ret val);
2924 EXPn (offset);
2925
2926 block ();
2927
2928 NEXT ();
2929 OUT (0xf9);
2930 EXPn (size of block);
2931 fill_int (&ob);
2932 }
2933 break;
2934
2935 case 0x05:
2936 /* File name for source line numbers. */
2937 {
2938 struct output_buffer_struct ob;
2939
2940 NEXT ();
2941 OUT (0xf8);
2942 OUT (0x05);
2943 drop_int (&ob);
2944 ID;
2945 INTn (year);
2946 INTn (month);
2947 INTn (day);
2948 INTn (hour);
2949 INTn (monute);
2950 INTn (second);
2951 block ();
2952 NEXT ();
2953 OUT (0xf9);
2954 fill_int (&ob);
2955 }
2956 break;
2957
2958 case 0x06:
2959 /* Local function. */
2960 {
2961 struct output_buffer_struct ob;
2962
2963 NEXT ();
2964 OUT (0xf8);
2965 OUT (0x06);
2966 drop_int (&ob);
2967 ID;
2968 INTn (stack size);
2969 INTn (type return);
2970 EXPn (offset);
2971 block ();
2972 NEXT ();
2973 OUT (0xf9);
2974 EXPn (size);
2975 fill_int (&ob);
2976 }
2977 break;
2978
2979 case 0x0a:
2980 /* Assembler module scope beginning - */
2981 {
2982 struct output_buffer_struct ob;
2983
2984 NEXT ();
2985 OUT (0xf8);
2986 OUT (0x0a);
2987 drop_int (&ob);
2988 ID;
2989 ID;
2990 INT;
2991 ID;
2992 INT;
2993 INT;
2994 INT;
2995 INT;
2996 INT;
2997 INT;
2998
2999 block ();
3000
3001 NEXT ();
3002 OUT (0xf9);
3003 fill_int (&ob);
3004 }
3005 break;
3006 case 0x0b:
3007 {
3008 struct output_buffer_struct ob;
3009
3010 NEXT ();
3011 OUT (0xf8);
3012 OUT (0x0b);
3013 drop_int (&ob);
3014 ID;
3015 INT;
3016 INTn (section index);
3017 EXPn (offset);
3018 INTn (stuff);
3019
3020 block ();
3021
3022 OUT (0xf9);
3023 NEXT ();
3024 EXPn (Size in Maus);
3025 fill_int (&ob);
3026 }
3027 break;
3028 }
3029 }
3030
3031 static void
3032 e2_record (void)
3033 {
3034 OUT (0xe2);
3035 NEXT ();
3036 OUT (0xce);
3037 NEXT ();
3038 INT;
3039 EXP;
3040 }
3041
3042 static void
3043 block (void)
3044 {
3045 int ch;
3046
3047 while (1)
3048 {
3049 ch = THIS ();
3050 switch (ch)
3051 {
3052 case 0xe1:
3053 case 0xe5:
3054 return;
3055 case 0xf9:
3056 return;
3057 case 0xf0:
3058 f0_record ();
3059 break;
3060 case 0xf1:
3061 f1_record ();
3062 break;
3063 case 0xf2:
3064 f2_record ();
3065 break;
3066 case 0xf8:
3067 f8_record ();
3068 break;
3069 case 0xe2:
3070 e2_record ();
3071 break;
3072
3073 }
3074 }
3075 }
3076
3077 /* Moves all the debug information from the source bfd to the output
3078 bfd, and relocates any expressions it finds. */
3079
3080 static void
3081 relocate_debug (bfd *output ATTRIBUTE_UNUSED,
3082 bfd *input)
3083 {
3084 #define IBS 400
3085 #define OBS 400
3086 unsigned char input_buffer[IBS];
3087
3088 input_ptr_start = input_ptr = input_buffer;
3089 input_ptr_end = input_buffer + IBS;
3090 input_bfd = input;
3091 /* FIXME: Check return value. I'm not sure whether it needs to read
3092 the entire buffer or not. */
3093 bfd_bread ((void *) input_ptr_start, (bfd_size_type) IBS, input);
3094 block ();
3095 }
3096
3097 /* Gather together all the debug information from each input BFD into
3098 one place, relocating it and emitting it as we go. */
3099
3100 static bfd_boolean
3101 ieee_write_debug_part (bfd *abfd)
3102 {
3103 ieee_data_type *ieee = IEEE_DATA (abfd);
3104 bfd_chain_type *chain = ieee->chain_root;
3105 unsigned char obuff[OBS];
3106 bfd_boolean some_debug = FALSE;
3107 file_ptr here = bfd_tell (abfd);
3108
3109 output_ptr_start = output_ptr = obuff;
3110 output_ptr_end = obuff + OBS;
3111 output_ptr = obuff;
3112 output_bfd = abfd;
3113
3114 if (chain == (bfd_chain_type *) NULL)
3115 {
3116 asection *s;
3117
3118 for (s = abfd->sections; s != NULL; s = s->next)
3119 if ((s->flags & SEC_DEBUGGING) != 0)
3120 break;
3121 if (s == NULL)
3122 {
3123 ieee->w.r.debug_information_part = 0;
3124 return TRUE;
3125 }
3126
3127 ieee->w.r.debug_information_part = here;
3128 if (bfd_bwrite (s->contents, s->size, abfd) != s->size)
3129 return FALSE;
3130 }
3131 else
3132 {
3133 while (chain != (bfd_chain_type *) NULL)
3134 {
3135 bfd *entry = chain->this;
3136 ieee_data_type *entry_ieee = IEEE_DATA (entry);
3137
3138 if (entry_ieee->w.r.debug_information_part)
3139 {
3140 if (bfd_seek (entry, entry_ieee->w.r.debug_information_part,
3141 SEEK_SET) != 0)
3142 return FALSE;
3143 relocate_debug (abfd, entry);
3144 }
3145
3146 chain = chain->next;
3147 }
3148
3149 if (some_debug)
3150 ieee->w.r.debug_information_part = here;
3151 else
3152 ieee->w.r.debug_information_part = 0;
3153
3154 flush ();
3155 }
3156
3157 return TRUE;
3158 }
3159
3160 /* Write the data in an ieee way. */
3161
3162 static bfd_boolean
3163 ieee_write_data_part (bfd *abfd)
3164 {
3165 asection *s;
3166
3167 ieee_data_type *ieee = IEEE_DATA (abfd);
3168 ieee->w.r.data_part = bfd_tell (abfd);
3169
3170 for (s = abfd->sections; s != (asection *) NULL; s = s->next)
3171 {
3172 /* Skip sections that have no loadable contents (.bss,
3173 debugging, etc.) */
3174 if ((s->flags & SEC_LOAD) == 0)
3175 continue;
3176
3177 /* Sort the reloc records so we can insert them in the correct
3178 places. */
3179 if (s->reloc_count != 0)
3180 {
3181 if (! do_with_relocs (abfd, s))
3182 return FALSE;
3183 }
3184 else
3185 {
3186 if (! do_without_relocs (abfd, s))
3187 return FALSE;
3188 }
3189 }
3190
3191 return TRUE;
3192 }
3193
3194 static bfd_boolean
3195 init_for_output (bfd *abfd)
3196 {
3197 asection *s;
3198
3199 for (s = abfd->sections; s != (asection *) NULL; s = s->next)
3200 {
3201 if ((s->flags & SEC_DEBUGGING) != 0)
3202 continue;
3203 if (s->size != 0)
3204 {
3205 bfd_size_type size = s->size;
3206 ieee_per_section (s)->data = bfd_alloc (abfd, size);
3207 if (!ieee_per_section (s)->data)
3208 return FALSE;
3209 }
3210 }
3211 return TRUE;
3212 }
3213 \f
3214 /* Exec and core file sections. */
3215
3216 /* Set section contents is complicated with IEEE since the format is
3217 not a byte image, but a record stream. */
3218
3219 static bfd_boolean
3220 ieee_set_section_contents (bfd *abfd,
3221 sec_ptr section,
3222 const void * location,
3223 file_ptr offset,
3224 bfd_size_type count)
3225 {
3226 if ((section->flags & SEC_DEBUGGING) != 0)
3227 {
3228 if (section->contents == NULL)
3229 {
3230 bfd_size_type size = section->size;
3231 section->contents = bfd_alloc (abfd, size);
3232 if (section->contents == NULL)
3233 return FALSE;
3234 }
3235 /* bfd_set_section_contents has already checked that everything
3236 is within range. */
3237 memcpy (section->contents + offset, location, (size_t) count);
3238 return TRUE;
3239 }
3240
3241 if (ieee_per_section (section)->data == (bfd_byte *) NULL)
3242 {
3243 if (!init_for_output (abfd))
3244 return FALSE;
3245 }
3246 memcpy ((void *) (ieee_per_section (section)->data + offset),
3247 (void *) location,
3248 (unsigned int) count);
3249 return TRUE;
3250 }
3251
3252 /* Write the external symbols of a file. IEEE considers two sorts of
3253 external symbols, public, and referenced. It uses to internal
3254 forms to index them as well. When we write them out we turn their
3255 symbol values into indexes from the right base. */
3256
3257 static bfd_boolean
3258 ieee_write_external_part (bfd *abfd)
3259 {
3260 asymbol **q;
3261 ieee_data_type *ieee = IEEE_DATA (abfd);
3262 unsigned int reference_index = IEEE_REFERENCE_BASE;
3263 unsigned int public_index = IEEE_PUBLIC_BASE + 2;
3264 file_ptr here = bfd_tell (abfd);
3265 bfd_boolean hadone = FALSE;
3266
3267 if (abfd->outsymbols != (asymbol **) NULL)
3268 {
3269
3270 for (q = abfd->outsymbols; *q != (asymbol *) NULL; q++)
3271 {
3272 asymbol *p = *q;
3273
3274 if (bfd_is_und_section (p->section))
3275 {
3276 /* This must be a symbol reference. */
3277 if (! ieee_write_byte (abfd, ieee_external_reference_enum)
3278 || ! ieee_write_int (abfd, (bfd_vma) reference_index)
3279 || ! ieee_write_id (abfd, p->name))
3280 return FALSE;
3281 p->value = reference_index;
3282 reference_index++;
3283 hadone = TRUE;
3284 }
3285 else if (bfd_is_com_section (p->section))
3286 {
3287 /* This is a weak reference. */
3288 if (! ieee_write_byte (abfd, ieee_external_reference_enum)
3289 || ! ieee_write_int (abfd, (bfd_vma) reference_index)
3290 || ! ieee_write_id (abfd, p->name)
3291 || ! ieee_write_byte (abfd,
3292 ieee_weak_external_reference_enum)
3293 || ! ieee_write_int (abfd, (bfd_vma) reference_index)
3294 || ! ieee_write_int (abfd, p->value))
3295 return FALSE;
3296 p->value = reference_index;
3297 reference_index++;
3298 hadone = TRUE;
3299 }
3300 else if (p->flags & BSF_GLOBAL)
3301 {
3302 /* This must be a symbol definition. */
3303 if (! ieee_write_byte (abfd, ieee_external_symbol_enum)
3304 || ! ieee_write_int (abfd, (bfd_vma) public_index)
3305 || ! ieee_write_id (abfd, p->name)
3306 || ! ieee_write_2bytes (abfd, ieee_attribute_record_enum)
3307 || ! ieee_write_int (abfd, (bfd_vma) public_index)
3308 || ! ieee_write_byte (abfd, 15) /* Instruction address. */
3309 || ! ieee_write_byte (abfd, 19) /* Static symbol. */
3310 || ! ieee_write_byte (abfd, 1)) /* One of them. */
3311 return FALSE;
3312
3313 /* Write out the value. */
3314 if (! ieee_write_2bytes (abfd, ieee_value_record_enum)
3315 || ! ieee_write_int (abfd, (bfd_vma) public_index))
3316 return FALSE;
3317 if (! bfd_is_abs_section (p->section))
3318 {
3319 if (abfd->flags & EXEC_P)
3320 {
3321 /* If fully linked, then output all symbols
3322 relocated. */
3323 if (! (ieee_write_int
3324 (abfd,
3325 (p->value
3326 + p->section->output_offset
3327 + p->section->output_section->vma))))
3328 return FALSE;
3329 }
3330 else
3331 {
3332 if (! (ieee_write_expression
3333 (abfd,
3334 p->value + p->section->output_offset,
3335 p->section->output_section->symbol,
3336 FALSE, 0)))
3337 return FALSE;
3338 }
3339 }
3340 else
3341 {
3342 if (! ieee_write_expression (abfd,
3343 p->value,
3344 bfd_abs_section_ptr->symbol,
3345 FALSE, 0))
3346 return FALSE;
3347 }
3348 p->value = public_index;
3349 public_index++;
3350 hadone = TRUE;
3351 }
3352 else
3353 {
3354 /* This can happen - when there are gaps in the symbols read
3355 from an input ieee file. */
3356 }
3357 }
3358 }
3359 if (hadone)
3360 ieee->w.r.external_part = here;
3361
3362 return TRUE;
3363 }
3364
3365
3366 static const unsigned char exten[] =
3367 {
3368 0xf0, 0x20, 0x00,
3369 0xf1, 0xce, 0x20, 0x00, 37, 3, 3, /* Set version 3 rev 3. */
3370 0xf1, 0xce, 0x20, 0x00, 39, 2, /* Keep symbol in original case. */
3371 0xf1, 0xce, 0x20, 0x00, 38 /* Set object type relocatable to x. */
3372 };
3373
3374 static const unsigned char envi[] =
3375 {
3376 0xf0, 0x21, 0x00,
3377
3378 /* 0xf1, 0xce, 0x21, 00, 50, 0x82, 0x07, 0xc7, 0x09, 0x11, 0x11,
3379 0x19, 0x2c,
3380 */
3381 0xf1, 0xce, 0x21, 00, 52, 0x00, /* exec ok. */
3382
3383 0xf1, 0xce, 0x21, 0, 53, 0x03,/* host unix. */
3384 /* 0xf1, 0xce, 0x21, 0, 54, 2,1,1 tool & version # */
3385 };
3386
3387 static bfd_boolean
3388 ieee_write_me_part (bfd *abfd)
3389 {
3390 ieee_data_type *ieee = IEEE_DATA (abfd);
3391 ieee->w.r.trailer_part = bfd_tell (abfd);
3392 if (abfd->start_address)
3393 {
3394 if (! ieee_write_2bytes (abfd, ieee_value_starting_address_enum)
3395 || ! ieee_write_byte (abfd, ieee_function_either_open_b_enum)
3396 || ! ieee_write_int (abfd, abfd->start_address)
3397 || ! ieee_write_byte (abfd, ieee_function_either_close_b_enum))
3398 return FALSE;
3399 }
3400 ieee->w.r.me_record = bfd_tell (abfd);
3401 if (! ieee_write_byte (abfd, ieee_module_end_enum))
3402 return FALSE;
3403 return TRUE;
3404 }
3405
3406 /* Write out the IEEE processor ID. */
3407
3408 static bfd_boolean
3409 ieee_write_processor (bfd *abfd)
3410 {
3411 const bfd_arch_info_type *arch;
3412
3413 arch = bfd_get_arch_info (abfd);
3414 switch (arch->arch)
3415 {
3416 default:
3417 if (! ieee_write_id (abfd, bfd_printable_name (abfd)))
3418 return FALSE;
3419 break;
3420
3421 case bfd_arch_h8300:
3422 if (! ieee_write_id (abfd, "H8/300"))
3423 return FALSE;
3424 break;
3425
3426 case bfd_arch_h8500:
3427 if (! ieee_write_id (abfd, "H8/500"))
3428 return FALSE;
3429 break;
3430
3431 case bfd_arch_i960:
3432 switch (arch->mach)
3433 {
3434 default:
3435 case bfd_mach_i960_core:
3436 case bfd_mach_i960_ka_sa:
3437 if (! ieee_write_id (abfd, "80960KA"))
3438 return FALSE;
3439 break;
3440
3441 case bfd_mach_i960_kb_sb:
3442 if (! ieee_write_id (abfd, "80960KB"))
3443 return FALSE;
3444 break;
3445
3446 case bfd_mach_i960_ca:
3447 if (! ieee_write_id (abfd, "80960CA"))
3448 return FALSE;
3449 break;
3450
3451 case bfd_mach_i960_mc:
3452 case bfd_mach_i960_xa:
3453 if (! ieee_write_id (abfd, "80960MC"))
3454 return FALSE;
3455 break;
3456 }
3457 break;
3458
3459 case bfd_arch_m68k:
3460 {
3461 const char *id;
3462
3463 switch (arch->mach)
3464 {
3465 default: id = "68020"; break;
3466 case bfd_mach_m68000: id = "68000"; break;
3467 case bfd_mach_m68008: id = "68008"; break;
3468 case bfd_mach_m68010: id = "68010"; break;
3469 case bfd_mach_m68020: id = "68020"; break;
3470 case bfd_mach_m68030: id = "68030"; break;
3471 case bfd_mach_m68040: id = "68040"; break;
3472 case bfd_mach_m68060: id = "68060"; break;
3473 case bfd_mach_cpu32: id = "cpu32"; break;
3474 case bfd_mach_mcf_isa_a_nodiv: id = "isa-a:nodiv"; break;
3475 case bfd_mach_mcf_isa_a: id = "isa-a"; break;
3476 case bfd_mach_mcf_isa_a_mac: id = "isa-a:mac"; break;
3477 case bfd_mach_mcf_isa_a_emac: id = "isa-a:emac"; break;
3478 case bfd_mach_mcf_isa_aplus: id = "isa-aplus"; break;
3479 case bfd_mach_mcf_isa_aplus_mac: id = "isa-aplus:mac"; break;
3480 case bfd_mach_mcf_isa_aplus_emac: id = "isa-aplus:mac"; break;
3481 case bfd_mach_mcf_isa_b_nousp: id = "isa-b:nousp"; break;
3482 case bfd_mach_mcf_isa_b_nousp_mac: id = "isa-b:nousp:mac"; break;
3483 case bfd_mach_mcf_isa_b_nousp_emac: id = "isa-b:nousp:emac"; break;
3484 case bfd_mach_mcf_isa_b: id = "isa-b"; break;
3485 case bfd_mach_mcf_isa_b_mac: id = "isa-b:mac"; break;
3486 case bfd_mach_mcf_isa_b_emac: id = "isa-b:emac"; break;
3487 case bfd_mach_mcf_isa_b_float: id = "isa-b:float"; break;
3488 case bfd_mach_mcf_isa_b_float_mac: id = "isa-b:float:mac"; break;
3489 case bfd_mach_mcf_isa_b_float_emac: id = "isa-b:float:emac"; break;
3490 case bfd_mach_mcf_isa_c: id = "isa-c"; break;
3491 case bfd_mach_mcf_isa_c_mac: id = "isa-c:mac"; break;
3492 case bfd_mach_mcf_isa_c_emac: id = "isa-c:emac"; break;
3493 case bfd_mach_mcf_isa_c_nodiv: id = "isa-c:nodiv"; break;
3494 case bfd_mach_mcf_isa_c_nodiv_mac: id = "isa-c:nodiv:mac"; break;
3495 case bfd_mach_mcf_isa_c_nodiv_emac: id = "isa-c:nodiv:emac"; break;
3496 }
3497
3498 if (! ieee_write_id (abfd, id))
3499 return FALSE;
3500 }
3501 break;
3502 }
3503
3504 return TRUE;
3505 }
3506
3507 static bfd_boolean
3508 ieee_write_object_contents (bfd *abfd)
3509 {
3510 ieee_data_type *ieee = IEEE_DATA (abfd);
3511 unsigned int i;
3512 file_ptr old;
3513
3514 /* Fast forward over the header area. */
3515 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
3516 return FALSE;
3517
3518 if (! ieee_write_byte (abfd, ieee_module_beginning_enum)
3519 || ! ieee_write_processor (abfd)
3520 || ! ieee_write_id (abfd, abfd->filename))
3521 return FALSE;
3522
3523 /* Fast forward over the variable bits. */
3524 if (! ieee_write_byte (abfd, ieee_address_descriptor_enum))
3525 return FALSE;
3526
3527 /* Bits per MAU. */
3528 if (! ieee_write_byte (abfd, (bfd_byte) (bfd_arch_bits_per_byte (abfd))))
3529 return FALSE;
3530 /* MAU's per address. */
3531 if (! ieee_write_byte (abfd,
3532 (bfd_byte) (bfd_arch_bits_per_address (abfd)
3533 / bfd_arch_bits_per_byte (abfd))))
3534 return FALSE;
3535
3536 old = bfd_tell (abfd);
3537 if (bfd_seek (abfd, (file_ptr) (8 * N_W_VARIABLES), SEEK_CUR) != 0)
3538 return FALSE;
3539
3540 ieee->w.r.extension_record = bfd_tell (abfd);
3541 if (bfd_bwrite ((char *) exten, (bfd_size_type) sizeof (exten), abfd)
3542 != sizeof (exten))
3543 return FALSE;
3544 if (abfd->flags & EXEC_P)
3545 {
3546 if (! ieee_write_byte (abfd, 0x1)) /* Absolute. */
3547 return FALSE;
3548 }
3549 else
3550 {
3551 if (! ieee_write_byte (abfd, 0x2)) /* Relocateable. */
3552 return FALSE;
3553 }
3554
3555 ieee->w.r.environmental_record = bfd_tell (abfd);
3556 if (bfd_bwrite ((char *) envi, (bfd_size_type) sizeof (envi), abfd)
3557 != sizeof (envi))
3558 return FALSE;
3559
3560 /* The HP emulator database requires a timestamp in the file. */
3561 {
3562 time_t now;
3563 const struct tm *t;
3564
3565 time (&now);
3566 t = (struct tm *) localtime (&now);
3567 if (! ieee_write_2bytes (abfd, (int) ieee_atn_record_enum)
3568 || ! ieee_write_byte (abfd, 0x21)
3569 || ! ieee_write_byte (abfd, 0)
3570 || ! ieee_write_byte (abfd, 50)
3571 || ! ieee_write_int (abfd, (bfd_vma) (t->tm_year + 1900))
3572 || ! ieee_write_int (abfd, (bfd_vma) (t->tm_mon + 1))
3573 || ! ieee_write_int (abfd, (bfd_vma) t->tm_mday)
3574 || ! ieee_write_int (abfd, (bfd_vma) t->tm_hour)
3575 || ! ieee_write_int (abfd, (bfd_vma) t->tm_min)
3576 || ! ieee_write_int (abfd, (bfd_vma) t->tm_sec))
3577 return FALSE;
3578 }
3579
3580 output_bfd = abfd;
3581
3582 flush ();
3583
3584 if (! ieee_write_section_part (abfd))
3585 return FALSE;
3586 /* First write the symbols. This changes their values into table
3587 indeces so we cant use it after this point. */
3588 if (! ieee_write_external_part (abfd))
3589 return FALSE;
3590
3591 /* Write any debugs we have been told about. */
3592 if (! ieee_write_debug_part (abfd))
3593 return FALSE;
3594
3595 /* Can only write the data once the symbols have been written, since
3596 the data contains relocation information which points to the
3597 symbols. */
3598 if (! ieee_write_data_part (abfd))
3599 return FALSE;
3600
3601 /* At the end we put the end! */
3602 if (! ieee_write_me_part (abfd))
3603 return FALSE;
3604
3605 /* Generate the header. */
3606 if (bfd_seek (abfd, old, SEEK_SET) != 0)
3607 return FALSE;
3608
3609 for (i = 0; i < N_W_VARIABLES; i++)
3610 {
3611 if (! ieee_write_2bytes (abfd, ieee_assign_value_to_variable_enum)
3612 || ! ieee_write_byte (abfd, (bfd_byte) i)
3613 || ! ieee_write_int5_out (abfd, (bfd_vma) ieee->w.offset[i]))
3614 return FALSE;
3615 }
3616
3617 return TRUE;
3618 }
3619 \f
3620 /* Native-level interface to symbols. */
3621
3622 /* We read the symbols into a buffer, which is discarded when this
3623 function exits. We read the strings into a buffer large enough to
3624 hold them all plus all the cached symbol entries. */
3625
3626 static asymbol *
3627 ieee_make_empty_symbol (bfd *abfd)
3628 {
3629 bfd_size_type amt = sizeof (ieee_symbol_type);
3630 ieee_symbol_type *new = bfd_zalloc (abfd, amt);
3631
3632 if (!new)
3633 return NULL;
3634 new->symbol.the_bfd = abfd;
3635 return &new->symbol;
3636 }
3637
3638 static bfd *
3639 ieee_openr_next_archived_file (bfd *arch, bfd *prev)
3640 {
3641 ieee_ar_data_type *ar = IEEE_AR_DATA (arch);
3642
3643 /* Take the next one from the arch state, or reset. */
3644 if (prev == (bfd *) NULL)
3645 /* Reset the index - the first two entries are bogus. */
3646 ar->element_index = 2;
3647
3648 while (TRUE)
3649 {
3650 ieee_ar_obstack_type *p = ar->elements + ar->element_index;
3651
3652 ar->element_index++;
3653 if (ar->element_index <= ar->element_count)
3654 {
3655 if (p->file_offset != (file_ptr) 0)
3656 {
3657 if (p->abfd == (bfd *) NULL)
3658 {
3659 p->abfd = _bfd_create_empty_archive_element_shell (arch);
3660 p->abfd->origin = p->file_offset;
3661 }
3662 return p->abfd;
3663 }
3664 }
3665 else
3666 {
3667 bfd_set_error (bfd_error_no_more_archived_files);
3668 return NULL;
3669 }
3670 }
3671 }
3672
3673 static bfd_boolean
3674 ieee_find_nearest_line (bfd *abfd ATTRIBUTE_UNUSED,
3675 asection *section ATTRIBUTE_UNUSED,
3676 asymbol **symbols ATTRIBUTE_UNUSED,
3677 bfd_vma offset ATTRIBUTE_UNUSED,
3678 const char **filename_ptr ATTRIBUTE_UNUSED,
3679 const char **functionname_ptr ATTRIBUTE_UNUSED,
3680 unsigned int *line_ptr ATTRIBUTE_UNUSED)
3681 {
3682 return FALSE;
3683 }
3684
3685 static bfd_boolean
3686 ieee_find_inliner_info (bfd *abfd ATTRIBUTE_UNUSED,
3687 const char **filename_ptr ATTRIBUTE_UNUSED,
3688 const char **functionname_ptr ATTRIBUTE_UNUSED,
3689 unsigned int *line_ptr ATTRIBUTE_UNUSED)
3690 {
3691 return FALSE;
3692 }
3693
3694 static int
3695 ieee_generic_stat_arch_elt (bfd *abfd, struct stat *buf)
3696 {
3697 ieee_ar_data_type *ar = (ieee_ar_data_type *) NULL;
3698 ieee_data_type *ieee;
3699
3700 if (abfd->my_archive != NULL)
3701 ar = abfd->my_archive->tdata.ieee_ar_data;
3702 if (ar == (ieee_ar_data_type *) NULL)
3703 {
3704 bfd_set_error (bfd_error_invalid_operation);
3705 return -1;
3706 }
3707
3708 if (IEEE_DATA (abfd) == NULL)
3709 {
3710 if (ieee_object_p (abfd) == NULL)
3711 {
3712 bfd_set_error (bfd_error_wrong_format);
3713 return -1;
3714 }
3715 }
3716
3717 ieee = IEEE_DATA (abfd);
3718
3719 buf->st_size = ieee->w.r.me_record + 1;
3720 buf->st_mode = 0644;
3721 return 0;
3722 }
3723
3724 static int
3725 ieee_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED,
3726 struct bfd_link_info *info ATTRIBUTE_UNUSED)
3727 {
3728 return 0;
3729 }
3730
3731 #define ieee_close_and_cleanup _bfd_generic_close_and_cleanup
3732 #define ieee_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
3733
3734 #define ieee_slurp_armap bfd_true
3735 #define ieee_slurp_extended_name_table bfd_true
3736 #define ieee_construct_extended_name_table \
3737 ((bfd_boolean (*) \
3738 (bfd *, char **, bfd_size_type *, const char **)) \
3739 bfd_true)
3740 #define ieee_truncate_arname bfd_dont_truncate_arname
3741 #define ieee_write_armap \
3742 ((bfd_boolean (*) \
3743 (bfd *, unsigned int, struct orl *, unsigned int, int)) \
3744 bfd_true)
3745 #define ieee_read_ar_hdr bfd_nullvoidptr
3746 #define ieee_update_armap_timestamp bfd_true
3747 #define ieee_get_elt_at_index _bfd_generic_get_elt_at_index
3748
3749 #define ieee_bfd_is_target_special_symbol \
3750 ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
3751 #define ieee_bfd_is_local_label_name bfd_generic_is_local_label_name
3752 #define ieee_get_lineno _bfd_nosymbols_get_lineno
3753 #define ieee_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
3754 #define ieee_read_minisymbols _bfd_generic_read_minisymbols
3755 #define ieee_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
3756
3757 #define ieee_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup
3758 #define ieee_bfd_reloc_name_lookup _bfd_norelocs_bfd_reloc_name_lookup
3759
3760 #define ieee_set_arch_mach _bfd_generic_set_arch_mach
3761
3762 #define ieee_get_section_contents_in_window \
3763 _bfd_generic_get_section_contents_in_window
3764 #define ieee_bfd_get_relocated_section_contents \
3765 bfd_generic_get_relocated_section_contents
3766 #define ieee_bfd_relax_section bfd_generic_relax_section
3767 #define ieee_bfd_gc_sections bfd_generic_gc_sections
3768 #define ieee_bfd_merge_sections bfd_generic_merge_sections
3769 #define ieee_bfd_is_group_section bfd_generic_is_group_section
3770 #define ieee_bfd_discard_group bfd_generic_discard_group
3771 #define ieee_section_already_linked \
3772 _bfd_generic_section_already_linked
3773 #define ieee_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
3774 #define ieee_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
3775 #define ieee_bfd_link_add_symbols _bfd_generic_link_add_symbols
3776 #define ieee_bfd_link_just_syms _bfd_generic_link_just_syms
3777 #define ieee_bfd_final_link _bfd_generic_final_link
3778 #define ieee_bfd_link_split_section _bfd_generic_link_split_section
3779
3780 const bfd_target ieee_vec =
3781 {
3782 "ieee", /* Name. */
3783 bfd_target_ieee_flavour,
3784 BFD_ENDIAN_UNKNOWN, /* Target byte order. */
3785 BFD_ENDIAN_UNKNOWN, /* Target headers byte order. */
3786 (HAS_RELOC | EXEC_P | /* Object flags. */
3787 HAS_LINENO | HAS_DEBUG |
3788 HAS_SYMS | HAS_LOCALS | WP_TEXT | D_PAGED),
3789 (SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS
3790 | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* Section flags. */
3791 '_', /* Leading underscore. */
3792 ' ', /* AR_pad_char. */
3793 16, /* AR_max_namelen. */
3794 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
3795 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
3796 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Data. */
3797 bfd_getb64, bfd_getb_signed_64, bfd_putb64,
3798 bfd_getb32, bfd_getb_signed_32, bfd_putb32,
3799 bfd_getb16, bfd_getb_signed_16, bfd_putb16, /* Headers. */
3800
3801 {_bfd_dummy_target,
3802 ieee_object_p, /* bfd_check_format. */
3803 ieee_archive_p,
3804 _bfd_dummy_target,
3805 },
3806 {
3807 bfd_false,
3808 ieee_mkobject,
3809 _bfd_generic_mkarchive,
3810 bfd_false
3811 },
3812 {
3813 bfd_false,
3814 ieee_write_object_contents,
3815 _bfd_write_archive_contents,
3816 bfd_false,
3817 },
3818
3819 /* ieee_close_and_cleanup, ieee_bfd_free_cached_info, ieee_new_section_hook,
3820 ieee_get_section_contents, ieee_get_section_contents_in_window. */
3821 BFD_JUMP_TABLE_GENERIC (ieee),
3822
3823 BFD_JUMP_TABLE_COPY (_bfd_generic),
3824 BFD_JUMP_TABLE_CORE (_bfd_nocore),
3825
3826 /* ieee_slurp_armap, ieee_slurp_extended_name_table,
3827 ieee_construct_extended_name_table, ieee_truncate_arname,
3828 ieee_write_armap, ieee_read_ar_hdr, ieee_openr_next_archived_file,
3829 ieee_get_elt_at_index, ieee_generic_stat_arch_elt,
3830 ieee_update_armap_timestamp. */
3831 BFD_JUMP_TABLE_ARCHIVE (ieee),
3832
3833 /* ieee_get_symtab_upper_bound, ieee_canonicalize_symtab,
3834 ieee_make_empty_symbol, ieee_print_symbol, ieee_get_symbol_info,
3835 ieee_bfd_is_local_label_name, ieee_get_lineno,
3836 ieee_find_nearest_line, ieee_bfd_make_debug_symbol,
3837 ieee_read_minisymbols, ieee_minisymbol_to_symbol. */
3838 BFD_JUMP_TABLE_SYMBOLS (ieee),
3839
3840 /* ieee_get_reloc_upper_bound, ieee_canonicalize_reloc,
3841 ieee_bfd_reloc_type_lookup. */
3842 BFD_JUMP_TABLE_RELOCS (ieee),
3843
3844 /* ieee_set_arch_mach, ieee_set_section_contents. */
3845 BFD_JUMP_TABLE_WRITE (ieee),
3846
3847 /* ieee_sizeof_headers, ieee_bfd_get_relocated_section_contents,
3848 ieee_bfd_relax_section, ieee_bfd_link_hash_table_create,
3849 _bfd_generic_link_hash_table_free,
3850 ieee_bfd_link_add_symbols, ieee_bfd_final_link,
3851 ieee_bfd_link_split_section, ieee_bfd_gc_sections,
3852 ieee_bfd_merge_sections. */
3853 BFD_JUMP_TABLE_LINK (ieee),
3854
3855 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
3856
3857 NULL,
3858
3859 NULL
3860 };
git-cvsimport of binutils cvsroot