1 /* simple-object-coff.c -- routines to manipulate XCOFF object files.
2 Copyright (C) 2013-2017 Free Software Foundation, Inc.
3 Written by Ian Lance Taylor, Google and David Edelsohn, IBM.
5 This program is free software; you can redistribute it and/or modify it
6 under the terms of the GNU General Public License as published by the
7 Free Software Foundation; either version 2, or (at your option) any
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, 51 Franklin Street - Fifth Floor,
18 Boston, MA 02110-1301, USA. */
21 #include "libiberty.h"
22 #include "simple-object.h"
39 #ifdef HAVE_INTTYPES_H
43 #include "simple-object-common.h"
45 /* XCOFF structures and constants. */
47 /* XCOFF file header. */
49 struct external_filehdr
51 unsigned char f_magic
[2]; /* magic number */
52 unsigned char f_nscns
[2]; /* number of sections */
53 unsigned char f_timdat
[4]; /* time & date stamp */
58 unsigned char f_symptr
[4]; /* file pointer to symtab */
59 unsigned char f_nsyms
[4]; /* number of symtab entries */
60 unsigned char f_opthdr
[2]; /* sizeof(optional hdr) */
61 unsigned char f_flags
[2]; /* flags */
65 unsigned char f_symptr
[8]; /* file pointer to symtab */
66 unsigned char f_opthdr
[2]; /* sizeof(optional hdr) */
67 unsigned char f_flags
[2]; /* flags */
68 unsigned char f_nsyms
[4]; /* number of symtab entries */
73 /* Bits for filehdr f_flags field. */
75 #define F_EXEC (0x0002)
77 /* The known values of f_magic in an XCOFF file header. */
79 #define U802WRMAGIC 0730 /* Writeable text segments. */
80 #define U802ROMAGIC 0735 /* Readonly sharable text segments. */
81 #define U802TOCMAGIC 0737 /* Readonly text segments and TOC. */
82 #define U803XTOCMAGIC 0757 /* Aix 4.3 64-bit XCOFF. */
83 #define U64_TOCMAGIC 0767 /* AIX 5+ 64-bit XCOFF. */
85 /* XCOFF section header. */
87 struct external_scnhdr
89 unsigned char s_name
[8]; /* section name */
94 unsigned char s_paddr
[4]; /* physical address, aliased s_nlib */
95 unsigned char s_vaddr
[4]; /* virtual address */
96 unsigned char s_size
[4]; /* section size */
97 unsigned char s_scnptr
[4]; /* file ptr to raw data for section */
98 unsigned char s_relptr
[4]; /* file ptr to relocation */
99 unsigned char s_lnnoptr
[4]; /* file ptr to line numbers */
100 unsigned char s_nreloc
[2]; /* number of relocation entries */
101 unsigned char s_nlnno
[2]; /* number of line number entries */
102 unsigned char s_flags
[4]; /* flags */
106 unsigned char s_paddr
[8]; /* physical address, aliased s_nlib */
107 unsigned char s_vaddr
[8]; /* virtual address */
108 unsigned char s_size
[8]; /* section size */
109 unsigned char s_scnptr
[8]; /* file ptr to raw data for section */
110 unsigned char s_relptr
[8]; /* file ptr to relocation */
111 unsigned char s_lnnoptr
[8]; /* file ptr to line numbers */
112 unsigned char s_nreloc
[4]; /* number of relocation entries */
113 unsigned char s_nlnno
[4]; /* number of line number entries */
114 unsigned char s_flags
[4]; /* flags */
119 #define SCNHSZ32 (40)
120 #define SCNHSZ64 (68)
122 /* The length of the s_name field in struct external_scnhdr. */
126 /* Bits for scnhdr s_flags field. */
128 #define STYP_DATA 0x40
130 /* XCOFF symbol table entry. */
133 #define N_SYMNMLEN (8) /* # characters in a symbol name */
135 /* The format of an XCOFF symbol-table entry. */
136 struct external_syment
141 /* The name of the symbol. There is an implicit null character
142 after the end of the array. */
143 char n_name
[N_SYMNMLEN
];
145 /* If n_zeroes is zero, n_offset is the offset the name from
146 the start of the string table. */
147 unsigned char n_zeroes
[4];
148 unsigned char n_offset
[4];
152 /* The symbol's value. */
153 unsigned char n_value
[4];
156 /* The symbol's value. */
157 unsigned char n_value
[8];
159 /* The offset of the symbol from the start of the string table. */
160 unsigned char n_offset
[4];
164 /* The number of the section to which this symbol belongs. */
165 unsigned char n_scnum
[2];
167 /* The type of symbol. (It can be interpreted as an n_lang
168 and an n_cpu byte, but we don't care about that here.) */
169 unsigned char n_type
[2];
171 /* The class of symbol (a C_* value). */
172 unsigned char n_sclass
[1];
174 /* The number of auxiliary symbols attached to this entry. */
175 unsigned char n_numaux
[1];
180 /* Length allowed for filename in aux sym format 4. */
182 #define FILNMLEN (14)
184 /* Omits x_sym and other unused variants. */
186 union external_auxent
188 /* Aux sym format 4: file. */
191 char x_fname
[FILNMLEN
];
194 unsigned char x_zeroes
[4];
195 unsigned char x_offset
[4];
196 unsigned char x_pad
[FILNMLEN
-8];
197 unsigned char x_ftype
;
200 /* Aux sym format 5: section. */
203 unsigned char x_scnlen
[4]; /* section length */
204 unsigned char x_nreloc
[2]; /* # relocation entries */
205 unsigned char x_nlinno
[2]; /* # line numbers */
207 /* CSECT auxiliary entry. */
214 unsigned char x_scnlen
[4]; /* csect length */
215 unsigned char x_parmhash
[4]; /* parm type hash index */
216 unsigned char x_snhash
[2]; /* sect num with parm hash */
217 unsigned char x_smtyp
; /* symbol align and type */
218 unsigned char x_smclas
; /* storage mapping class */
219 unsigned char x_stab
; /* dbx stab info index */
220 unsigned char x_snstab
[2]; /* sect num with dbx stab */
227 unsigned char x_scnlen_lo
[4]; /* csect length */
228 unsigned char x_parmhash
[4]; /* parm type hash index */
229 unsigned char x_snhash
[2]; /* sect num with parm hash */
230 unsigned char x_smtyp
; /* symbol align and type */
231 unsigned char x_smclas
; /* storage mapping class */
232 unsigned char x_scnlen_hi
[4];
234 unsigned char x_auxtype
;
238 /* SECTION/DWARF auxiliary entry. */
241 unsigned char x_scnlen
[4]; /* section length */
242 unsigned char pad1
[4];
243 unsigned char x_nreloc
[4]; /* number RLDs */
247 /* Symbol-related constants. */
250 #define IMAGE_SYM_TYPE_NULL (0)
251 #define IMAGE_SYM_DTYPE_NULL (0)
252 #define IMAGE_SYM_CLASS_STATIC (3)
253 #define IMAGE_SYM_CLASS_FILE (103)
255 #define IMAGE_SYM_TYPE \
256 ((IMAGE_SYM_DTYPE_NULL << 4) | IMAGE_SYM_TYPE_NULL)
263 /* Private data for an simple_object_read. */
265 struct simple_object_xcoff_read
268 unsigned short magic
;
269 /* Number of sections. */
270 unsigned short nscns
;
271 /* File offset of symbol table. */
273 /* Number of symbol table entries. */
276 unsigned short flags
;
277 /* Offset of section headers in file. */
281 /* Private data for an simple_object_attributes. */
283 struct simple_object_xcoff_attributes
286 unsigned short magic
;
288 unsigned short flags
;
291 /* See if we have a XCOFF file. */
294 simple_object_xcoff_match (unsigned char header
[SIMPLE_OBJECT_MATCH_HEADER_LEN
],
295 int descriptor
, off_t offset
,
296 const char *segment_name ATTRIBUTE_UNUSED
,
297 const char **errmsg
, int *err
)
299 unsigned short magic
;
300 unsigned short (*fetch_16
) (const unsigned char *);
301 unsigned int (*fetch_32
) (const unsigned char *);
302 ulong_type (*fetch_64
) (const unsigned char *);
303 unsigned char hdrbuf
[sizeof (struct external_filehdr
)];
304 struct simple_object_xcoff_read
*ocr
;
307 magic
= simple_object_fetch_big_16 (header
);
309 if (magic
!= U802TOCMAGIC
&& magic
!= U64_TOCMAGIC
)
316 fetch_16
= simple_object_fetch_big_16
;
317 fetch_32
= simple_object_fetch_big_32
;
318 fetch_64
= simple_object_fetch_big_64
;
320 if (!simple_object_internal_read (descriptor
, offset
, hdrbuf
, sizeof hdrbuf
,
324 u64
= magic
== U64_TOCMAGIC
;
326 ocr
= XNEW (struct simple_object_xcoff_read
);
328 ocr
->nscns
= fetch_16 (hdrbuf
+ offsetof (struct external_filehdr
, f_nscns
));
331 ocr
->symptr
= fetch_64 (hdrbuf
332 + offsetof (struct external_filehdr
,
333 u
.xcoff64
.f_symptr
));
334 ocr
->nsyms
= fetch_32 (hdrbuf
+ offsetof (struct external_filehdr
,
336 ocr
->scnhdr_offset
= (sizeof (struct external_filehdr
)
337 + fetch_16 (hdrbuf
+ offsetof (struct external_filehdr
,
338 u
.xcoff64
.f_opthdr
)));
343 ocr
->symptr
= fetch_32 (hdrbuf
344 + offsetof (struct external_filehdr
,
345 u
.xcoff32
.f_symptr
));
346 ocr
->nsyms
= fetch_32 (hdrbuf
+ offsetof (struct external_filehdr
,
348 ocr
->scnhdr_offset
= (sizeof (struct external_filehdr
) - 4
349 + fetch_16 (hdrbuf
+ offsetof (struct external_filehdr
,
350 u
.xcoff32
.f_opthdr
)));
357 /* Read the string table in a XCOFF file. */
360 simple_object_xcoff_read_strtab (simple_object_read
*sobj
, size_t *strtab_size
,
361 const char **errmsg
, int *err
)
363 struct simple_object_xcoff_read
*ocr
=
364 (struct simple_object_xcoff_read
*) sobj
->data
;
366 unsigned char strsizebuf
[4];
370 strtab_offset
= sobj
->offset
+ ocr
->symptr
371 + ocr
->nsyms
* SYMESZ
;
372 if (!simple_object_internal_read (sobj
->descriptor
, strtab_offset
,
373 strsizebuf
, 4, errmsg
, err
))
375 strsize
= simple_object_fetch_big_32 (strsizebuf
);
376 strtab
= XNEWVEC (char, strsize
);
377 if (!simple_object_internal_read (sobj
->descriptor
, strtab_offset
,
378 (unsigned char *) strtab
, strsize
, errmsg
,
384 *strtab_size
= strsize
;
388 /* Find all sections in a XCOFF file. */
391 simple_object_xcoff_find_sections (simple_object_read
*sobj
,
392 int (*pfn
) (void *, const char *,
393 off_t offset
, off_t length
),
397 struct simple_object_xcoff_read
*ocr
=
398 (struct simple_object_xcoff_read
*) sobj
->data
;
399 int u64
= ocr
->magic
== U64_TOCMAGIC
;
401 unsigned char *scnbuf
;
403 unsigned int (*fetch_32
) (const unsigned char *);
404 ulong_type (*fetch_64
) (const unsigned char *);
408 struct external_syment
*symtab
= NULL
;
412 scnhdr_size
= u64
? SCNHSZ64
: SCNHSZ32
;
413 scnbuf
= XNEWVEC (unsigned char, scnhdr_size
* ocr
->nscns
);
414 if (!simple_object_internal_read (sobj
->descriptor
,
415 sobj
->offset
+ ocr
->scnhdr_offset
,
416 scnbuf
, scnhdr_size
* ocr
->nscns
, &errmsg
,
423 fetch_32
= simple_object_fetch_big_32
;
424 fetch_64
= simple_object_fetch_big_64
;
429 for (i
= 0; i
< nscns
; ++i
)
431 unsigned char *scnhdr
;
432 unsigned char *scnname
;
433 char namebuf
[SCNNMLEN
+ 1];
438 scnhdr
= scnbuf
+ i
* scnhdr_size
;
439 scnname
= scnhdr
+ offsetof (struct external_scnhdr
, s_name
);
440 memcpy (namebuf
, scnname
, SCNNMLEN
);
441 namebuf
[SCNNMLEN
] = '\0';
443 if (namebuf
[0] == '/')
448 strindex
= strtol (namebuf
+ 1, &end
, 10);
451 /* The real section name is found in the string
455 strtab
= simple_object_xcoff_read_strtab (sobj
,
465 if (strindex
< 4 || strindex
>= strtab_size
)
470 return "section string index out of range";
473 name
= strtab
+ strindex
;
479 scnptr
= fetch_64 (scnhdr
+ offsetof (struct external_scnhdr
,
480 u
.xcoff64
.s_scnptr
));
481 size
= fetch_64 (scnhdr
+ offsetof (struct external_scnhdr
,
486 scnptr
= fetch_32 (scnhdr
+ offsetof (struct external_scnhdr
,
487 u
.xcoff32
.s_scnptr
));
488 size
= fetch_32 (scnhdr
+ offsetof (struct external_scnhdr
,
492 if (strcmp (name
, ".text") == 0)
494 if (!(*pfn
) (data
, name
, scnptr
, size
))
498 /* Special handling for .go_export CSECT. */
499 if (textptr
!= 0 && ocr
->nsyms
> 0)
501 unsigned char *sym
, *aux
;
503 unsigned long n_value
, n_offset
, n_zeroes
, x_scnlen
;
505 /* Read symbol table. */
506 symtab
= XNEWVEC (struct external_syment
, ocr
->nsyms
* SYMESZ
);
507 if (!simple_object_internal_read (sobj
->descriptor
,
508 sobj
->offset
+ ocr
->symptr
,
509 (unsigned char *)symtab
,
518 /* Search in symbol table if we have a ".go_export" symbol. */
519 for (i
= 0; i
< ocr
->nsyms
; ++i
)
521 sym
= (unsigned char *)&symtab
[i
];
523 if (symtab
[i
].n_sclass
[0] & DBXMASK
)
525 /* Skip debug symbols whose names are in stabs. */
526 i
+= symtab
[i
].n_numaux
[0];
531 n_value
= fetch_64 (sym
+ offsetof (struct external_syment
,
533 n_offset
= fetch_32 (sym
+ offsetof (struct external_syment
,
534 u
.xcoff64
.n_offset
));
538 /* ".go_export" is longer than N_SYMNMLEN */
539 n_zeroes
= fetch_32 (sym
+ offsetof (struct external_syment
,
540 u
.xcoff32
.n
.n
.n_zeroes
));
543 /* Skip auxiliary entries. */
544 i
+= symtab
[i
].n_numaux
[0];
547 n_value
= fetch_32 (sym
+ offsetof (struct external_syment
,
549 n_offset
= fetch_32 (sym
+ offsetof (struct external_syment
,
550 u
.xcoff32
.n
.n
.n_offset
));
553 /* The real section name is found in the string table. */
556 strtab
= simple_object_xcoff_read_strtab (sobj
,
567 if (n_offset
>= strtab_size
)
573 return "section string index out of range";
575 n_name
= strtab
+ n_offset
;
577 if (!strcmp(n_name
, ".go_export"))
579 /* Found .go_export symbol, read auxiliary entry. */
580 if (i
+ 1 >= ocr
->nsyms
)
583 aux
= (unsigned char *)&symtab
[i
+ 1];
586 x_scnlen
= fetch_32 (aux
+ offsetof (union external_auxent
,
587 u
.xcoff64
.x_csect
.x_scnlen_lo
));
591 x_scnlen
= fetch_32 (aux
+ offsetof (union external_auxent
,
592 u
.xcoff32
.x_csect
.x_scnlen
));
594 (*pfn
) (data
, ".go_export", textptr
+ n_value
, x_scnlen
);
597 /* Skip auxiliary entries. */
598 i
+= symtab
[i
].n_numaux
[0];
611 /* Fetch the attributes for an simple_object_read. */
614 simple_object_xcoff_fetch_attributes (simple_object_read
*sobj
,
615 const char **errmsg ATTRIBUTE_UNUSED
,
616 int *err ATTRIBUTE_UNUSED
)
618 struct simple_object_xcoff_read
*ocr
=
619 (struct simple_object_xcoff_read
*) sobj
->data
;
620 struct simple_object_xcoff_attributes
*ret
;
622 ret
= XNEW (struct simple_object_xcoff_attributes
);
623 ret
->magic
= ocr
->magic
;
624 ret
->flags
= ocr
->flags
;
628 /* Release the private data for an simple_object_read. */
631 simple_object_xcoff_release_read (void *data
)
636 /* Compare two attributes structures. */
639 simple_object_xcoff_attributes_merge (void *todata
, void *fromdata
, int *err
)
641 struct simple_object_xcoff_attributes
*to
=
642 (struct simple_object_xcoff_attributes
*) todata
;
643 struct simple_object_xcoff_attributes
*from
=
644 (struct simple_object_xcoff_attributes
*) fromdata
;
646 if (to
->magic
!= from
->magic
)
649 return "XCOFF object format mismatch";
654 /* Release the private data for an attributes structure. */
657 simple_object_xcoff_release_attributes (void *data
)
662 /* Prepare to write out a file. */
665 simple_object_xcoff_start_write (void *attributes_data
,
666 const char **errmsg ATTRIBUTE_UNUSED
,
667 int *err ATTRIBUTE_UNUSED
)
669 struct simple_object_xcoff_attributes
*attrs
=
670 (struct simple_object_xcoff_attributes
*) attributes_data
;
671 struct simple_object_xcoff_attributes
*ret
;
673 /* We're just going to record the attributes, but we need to make a
674 copy because the user may delete them. */
675 ret
= XNEW (struct simple_object_xcoff_attributes
);
680 /* Write out a XCOFF filehdr. */
683 simple_object_xcoff_write_filehdr (simple_object_write
*sobj
, int descriptor
,
684 unsigned int nscns
, size_t symtab_offset
,
685 unsigned int nsyms
, const char **errmsg
,
688 struct simple_object_xcoff_attributes
*attrs
=
689 (struct simple_object_xcoff_attributes
*) sobj
->data
;
690 int u64
= attrs
->magic
== U64_TOCMAGIC
;
691 unsigned char hdrbuf
[sizeof (struct external_filehdr
)];
693 void (*set_16
) (unsigned char *, unsigned short);
694 void (*set_32
) (unsigned char *, unsigned int);
695 void (*set_64
) (unsigned char *, ulong_type
);
699 set_16
= simple_object_set_big_16
;
700 set_32
= simple_object_set_big_32
;
701 set_64
= simple_object_set_big_64
;
703 memset (hdr
, 0, sizeof (struct external_filehdr
));
705 set_16 (hdr
+ offsetof (struct external_filehdr
, f_magic
), attrs
->magic
);
706 set_16 (hdr
+ offsetof (struct external_filehdr
, f_nscns
), nscns
);
707 /* f_timdat left as zero. */
710 set_64 (hdr
+ offsetof (struct external_filehdr
, u
.xcoff64
.f_symptr
),
712 set_32 (hdr
+ offsetof (struct external_filehdr
, u
.xcoff64
.f_nsyms
),
714 /* f_opthdr left as zero. */
715 set_16 (hdr
+ offsetof (struct external_filehdr
, u
.xcoff64
.f_flags
),
720 set_32 (hdr
+ offsetof (struct external_filehdr
, u
.xcoff64
.f_symptr
),
722 set_32 (hdr
+ offsetof (struct external_filehdr
, u
.xcoff64
.f_nsyms
),
724 /* f_opthdr left as zero. */
725 set_16 (hdr
+ offsetof (struct external_filehdr
, u
.xcoff64
.f_flags
),
729 return simple_object_internal_write (descriptor
, 0, hdrbuf
,
730 sizeof (struct external_filehdr
),
734 /* Write out a XCOFF section header. */
737 simple_object_xcoff_write_scnhdr (simple_object_write
*sobj
,
739 const char *name
, size_t *name_offset
,
740 off_t scnhdr_offset
, size_t scnsize
,
741 off_t offset
, unsigned int align
,
742 const char **errmsg
, int *err
)
744 struct simple_object_xcoff_read
*ocr
=
745 (struct simple_object_xcoff_read
*) sobj
->data
;
746 int u64
= ocr
->magic
== U64_TOCMAGIC
;
747 void (*set_32
) (unsigned char *, unsigned int);
748 void (*set_64
) (unsigned char *, unsigned int);
749 unsigned char hdrbuf
[sizeof (struct external_scnhdr
)];
754 set_32
= simple_object_set_big_32
;
755 set_64
= simple_object_set_big_32
;
757 memset (hdrbuf
, 0, sizeof hdrbuf
);
760 namelen
= strlen (name
);
761 if (namelen
<= SCNNMLEN
)
762 strncpy ((char *) hdr
+ offsetof (struct external_scnhdr
, s_name
),
766 snprintf ((char *) hdr
+ offsetof (struct external_scnhdr
, s_name
),
767 SCNNMLEN
, "/%lu", (unsigned long) *name_offset
);
768 *name_offset
+= namelen
+ 1;
771 /* s_paddr left as zero. */
772 /* s_vaddr left as zero. */
775 set_64 (hdr
+ offsetof (struct external_scnhdr
, u
.xcoff64
.s_size
),
777 set_64 (hdr
+ offsetof (struct external_scnhdr
, u
.xcoff64
.s_scnptr
),
782 set_32 (hdr
+ offsetof (struct external_scnhdr
, u
.xcoff32
.s_size
),
784 set_32 (hdr
+ offsetof (struct external_scnhdr
, u
.xcoff32
.s_scnptr
),
787 /* s_relptr left as zero. */
788 /* s_lnnoptr left as zero. */
789 /* s_nreloc left as zero. */
790 /* s_nlnno left as zero. */
795 set_32 (hdr
+ offsetof (struct external_scnhdr
, u
.xcoff64
.s_flags
), flags
);
797 set_32 (hdr
+ offsetof (struct external_scnhdr
, u
.xcoff32
.s_flags
), flags
);
799 return simple_object_internal_write (descriptor
, scnhdr_offset
, hdrbuf
,
800 u64
? SCNHSZ64
: SCNHSZ32
,
804 /* Write out a complete XCOFF file. */
807 simple_object_xcoff_write_to_file (simple_object_write
*sobj
, int descriptor
,
810 struct simple_object_xcoff_read
*ocr
=
811 (struct simple_object_xcoff_read
*) sobj
->data
;
812 int u64
= ocr
->magic
== U64_TOCMAGIC
;
813 unsigned int nscns
, secnum
;
814 simple_object_write_section
*section
;
816 size_t symtab_offset
;
822 unsigned char strsizebuf
[4];
823 /* The interface doesn't give us access to the name of the input file
824 yet. We want to use its basename for the FILE symbol. This is
825 what 'gas' uses when told to assemble from stdin. */
826 const char *source_filename
= "fake";
830 struct external_syment sym
;
831 union external_auxent aux
;
833 void (*set_16
) (unsigned char *, unsigned short);
834 void (*set_32
) (unsigned char *, unsigned int);
836 set_16
= simple_object_set_big_16
;
837 set_32
= simple_object_set_big_32
;
840 for (section
= sobj
->sections
; section
!= NULL
; section
= section
->next
)
843 scnhdr_offset
= sizeof (struct external_filehdr
) - (u64
? 4 : 0);
844 offset
= scnhdr_offset
+ nscns
* (u64
? SCNHSZ64
: SCNHSZ32
);
846 for (section
= sobj
->sections
; section
!= NULL
; section
= section
->next
)
851 struct simple_object_write_section_buffer
*buffer
;
853 mask
= (1U << section
->align
) - 1;
854 new_offset
= offset
& mask
;
855 new_offset
&= ~ mask
;
856 while (new_offset
> offset
)
858 unsigned char zeroes
[16];
861 memset (zeroes
, 0, sizeof zeroes
);
862 write
= new_offset
- offset
;
863 if (write
> sizeof zeroes
)
864 write
= sizeof zeroes
;
865 if (!simple_object_internal_write (descriptor
, offset
, zeroes
, write
,
871 for (buffer
= section
->buffers
; buffer
!= NULL
; buffer
= buffer
->next
)
873 if (!simple_object_internal_write (descriptor
, offset
+ scnsize
,
874 ((const unsigned char *)
876 buffer
->size
, &errmsg
, err
))
878 scnsize
+= buffer
->size
;
881 if (!simple_object_xcoff_write_scnhdr (sobj
, descriptor
, section
->name
,
882 &name_offset
, scnhdr_offset
,
883 scnsize
, offset
, section
->align
,
887 scnhdr_offset
+= u64
? SCNHSZ64
: SCNHSZ32
;
891 /* Symbol table is always half-word aligned. */
892 offset
+= (offset
& 1);
893 /* There is a file symbol and a section symbol per section,
894 and each of these has a single auxiliary symbol following. */
895 nsyms
= 2 * (nscns
+ 1);
896 symtab_offset
= offset
;
897 /* Advance across space reserved for symbol table to locate
898 start of string table. */
899 offset
+= nsyms
* SYMESZ
;
901 /* Write out file symbol. */
902 memset (&syms
[0], 0, sizeof (syms
));
904 strcpy ((char *)&syms
[0].sym
.u
.xcoff32
.n
.n_name
[0], ".file");
905 set_16 (&syms
[0].sym
.n_scnum
[0], N_DEBUG
);
906 set_16 (&syms
[0].sym
.n_type
[0], IMAGE_SYM_TYPE
);
907 syms
[0].sym
.n_sclass
[0] = C_FILE
;
908 syms
[0].sym
.n_numaux
[0] = 1;
909 /* The name need not be nul-terminated if it fits into the x_fname field
910 directly, but must be if it has to be placed into the string table. */
911 sflen
= strlen (source_filename
);
912 if (sflen
<= FILNMLEN
)
913 memcpy (&syms
[1].aux
.x_file
.x_fname
[0], source_filename
, sflen
);
916 set_32 (&syms
[1].aux
.x_file
._x
.x_offset
[0], name_offset
);
917 if (!simple_object_internal_write (descriptor
, offset
+ name_offset
,
918 ((const unsigned char *)
920 sflen
+ 1, &errmsg
, err
))
922 name_offset
+= strlen (source_filename
) + 1;
924 if (!simple_object_internal_write (descriptor
, symtab_offset
,
925 (const unsigned char *) &syms
[0],
926 sizeof (syms
), &errmsg
, err
))
929 /* Write the string table length, followed by the strings and section
930 symbols in step with each other. */
931 set_32 (strsizebuf
, name_offset
);
932 if (!simple_object_internal_write (descriptor
, offset
, strsizebuf
, 4,
937 secsym_offset
= symtab_offset
+ sizeof (syms
);
938 memset (&syms
[0], 0, sizeof (syms
));
939 set_16 (&syms
[0].sym
.n_type
[0], IMAGE_SYM_TYPE
);
940 syms
[0].sym
.n_sclass
[0] = C_STAT
;
941 syms
[0].sym
.n_numaux
[0] = 1;
944 for (section
= sobj
->sections
; section
!= NULL
; section
= section
->next
)
948 struct simple_object_write_section_buffer
*buffer
;
950 namelen
= strlen (section
->name
);
951 set_16 (&syms
[0].sym
.n_scnum
[0], secnum
++);
953 for (buffer
= section
->buffers
; buffer
!= NULL
; buffer
= buffer
->next
)
954 scnsize
+= buffer
->size
;
955 set_32 (&syms
[1].aux
.x_scn
.x_scnlen
[0], scnsize
);
956 if (namelen
> SCNNMLEN
)
958 set_32 (&syms
[0].sym
.u
.xcoff32
.n
.n
.n_zeroes
[0], 0);
959 set_32 (&syms
[0].sym
.u
.xcoff32
.n
.n
.n_offset
[0], name_offset
);
960 if (!simple_object_internal_write (descriptor
, offset
+ name_offset
,
961 ((const unsigned char *)
963 namelen
+ 1, &errmsg
, err
))
965 name_offset
+= namelen
+ 1;
969 memcpy (&syms
[0].sym
.u
.xcoff32
.n
.n_name
[0], section
->name
,
970 strlen (section
->name
));
971 memset (&syms
[0].sym
.u
.xcoff32
.n
.n_name
[strlen (section
->name
)], 0,
972 N_SYMNMLEN
- strlen (section
->name
));
975 if (!simple_object_internal_write (descriptor
, secsym_offset
,
976 (const unsigned char *) &syms
[0],
977 sizeof (syms
), &errmsg
, err
))
979 secsym_offset
+= sizeof (syms
);
982 if (!simple_object_xcoff_write_filehdr (sobj
, descriptor
, nscns
,
983 symtab_offset
, nsyms
, &errmsg
, err
))
989 /* Release the private data for an simple_object_write structure. */
992 simple_object_xcoff_release_write (void *data
)
997 /* The XCOFF functions. */
999 const struct simple_object_functions simple_object_xcoff_functions
=
1001 simple_object_xcoff_match
,
1002 simple_object_xcoff_find_sections
,
1003 simple_object_xcoff_fetch_attributes
,
1004 simple_object_xcoff_release_read
,
1005 simple_object_xcoff_attributes_merge
,
1006 simple_object_xcoff_release_attributes
,
1007 simple_object_xcoff_start_write
,
1008 simple_object_xcoff_write_to_file
,
1009 simple_object_xcoff_release_write