| 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 | 2002, 2003 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_before_fix() obj_aout_frob_file_before_fix () | 
|---|
| 86 | extern void obj_aout_frob_symbol PARAMS ((symbolS *, int *)); | 
|---|
| 87 | extern void obj_aout_frob_file_before_fix 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 | /* Return true for symbols that should not be reduced to section | 
|---|
| 113 | symbols or eliminated from expressions, because they may be | 
|---|
| 114 | overridden by the linker.  */ | 
|---|
| 115 | #define S_FORCE_RELOC(s, strict) \ | 
|---|
| 116 | (!SEG_NORMAL (S_GET_SEGMENT (s))) | 
|---|
| 117 |  | 
|---|
| 118 | #define S_IS_REGISTER(s)        ((s)->sy_symbol.n_type == N_REGISTER) | 
|---|
| 119 |  | 
|---|
| 120 | /* True if a debug special symbol entry */ | 
|---|
| 121 | #define S_IS_DEBUG(s)           ((s)->sy_symbol.n_type & N_STAB) | 
|---|
| 122 | /* True if a symbol is local symbol name */ | 
|---|
| 123 | #define S_IS_LOCAL(s)                                   \ | 
|---|
| 124 | ((S_GET_NAME (s)                                      \ | 
|---|
| 125 | && !S_IS_DEBUG (s)                                  \ | 
|---|
| 126 | && (strchr (S_GET_NAME (s), '\001') != NULL         \ | 
|---|
| 127 | || strchr (S_GET_NAME (s), '\002') != NULL      \ | 
|---|
| 128 | || (S_LOCAL_NAME(s) && !flag_keep_locals)))     \ | 
|---|
| 129 | || (flag_strip_local_absolute                        \ | 
|---|
| 130 | && ! S_IS_EXTERNAL(s)                            \ | 
|---|
| 131 | && S_GET_SEGMENT (s) == absolute_section)) | 
|---|
| 132 | /* True if a symbol is not defined in this file */ | 
|---|
| 133 | #define S_IS_EXTERN(s)          ((s)->sy_symbol.n_type & N_EXT) | 
|---|
| 134 | /* True if the symbol has been generated because of a .stabd directive */ | 
|---|
| 135 | #define S_IS_STABD(s)           (S_GET_NAME(s) == (char *)0) | 
|---|
| 136 |  | 
|---|
| 137 | /* Accessors */ | 
|---|
| 138 | /* The name of the symbol */ | 
|---|
| 139 | #define S_GET_NAME(s)           ((s)->sy_symbol.n_un.n_name) | 
|---|
| 140 | /* The pointer to the string table */ | 
|---|
| 141 | #define S_GET_OFFSET(s)         ((s)->sy_symbol.n_un.n_strx) | 
|---|
| 142 | /* The type of the symbol */ | 
|---|
| 143 | #define S_GET_TYPE(s)           ((s)->sy_symbol.n_type & N_TYPE) | 
|---|
| 144 | /* The numeric value of the segment */ | 
|---|
| 145 | #define S_GET_SEGMENT(s)        (N_TYPE_seg[S_GET_TYPE(s)]) | 
|---|
| 146 | /* The n_other expression value */ | 
|---|
| 147 | #define S_GET_OTHER(s)          ((s)->sy_symbol.n_other) | 
|---|
| 148 | /* The n_desc expression value */ | 
|---|
| 149 | #define S_GET_DESC(s)           ((s)->sy_symbol.n_desc) | 
|---|
| 150 | /* Whether the symbol is weak.  */ | 
|---|
| 151 | #define S_GET_WEAK(s)           ((s)->sy_obj) | 
|---|
| 152 |  | 
|---|
| 153 | /* Modifiers */ | 
|---|
| 154 | /* Assume that a symbol cannot be simultaneously in more than on segment */ | 
|---|
| 155 | /* set segment */ | 
|---|
| 156 | #define S_SET_SEGMENT(s,seg)    ((s)->sy_symbol.n_type &= ~N_TYPE,(s)->sy_symbol.n_type|=SEGMENT_TO_SYMBOL_TYPE(seg)) | 
|---|
| 157 | /* The symbol is external */ | 
|---|
| 158 | #define S_SET_EXTERNAL(s)       ((s)->sy_symbol.n_type |= N_EXT) | 
|---|
| 159 | /* The symbol is not external */ | 
|---|
| 160 | #define S_CLEAR_EXTERNAL(s)     ((s)->sy_symbol.n_type &= ~N_EXT) | 
|---|
| 161 | /* Set the name of the symbol */ | 
|---|
| 162 | #define S_SET_NAME(s,v)         ((s)->sy_symbol.n_un.n_name = (v)) | 
|---|
| 163 | /* Set the offset in the string table */ | 
|---|
| 164 | #define S_SET_OFFSET(s,v)       ((s)->sy_symbol.n_un.n_strx = (v)) | 
|---|
| 165 | /* Set the n_type field */ | 
|---|
| 166 | #define S_SET_TYPE(s,t)         ((s)->sy_symbol.n_type = (t)) | 
|---|
| 167 | /* Set the n_other expression value */ | 
|---|
| 168 | #define S_SET_OTHER(s,v)        ((s)->sy_symbol.n_other = (v)) | 
|---|
| 169 | /* Set the n_desc expression value */ | 
|---|
| 170 | #define S_SET_DESC(s,v)         ((s)->sy_symbol.n_desc = (v)) | 
|---|
| 171 | /* Mark the symbol as weak.  This causes n_type to be adjusted when | 
|---|
| 172 | the symbol is written out.  */ | 
|---|
| 173 | #define S_SET_WEAK(s)           ((s)->sy_obj = 1) | 
|---|
| 174 |  | 
|---|
| 175 | /* File header macro and type definition */ | 
|---|
| 176 |  | 
|---|
| 177 | #define H_GET_FILE_SIZE(h)      (H_GET_HEADER_SIZE(h) \ | 
|---|
| 178 | + H_GET_TEXT_SIZE(h) \ | 
|---|
| 179 | + H_GET_DATA_SIZE(h) \ | 
|---|
| 180 | + H_GET_SYMBOL_TABLE_SIZE(h) \ | 
|---|
| 181 | + H_GET_TEXT_RELOCATION_SIZE(h) \ | 
|---|
| 182 | + H_GET_DATA_RELOCATION_SIZE(h) \ | 
|---|
| 183 | + H_GET_STRING_SIZE(h)) | 
|---|
| 184 |  | 
|---|
| 185 | #define H_GET_HEADER_SIZE(h)            (EXEC_BYTES_SIZE) | 
|---|
| 186 | #define H_GET_TEXT_SIZE(h)              ((h)->header.a_text) | 
|---|
| 187 | #define H_GET_DATA_SIZE(h)              ((h)->header.a_data) | 
|---|
| 188 | #define H_GET_BSS_SIZE(h)               ((h)->header.a_bss) | 
|---|
| 189 | #define H_GET_TEXT_RELOCATION_SIZE(h)   ((h)->header.a_trsize) | 
|---|
| 190 | #define H_GET_DATA_RELOCATION_SIZE(h)   ((h)->header.a_drsize) | 
|---|
| 191 | #define H_GET_SYMBOL_TABLE_SIZE(h)      ((h)->header.a_syms) | 
|---|
| 192 | #define H_GET_ENTRY_POINT(h)            ((h)->header.a_entry) | 
|---|
| 193 | #define H_GET_STRING_SIZE(h)            ((h)->string_table_size) | 
|---|
| 194 | #define H_GET_LINENO_SIZE(h)            (0) | 
|---|
| 195 |  | 
|---|
| 196 | #define H_GET_DYNAMIC(h)                ((h)->header.a_info >> 31) | 
|---|
| 197 | #define H_GET_VERSION(h)                (((h)->header.a_info >> 24) & 0x7f) | 
|---|
| 198 | #define H_GET_MACHTYPE(h)               (((h)->header.a_info >> 16) & 0xff) | 
|---|
| 199 | #define H_GET_MAGIC_NUMBER(h)           ((h)->header.a_info & 0xffff) | 
|---|
| 200 |  | 
|---|
| 201 | #define H_SET_DYNAMIC(h,v)              ((h)->header.a_info = (((v) << 31) \ | 
|---|
| 202 | | (H_GET_VERSION(h) << 24) \ | 
|---|
| 203 | | (H_GET_MACHTYPE(h) << 16) \ | 
|---|
| 204 | | (H_GET_MAGIC_NUMBER(h)))) | 
|---|
| 205 |  | 
|---|
| 206 | #define H_SET_VERSION(h,v)              ((h)->header.a_info = ((H_GET_DYNAMIC(h) << 31) \ | 
|---|
| 207 | | ((v) << 24) \ | 
|---|
| 208 | | (H_GET_MACHTYPE(h) << 16) \ | 
|---|
| 209 | | (H_GET_MAGIC_NUMBER(h)))) | 
|---|
| 210 |  | 
|---|
| 211 | #define H_SET_MACHTYPE(h,v)             ((h)->header.a_info = ((H_GET_DYNAMIC(h) << 31) \ | 
|---|
| 212 | | (H_GET_VERSION(h) << 24) \ | 
|---|
| 213 | | ((v) << 16) \ | 
|---|
| 214 | | (H_GET_MAGIC_NUMBER(h)))) | 
|---|
| 215 |  | 
|---|
| 216 | #define H_SET_MAGIC_NUMBER(h,v)         ((h)->header.a_info = ((H_GET_DYNAMIC(h) << 31) \ | 
|---|
| 217 | | (H_GET_VERSION(h) << 24) \ | 
|---|
| 218 | | (H_GET_MACHTYPE(h) << 16) \ | 
|---|
| 219 | | ((v)))) | 
|---|
| 220 |  | 
|---|
| 221 | #define H_SET_TEXT_SIZE(h,v)            ((h)->header.a_text = md_section_align(SEG_TEXT, (v))) | 
|---|
| 222 | #define H_SET_DATA_SIZE(h,v)            ((h)->header.a_data = md_section_align(SEG_DATA, (v))) | 
|---|
| 223 | #define H_SET_BSS_SIZE(h,v)             ((h)->header.a_bss = md_section_align(SEG_BSS, (v))) | 
|---|
| 224 |  | 
|---|
| 225 | #define H_SET_RELOCATION_SIZE(h,t,d)    (H_SET_TEXT_RELOCATION_SIZE((h),(t)),\ | 
|---|
| 226 | H_SET_DATA_RELOCATION_SIZE((h),(d))) | 
|---|
| 227 |  | 
|---|
| 228 | #define H_SET_TEXT_RELOCATION_SIZE(h,v) ((h)->header.a_trsize = (v)) | 
|---|
| 229 | #define H_SET_DATA_RELOCATION_SIZE(h,v) ((h)->header.a_drsize = (v)) | 
|---|
| 230 | #define H_SET_SYMBOL_TABLE_SIZE(h,v)    ((h)->header.a_syms = (v) * 12) | 
|---|
| 231 |  | 
|---|
| 232 | #define H_SET_ENTRY_POINT(h,v)          ((h)->header.a_entry = (v)) | 
|---|
| 233 | #define H_SET_STRING_SIZE(h,v)          ((h)->string_table_size = (v)) | 
|---|
| 234 |  | 
|---|
| 235 | typedef struct | 
|---|
| 236 | { | 
|---|
| 237 | struct exec header;         /* a.out header */ | 
|---|
| 238 | long string_table_size;     /* names + '\0' + sizeof (int) */ | 
|---|
| 239 | } | 
|---|
| 240 |  | 
|---|
| 241 | object_headers; | 
|---|
| 242 |  | 
|---|
| 243 | /* line numbering stuff.  */ | 
|---|
| 244 | #define OBJ_EMIT_LINENO(a, b, c)        {;} | 
|---|
| 245 |  | 
|---|
| 246 | struct fix; | 
|---|
| 247 | void tc_aout_fix_to_chars PARAMS ((char *where, struct fix *fixP, relax_addressT segment_address)); | 
|---|
| 248 |  | 
|---|
| 249 | #endif | 
|---|
| 250 |  | 
|---|
| 251 | #define obj_read_begin_hook()   {;} | 
|---|
| 252 | #define obj_symbol_new_hook(s)  {;} | 
|---|
| 253 |  | 
|---|
| 254 | #define EMIT_SECTION_SYMBOLS            0 | 
|---|
| 255 |  | 
|---|
| 256 | #define AOUT_STABS | 
|---|