| 1 | /* obj-aout.h, a.out object file format for gas, the assembler. |
| 2 | Copyright 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 2000 |
| 3 | Free Software Foundation, Inc. |
| 4 | |
| 5 | This file is part of GAS, the GNU Assembler. |
| 6 | |
| 7 | GAS is free software; you can redistribute it and/or modify |
| 8 | it under the terms of the GNU General Public License as |
| 9 | published by the Free Software Foundation; either version 2, |
| 10 | or (at your option) any later version. |
| 11 | |
| 12 | GAS is distributed in the hope that it will be useful, but |
| 13 | WITHOUT ANY WARRANTY; without even the implied warranty of |
| 14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See |
| 15 | the GNU General Public License for more details. |
| 16 | |
| 17 | You should have received a copy of the GNU General Public License |
| 18 | along with GAS; see the file COPYING. If not, write to the Free |
| 19 | Software Foundation, 59 Temple Place - Suite 330, Boston, MA |
| 20 | 02111-1307, USA. */ |
| 21 | |
| 22 | /* Tag to validate a.out object file format processing */ |
| 23 | #define OBJ_AOUT 1 |
| 24 | |
| 25 | #include "targ-cpu.h" |
| 26 | |
| 27 | #ifdef BFD_ASSEMBLER |
| 28 | |
| 29 | #include "bfd/libaout.h" |
| 30 | |
| 31 | #define OUTPUT_FLAVOR bfd_target_aout_flavour |
| 32 | |
| 33 | #else /* ! BFD_ASSEMBLER */ |
| 34 | |
| 35 | #ifndef VMS |
| 36 | #include "aout_gnu.h" /* Needed to define struct nlist. Sigh. */ |
| 37 | #else |
| 38 | #include "a_out.h" |
| 39 | #endif |
| 40 | |
| 41 | #ifndef AOUT_MACHTYPE |
| 42 | #define AOUT_MACHTYPE 0 |
| 43 | #endif /* AOUT_MACHTYPE */ |
| 44 | |
| 45 | extern const short seg_N_TYPE[]; |
| 46 | extern const segT N_TYPE_seg[]; |
| 47 | |
| 48 | #ifndef DEFAULT_MAGIC_NUMBER_FOR_OBJECT_FILE |
| 49 | #define DEFAULT_MAGIC_NUMBER_FOR_OBJECT_FILE (OMAGIC) |
| 50 | #endif /* DEFAULT_MAGIC_NUMBER_FOR_OBJECT_FILE */ |
| 51 | |
| 52 | #endif /* ! BFD_ASSEMBLER */ |
| 53 | |
| 54 | extern const pseudo_typeS aout_pseudo_table[]; |
| 55 | |
| 56 | #ifndef obj_pop_insert |
| 57 | #define obj_pop_insert() pop_insert (aout_pseudo_table) |
| 58 | #endif |
| 59 | |
| 60 | /* SYMBOL TABLE */ |
| 61 | /* Symbol table entry data type */ |
| 62 | |
| 63 | typedef struct nlist obj_symbol_type; /* Symbol table entry */ |
| 64 | |
| 65 | /* Symbol table macros and constants */ |
| 66 | |
| 67 | #ifdef BFD_ASSEMBLER |
| 68 | |
| 69 | #define S_SET_OTHER(S,V) \ |
| 70 | (aout_symbol (symbol_get_bfdsym (S))->other = (V)) |
| 71 | #define S_SET_TYPE(S,T) \ |
| 72 | (aout_symbol (symbol_get_bfdsym (S))->type = (T)) |
| 73 | #define S_SET_DESC(S,D) \ |
| 74 | (aout_symbol (symbol_get_bfdsym (S))->desc = (D)) |
| 75 | #define S_GET_OTHER(S) \ |
| 76 | (aout_symbol (symbol_get_bfdsym (S))->other) |
| 77 | #define S_GET_TYPE(S) \ |
| 78 | (aout_symbol (symbol_get_bfdsym (S))->type) |
| 79 | #define S_GET_DESC(S) \ |
| 80 | (aout_symbol (symbol_get_bfdsym (S))->desc) |
| 81 | |
| 82 | asection *text_section, *data_section, *bss_section; |
| 83 | |
| 84 | #define obj_frob_symbol(S,PUNT) obj_aout_frob_symbol (S, &PUNT) |
| 85 | #define obj_frob_file() obj_aout_frob_file () |
| 86 | extern void obj_aout_frob_symbol PARAMS ((symbolS *, int *)); |
| 87 | extern void obj_aout_frob_file PARAMS ((void)); |
| 88 | |
| 89 | #define obj_sec_sym_ok_for_reloc(SEC) (1) |
| 90 | |
| 91 | #else |
| 92 | |
| 93 | /* We use the sy_obj field to record whether a symbol is weak. */ |
| 94 | #define OBJ_SYMFIELD_TYPE char |
| 95 | |
| 96 | /* |
| 97 | * Macros to extract information from a symbol table entry. |
| 98 | * This syntaxic indirection allows independence regarding a.out or coff. |
| 99 | * The argument (s) of all these macros is a pointer to a symbol table entry. |
| 100 | */ |
| 101 | |
| 102 | /* True if the symbol is external */ |
| 103 | #define S_IS_EXTERNAL(s) ((s)->sy_symbol.n_type & N_EXT) |
| 104 | |
| 105 | /* True if symbol has been defined, ie is in N_{TEXT,DATA,BSS,ABS} or N_EXT */ |
| 106 | #define S_IS_DEFINED(s) \ |
| 107 | (S_GET_TYPE (s) != N_UNDF || S_GET_DESC (s) != 0) |
| 108 | |
| 109 | #define S_IS_COMMON(s) \ |
| 110 | (S_GET_TYPE (s) == N_UNDF && S_GET_VALUE (s) != 0) |
| 111 | |
| 112 | #define S_IS_REGISTER(s) ((s)->sy_symbol.n_type == N_REGISTER) |
| 113 | |
| 114 | /* True if a debug special symbol entry */ |
| 115 | #define S_IS_DEBUG(s) ((s)->sy_symbol.n_type & N_STAB) |
| 116 | /* True if a symbol is local symbol name */ |
| 117 | #define S_IS_LOCAL(s) \ |
| 118 | ((S_GET_NAME (s) \ |
| 119 | && !S_IS_DEBUG (s) \ |
| 120 | && (strchr (S_GET_NAME (s), '\001') != NULL \ |
| 121 | || strchr (S_GET_NAME (s), '\002') != NULL \ |
| 122 | || (S_LOCAL_NAME(s) && !flag_keep_locals))) \ |
| 123 | || (flag_strip_local_absolute \ |
| 124 | && ! S_IS_EXTERNAL(s) \ |
| 125 | && S_GET_SEGMENT (s) == absolute_section)) |
| 126 | /* True if a symbol is not defined in this file */ |
| 127 | #define S_IS_EXTERN(s) ((s)->sy_symbol.n_type & N_EXT) |
| 128 | /* True if the symbol has been generated because of a .stabd directive */ |
| 129 | #define S_IS_STABD(s) (S_GET_NAME(s) == (char *)0) |
| 130 | |
| 131 | /* Accessors */ |
| 132 | /* The name of the symbol */ |
| 133 | #define S_GET_NAME(s) ((s)->sy_symbol.n_un.n_name) |
| 134 | /* The pointer to the string table */ |
| 135 | #define S_GET_OFFSET(s) ((s)->sy_symbol.n_un.n_strx) |
| 136 | /* The type of the symbol */ |
| 137 | #define S_GET_TYPE(s) ((s)->sy_symbol.n_type & N_TYPE) |
| 138 | /* The numeric value of the segment */ |
| 139 | #define S_GET_SEGMENT(s) (N_TYPE_seg[S_GET_TYPE(s)]) |
| 140 | /* The n_other expression value */ |
| 141 | #define S_GET_OTHER(s) ((s)->sy_symbol.n_other) |
| 142 | /* The n_desc expression value */ |
| 143 | #define S_GET_DESC(s) ((s)->sy_symbol.n_desc) |
| 144 | /* Whether the symbol is weak. */ |
| 145 | #define S_GET_WEAK(s) ((s)->sy_obj) |
| 146 | |
| 147 | /* Modifiers */ |
| 148 | /* Assume that a symbol cannot be simultaneously in more than on segment */ |
| 149 | /* set segment */ |
| 150 | #define S_SET_SEGMENT(s,seg) ((s)->sy_symbol.n_type &= ~N_TYPE,(s)->sy_symbol.n_type|=SEGMENT_TO_SYMBOL_TYPE(seg)) |
| 151 | /* The symbol is external */ |
| 152 | #define S_SET_EXTERNAL(s) ((s)->sy_symbol.n_type |= N_EXT) |
| 153 | /* The symbol is not external */ |
| 154 | #define S_CLEAR_EXTERNAL(s) ((s)->sy_symbol.n_type &= ~N_EXT) |
| 155 | /* Set the name of the symbol */ |
| 156 | #define S_SET_NAME(s,v) ((s)->sy_symbol.n_un.n_name = (v)) |
| 157 | /* Set the offset in the string table */ |
| 158 | #define S_SET_OFFSET(s,v) ((s)->sy_symbol.n_un.n_strx = (v)) |
| 159 | /* Set the n_type field */ |
| 160 | #define S_SET_TYPE(s,t) ((s)->sy_symbol.n_type = (t)) |
| 161 | /* Set the n_other expression value */ |
| 162 | #define S_SET_OTHER(s,v) ((s)->sy_symbol.n_other = (v)) |
| 163 | /* Set the n_desc expression value */ |
| 164 | #define S_SET_DESC(s,v) ((s)->sy_symbol.n_desc = (v)) |
| 165 | /* Mark the symbol as weak. This causes n_type to be adjusted when |
| 166 | the symbol is written out. */ |
| 167 | #define S_SET_WEAK(s) ((s)->sy_obj = 1) |
| 168 | |
| 169 | /* File header macro and type definition */ |
| 170 | |
| 171 | #define H_GET_FILE_SIZE(h) (H_GET_HEADER_SIZE(h) \ |
| 172 | + H_GET_TEXT_SIZE(h) \ |
| 173 | + H_GET_DATA_SIZE(h) \ |
| 174 | + H_GET_SYMBOL_TABLE_SIZE(h) \ |
| 175 | + H_GET_TEXT_RELOCATION_SIZE(h) \ |
| 176 | + H_GET_DATA_RELOCATION_SIZE(h) \ |
| 177 | + H_GET_STRING_SIZE(h)) |
| 178 | |
| 179 | #define H_GET_HEADER_SIZE(h) (EXEC_BYTES_SIZE) |
| 180 | #define H_GET_TEXT_SIZE(h) ((h)->header.a_text) |
| 181 | #define H_GET_DATA_SIZE(h) ((h)->header.a_data) |
| 182 | #define H_GET_BSS_SIZE(h) ((h)->header.a_bss) |
| 183 | #define H_GET_TEXT_RELOCATION_SIZE(h) ((h)->header.a_trsize) |
| 184 | #define H_GET_DATA_RELOCATION_SIZE(h) ((h)->header.a_drsize) |
| 185 | #define H_GET_SYMBOL_TABLE_SIZE(h) ((h)->header.a_syms) |
| 186 | #define H_GET_ENTRY_POINT(h) ((h)->header.a_entry) |
| 187 | #define H_GET_STRING_SIZE(h) ((h)->string_table_size) |
| 188 | #define H_GET_LINENO_SIZE(h) (0) |
| 189 | |
| 190 | #define H_GET_DYNAMIC(h) ((h)->header.a_info >> 31) |
| 191 | #define H_GET_VERSION(h) (((h)->header.a_info >> 24) & 0x7f) |
| 192 | #define H_GET_MACHTYPE(h) (((h)->header.a_info >> 16) & 0xff) |
| 193 | #define H_GET_MAGIC_NUMBER(h) ((h)->header.a_info & 0xffff) |
| 194 | |
| 195 | #define H_SET_DYNAMIC(h,v) ((h)->header.a_info = (((v) << 31) \ |
| 196 | | (H_GET_VERSION(h) << 24) \ |
| 197 | | (H_GET_MACHTYPE(h) << 16) \ |
| 198 | | (H_GET_MAGIC_NUMBER(h)))) |
| 199 | |
| 200 | #define H_SET_VERSION(h,v) ((h)->header.a_info = ((H_GET_DYNAMIC(h) << 31) \ |
| 201 | | ((v) << 24) \ |
| 202 | | (H_GET_MACHTYPE(h) << 16) \ |
| 203 | | (H_GET_MAGIC_NUMBER(h)))) |
| 204 | |
| 205 | #define H_SET_MACHTYPE(h,v) ((h)->header.a_info = ((H_GET_DYNAMIC(h) << 31) \ |
| 206 | | (H_GET_VERSION(h) << 24) \ |
| 207 | | ((v) << 16) \ |
| 208 | | (H_GET_MAGIC_NUMBER(h)))) |
| 209 | |
| 210 | #define H_SET_MAGIC_NUMBER(h,v) ((h)->header.a_info = ((H_GET_DYNAMIC(h) << 31) \ |
| 211 | | (H_GET_VERSION(h) << 24) \ |
| 212 | | (H_GET_MACHTYPE(h) << 16) \ |
| 213 | | ((v)))) |
| 214 | |
| 215 | #define H_SET_TEXT_SIZE(h,v) ((h)->header.a_text = md_section_align(SEG_TEXT, (v))) |
| 216 | #define H_SET_DATA_SIZE(h,v) ((h)->header.a_data = md_section_align(SEG_DATA, (v))) |
| 217 | #define H_SET_BSS_SIZE(h,v) ((h)->header.a_bss = md_section_align(SEG_BSS, (v))) |
| 218 | |
| 219 | #define H_SET_RELOCATION_SIZE(h,t,d) (H_SET_TEXT_RELOCATION_SIZE((h),(t)),\ |
| 220 | H_SET_DATA_RELOCATION_SIZE((h),(d))) |
| 221 | |
| 222 | #define H_SET_TEXT_RELOCATION_SIZE(h,v) ((h)->header.a_trsize = (v)) |
| 223 | #define H_SET_DATA_RELOCATION_SIZE(h,v) ((h)->header.a_drsize = (v)) |
| 224 | #define H_SET_SYMBOL_TABLE_SIZE(h,v) ((h)->header.a_syms = (v) * 12) |
| 225 | |
| 226 | #define H_SET_ENTRY_POINT(h,v) ((h)->header.a_entry = (v)) |
| 227 | #define H_SET_STRING_SIZE(h,v) ((h)->string_table_size = (v)) |
| 228 | |
| 229 | typedef struct |
| 230 | { |
| 231 | struct exec header; /* a.out header */ |
| 232 | long string_table_size; /* names + '\0' + sizeof (int) */ |
| 233 | } |
| 234 | |
| 235 | object_headers; |
| 236 | |
| 237 | /* line numbering stuff. */ |
| 238 | #define OBJ_EMIT_LINENO(a, b, c) {;} |
| 239 | |
| 240 | struct fix; |
| 241 | void tc_aout_fix_to_chars PARAMS ((char *where, struct fix *fixP, relax_addressT segment_address)); |
| 242 | |
| 243 | #endif |
| 244 | |
| 245 | #define obj_read_begin_hook() {;} |
| 246 | #define obj_symbol_new_hook(s) {;} |
| 247 | |
| 248 | #define EMIT_SECTION_SYMBOLS 0 |
| 249 | |
| 250 | #define AOUT_STABS |