* obj.h (struct format_ops): Add adjust_symtab.
[external/binutils.git] / gas / config / obj-aout.c
1 /* a.out object file format
2    Copyright 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1999, 2000,
3    2001, 2002, 2003, 2004, 2005, 2007, 2009, 2010
4    Free Software Foundation, Inc.
5
6    This file is part of GAS, the GNU Assembler.
7
8    GAS is free software; you can redistribute it and/or modify
9    it under the terms of the GNU General Public License as
10    published by the Free Software Foundation; either version 3,
11    or (at your option) any later version.
12
13    GAS is distributed in the hope that it will be useful, but
14    WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
16    the GNU General Public License for more details.
17
18    You should have received a copy of the GNU General Public License
19    along with GAS; see the file COPYING.  If not, write to the Free
20    Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
21    02110-1301, USA.  */
22
23 #define OBJ_HEADER "obj-aout.h"
24
25 #include "as.h"
26 #undef NO_RELOC
27 #include "aout/aout64.h"
28 #include "obstack.h"
29
30 void
31 obj_aout_frob_symbol (symbolS *sym, int *punt ATTRIBUTE_UNUSED)
32 {
33   flagword flags;
34   asection *sec;
35   int type;
36
37   flags = symbol_get_bfdsym (sym)->flags;
38   type = aout_symbol (symbol_get_bfdsym (sym))->type;
39   sec = S_GET_SEGMENT (sym);
40
41   /* Only frob simple symbols this way right now.  */
42   if (! (type & ~ (N_TYPE | N_EXT)))
43     {
44       if (type == (N_UNDF | N_EXT)
45           && sec == &bfd_abs_section)
46         {
47           sec = bfd_und_section_ptr;
48           S_SET_SEGMENT (sym, sec);
49         }
50
51       if ((type & N_TYPE) != N_INDR
52           && (type & N_TYPE) != N_SETA
53           && (type & N_TYPE) != N_SETT
54           && (type & N_TYPE) != N_SETD
55           && (type & N_TYPE) != N_SETB
56           && type != N_WARNING
57           && (sec == &bfd_abs_section
58               || sec == &bfd_und_section))
59         return;
60       if (flags & BSF_EXPORT)
61         type |= N_EXT;
62
63       switch (type & N_TYPE)
64         {
65         case N_SETA:
66         case N_SETT:
67         case N_SETD:
68         case N_SETB:
69           /* Set the debugging flag for constructor symbols so that
70              BFD leaves them alone.  */
71           symbol_get_bfdsym (sym)->flags |= BSF_DEBUGGING;
72
73           /* You can't put a common symbol in a set.  The way a set
74              element works is that the symbol has a definition and a
75              name, and the linker adds the definition to the set of
76              that name.  That does not work for a common symbol,
77              because the linker can't tell which common symbol the
78              user means.  FIXME: Using as_bad here may be
79              inappropriate, since the user may want to force a
80              particular type without regard to the semantics of sets;
81              on the other hand, we certainly don't want anybody to be
82              mislead into thinking that their code will work.  */
83           if (S_IS_COMMON (sym))
84             as_bad (_("Attempt to put a common symbol into set %s"),
85                     S_GET_NAME (sym));
86           /* Similarly, you can't put an undefined symbol in a set.  */
87           else if (! S_IS_DEFINED (sym))
88             as_bad (_("Attempt to put an undefined symbol into set %s"),
89                     S_GET_NAME (sym));
90
91           break;
92         case N_INDR:
93           /* Put indirect symbols in the indirect section.  */
94           S_SET_SEGMENT (sym, bfd_ind_section_ptr);
95           symbol_get_bfdsym (sym)->flags |= BSF_INDIRECT;
96           if (type & N_EXT)
97             {
98               symbol_get_bfdsym (sym)->flags |= BSF_EXPORT;
99               symbol_get_bfdsym (sym)->flags &=~ BSF_LOCAL;
100             }
101           break;
102         case N_WARNING:
103           /* Mark warning symbols.  */
104           symbol_get_bfdsym (sym)->flags |= BSF_WARNING;
105           break;
106         }
107     }
108   else
109     symbol_get_bfdsym (sym)->flags |= BSF_DEBUGGING;
110
111   aout_symbol (symbol_get_bfdsym (sym))->type = type;
112
113   /* Double check weak symbols.  */
114   if (S_IS_WEAK (sym) && S_IS_COMMON (sym))
115     as_bad (_("Symbol `%s' can not be both weak and common"),
116             S_GET_NAME (sym));
117 }
118
119 void
120 obj_aout_frob_file_before_fix (void)
121 {
122   /* Relocation processing may require knowing the VMAs of the sections.
123      Since writing to a section will cause the BFD back end to compute the
124      VMAs, fake it out here....  */
125   bfd_byte b = 0;
126   bfd_boolean x = TRUE;
127   if (bfd_section_size (stdoutput, text_section) != 0)
128     x = bfd_set_section_contents (stdoutput, text_section, &b, (file_ptr) 0,
129                                   (bfd_size_type) 1);
130   else if (bfd_section_size (stdoutput, data_section) != 0)
131     x = bfd_set_section_contents (stdoutput, data_section, &b, (file_ptr) 0,
132                                   (bfd_size_type) 1);
133
134   gas_assert (x);
135 }
136
137 static void
138 obj_aout_line (int ignore ATTRIBUTE_UNUSED)
139 {
140   /* Assume delimiter is part of expression.
141      BSD4.2 as fails with delightful bug, so we
142      are not being incompatible here.  */
143   new_logical_line ((char *) NULL, (int) (get_absolute_expression ()));
144   demand_empty_rest_of_line ();
145 }
146
147 /* Handle .weak.  This is a GNU extension.  */
148
149 static void
150 obj_aout_weak (int ignore ATTRIBUTE_UNUSED)
151 {
152   char *name;
153   int c;
154   symbolS *symbolP;
155
156   do
157     {
158       name = input_line_pointer;
159       c = get_symbol_end ();
160       symbolP = symbol_find_or_make (name);
161       *input_line_pointer = c;
162       SKIP_WHITESPACE ();
163       S_SET_WEAK (symbolP);
164       if (c == ',')
165         {
166           input_line_pointer++;
167           SKIP_WHITESPACE ();
168           if (*input_line_pointer == '\n')
169             c = '\n';
170         }
171     }
172   while (c == ',');
173   demand_empty_rest_of_line ();
174 }
175
176 /* Handle .type.  On {Net,Open}BSD, this is used to set the n_other field,
177    which is then apparently used when doing dynamic linking.  Older
178    versions of gas ignored the .type pseudo-op, so we also ignore it if
179    we can't parse it.  */
180
181 static void
182 obj_aout_type (int ignore ATTRIBUTE_UNUSED)
183 {
184   char *name;
185   int c;
186   symbolS *sym;
187
188   name = input_line_pointer;
189   c = get_symbol_end ();
190   sym = symbol_find_or_make (name);
191   *input_line_pointer = c;
192   SKIP_WHITESPACE ();
193   if (*input_line_pointer == ',')
194     {
195       ++input_line_pointer;
196       SKIP_WHITESPACE ();
197       if (*input_line_pointer == '@')
198         {
199           ++input_line_pointer;
200           if (strncmp (input_line_pointer, "object", 6) == 0)
201             S_SET_OTHER (sym, 1);
202           else if (strncmp (input_line_pointer, "function", 8) == 0)
203             S_SET_OTHER (sym, 2);
204         }
205     }
206
207   /* Ignore everything else on the line.  */
208   s_ignore (0);
209 }
210
211 /* Support for an AOUT emulation.  */
212
213 static void
214 aout_pop_insert (void)
215 {
216   pop_insert (aout_pseudo_table);
217 }
218
219 static int
220 obj_aout_s_get_other (symbolS *sym)
221 {
222   return aout_symbol (symbol_get_bfdsym (sym))->other;
223 }
224
225 static void
226 obj_aout_s_set_other (symbolS *sym, int o)
227 {
228   aout_symbol (symbol_get_bfdsym (sym))->other = o;
229 }
230
231 static int
232 obj_aout_sec_sym_ok_for_reloc (asection *sec ATTRIBUTE_UNUSED)
233 {
234   return obj_sec_sym_ok_for_reloc (sec);
235 }
236
237 static void
238 obj_aout_process_stab (segT seg ATTRIBUTE_UNUSED,
239                        int w,
240                        const char *s,
241                        int t,
242                        int o,
243                        int d)
244 {
245   aout_process_stab (w, s, t, o, d);
246 }
247
248 static int
249 obj_aout_s_get_desc (symbolS *sym)
250 {
251   return aout_symbol (symbol_get_bfdsym (sym))->desc;
252 }
253
254 static void
255 obj_aout_s_set_desc (symbolS *sym, int d)
256 {
257   aout_symbol (symbol_get_bfdsym (sym))->desc = d;
258 }
259
260 static int
261 obj_aout_s_get_type (symbolS *sym)
262 {
263   return aout_symbol (symbol_get_bfdsym (sym))->type;
264 }
265
266 static void
267 obj_aout_s_set_type (symbolS *sym, int t)
268 {
269   aout_symbol (symbol_get_bfdsym (sym))->type = t;
270 }
271
272 static int
273 obj_aout_separate_stab_sections (void)
274 {
275   return 0;
276 }
277
278 /* When changed, make sure these table entries match the single-format
279    definitions in obj-aout.h.  */
280
281 const struct format_ops aout_format_ops =
282 {
283   bfd_target_aout_flavour,
284   1,    /* dfl_leading_underscore.  */
285   0,    /* emit_section_symbols.  */
286   0,    /* begin.  */
287   0,    /* app_file.  */
288   obj_aout_frob_symbol,
289   0,    /* frob_file.  */
290   0,    /* frob_file_before_adjust.  */
291   obj_aout_frob_file_before_fix,
292   0,    /* frob_file_after_relocs.  */
293   0,    /* s_get_size.  */
294   0,    /* s_set_size.  */
295   0,    /* s_get_align.  */
296   0,    /* s_set_align.  */
297   obj_aout_s_get_other,
298   obj_aout_s_set_other,
299   obj_aout_s_get_desc,
300   obj_aout_s_set_desc,
301   obj_aout_s_get_type,
302   obj_aout_s_set_type,
303   0,    /* copy_symbol_attributes.  */
304   0,    /* generate_asm_lineno.  */
305   obj_aout_process_stab,
306   obj_aout_separate_stab_sections,
307   0,    /* init_stab_section.  */
308   obj_aout_sec_sym_ok_for_reloc,
309   aout_pop_insert,
310   0,    /* ecoff_set_ext.  */
311   0,    /* read_begin_hook.  */
312   0,    /* symbol_new_hook.  */
313   0,    /* symbol_clone_hook.  */
314   0     /* adjust_symtab.  */
315 };
316
317 const pseudo_typeS aout_pseudo_table[] =
318 {
319   {"line", obj_aout_line, 0},   /* Source code line number.  */
320   {"ln", obj_aout_line, 0},     /* COFF line number that we use anyway.  */
321
322   {"weak", obj_aout_weak, 0},   /* Mark symbol as weak.  */
323
324   {"type", obj_aout_type, 0},
325
326   /* coff debug pseudos (ignored) */
327   {"def", s_ignore, 0},
328   {"dim", s_ignore, 0},
329   {"endef", s_ignore, 0},
330   {"ident", s_ignore, 0},
331   {"line", s_ignore, 0},
332   {"ln", s_ignore, 0},
333   {"scl", s_ignore, 0},
334   {"size", s_ignore, 0},
335   {"tag", s_ignore, 0},
336   {"val", s_ignore, 0},
337   {"version", s_ignore, 0},
338
339   {"optim", s_ignore, 0},       /* For sun386i cc (?).  */
340
341   /* other stuff */
342   {"ABORT", s_abort, 0},
343
344   {NULL, NULL, 0}
345 };