1/* SOM object file format.
2   Copyright 1993, 1994, 1998, 2000, 2002, 2003, 2004, 2005, 2006,
3   2007, 2008, 2009  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 3,
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, 51 Franklin Street - Fifth Floor, Boston, MA
20   02110-1301, USA.
21
22   Written by the Center for Software Science at the University of Utah
23   and by Cygnus Support.  */
24
25#include "as.h"
26#include "subsegs.h"
27#include "aout/stab_gnu.h"
28#include "obstack.h"
29
30static int version_seen = 0;
31static int copyright_seen = 0;
32static int compiler_seen = 0;
33
34/* Unused by SOM.  */
35
36void
37obj_read_begin_hook (void)
38{
39}
40
41/* Handle a .compiler directive.   This is intended to create the
42   compilation unit auxiliary header for MPE such that the linkeditor
43   can handle SOM extraction from archives. The format of the quoted
44   string is "sourcefile language version" and is delimited by blanks.  */
45
46void
47obj_som_compiler (int unused ATTRIBUTE_UNUSED)
48{
49  char *buf;
50  char c;
51  char *filename;
52  char *language_name;
53  char *p;
54  char *version_id;
55
56  if (compiler_seen)
57    {
58      as_bad (_("Only one .compiler pseudo-op per file!"));
59      ignore_rest_of_line ();
60      return;
61    }
62
63  SKIP_WHITESPACE ();
64  if (*input_line_pointer == '\"')
65    {
66      buf = input_line_pointer;
67      ++input_line_pointer;
68      while (is_a_char (next_char_of_string ()))
69	;
70      c = *input_line_pointer;
71      *input_line_pointer = '\000';
72    }
73  else
74    {
75      as_bad (_("Expected quoted string"));
76      ignore_rest_of_line ();
77      return;
78    }
79
80  /* Parse the quoted string into its component parts.  Skip the
81     quote.  */
82  filename = buf + 1;
83  p = filename;
84  while (*p != ' ' && *p != '\000')
85    p++;
86  if (*p == '\000')
87    {
88      as_bad (_(".compiler directive missing language and version"));
89      return;
90    }
91  *p = '\000';
92
93  language_name = ++p;
94  while (*p != ' ' && *p != '\000')
95    p++;
96  if (*p == '\000')
97    {
98      as_bad (_(".compiler directive missing version"));
99      return;
100    }
101  *p = '\000';
102
103  version_id = ++p;
104  while (*p != '\000')
105    p++;
106  /* Remove the trailing quote.  */
107  *(--p) = '\000';
108
109  compiler_seen = 1;
110  if (! bfd_som_attach_compilation_unit (stdoutput, filename, language_name,
111					 "GNU Tools", version_id))
112    {
113      bfd_perror (stdoutput->filename);
114      as_fatal (_("FATAL: Attaching compiler header %s"), stdoutput->filename);
115    }
116  *input_line_pointer = c;
117  demand_empty_rest_of_line ();
118}
119
120/* Handle a .version directive.  */
121
122void
123obj_som_version (int unused ATTRIBUTE_UNUSED)
124{
125  char *version, c;
126
127  if (version_seen)
128    {
129      as_bad (_("Only one .version pseudo-op per file!"));
130      ignore_rest_of_line ();
131      return;
132    }
133
134  SKIP_WHITESPACE ();
135  if (*input_line_pointer == '\"')
136    {
137      version = input_line_pointer;
138      ++input_line_pointer;
139      while (is_a_char (next_char_of_string ()))
140	;
141      c = *input_line_pointer;
142      *input_line_pointer = '\000';
143    }
144  else
145    {
146      as_bad (_("Expected quoted string"));
147      ignore_rest_of_line ();
148      return;
149    }
150
151  version_seen = 1;
152  if (!bfd_som_attach_aux_hdr (stdoutput, VERSION_AUX_ID, version))
153    as_fatal (_("attaching version header %s: %s"),
154	      stdoutput->filename, bfd_errmsg (bfd_get_error ()));
155
156  *input_line_pointer = c;
157  demand_empty_rest_of_line ();
158}
159
160/* Handle a .copyright directive.   This probably isn't complete, but
161   it's of dubious value anyway and (IMHO) not worth the time to finish.
162   If you care about copyright strings that much, you fix it.  */
163
164void
165obj_som_copyright (int unused ATTRIBUTE_UNUSED)
166{
167  char *copyright, c;
168
169  if (copyright_seen)
170    {
171      as_bad (_("Only one .copyright pseudo-op per file!"));
172      ignore_rest_of_line ();
173      return;
174    }
175
176  SKIP_WHITESPACE ();
177  if (*input_line_pointer == '\"')
178    {
179      copyright = input_line_pointer;
180      ++input_line_pointer;
181      while (is_a_char (next_char_of_string ()))
182	;
183      c = *input_line_pointer;
184      *input_line_pointer = '\000';
185    }
186  else
187    {
188      as_bad (_("Expected quoted string"));
189      ignore_rest_of_line ();
190      return;
191    }
192
193  copyright_seen = 1;
194  if (!bfd_som_attach_aux_hdr (stdoutput, COPYRIGHT_AUX_ID, copyright))
195    as_fatal (_("attaching copyright header %s: %s"),
196	      stdoutput->filename, bfd_errmsg (bfd_get_error ()));
197
198  *input_line_pointer = c;
199  demand_empty_rest_of_line ();
200}
201
202/* Perform any initialization necessary for stabs support.
203
204   For SOM we need to create the space which will contain the
205   two stabs subspaces.  Additionally we need to set up the
206   space/subspace relationships and set space/subspace attributes
207   which BFD does not understand.  */
208
209void
210obj_som_init_stab_section (segT seg)
211{
212  segT saved_seg = now_seg;
213  segT space;
214  subsegT saved_subseg = now_subseg;
215  char *p, *file;
216  unsigned int stroff;
217
218  /* Make the space which will contain the debug subspaces.  */
219  space = bfd_make_section_old_way (stdoutput, "$GDB_DEBUG$");
220
221  /* Set SOM specific attributes for the space.  In particular we set
222     the space "defined", "private", "sort_key", and "spnum" values.
223
224     Due to a bug in pxdb (called by hpux linker), the sort keys
225     of the various stabs spaces/subspaces need to be "small".  We
226     reserve range 72/73 which appear to work well.  */
227  obj_set_section_attributes (space, 1, 1, 72, 2);
228  bfd_set_section_alignment (stdoutput, space, 2);
229
230  /* Set the containing space for both stab sections to be $GDB_DEBUG$
231     (just created above).  Also set some attributes which BFD does
232     not understand.  In particular, access bits, sort keys, and load
233     quadrant.  */
234  obj_set_subsection_attributes (seg, space, 0x1f, 73, 0, 0, 0, 0);
235  bfd_set_section_alignment (stdoutput, seg, 2);
236
237  /* Make some space for the first special stab entry and zero the memory.
238     It contains information about the length of this file's
239     stab string and the like.  Using it avoids the need to
240     relocate the stab strings.
241
242     The $GDB_STRINGS$ space will be created as a side effect of
243     the call to get_stab_string_offset.  */
244  p = frag_more (12);
245  memset (p, 0, 12);
246  as_where (&file, (unsigned int *) NULL);
247  stroff = get_stab_string_offset (file, "$GDB_STRINGS$");
248  know (stroff == 1);
249  md_number_to_chars (p, stroff, 4);
250  seg_info (seg)->stabu.p = p;
251
252  /* Set the containing space for both stab sections to be $GDB_DEBUG$
253     (just created above).  Also set some attributes which BFD does
254     not understand.  In particular, access bits, sort keys, and load
255     quadrant.  */
256  seg = bfd_get_section_by_name (stdoutput, "$GDB_STRINGS$");
257  obj_set_subsection_attributes (seg, space, 0x1f, 72, 0, 0, 0, 0);
258  bfd_set_section_alignment (stdoutput, seg, 2);
259
260  subseg_set (saved_seg, saved_subseg);
261}
262
263/* Fill in the counts in the first entry in a .stabs section.  */
264
265static void
266adjust_stab_sections (bfd *abfd, asection *sec, void *xxx ATTRIBUTE_UNUSED)
267{
268  asection *strsec;
269  char *p;
270  int strsz, nsyms;
271
272  if (strcmp ("$GDB_SYMBOLS$", sec->name))
273    return;
274
275  strsec = bfd_get_section_by_name (abfd, "$GDB_STRINGS$");
276  if (strsec)
277    strsz = bfd_section_size (abfd, strsec);
278  else
279    strsz = 0;
280  nsyms = bfd_section_size (abfd, sec) / 12 - 1;
281
282  p = seg_info (sec)->stabu.p;
283  gas_assert (p != 0);
284
285  bfd_h_put_16 (abfd, (bfd_vma) nsyms, (bfd_byte *) p + 6);
286  bfd_h_put_32 (abfd, (bfd_vma) strsz, (bfd_byte *) p + 8);
287}
288
289/* Called late in the assembly phase to adjust the special
290   stab entry and to set the starting address for each code subspace.  */
291
292void
293som_frob_file (void)
294{
295  bfd_map_over_sections (stdoutput, adjust_stab_sections, (void *) 0);
296}
297
298static void
299obj_som_weak (int ignore ATTRIBUTE_UNUSED)
300{
301  char *name;
302  int c;
303  symbolS *symbolP;
304
305  do
306    {
307      name = input_line_pointer;
308      c = get_symbol_end ();
309      symbolP = symbol_find_or_make (name);
310      *input_line_pointer = c;
311      SKIP_WHITESPACE ();
312      S_SET_WEAK (symbolP);
313      if (c == ',')
314	{
315	  input_line_pointer++;
316	  SKIP_WHITESPACE ();
317	  if (*input_line_pointer == '\n')
318	    c = '\n';
319	}
320    }
321  while (c == ',');
322  demand_empty_rest_of_line ();
323}
324
325const pseudo_typeS obj_pseudo_table[] =
326{
327  {"weak", obj_som_weak, 0},
328  {NULL, NULL, 0}
329};
330