X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=bfd%2Fpdp11.c;h=5ad95236590ea951a916d8cb14fd5fc7207f2724;hb=56a4f5a10b1e90d60527455b8542ba98fd0f6349;hp=35aefa34047dd9174b83f7a87c4c81a879349c03;hpb=2bb3687ba8720558082d1575823868286d7916b5;p=deliverable%2Fbinutils-gdb.git diff --git a/bfd/pdp11.c b/bfd/pdp11.c index 35aefa3404..5ad9523659 100644 --- a/bfd/pdp11.c +++ b/bfd/pdp11.c @@ -63,6 +63,7 @@ #define N_SET_FLAGS(execp, flags) do { } while (0) #define N_BADMAG(x) (N_MAGIC(x) != OMAGIC \ && N_MAGIC(x) != NMAGIC \ + && N_MAGIC(x) != IMAGIC \ && N_MAGIC(x) != ZMAGIC) #include "sysdep.h" @@ -90,7 +91,8 @@ struct pdp11_external_exec #define A_MAGIC2 NMAGIC #define NMAGIC 0410 /* Pure executable. */ #define ZMAGIC 0413 /* Demand-paged executable. */ -#define A_MAGIC3 0411 /* Separated I&D. */ +#define IMAGIC 0411 /* Separated I&D. */ +#define A_MAGIC3 IMAGIC #define A_MAGIC4 0405 /* Overlay. */ #define A_MAGIC5 0430 /* Auto-overlay (nonseparate). */ #define A_MAGIC6 0431 /* Auto-overlay (separate). */ @@ -158,6 +160,7 @@ static bfd_boolean MY(write_object_contents) (bfd *); #undef N_REG #undef N_FN #undef N_EXT +#undef N_STAB #define N_TYPE 0x1f /* Type mask. */ #define N_UNDF 0x00 /* Undefined. */ #define N_ABS 0x01 /* Absolute. */ @@ -167,6 +170,7 @@ static bfd_boolean MY(write_object_contents) (bfd *); #define N_REG 0x14 /* Register symbol. */ #define N_FN 0x1f /* File name. */ #define N_EXT 0x20 /* External flag. */ +#define N_STAB 0xc0 /* Not relevant; modified aout64.h's 0xe0 to avoid N_EXT. */ #define RELOC_SIZE 2 @@ -242,6 +246,10 @@ struct aout_final_link_info struct external_nlist *output_syms; }; +/* Copy of the link_info.separate_code boolean to select the output format with + separate instruction and data spaces selected by --imagic */ +static bfd_boolean separate_i_d = FALSE; + reloc_howto_type howto_table_pdp11[] = { /* type rs size bsz pcrel bitpos ovrf sf name part_inpl readmask setmask pcdone */ @@ -452,13 +460,13 @@ NAME (aout, make_sections) (bfd *abfd) environment's "finish up" function just before returning, to handle any last-minute setup. */ -const bfd_target * +bfd_cleanup NAME (aout, some_aout_object_p) (bfd *abfd, struct internal_exec *execp, - const bfd_target *(*callback_to_real_object_p) (bfd *)) + bfd_cleanup (*callback_to_real_object_p) (bfd *)) { struct aout_data_struct *rawptr, *oldrawptr; - const bfd_target *result; + bfd_cleanup cleanup; size_t amt = sizeof (struct aout_data_struct); rawptr = bfd_zalloc (abfd, amt); @@ -498,6 +506,8 @@ NAME (aout, some_aout_object_p) (bfd *abfd, } else if (N_MAGIC (execp) == OMAGIC) adata (abfd).magic = o_magic; + else if (N_MAGIC (execp) == IMAGIC) + adata (abfd).magic = i_magic; else { /* Should have been checked with N_BADMAG before this routine @@ -580,7 +590,7 @@ NAME (aout, some_aout_object_p) (bfd *abfd, adata(abfd)->segment_size = SEGMENT_SIZE; adata(abfd)->exec_bytes_size = EXEC_BYTES_SIZE; - return abfd->xvec; + return _bfd_no_cleanup; /* The architecture is encoded in various ways in various a.out variants, or is not encoded at all in some of them. The relocation size depends @@ -592,7 +602,7 @@ NAME (aout, some_aout_object_p) (bfd *abfd, header, should cope with them in this callback as well. */ #endif /* DOCUMENTATION */ - result = (*callback_to_real_object_p)(abfd); + cleanup = (*callback_to_real_object_p)(abfd); /* Now that the segment addresses have been worked out, take a better guess at whether the file is executable. If the entry point @@ -633,12 +643,12 @@ NAME (aout, some_aout_object_p) (bfd *abfd, } #endif /* STAT_FOR_EXEC */ - if (!result) + if (!cleanup) { free (rawptr); abfd->tdata.aout_data = oldrawptr; } - return result; + return cleanup; } /* Initialize ABFD for use with a.out files. */ @@ -789,57 +799,56 @@ adjust_o_magic (bfd *abfd, struct internal_exec *execp) file_ptr pos = adata (abfd).exec_bytes_size; bfd_vma vma = 0; int pad = 0; + asection *text = obj_textsec (abfd); + asection *data = obj_datasec (abfd); + asection *bss = obj_bsssec (abfd); /* Text. */ - obj_textsec (abfd)->filepos = pos; - if (! obj_textsec (abfd)->user_set_vma) - obj_textsec (abfd)->vma = vma; + text->filepos = pos; + if (!text->user_set_vma) + text->vma = vma; else - vma = obj_textsec (abfd)->vma; + vma = text->vma; - pos += obj_textsec (abfd)->size; - vma += obj_textsec (abfd)->size; + pos += execp->a_text; + vma += execp->a_text; /* Data. */ - if (!obj_datasec (abfd)->user_set_vma) + if (!data->user_set_vma) { - obj_textsec (abfd)->size += pad; pos += pad; vma += pad; - obj_datasec (abfd)->vma = vma; + data->vma = vma; } else - vma = obj_datasec (abfd)->vma; - obj_datasec (abfd)->filepos = pos; - pos += obj_datasec (abfd)->size; - vma += obj_datasec (abfd)->size; + vma = data->vma; + execp->a_text += pad; + + data->filepos = pos; + pos += data->size; + vma += data->size; /* BSS. */ - if (! obj_bsssec (abfd)->user_set_vma) + if (!bss->user_set_vma) { - obj_datasec (abfd)->size += pad; pos += pad; vma += pad; - obj_bsssec (abfd)->vma = vma; + bss->vma = vma; } - else + else if (data->size > 0 || bss->size > 0) /* PR25677: for objcopy --extract-symbol */ { /* The VMA of the .bss section is set by the VMA of the .data section plus the size of the .data section. We may need to add padding bytes to make this true. */ - pad = obj_bsssec (abfd)->vma - vma; - if (pad > 0) - { - obj_datasec (abfd)->size += pad; - pos += pad; - } + pad = bss->vma - vma; + if (pad < 0) + pad = 0; + pos += pad; } - obj_bsssec (abfd)->filepos = pos; + execp->a_data = data->size + pad; + bss->filepos = pos; + execp->a_bss = bss->size; - /* Fix up the exec header. */ - execp->a_text = obj_textsec (abfd)->size; - execp->a_data = obj_datasec (abfd)->size; - execp->a_bss = obj_bsssec (abfd)->size; N_SET_MAGIC (execp, OMAGIC); } @@ -849,7 +858,11 @@ adjust_z_magic (bfd *abfd, struct internal_exec *execp) bfd_size_type data_pad, text_pad; file_ptr text_end; const struct aout_backend_data *abdp; - int ztih; /* Nonzero if text includes exec header. */ + /* TRUE if text includes exec header. */ + bfd_boolean ztih; + asection *text = obj_textsec (abfd); + asection *data = obj_datasec (abfd); + asection *bss = obj_bsssec (abfd); abdp = aout_backend_info (abfd); @@ -857,18 +870,17 @@ adjust_z_magic (bfd *abfd, struct internal_exec *execp) ztih = (abdp != NULL && (abdp->text_includes_header || obj_aout_subformat (abfd) == q_magic_format)); - obj_textsec(abfd)->filepos = (ztih - ? adata(abfd).exec_bytes_size - : adata(abfd).zmagic_disk_block_size); - if (! obj_textsec(abfd)->user_set_vma) + text->filepos = (ztih + ? adata (abfd).exec_bytes_size + : adata (abfd).zmagic_disk_block_size); + if (!text->user_set_vma) { /* ?? Do we really need to check for relocs here? */ - obj_textsec(abfd)->vma = ((abfd->flags & HAS_RELOC) - ? 0 - : (ztih - ? (abdp->default_text_vma - + adata (abfd).exec_bytes_size) - : abdp->default_text_vma)); + text->vma = ((abfd->flags & HAS_RELOC) + ? 0 + : (ztih + ? abdp->default_text_vma + adata (abfd).exec_bytes_size + : abdp->default_text_vma)); text_pad = 0; } else @@ -877,17 +889,17 @@ adjust_z_magic (bfd *abfd, struct internal_exec *execp) may need to pad it such that the .data section starts at a page boundary. */ if (ztih) - text_pad = ((obj_textsec (abfd)->filepos - obj_textsec (abfd)->vma) + text_pad = ((text->filepos - text->vma) & (adata (abfd).page_size - 1)); else - text_pad = ((- obj_textsec (abfd)->vma) + text_pad = (-text->vma & (adata (abfd).page_size - 1)); } /* Find start of data. */ if (ztih) { - text_end = obj_textsec (abfd)->filepos + obj_textsec (abfd)->size; + text_end = text->filepos + execp->a_text; text_pad += BFD_ALIGN (text_end, adata (abfd).page_size) - text_end; } else @@ -895,49 +907,42 @@ adjust_z_magic (bfd *abfd, struct internal_exec *execp) /* Note that if page_size == zmagic_disk_block_size, then filepos == page_size, and this case is the same as the ztih case. */ - text_end = obj_textsec (abfd)->size; + text_end = execp->a_text; text_pad += BFD_ALIGN (text_end, adata (abfd).page_size) - text_end; - text_end += obj_textsec (abfd)->filepos; + text_end += text->filepos; } - - obj_textsec (abfd)->size += text_pad; - text_end += text_pad; + execp->a_text += text_pad; /* Data. */ - if (!obj_datasec(abfd)->user_set_vma) + if (!data->user_set_vma) { bfd_vma vma; - vma = obj_textsec(abfd)->vma + obj_textsec(abfd)->size; - obj_datasec(abfd)->vma = BFD_ALIGN (vma, adata(abfd).segment_size); + vma = text->vma + execp->a_text; + data->vma = BFD_ALIGN (vma, adata (abfd).segment_size); } if (abdp && abdp->zmagic_mapped_contiguous) { - text_pad = (obj_datasec(abfd)->vma - - obj_textsec(abfd)->vma - - obj_textsec(abfd)->size); - obj_textsec(abfd)->size += text_pad; + text_pad = data->vma - (text->vma + execp->a_text); + /* Only pad the text section if the data + section is going to be placed after it. */ + if (text_pad > 0) + execp->a_text += text_pad; } - obj_datasec (abfd)->filepos = (obj_textsec (abfd)->filepos - + obj_textsec (abfd)->size); + data->filepos = text->filepos + execp->a_text; /* Fix up exec header while we're at it. */ - execp->a_text = obj_textsec(abfd)->size; if (ztih && (!abdp || (abdp && !abdp->exec_header_not_counted))) - execp->a_text += adata(abfd).exec_bytes_size; + execp->a_text += adata (abfd).exec_bytes_size; N_SET_MAGIC (execp, ZMAGIC); /* Spec says data section should be rounded up to page boundary. */ - obj_datasec(abfd)->size - = align_power (obj_datasec(abfd)->size, - obj_bsssec(abfd)->alignment_power); - execp->a_data = BFD_ALIGN (obj_datasec(abfd)->size, - adata(abfd).page_size); - data_pad = execp->a_data - obj_datasec(abfd)->size; + execp->a_data = align_power (data->size, bss->alignment_power); + execp->a_data = BFD_ALIGN (execp->a_data, adata (abfd).page_size); + data_pad = execp->a_data - data->size; /* BSS. */ - if (!obj_bsssec(abfd)->user_set_vma) - obj_bsssec(abfd)->vma = (obj_datasec(abfd)->vma - + obj_datasec(abfd)->size); + if (!bss->user_set_vma) + bss->vma = data->vma + execp->a_data; /* If the BSS immediately follows the data section and extra space in the page is left after the data section, fudge data in the header so that the bss section looks smaller by that @@ -945,55 +950,95 @@ adjust_z_magic (bfd *abfd, struct internal_exec *execp) (Note that a linker script, as well as the above assignment, could have explicitly set the BSS vma to immediately follow the data section.) */ - if (align_power (obj_bsssec(abfd)->vma, obj_bsssec(abfd)->alignment_power) - == obj_datasec(abfd)->vma + obj_datasec(abfd)->size) - execp->a_bss = (data_pad > obj_bsssec(abfd)->size) ? 0 : - obj_bsssec(abfd)->size - data_pad; + if (align_power (bss->vma, bss->alignment_power) == data->vma + execp->a_data) + execp->a_bss = data_pad > bss->size ? 0 : bss->size - data_pad; else - execp->a_bss = obj_bsssec(abfd)->size; + execp->a_bss = bss->size; } static void adjust_n_magic (bfd *abfd, struct internal_exec *execp) { - file_ptr pos = adata(abfd).exec_bytes_size; + file_ptr pos = adata (abfd).exec_bytes_size; bfd_vma vma = 0; int pad; + asection *text = obj_textsec (abfd); + asection *data = obj_datasec (abfd); + asection *bss = obj_bsssec (abfd); /* Text. */ - obj_textsec(abfd)->filepos = pos; - if (!obj_textsec(abfd)->user_set_vma) - obj_textsec(abfd)->vma = vma; + text->filepos = pos; + if (!text->user_set_vma) + text->vma = vma; else - vma = obj_textsec(abfd)->vma; - pos += obj_textsec(abfd)->size; - vma += obj_textsec(abfd)->size; + vma = text->vma; + pos += execp->a_text; + vma += execp->a_text; /* Data. */ - obj_datasec(abfd)->filepos = pos; - if (!obj_datasec(abfd)->user_set_vma) - obj_datasec(abfd)->vma = BFD_ALIGN (vma, adata(abfd).segment_size); - vma = obj_datasec(abfd)->vma; + data->filepos = pos; + if (!data->user_set_vma) + data->vma = BFD_ALIGN (vma, adata (abfd).segment_size); + vma = data->vma; /* Since BSS follows data immediately, see if it needs alignment. */ - vma += obj_datasec(abfd)->size; - pad = align_power (vma, obj_bsssec(abfd)->alignment_power) - vma; - obj_datasec(abfd)->size += pad; - pos += obj_datasec(abfd)->size; + vma += data->size; + pad = align_power (vma, bss->alignment_power) - vma; + execp->a_data = data->size + pad; + pos += execp->a_data; /* BSS. */ - if (!obj_bsssec(abfd)->user_set_vma) - obj_bsssec(abfd)->vma = vma; + if (!bss->user_set_vma) + bss->vma = vma; else - vma = obj_bsssec(abfd)->vma; + vma = bss->vma; /* Fix up exec header. */ - execp->a_text = obj_textsec(abfd)->size; - execp->a_data = obj_datasec(abfd)->size; - execp->a_bss = obj_bsssec(abfd)->size; + execp->a_bss = bss->size; N_SET_MAGIC (execp, NMAGIC); } +static void +adjust_i_magic (bfd *abfd, struct internal_exec *execp) +{ + file_ptr pos = adata (abfd).exec_bytes_size; + bfd_vma vma = 0; + int pad; + asection *text = obj_textsec (abfd); + asection *data = obj_datasec (abfd); + asection *bss = obj_bsssec (abfd); + + /* Text. */ + text->filepos = pos; + if (!text->user_set_vma) + text->vma = vma; + else + vma = text->vma; + pos += execp->a_text; + + /* Data. */ + data->filepos = pos; + if (!data->user_set_vma) + data->vma = 0; + vma = data->vma; + + /* Since BSS follows data immediately, see if it needs alignment. */ + vma += data->size; + pad = align_power (vma, bss->alignment_power) - vma; + execp->a_data = data->size + pad; + pos += execp->a_data; + + /* BSS. */ + if (!bss->user_set_vma) + bss->vma = vma; + else + vma = bss->vma; + + /* Fix up exec header. */ + execp->a_bss = bss->size; + N_SET_MAGIC (execp, IMAGIC); +} + bfd_boolean NAME (aout, adjust_sizes_and_vmas) (bfd *abfd) { @@ -1002,12 +1047,11 @@ NAME (aout, adjust_sizes_and_vmas) (bfd *abfd) if (! NAME (aout, make_sections) (abfd)) return FALSE; - if (adata(abfd).magic != undecided_magic) + if (adata (abfd).magic != undecided_magic) return TRUE; - obj_textsec(abfd)->size = - align_power(obj_textsec(abfd)->size, - obj_textsec(abfd)->alignment_power); + execp->a_text = align_power (obj_textsec (abfd)->size, + obj_textsec (abfd)->alignment_power); /* Rule (heuristic) for when to pad to a new page. Note that there are (at least) two ways demand-paged (ZMAGIC) files have been @@ -1015,7 +1059,7 @@ NAME (aout, adjust_sizes_and_vmas) (bfd *abfd) (TARGET_PAGE_SIZE). However, newer versions of SUNOS start the text segment right after the exec header; the latter is counted in the text segment size, and is paged in by the kernel with the rest of - the text. */ + the text. */ /* This perhaps isn't the right way to do this, but made it simpler for me to understand enough to implement it. Better would probably be to go @@ -1025,33 +1069,37 @@ NAME (aout, adjust_sizes_and_vmas) (bfd *abfd) I understand it better now, but I haven't time to do the cleanup this minute. */ - if (abfd->flags & WP_TEXT) - adata(abfd).magic = n_magic; + if (separate_i_d) + adata (abfd).magic = i_magic; + else if (abfd->flags & WP_TEXT) + adata (abfd).magic = n_magic; else - adata(abfd).magic = o_magic; + adata (abfd).magic = o_magic; #ifdef BFD_AOUT_DEBUG /* requires gcc2 */ #if __GNUC__ >= 2 fprintf (stderr, "%s text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x,%x>\n", ({ char *str; - switch (adata(abfd).magic) { - case n_magic: str = "NMAGIC"; break; - case o_magic: str = "OMAGIC"; break; - case z_magic: str = "ZMAGIC"; break; - default: abort (); - } + switch (adata (abfd).magic) + { + case n_magic: str = "NMAGIC"; break; + case o_magic: str = "OMAGIC"; break; + case i_magic: str = "IMAGIC"; break; + case z_magic: str = "ZMAGIC"; break; + default: abort (); + } str; }), - obj_textsec(abfd)->vma, obj_textsec(abfd)->size, - obj_textsec(abfd)->alignment_power, - obj_datasec(abfd)->vma, obj_datasec(abfd)->size, - obj_datasec(abfd)->alignment_power, - obj_bsssec(abfd)->vma, obj_bsssec(abfd)->size, - obj_bsssec(abfd)->alignment_power); + obj_textsec (abfd)->vma, obj_textsec (abfd)->size, + obj_textsec (abfd)->alignment_power, + obj_datasec (abfd)->vma, obj_datasec (abfd)->size, + obj_datasec (abfd)->alignment_power, + obj_bsssec (abfd)->vma, obj_bsssec (abfd)->size, + obj_bsssec (abfd)->alignment_power); #endif #endif - switch (adata(abfd).magic) + switch (adata (abfd).magic) { case o_magic: adjust_o_magic (abfd, execp); @@ -1062,17 +1110,20 @@ NAME (aout, adjust_sizes_and_vmas) (bfd *abfd) case n_magic: adjust_n_magic (abfd, execp); break; + case i_magic: + adjust_i_magic (abfd, execp); + break; default: abort (); } #ifdef BFD_AOUT_DEBUG fprintf (stderr, " text=<%x,%x,%x> data=<%x,%x,%x> bss=<%x,%x>\n", - obj_textsec(abfd)->vma, obj_textsec(abfd)->size, - obj_textsec(abfd)->filepos, - obj_datasec(abfd)->vma, obj_datasec(abfd)->size, - obj_datasec(abfd)->filepos, - obj_bsssec(abfd)->vma, obj_bsssec(abfd)->size); + obj_textsec (abfd)->vma, execp->a_text, + obj_textsec (abfd)->filepos, + obj_datasec (abfd)->vma, execp->a_data, + obj_datasec (abfd)->filepos, + obj_bsssec (abfd)->vma, execp->a_bss); #endif return TRUE; @@ -1452,7 +1503,7 @@ NAME (aout, translate_symbol_table) (bfd *abfd, else return FALSE; - in->symbol.value = GET_SWORD (abfd, ext->e_value); + in->symbol.value = GET_WORD (abfd, ext->e_value); /* TODO: is 0 a safe value here? */ in->desc = 0; in->other = 0; @@ -1638,7 +1689,7 @@ NAME (aout, write_syms) (bfd *abfd) return TRUE; -error_return: + error_return: _bfd_stringtab_free (strtab); return FALSE; } @@ -3630,6 +3681,7 @@ NAME (aout, final_link) (bfd *abfd, if (bfd_link_pic (info)) abfd->flags |= DYNAMIC; + separate_i_d = info->separate_code; aout_info.info = info; aout_info.output_bfd = abfd; aout_info.contents = NULL; @@ -3914,16 +3966,28 @@ NAME (aout, final_link) (bfd *abfd, else if (obj_textsec (abfd)->reloc_count == 0 && obj_datasec (abfd)->reloc_count == 0) { - bfd_byte b; - - b = 0; - if (bfd_seek (abfd, - (file_ptr) (obj_datasec (abfd)->filepos - + exec_hdr (abfd)->a_data - - 1), - SEEK_SET) != 0 - || bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1) - goto error_return; + /* The layout of a typical a.out file is header, text, data, + relocs, symbols, string table. When there are no relocs, + symbols or string table, the last thing in the file is data + and a_data may be rounded up. However we may have a smaller + sized .data section and thus not written final padding. The + same thing can happen with text if there is no data. Write + final padding here to extend the file. */ + file_ptr pos = 0; + + if (exec_hdr (abfd)->a_data > obj_datasec (abfd)->size) + pos = obj_datasec (abfd)->filepos + exec_hdr (abfd)->a_data; + else if (obj_datasec (abfd)->size == 0 + && exec_hdr (abfd)->a_text > obj_textsec (abfd)->size) + pos = obj_textsec (abfd)->filepos + exec_hdr (abfd)->a_text; + if (pos != 0) + { + bfd_byte b = 0; + + if (bfd_seek (abfd, pos - 1, SEEK_SET) != 0 + || bfd_bwrite (&b, (bfd_size_type) 1, abfd) != 1) + goto error_return; + } } return TRUE;