| 1 | /* a.out object file format | 
|---|
| 2 | Copyright 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1999, 2000, | 
|---|
| 3 | 2001, 2002 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 | #define OBJ_HEADER "obj-aout.h" | 
|---|
| 23 |  | 
|---|
| 24 | #include "as.h" | 
|---|
| 25 | #ifdef BFD_ASSEMBLER | 
|---|
| 26 | #undef NO_RELOC | 
|---|
| 27 | #include "aout/aout64.h" | 
|---|
| 28 | #endif | 
|---|
| 29 | #include "obstack.h" | 
|---|
| 30 |  | 
|---|
| 31 | #ifndef BFD_ASSEMBLER | 
|---|
| 32 | /* in: segT   out: N_TYPE bits */ | 
|---|
| 33 | const short seg_N_TYPE[] = | 
|---|
| 34 | { | 
|---|
| 35 | N_ABS, | 
|---|
| 36 | N_TEXT, | 
|---|
| 37 | N_DATA, | 
|---|
| 38 | N_BSS, | 
|---|
| 39 | N_UNDF,                       /* unknown */ | 
|---|
| 40 | N_UNDF,                       /* error */ | 
|---|
| 41 | N_UNDF,                       /* expression */ | 
|---|
| 42 | N_UNDF,                       /* debug */ | 
|---|
| 43 | N_UNDF,                       /* ntv */ | 
|---|
| 44 | N_UNDF,                       /* ptv */ | 
|---|
| 45 | N_REGISTER,                   /* register */ | 
|---|
| 46 | }; | 
|---|
| 47 |  | 
|---|
| 48 | const segT N_TYPE_seg[N_TYPE + 2] = | 
|---|
| 49 | {                               /* N_TYPE == 0x1E = 32-2 */ | 
|---|
| 50 | SEG_UNKNOWN,                  /* N_UNDF == 0 */ | 
|---|
| 51 | SEG_GOOF, | 
|---|
| 52 | SEG_ABSOLUTE,                 /* N_ABS == 2 */ | 
|---|
| 53 | SEG_GOOF, | 
|---|
| 54 | SEG_TEXT,                     /* N_TEXT == 4 */ | 
|---|
| 55 | SEG_GOOF, | 
|---|
| 56 | SEG_DATA,                     /* N_DATA == 6 */ | 
|---|
| 57 | SEG_GOOF, | 
|---|
| 58 | SEG_BSS,                      /* N_BSS == 8 */ | 
|---|
| 59 | SEG_GOOF, | 
|---|
| 60 | SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, | 
|---|
| 61 | SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, | 
|---|
| 62 | SEG_GOOF, SEG_GOOF, SEG_GOOF, SEG_GOOF, | 
|---|
| 63 | SEG_REGISTER,                 /* dummy N_REGISTER for regs = 30 */ | 
|---|
| 64 | SEG_GOOF, | 
|---|
| 65 | }; | 
|---|
| 66 | #endif | 
|---|
| 67 |  | 
|---|
| 68 | static void obj_aout_line PARAMS ((int)); | 
|---|
| 69 | static void obj_aout_weak PARAMS ((int)); | 
|---|
| 70 | static void obj_aout_type PARAMS ((int)); | 
|---|
| 71 |  | 
|---|
| 72 | const pseudo_typeS aout_pseudo_table[] = | 
|---|
| 73 | { | 
|---|
| 74 | {"line", obj_aout_line, 0},   /* source code line number */ | 
|---|
| 75 | {"ln", obj_aout_line, 0},     /* coff line number that we use anyway */ | 
|---|
| 76 |  | 
|---|
| 77 | {"weak", obj_aout_weak, 0},   /* mark symbol as weak.  */ | 
|---|
| 78 |  | 
|---|
| 79 | {"type", obj_aout_type, 0}, | 
|---|
| 80 |  | 
|---|
| 81 | /* coff debug pseudos (ignored) */ | 
|---|
| 82 | {"def", s_ignore, 0}, | 
|---|
| 83 | {"dim", s_ignore, 0}, | 
|---|
| 84 | {"endef", s_ignore, 0}, | 
|---|
| 85 | {"ident", s_ignore, 0}, | 
|---|
| 86 | {"line", s_ignore, 0}, | 
|---|
| 87 | {"ln", s_ignore, 0}, | 
|---|
| 88 | {"scl", s_ignore, 0}, | 
|---|
| 89 | {"size", s_ignore, 0}, | 
|---|
| 90 | {"tag", s_ignore, 0}, | 
|---|
| 91 | {"val", s_ignore, 0}, | 
|---|
| 92 | {"version", s_ignore, 0}, | 
|---|
| 93 |  | 
|---|
| 94 | {"optim", s_ignore, 0},       /* For sun386i cc (?) */ | 
|---|
| 95 |  | 
|---|
| 96 | /* other stuff */ | 
|---|
| 97 | {"ABORT", s_abort, 0}, | 
|---|
| 98 |  | 
|---|
| 99 | {NULL, NULL, 0}               /* end sentinel */ | 
|---|
| 100 | };                              /* aout_pseudo_table */ | 
|---|
| 101 |  | 
|---|
| 102 | #ifdef BFD_ASSEMBLER | 
|---|
| 103 |  | 
|---|
| 104 | void | 
|---|
| 105 | obj_aout_frob_symbol (sym, punt) | 
|---|
| 106 | symbolS *sym; | 
|---|
| 107 | int *punt ATTRIBUTE_UNUSED; | 
|---|
| 108 | { | 
|---|
| 109 | flagword flags; | 
|---|
| 110 | asection *sec; | 
|---|
| 111 | int desc, type, other; | 
|---|
| 112 |  | 
|---|
| 113 | flags = symbol_get_bfdsym (sym)->flags; | 
|---|
| 114 | desc = aout_symbol (symbol_get_bfdsym (sym))->desc; | 
|---|
| 115 | type = aout_symbol (symbol_get_bfdsym (sym))->type; | 
|---|
| 116 | other = aout_symbol (symbol_get_bfdsym (sym))->other; | 
|---|
| 117 | sec = S_GET_SEGMENT (sym); | 
|---|
| 118 |  | 
|---|
| 119 | /* Only frob simple symbols this way right now.  */ | 
|---|
| 120 | if (! (type & ~ (N_TYPE | N_EXT))) | 
|---|
| 121 | { | 
|---|
| 122 | if (type == (N_UNDF | N_EXT) | 
|---|
| 123 | && sec == &bfd_abs_section) | 
|---|
| 124 | { | 
|---|
| 125 | sec = bfd_und_section_ptr; | 
|---|
| 126 | S_SET_SEGMENT (sym, sec); | 
|---|
| 127 | } | 
|---|
| 128 |  | 
|---|
| 129 | if ((type & N_TYPE) != N_INDR | 
|---|
| 130 | && (type & N_TYPE) != N_SETA | 
|---|
| 131 | && (type & N_TYPE) != N_SETT | 
|---|
| 132 | && (type & N_TYPE) != N_SETD | 
|---|
| 133 | && (type & N_TYPE) != N_SETB | 
|---|
| 134 | && type != N_WARNING | 
|---|
| 135 | && (sec == &bfd_abs_section | 
|---|
| 136 | || sec == &bfd_und_section)) | 
|---|
| 137 | return; | 
|---|
| 138 | if (flags & BSF_EXPORT) | 
|---|
| 139 | type |= N_EXT; | 
|---|
| 140 |  | 
|---|
| 141 | switch (type & N_TYPE) | 
|---|
| 142 | { | 
|---|
| 143 | case N_SETA: | 
|---|
| 144 | case N_SETT: | 
|---|
| 145 | case N_SETD: | 
|---|
| 146 | case N_SETB: | 
|---|
| 147 | /* Set the debugging flag for constructor symbols so that | 
|---|
| 148 | BFD leaves them alone.  */ | 
|---|
| 149 | symbol_get_bfdsym (sym)->flags |= BSF_DEBUGGING; | 
|---|
| 150 |  | 
|---|
| 151 | /* You can't put a common symbol in a set.  The way a set | 
|---|
| 152 | element works is that the symbol has a definition and a | 
|---|
| 153 | name, and the linker adds the definition to the set of | 
|---|
| 154 | that name.  That does not work for a common symbol, | 
|---|
| 155 | because the linker can't tell which common symbol the | 
|---|
| 156 | user means.  FIXME: Using as_bad here may be | 
|---|
| 157 | inappropriate, since the user may want to force a | 
|---|
| 158 | particular type without regard to the semantics of sets; | 
|---|
| 159 | on the other hand, we certainly don't want anybody to be | 
|---|
| 160 | mislead into thinking that their code will work.  */ | 
|---|
| 161 | if (S_IS_COMMON (sym)) | 
|---|
| 162 | as_bad (_("Attempt to put a common symbol into set %s"), | 
|---|
| 163 | S_GET_NAME (sym)); | 
|---|
| 164 | /* Similarly, you can't put an undefined symbol in a set.  */ | 
|---|
| 165 | else if (! S_IS_DEFINED (sym)) | 
|---|
| 166 | as_bad (_("Attempt to put an undefined symbol into set %s"), | 
|---|
| 167 | S_GET_NAME (sym)); | 
|---|
| 168 |  | 
|---|
| 169 | break; | 
|---|
| 170 | case N_INDR: | 
|---|
| 171 | /* Put indirect symbols in the indirect section.  */ | 
|---|
| 172 | S_SET_SEGMENT (sym, bfd_ind_section_ptr); | 
|---|
| 173 | symbol_get_bfdsym (sym)->flags |= BSF_INDIRECT; | 
|---|
| 174 | if (type & N_EXT) | 
|---|
| 175 | { | 
|---|
| 176 | symbol_get_bfdsym (sym)->flags |= BSF_EXPORT; | 
|---|
| 177 | symbol_get_bfdsym (sym)->flags &=~ BSF_LOCAL; | 
|---|
| 178 | } | 
|---|
| 179 | break; | 
|---|
| 180 | case N_WARNING: | 
|---|
| 181 | /* Mark warning symbols.  */ | 
|---|
| 182 | symbol_get_bfdsym (sym)->flags |= BSF_WARNING; | 
|---|
| 183 | break; | 
|---|
| 184 | } | 
|---|
| 185 | } | 
|---|
| 186 | else | 
|---|
| 187 | { | 
|---|
| 188 | symbol_get_bfdsym (sym)->flags |= BSF_DEBUGGING; | 
|---|
| 189 | } | 
|---|
| 190 |  | 
|---|
| 191 | aout_symbol (symbol_get_bfdsym (sym))->type = type; | 
|---|
| 192 |  | 
|---|
| 193 | /* Double check weak symbols.  */ | 
|---|
| 194 | if (S_IS_WEAK (sym)) | 
|---|
| 195 | { | 
|---|
| 196 | if (S_IS_COMMON (sym)) | 
|---|
| 197 | as_bad (_("Symbol `%s' can not be both weak and common"), | 
|---|
| 198 | S_GET_NAME (sym)); | 
|---|
| 199 | } | 
|---|
| 200 | } | 
|---|
| 201 |  | 
|---|
| 202 | void | 
|---|
| 203 | obj_aout_frob_file_before_fix () | 
|---|
| 204 | { | 
|---|
| 205 | /* Relocation processing may require knowing the VMAs of the sections. | 
|---|
| 206 | Since writing to a section will cause the BFD back end to compute the | 
|---|
| 207 | VMAs, fake it out here....  */ | 
|---|
| 208 | bfd_byte b = 0; | 
|---|
| 209 | bfd_boolean x = TRUE; | 
|---|
| 210 | if (bfd_section_size (stdoutput, text_section) != 0) | 
|---|
| 211 | { | 
|---|
| 212 | x = bfd_set_section_contents (stdoutput, text_section, &b, (file_ptr) 0, | 
|---|
| 213 | (bfd_size_type) 1); | 
|---|
| 214 | } | 
|---|
| 215 | else if (bfd_section_size (stdoutput, data_section) != 0) | 
|---|
| 216 | { | 
|---|
| 217 | x = bfd_set_section_contents (stdoutput, data_section, &b, (file_ptr) 0, | 
|---|
| 218 | (bfd_size_type) 1); | 
|---|
| 219 | } | 
|---|
| 220 | assert (x); | 
|---|
| 221 | } | 
|---|
| 222 |  | 
|---|
| 223 | #else /* ! BFD_ASSEMBLER */ | 
|---|
| 224 |  | 
|---|
| 225 | /* Relocation.  */ | 
|---|
| 226 |  | 
|---|
| 227 | /* | 
|---|
| 228 | *              emit_relocations() | 
|---|
| 229 | * | 
|---|
| 230 | * Crawl along a fixS chain. Emit the segment's relocations. | 
|---|
| 231 | */ | 
|---|
| 232 | void | 
|---|
| 233 | obj_emit_relocations (where, fixP, segment_address_in_file) | 
|---|
| 234 | char **where; | 
|---|
| 235 | fixS *fixP;                /* Fixup chain for this segment.  */ | 
|---|
| 236 | relax_addressT segment_address_in_file; | 
|---|
| 237 | { | 
|---|
| 238 | for (; fixP; fixP = fixP->fx_next) | 
|---|
| 239 | if (fixP->fx_done == 0) | 
|---|
| 240 | { | 
|---|
| 241 | symbolS *sym; | 
|---|
| 242 |  | 
|---|
| 243 | sym = fixP->fx_addsy; | 
|---|
| 244 | while (sym->sy_value.X_op == O_symbol | 
|---|
| 245 | && (! S_IS_DEFINED (sym) || S_IS_COMMON (sym))) | 
|---|
| 246 | sym = sym->sy_value.X_add_symbol; | 
|---|
| 247 | fixP->fx_addsy = sym; | 
|---|
| 248 |  | 
|---|
| 249 | if (! sym->sy_resolved && ! S_IS_DEFINED (sym)) | 
|---|
| 250 | { | 
|---|
| 251 | char *file; | 
|---|
| 252 | unsigned int line; | 
|---|
| 253 |  | 
|---|
| 254 | if (expr_symbol_where (sym, &file, &line)) | 
|---|
| 255 | as_bad_where (file, line, _("unresolved relocation")); | 
|---|
| 256 | else | 
|---|
| 257 | as_bad (_("bad relocation: symbol `%s' not in symbol table"), | 
|---|
| 258 | S_GET_NAME (sym)); | 
|---|
| 259 | } | 
|---|
| 260 |  | 
|---|
| 261 | tc_aout_fix_to_chars (*where, fixP, segment_address_in_file); | 
|---|
| 262 | *where += md_reloc_size; | 
|---|
| 263 | } | 
|---|
| 264 | } | 
|---|
| 265 |  | 
|---|
| 266 | #ifndef obj_header_append | 
|---|
| 267 | /* Aout file generation & utilities */ | 
|---|
| 268 | void | 
|---|
| 269 | obj_header_append (where, headers) | 
|---|
| 270 | char **where; | 
|---|
| 271 | object_headers *headers; | 
|---|
| 272 | { | 
|---|
| 273 | tc_headers_hook (headers); | 
|---|
| 274 |  | 
|---|
| 275 | #ifdef CROSS_COMPILE | 
|---|
| 276 | md_number_to_chars (*where, headers->header.a_info, sizeof (headers->header.a_info)); | 
|---|
| 277 | *where += sizeof (headers->header.a_info); | 
|---|
| 278 | md_number_to_chars (*where, headers->header.a_text, sizeof (headers->header.a_text)); | 
|---|
| 279 | *where += sizeof (headers->header.a_text); | 
|---|
| 280 | md_number_to_chars (*where, headers->header.a_data, sizeof (headers->header.a_data)); | 
|---|
| 281 | *where += sizeof (headers->header.a_data); | 
|---|
| 282 | md_number_to_chars (*where, headers->header.a_bss, sizeof (headers->header.a_bss)); | 
|---|
| 283 | *where += sizeof (headers->header.a_bss); | 
|---|
| 284 | md_number_to_chars (*where, headers->header.a_syms, sizeof (headers->header.a_syms)); | 
|---|
| 285 | *where += sizeof (headers->header.a_syms); | 
|---|
| 286 | md_number_to_chars (*where, headers->header.a_entry, sizeof (headers->header.a_entry)); | 
|---|
| 287 | *where += sizeof (headers->header.a_entry); | 
|---|
| 288 | md_number_to_chars (*where, headers->header.a_trsize, sizeof (headers->header.a_trsize)); | 
|---|
| 289 | *where += sizeof (headers->header.a_trsize); | 
|---|
| 290 | md_number_to_chars (*where, headers->header.a_drsize, sizeof (headers->header.a_drsize)); | 
|---|
| 291 | *where += sizeof (headers->header.a_drsize); | 
|---|
| 292 |  | 
|---|
| 293 | #else /* CROSS_COMPILE */ | 
|---|
| 294 |  | 
|---|
| 295 | append (where, (char *) &headers->header, sizeof (headers->header)); | 
|---|
| 296 | #endif /* CROSS_COMPILE */ | 
|---|
| 297 |  | 
|---|
| 298 | } | 
|---|
| 299 | #endif /* ! defined (obj_header_append) */ | 
|---|
| 300 |  | 
|---|
| 301 | void | 
|---|
| 302 | obj_symbol_to_chars (where, symbolP) | 
|---|
| 303 | char **where; | 
|---|
| 304 | symbolS *symbolP; | 
|---|
| 305 | { | 
|---|
| 306 | md_number_to_chars ((char *) &(S_GET_OFFSET (symbolP)), S_GET_OFFSET (symbolP), sizeof (S_GET_OFFSET (symbolP))); | 
|---|
| 307 | md_number_to_chars ((char *) &(S_GET_DESC (symbolP)), S_GET_DESC (symbolP), sizeof (S_GET_DESC (symbolP))); | 
|---|
| 308 | md_number_to_chars ((char *) &(symbolP->sy_symbol.n_value), S_GET_VALUE (symbolP), sizeof (symbolP->sy_symbol.n_value)); | 
|---|
| 309 |  | 
|---|
| 310 | append (where, (char *) &symbolP->sy_symbol, sizeof (obj_symbol_type)); | 
|---|
| 311 | } | 
|---|
| 312 |  | 
|---|
| 313 | void | 
|---|
| 314 | obj_emit_symbols (where, symbol_rootP) | 
|---|
| 315 | char **where; | 
|---|
| 316 | symbolS *symbol_rootP; | 
|---|
| 317 | { | 
|---|
| 318 | symbolS *symbolP; | 
|---|
| 319 |  | 
|---|
| 320 | /* Emit all symbols left in the symbol chain.  */ | 
|---|
| 321 | for (symbolP = symbol_rootP; symbolP; symbolP = symbol_next (symbolP)) | 
|---|
| 322 | { | 
|---|
| 323 | /* Used to save the offset of the name. It is used to point | 
|---|
| 324 | to the string in memory but must be a file offset.  */ | 
|---|
| 325 | register char *temp; | 
|---|
| 326 |  | 
|---|
| 327 | temp = S_GET_NAME (symbolP); | 
|---|
| 328 | S_SET_OFFSET (symbolP, symbolP->sy_name_offset); | 
|---|
| 329 |  | 
|---|
| 330 | /* Any symbol still undefined and is not a dbg symbol is made N_EXT.  */ | 
|---|
| 331 | if (!S_IS_DEBUG (symbolP) && !S_IS_DEFINED (symbolP)) | 
|---|
| 332 | S_SET_EXTERNAL (symbolP); | 
|---|
| 333 |  | 
|---|
| 334 | /* Adjust the type of a weak symbol.  */ | 
|---|
| 335 | if (S_GET_WEAK (symbolP)) | 
|---|
| 336 | { | 
|---|
| 337 | switch (S_GET_TYPE (symbolP)) | 
|---|
| 338 | { | 
|---|
| 339 | case N_UNDF: S_SET_TYPE (symbolP, N_WEAKU); break; | 
|---|
| 340 | case N_ABS:  S_SET_TYPE (symbolP, N_WEAKA); break; | 
|---|
| 341 | case N_TEXT: S_SET_TYPE (symbolP, N_WEAKT); break; | 
|---|
| 342 | case N_DATA: S_SET_TYPE (symbolP, N_WEAKD); break; | 
|---|
| 343 | case N_BSS:  S_SET_TYPE (symbolP, N_WEAKB); break; | 
|---|
| 344 | default: as_bad (_("%s: bad type for weak symbol"), temp); break; | 
|---|
| 345 | } | 
|---|
| 346 | } | 
|---|
| 347 |  | 
|---|
| 348 | obj_symbol_to_chars (where, symbolP); | 
|---|
| 349 | S_SET_NAME (symbolP, temp); | 
|---|
| 350 | } | 
|---|
| 351 | } | 
|---|
| 352 |  | 
|---|
| 353 | #endif /* ! BFD_ASSEMBLER */ | 
|---|
| 354 |  | 
|---|
| 355 | static void | 
|---|
| 356 | obj_aout_line (ignore) | 
|---|
| 357 | int ignore ATTRIBUTE_UNUSED; | 
|---|
| 358 | { | 
|---|
| 359 | /* Assume delimiter is part of expression. | 
|---|
| 360 | BSD4.2 as fails with delightful bug, so we | 
|---|
| 361 | are not being incompatible here.  */ | 
|---|
| 362 | new_logical_line ((char *) NULL, (int) (get_absolute_expression ())); | 
|---|
| 363 | demand_empty_rest_of_line (); | 
|---|
| 364 | }                               /* obj_aout_line() */ | 
|---|
| 365 |  | 
|---|
| 366 | /* Handle .weak.  This is a GNU extension.  */ | 
|---|
| 367 |  | 
|---|
| 368 | static void | 
|---|
| 369 | obj_aout_weak (ignore) | 
|---|
| 370 | int ignore ATTRIBUTE_UNUSED; | 
|---|
| 371 | { | 
|---|
| 372 | char *name; | 
|---|
| 373 | int c; | 
|---|
| 374 | symbolS *symbolP; | 
|---|
| 375 |  | 
|---|
| 376 | do | 
|---|
| 377 | { | 
|---|
| 378 | name = input_line_pointer; | 
|---|
| 379 | c = get_symbol_end (); | 
|---|
| 380 | symbolP = symbol_find_or_make (name); | 
|---|
| 381 | *input_line_pointer = c; | 
|---|
| 382 | SKIP_WHITESPACE (); | 
|---|
| 383 | S_SET_WEAK (symbolP); | 
|---|
| 384 | if (c == ',') | 
|---|
| 385 | { | 
|---|
| 386 | input_line_pointer++; | 
|---|
| 387 | SKIP_WHITESPACE (); | 
|---|
| 388 | if (*input_line_pointer == '\n') | 
|---|
| 389 | c = '\n'; | 
|---|
| 390 | } | 
|---|
| 391 | } | 
|---|
| 392 | while (c == ','); | 
|---|
| 393 | demand_empty_rest_of_line (); | 
|---|
| 394 | } | 
|---|
| 395 |  | 
|---|
| 396 | /* Handle .type.  On {Net,Open}BSD, this is used to set the n_other field, | 
|---|
| 397 | which is then apparently used when doing dynamic linking.  Older | 
|---|
| 398 | versions of gas ignored the .type pseudo-op, so we also ignore it if | 
|---|
| 399 | we can't parse it.  */ | 
|---|
| 400 |  | 
|---|
| 401 | static void | 
|---|
| 402 | obj_aout_type (ignore) | 
|---|
| 403 | int ignore ATTRIBUTE_UNUSED; | 
|---|
| 404 | { | 
|---|
| 405 | char *name; | 
|---|
| 406 | int c; | 
|---|
| 407 | symbolS *sym; | 
|---|
| 408 |  | 
|---|
| 409 | name = input_line_pointer; | 
|---|
| 410 | c = get_symbol_end (); | 
|---|
| 411 | sym = symbol_find_or_make (name); | 
|---|
| 412 | *input_line_pointer = c; | 
|---|
| 413 | SKIP_WHITESPACE (); | 
|---|
| 414 | if (*input_line_pointer == ',') | 
|---|
| 415 | { | 
|---|
| 416 | ++input_line_pointer; | 
|---|
| 417 | SKIP_WHITESPACE (); | 
|---|
| 418 | if (*input_line_pointer == '@') | 
|---|
| 419 | { | 
|---|
| 420 | ++input_line_pointer; | 
|---|
| 421 | if (strncmp (input_line_pointer, "object", 6) == 0) | 
|---|
| 422 | #ifdef BFD_ASSEMBLER | 
|---|
| 423 | aout_symbol (symbol_get_bfdsym (sym))->other = 1; | 
|---|
| 424 | #else | 
|---|
| 425 | S_SET_OTHER (sym, 1); | 
|---|
| 426 | #endif | 
|---|
| 427 | else if (strncmp (input_line_pointer, "function", 8) == 0) | 
|---|
| 428 | #ifdef BFD_ASSEMBLER | 
|---|
| 429 | aout_symbol (symbol_get_bfdsym (sym))->other = 2; | 
|---|
| 430 | #else | 
|---|
| 431 | S_SET_OTHER (sym, 2); | 
|---|
| 432 | #endif | 
|---|
| 433 | } | 
|---|
| 434 | } | 
|---|
| 435 |  | 
|---|
| 436 | /* Ignore everything else on the line.  */ | 
|---|
| 437 | s_ignore (0); | 
|---|
| 438 | } | 
|---|
| 439 |  | 
|---|
| 440 | #ifndef BFD_ASSEMBLER | 
|---|
| 441 |  | 
|---|
| 442 | void | 
|---|
| 443 | obj_crawl_symbol_chain (headers) | 
|---|
| 444 | object_headers *headers; | 
|---|
| 445 | { | 
|---|
| 446 | symbolS *symbolP; | 
|---|
| 447 | symbolS **symbolPP; | 
|---|
| 448 | int symbol_number = 0; | 
|---|
| 449 |  | 
|---|
| 450 | tc_crawl_symbol_chain (headers); | 
|---|
| 451 |  | 
|---|
| 452 | symbolPP = &symbol_rootP;     /*->last symbol chain link.  */ | 
|---|
| 453 | while ((symbolP = *symbolPP) != NULL) | 
|---|
| 454 | { | 
|---|
| 455 | if (symbolP->sy_mri_common) | 
|---|
| 456 | { | 
|---|
| 457 | if (S_IS_EXTERNAL (symbolP)) | 
|---|
| 458 | as_bad (_("%s: global symbols not supported in common sections"), | 
|---|
| 459 | S_GET_NAME (symbolP)); | 
|---|
| 460 | *symbolPP = symbol_next (symbolP); | 
|---|
| 461 | continue; | 
|---|
| 462 | } | 
|---|
| 463 |  | 
|---|
| 464 | if (flag_readonly_data_in_text && (S_GET_SEGMENT (symbolP) == SEG_DATA)) | 
|---|
| 465 | { | 
|---|
| 466 | S_SET_SEGMENT (symbolP, SEG_TEXT); | 
|---|
| 467 | }                       /* if pusing data into text */ | 
|---|
| 468 |  | 
|---|
| 469 | resolve_symbol_value (symbolP); | 
|---|
| 470 |  | 
|---|
| 471 | /* Skip symbols which were equated to undefined or common | 
|---|
| 472 | symbols.  */ | 
|---|
| 473 | if (symbolP->sy_value.X_op == O_symbol | 
|---|
| 474 | && (! S_IS_DEFINED (symbolP) || S_IS_COMMON (symbolP))) | 
|---|
| 475 | { | 
|---|
| 476 | *symbolPP = symbol_next (symbolP); | 
|---|
| 477 | continue; | 
|---|
| 478 | } | 
|---|
| 479 |  | 
|---|
| 480 | /* OK, here is how we decide which symbols go out into the brave | 
|---|
| 481 | new symtab.  Symbols that do are: | 
|---|
| 482 |  | 
|---|
| 483 | * symbols with no name (stabd's?) | 
|---|
| 484 | * symbols with debug info in their N_TYPE | 
|---|
| 485 |  | 
|---|
| 486 | Symbols that don't are: | 
|---|
| 487 | * symbols that are registers | 
|---|
| 488 | * symbols with \1 as their 3rd character (numeric labels) | 
|---|
| 489 | * "local labels" as defined by S_LOCAL_NAME(name) if the -L | 
|---|
| 490 | switch was passed to gas. | 
|---|
| 491 |  | 
|---|
| 492 | All other symbols are output.  We complain if a deleted | 
|---|
| 493 | symbol was marked external.  */ | 
|---|
| 494 |  | 
|---|
| 495 | if (!S_IS_REGISTER (symbolP) | 
|---|
| 496 | && (!S_GET_NAME (symbolP) | 
|---|
| 497 | || S_IS_DEBUG (symbolP) | 
|---|
| 498 | || !S_IS_DEFINED (symbolP) | 
|---|
| 499 | || S_IS_EXTERNAL (symbolP) | 
|---|
| 500 | || (S_GET_NAME (symbolP)[0] != '\001' | 
|---|
| 501 | && (flag_keep_locals || !S_LOCAL_NAME (symbolP))))) | 
|---|
| 502 | { | 
|---|
| 503 | symbolP->sy_number = symbol_number++; | 
|---|
| 504 |  | 
|---|
| 505 | /* The + 1 after strlen account for the \0 at the | 
|---|
| 506 | end of each string */ | 
|---|
| 507 | if (!S_IS_STABD (symbolP)) | 
|---|
| 508 | { | 
|---|
| 509 | /* Ordinary case.  */ | 
|---|
| 510 | symbolP->sy_name_offset = string_byte_count; | 
|---|
| 511 | string_byte_count += strlen (S_GET_NAME (symbolP)) + 1; | 
|---|
| 512 | } | 
|---|
| 513 | else                  /* .Stabd case.  */ | 
|---|
| 514 | symbolP->sy_name_offset = 0; | 
|---|
| 515 | symbolPP = &symbolP->sy_next; | 
|---|
| 516 | } | 
|---|
| 517 | else | 
|---|
| 518 | { | 
|---|
| 519 | if (S_IS_EXTERNAL (symbolP) || !S_IS_DEFINED (symbolP)) | 
|---|
| 520 | /* This warning should never get triggered any more. | 
|---|
| 521 | Well, maybe if you're doing twisted things with | 
|---|
| 522 | register names...  */ | 
|---|
| 523 | { | 
|---|
| 524 | as_bad (_("Local symbol %s never defined."), decode_local_label_name (S_GET_NAME (symbolP))); | 
|---|
| 525 | }                   /* oops.  */ | 
|---|
| 526 |  | 
|---|
| 527 | /* Unhook it from the chain */ | 
|---|
| 528 | *symbolPP = symbol_next (symbolP); | 
|---|
| 529 | }                       /* if this symbol should be in the output */ | 
|---|
| 530 | }                           /* for each symbol */ | 
|---|
| 531 |  | 
|---|
| 532 | H_SET_SYMBOL_TABLE_SIZE (headers, symbol_number); | 
|---|
| 533 | } | 
|---|
| 534 |  | 
|---|
| 535 | /* | 
|---|
| 536 | * Find strings by crawling along symbol table chain. | 
|---|
| 537 | */ | 
|---|
| 538 |  | 
|---|
| 539 | void | 
|---|
| 540 | obj_emit_strings (where) | 
|---|
| 541 | char **where; | 
|---|
| 542 | { | 
|---|
| 543 | symbolS *symbolP; | 
|---|
| 544 |  | 
|---|
| 545 | #ifdef CROSS_COMPILE | 
|---|
| 546 | /* Gotta do md_ byte-ordering stuff for string_byte_count first - KWK */ | 
|---|
| 547 | md_number_to_chars (*where, string_byte_count, sizeof (string_byte_count)); | 
|---|
| 548 | *where += sizeof (string_byte_count); | 
|---|
| 549 | #else /* CROSS_COMPILE */ | 
|---|
| 550 | append (where, (char *) &string_byte_count, (unsigned long) sizeof (string_byte_count)); | 
|---|
| 551 | #endif /* CROSS_COMPILE */ | 
|---|
| 552 |  | 
|---|
| 553 | for (symbolP = symbol_rootP; symbolP; symbolP = symbol_next (symbolP)) | 
|---|
| 554 | { | 
|---|
| 555 | if (S_GET_NAME (symbolP)) | 
|---|
| 556 | append (&next_object_file_charP, S_GET_NAME (symbolP), | 
|---|
| 557 | (unsigned long) (strlen (S_GET_NAME (symbolP)) + 1)); | 
|---|
| 558 | }                           /* walk symbol chain */ | 
|---|
| 559 | } | 
|---|
| 560 |  | 
|---|
| 561 | #ifndef AOUT_VERSION | 
|---|
| 562 | #define AOUT_VERSION 0 | 
|---|
| 563 | #endif | 
|---|
| 564 |  | 
|---|
| 565 | void | 
|---|
| 566 | obj_pre_write_hook (headers) | 
|---|
| 567 | object_headers *headers; | 
|---|
| 568 | { | 
|---|
| 569 | H_SET_DYNAMIC (headers, 0); | 
|---|
| 570 | H_SET_VERSION (headers, AOUT_VERSION); | 
|---|
| 571 | H_SET_MACHTYPE (headers, AOUT_MACHTYPE); | 
|---|
| 572 | tc_aout_pre_write_hook (headers); | 
|---|
| 573 | } | 
|---|
| 574 |  | 
|---|
| 575 | #endif /* ! BFD_ASSEMBLER */ | 
|---|
| 576 |  | 
|---|
| 577 | #ifdef BFD_ASSEMBLER | 
|---|
| 578 |  | 
|---|
| 579 | /* Support for an AOUT emulation.  */ | 
|---|
| 580 |  | 
|---|
| 581 | static void aout_pop_insert PARAMS ((void)); | 
|---|
| 582 | static int obj_aout_s_get_other PARAMS ((symbolS *)); | 
|---|
| 583 | static void obj_aout_s_set_other PARAMS ((symbolS *, int)); | 
|---|
| 584 | static int obj_aout_s_get_desc PARAMS ((symbolS *)); | 
|---|
| 585 | static void obj_aout_s_set_desc PARAMS ((symbolS *, int)); | 
|---|
| 586 | static int obj_aout_s_get_type PARAMS ((symbolS *)); | 
|---|
| 587 | static void obj_aout_s_set_type PARAMS ((symbolS *, int)); | 
|---|
| 588 | static int obj_aout_separate_stab_sections PARAMS ((void)); | 
|---|
| 589 | static int obj_aout_sec_sym_ok_for_reloc PARAMS ((asection *)); | 
|---|
| 590 | static void obj_aout_process_stab PARAMS ((segT, int, const char *, int, int, int)); | 
|---|
| 591 |  | 
|---|
| 592 | static void | 
|---|
| 593 | aout_pop_insert () | 
|---|
| 594 | { | 
|---|
| 595 | pop_insert (aout_pseudo_table); | 
|---|
| 596 | } | 
|---|
| 597 |  | 
|---|
| 598 | static int | 
|---|
| 599 | obj_aout_s_get_other (sym) | 
|---|
| 600 | symbolS *sym; | 
|---|
| 601 | { | 
|---|
| 602 | return aout_symbol (symbol_get_bfdsym (sym))->other; | 
|---|
| 603 | } | 
|---|
| 604 |  | 
|---|
| 605 | static void | 
|---|
| 606 | obj_aout_s_set_other (sym, o) | 
|---|
| 607 | symbolS *sym; | 
|---|
| 608 | int o; | 
|---|
| 609 | { | 
|---|
| 610 | aout_symbol (symbol_get_bfdsym (sym))->other = o; | 
|---|
| 611 | } | 
|---|
| 612 |  | 
|---|
| 613 | static int | 
|---|
| 614 | obj_aout_sec_sym_ok_for_reloc (sec) | 
|---|
| 615 | asection *sec ATTRIBUTE_UNUSED; | 
|---|
| 616 | { | 
|---|
| 617 | return obj_sec_sym_ok_for_reloc (sec); | 
|---|
| 618 | } | 
|---|
| 619 |  | 
|---|
| 620 | static void | 
|---|
| 621 | obj_aout_process_stab (seg, w, s, t, o, d) | 
|---|
| 622 | segT seg ATTRIBUTE_UNUSED; | 
|---|
| 623 | int w; | 
|---|
| 624 | const char *s; | 
|---|
| 625 | int t; | 
|---|
| 626 | int o; | 
|---|
| 627 | int d; | 
|---|
| 628 | { | 
|---|
| 629 | aout_process_stab (w, s, t, o, d); | 
|---|
| 630 | } | 
|---|
| 631 |  | 
|---|
| 632 | static int | 
|---|
| 633 | obj_aout_s_get_desc (sym) | 
|---|
| 634 | symbolS *sym; | 
|---|
| 635 | { | 
|---|
| 636 | return aout_symbol (symbol_get_bfdsym (sym))->desc; | 
|---|
| 637 | } | 
|---|
| 638 |  | 
|---|
| 639 | static void | 
|---|
| 640 | obj_aout_s_set_desc (sym, d) | 
|---|
| 641 | symbolS *sym; | 
|---|
| 642 | int d; | 
|---|
| 643 | { | 
|---|
| 644 | aout_symbol (symbol_get_bfdsym (sym))->desc = d; | 
|---|
| 645 | } | 
|---|
| 646 |  | 
|---|
| 647 | static int | 
|---|
| 648 | obj_aout_s_get_type (sym) | 
|---|
| 649 | symbolS *sym; | 
|---|
| 650 | { | 
|---|
| 651 | return aout_symbol (symbol_get_bfdsym (sym))->type; | 
|---|
| 652 | } | 
|---|
| 653 |  | 
|---|
| 654 | static void | 
|---|
| 655 | obj_aout_s_set_type (sym, t) | 
|---|
| 656 | symbolS *sym; | 
|---|
| 657 | int t; | 
|---|
| 658 | { | 
|---|
| 659 | aout_symbol (symbol_get_bfdsym (sym))->type = t; | 
|---|
| 660 | } | 
|---|
| 661 |  | 
|---|
| 662 | static int | 
|---|
| 663 | obj_aout_separate_stab_sections () | 
|---|
| 664 | { | 
|---|
| 665 | return 0; | 
|---|
| 666 | } | 
|---|
| 667 |  | 
|---|
| 668 | /* When changed, make sure these table entries match the single-format | 
|---|
| 669 | definitions in obj-aout.h.  */ | 
|---|
| 670 | const struct format_ops aout_format_ops = | 
|---|
| 671 | { | 
|---|
| 672 | bfd_target_aout_flavour, | 
|---|
| 673 | 1,    /* dfl_leading_underscore */ | 
|---|
| 674 | 0,    /* emit_section_symbols */ | 
|---|
| 675 | 0,    /* begin */ | 
|---|
| 676 | 0,    /* app_file */ | 
|---|
| 677 | obj_aout_frob_symbol, | 
|---|
| 678 | 0,    /* frob_file */ | 
|---|
| 679 | 0,    /* frob_file_before_adjust */ | 
|---|
| 680 | obj_aout_frob_file_before_fix, | 
|---|
| 681 | 0,    /* frob_file_after_relocs */ | 
|---|
| 682 | 0,    /* s_get_size */ | 
|---|
| 683 | 0,    /* s_set_size */ | 
|---|
| 684 | 0,    /* s_get_align */ | 
|---|
| 685 | 0,    /* s_set_align */ | 
|---|
| 686 | obj_aout_s_get_other, | 
|---|
| 687 | obj_aout_s_set_other, | 
|---|
| 688 | obj_aout_s_get_desc, | 
|---|
| 689 | obj_aout_s_set_desc, | 
|---|
| 690 | obj_aout_s_get_type, | 
|---|
| 691 | obj_aout_s_set_type, | 
|---|
| 692 | 0,    /* copy_symbol_attributes */ | 
|---|
| 693 | 0,    /* generate_asm_lineno */ | 
|---|
| 694 | obj_aout_process_stab, | 
|---|
| 695 | obj_aout_separate_stab_sections, | 
|---|
| 696 | 0,    /* init_stab_section */ | 
|---|
| 697 | obj_aout_sec_sym_ok_for_reloc, | 
|---|
| 698 | aout_pop_insert, | 
|---|
| 699 | 0,    /* ecoff_set_ext */ | 
|---|
| 700 | 0,    /* read_begin_hook */ | 
|---|
| 701 | 0     /* symbol_new_hook */ | 
|---|
| 702 | }; | 
|---|
| 703 | #endif /* BFD_ASSEMBLER */ | 
|---|