1 /* SOM object file format.
2 Copyright 1993, 1994, 1998, 2000, 2002, 2003, 2004, 2005, 2006,
3 2007 Free Software Foundation, Inc.
5 This file is part of GAS, the GNU Assembler.
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.
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.
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
22 Written by the Center for Software Science at the University of Utah
23 and by Cygnus Support. */
27 #include "aout/stab_gnu.h"
30 static int version_seen
= 0;
31 static int copyright_seen
= 0;
32 static int compiler_seen
= 0;
37 obj_read_begin_hook (void)
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. */
47 obj_som_compiler (int unused ATTRIBUTE_UNUSED
)
58 as_bad ("Only one .compiler pseudo-op per file!");
59 ignore_rest_of_line ();
64 if (*input_line_pointer
== '\"')
66 buf
= input_line_pointer
;
68 while (is_a_char (next_char_of_string ()))
70 c
= *input_line_pointer
;
71 *input_line_pointer
= '\000';
75 as_bad ("Expected quoted string");
76 ignore_rest_of_line ();
80 /* Parse the quoted string into its component parts. Skip the
84 while (*p
!= ' ' && *p
!= '\000')
88 as_bad (".compiler directive missing language and version");
94 while (*p
!= ' ' && *p
!= '\000')
98 as_bad (".compiler directive missing version");
106 /* Remove the trailing quote. */
110 if (! bfd_som_attach_compilation_unit (stdoutput
, filename
, language_name
,
111 "GNU Tools", version_id
))
113 bfd_perror (stdoutput
->filename
);
114 as_fatal ("FATAL: Attaching compiler header %s", stdoutput
->filename
);
116 *input_line_pointer
= c
;
117 demand_empty_rest_of_line ();
120 /* Handle a .version directive. */
123 obj_som_version (int unused ATTRIBUTE_UNUSED
)
129 as_bad (_("Only one .version pseudo-op per file!"));
130 ignore_rest_of_line ();
135 if (*input_line_pointer
== '\"')
137 version
= input_line_pointer
;
138 ++input_line_pointer
;
139 while (is_a_char (next_char_of_string ()))
141 c
= *input_line_pointer
;
142 *input_line_pointer
= '\000';
146 as_bad (_("Expected quoted string"));
147 ignore_rest_of_line ();
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 ()));
156 *input_line_pointer
= c
;
157 demand_empty_rest_of_line ();
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. */
165 obj_som_copyright (int unused ATTRIBUTE_UNUSED
)
171 as_bad (_("Only one .copyright pseudo-op per file!"));
172 ignore_rest_of_line ();
177 if (*input_line_pointer
== '\"')
179 copyright
= input_line_pointer
;
180 ++input_line_pointer
;
181 while (is_a_char (next_char_of_string ()))
183 c
= *input_line_pointer
;
184 *input_line_pointer
= '\000';
188 as_bad (_("Expected quoted string"));
189 ignore_rest_of_line ();
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 ()));
198 *input_line_pointer
= c
;
199 demand_empty_rest_of_line ();
202 /* Perform any initialization necessary for stabs support.
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. */
210 obj_som_init_stab_section (segT seg
)
212 segT saved_seg
= now_seg
;
214 subsegT saved_subseg
= now_subseg
;
218 /* Make the space which will contain the debug subspaces. */
219 space
= bfd_make_section_old_way (stdoutput
, "$GDB_DEBUG$");
221 /* Set SOM specific attributes for the space. In particular we set
222 the space "defined", "private", "sort_key", and "spnum" values.
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);
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
234 obj_set_subsection_attributes (seg
, space
, 0x1f, 73, 0, 0, 0, 0);
235 bfd_set_section_alignment (stdoutput
, seg
, 2);
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.
242 The $GDB_STRINGS$ space will be created as a side effect of
243 the call to get_stab_string_offset. */
246 as_where (&file
, (unsigned int *) NULL
);
247 stroff
= get_stab_string_offset (file
, "$GDB_STRINGS$");
249 md_number_to_chars (p
, stroff
, 4);
250 seg_info (seg
)->stabu
.p
= p
;
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
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);
260 subseg_set (saved_seg
, saved_subseg
);
263 /* Fill in the counts in the first entry in a .stabs section. */
266 adjust_stab_sections (bfd
*abfd
, asection
*sec
, PTR xxx ATTRIBUTE_UNUSED
)
272 if (strcmp ("$GDB_SYMBOLS$", sec
->name
))
275 strsec
= bfd_get_section_by_name (abfd
, "$GDB_STRINGS$");
277 strsz
= bfd_section_size (abfd
, strsec
);
280 nsyms
= bfd_section_size (abfd
, sec
) / 12 - 1;
282 p
= seg_info (sec
)->stabu
.p
;
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);
289 /* Called late in the assembly phase to adjust the special
290 stab entry and to set the starting address for each code subspace. */
295 bfd_map_over_sections (stdoutput
, adjust_stab_sections
, (PTR
) 0);
299 obj_som_weak (int ignore ATTRIBUTE_UNUSED
)
307 name
= input_line_pointer
;
308 c
= get_symbol_end ();
309 symbolP
= symbol_find_or_make (name
);
310 *input_line_pointer
= c
;
312 S_SET_WEAK (symbolP
);
315 input_line_pointer
++;
317 if (*input_line_pointer
== '\n')
322 demand_empty_rest_of_line ();
325 const pseudo_typeS obj_pseudo_table
[] =
327 {"weak", obj_som_weak
, 0},