/* SOM object file format.
|
/* SOM object file format.
|
Copyright 1993, 1994, 1998, 2000, 2002, 2003, 2004, 2005, 2006,
|
Copyright 1993, 1994, 1998, 2000, 2002, 2003, 2004, 2005, 2006,
|
2007 Free Software Foundation, Inc.
|
2007 Free Software Foundation, Inc.
|
|
|
This file is part of GAS, the GNU Assembler.
|
This file is part of GAS, the GNU Assembler.
|
|
|
GAS is free software; you can redistribute it and/or modify
|
GAS is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as
|
it under the terms of the GNU General Public License as
|
published by the Free Software Foundation; either version 3,
|
published by the Free Software Foundation; either version 3,
|
or (at your option) any later version.
|
or (at your option) any later version.
|
|
|
GAS is distributed in the hope that it will be useful, but
|
GAS is distributed in the hope that it will be useful, but
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
|
the GNU General Public License for more details.
|
the GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with GAS; see the file COPYING. If not, write to the Free
|
along with GAS; see the file COPYING. If not, write to the Free
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
02110-1301, USA.
|
02110-1301, USA.
|
|
|
Written by the Center for Software Science at the University of Utah
|
Written by the Center for Software Science at the University of Utah
|
and by Cygnus Support. */
|
and by Cygnus Support. */
|
|
|
#include "as.h"
|
#include "as.h"
|
#include "subsegs.h"
|
#include "subsegs.h"
|
#include "aout/stab_gnu.h"
|
#include "aout/stab_gnu.h"
|
#include "obstack.h"
|
#include "obstack.h"
|
|
|
static int version_seen = 0;
|
static int version_seen = 0;
|
static int copyright_seen = 0;
|
static int copyright_seen = 0;
|
static int compiler_seen = 0;
|
static int compiler_seen = 0;
|
|
|
/* Unused by SOM. */
|
/* Unused by SOM. */
|
|
|
void
|
void
|
obj_read_begin_hook (void)
|
obj_read_begin_hook (void)
|
{
|
{
|
}
|
}
|
|
|
/* Handle a .compiler directive. This is intended to create the
|
/* Handle a .compiler directive. This is intended to create the
|
compilation unit auxiliary header for MPE such that the linkeditor
|
compilation unit auxiliary header for MPE such that the linkeditor
|
can handle SOM extraction from archives. The format of the quoted
|
can handle SOM extraction from archives. The format of the quoted
|
string is "sourcefile language version" and is delimited by blanks. */
|
string is "sourcefile language version" and is delimited by blanks. */
|
|
|
void
|
void
|
obj_som_compiler (int unused ATTRIBUTE_UNUSED)
|
obj_som_compiler (int unused ATTRIBUTE_UNUSED)
|
{
|
{
|
char *buf;
|
char *buf;
|
char c;
|
char c;
|
char *filename;
|
char *filename;
|
char *language_name;
|
char *language_name;
|
char *p;
|
char *p;
|
char *version_id;
|
char *version_id;
|
|
|
if (compiler_seen)
|
if (compiler_seen)
|
{
|
{
|
as_bad (_("Only one .compiler pseudo-op per file!"));
|
as_bad (_("Only one .compiler pseudo-op per file!"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == '\"')
|
if (*input_line_pointer == '\"')
|
{
|
{
|
buf = input_line_pointer;
|
buf = input_line_pointer;
|
++input_line_pointer;
|
++input_line_pointer;
|
while (is_a_char (next_char_of_string ()))
|
while (is_a_char (next_char_of_string ()))
|
;
|
;
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
*input_line_pointer = '\000';
|
*input_line_pointer = '\000';
|
}
|
}
|
else
|
else
|
{
|
{
|
as_bad (_("Expected quoted string"));
|
as_bad (_("Expected quoted string"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
/* Parse the quoted string into its component parts. Skip the
|
/* Parse the quoted string into its component parts. Skip the
|
quote. */
|
quote. */
|
filename = buf + 1;
|
filename = buf + 1;
|
p = filename;
|
p = filename;
|
while (*p != ' ' && *p != '\000')
|
while (*p != ' ' && *p != '\000')
|
p++;
|
p++;
|
if (*p == '\000')
|
if (*p == '\000')
|
{
|
{
|
as_bad (_(".compiler directive missing language and version"));
|
as_bad (_(".compiler directive missing language and version"));
|
return;
|
return;
|
}
|
}
|
*p = '\000';
|
*p = '\000';
|
|
|
language_name = ++p;
|
language_name = ++p;
|
while (*p != ' ' && *p != '\000')
|
while (*p != ' ' && *p != '\000')
|
p++;
|
p++;
|
if (*p == '\000')
|
if (*p == '\000')
|
{
|
{
|
as_bad (_(".compiler directive missing version"));
|
as_bad (_(".compiler directive missing version"));
|
return;
|
return;
|
}
|
}
|
*p = '\000';
|
*p = '\000';
|
|
|
version_id = ++p;
|
version_id = ++p;
|
while (*p != '\000')
|
while (*p != '\000')
|
p++;
|
p++;
|
/* Remove the trailing quote. */
|
/* Remove the trailing quote. */
|
*(--p) = '\000';
|
*(--p) = '\000';
|
|
|
compiler_seen = 1;
|
compiler_seen = 1;
|
if (! bfd_som_attach_compilation_unit (stdoutput, filename, language_name,
|
if (! bfd_som_attach_compilation_unit (stdoutput, filename, language_name,
|
"GNU Tools", version_id))
|
"GNU Tools", version_id))
|
{
|
{
|
bfd_perror (stdoutput->filename);
|
bfd_perror (stdoutput->filename);
|
as_fatal (_("FATAL: Attaching compiler header %s"), stdoutput->filename);
|
as_fatal (_("FATAL: Attaching compiler header %s"), stdoutput->filename);
|
}
|
}
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle a .version directive. */
|
/* Handle a .version directive. */
|
|
|
void
|
void
|
obj_som_version (int unused ATTRIBUTE_UNUSED)
|
obj_som_version (int unused ATTRIBUTE_UNUSED)
|
{
|
{
|
char *version, c;
|
char *version, c;
|
|
|
if (version_seen)
|
if (version_seen)
|
{
|
{
|
as_bad (_("Only one .version pseudo-op per file!"));
|
as_bad (_("Only one .version pseudo-op per file!"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == '\"')
|
if (*input_line_pointer == '\"')
|
{
|
{
|
version = input_line_pointer;
|
version = input_line_pointer;
|
++input_line_pointer;
|
++input_line_pointer;
|
while (is_a_char (next_char_of_string ()))
|
while (is_a_char (next_char_of_string ()))
|
;
|
;
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
*input_line_pointer = '\000';
|
*input_line_pointer = '\000';
|
}
|
}
|
else
|
else
|
{
|
{
|
as_bad (_("Expected quoted string"));
|
as_bad (_("Expected quoted string"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
version_seen = 1;
|
version_seen = 1;
|
if (!bfd_som_attach_aux_hdr (stdoutput, VERSION_AUX_ID, version))
|
if (!bfd_som_attach_aux_hdr (stdoutput, VERSION_AUX_ID, version))
|
as_fatal (_("attaching version header %s: %s"),
|
as_fatal (_("attaching version header %s: %s"),
|
stdoutput->filename, bfd_errmsg (bfd_get_error ()));
|
stdoutput->filename, bfd_errmsg (bfd_get_error ()));
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Handle a .copyright directive. This probably isn't complete, but
|
/* Handle a .copyright directive. This probably isn't complete, but
|
it's of dubious value anyway and (IMHO) not worth the time to finish.
|
it's of dubious value anyway and (IMHO) not worth the time to finish.
|
If you care about copyright strings that much, you fix it. */
|
If you care about copyright strings that much, you fix it. */
|
|
|
void
|
void
|
obj_som_copyright (int unused ATTRIBUTE_UNUSED)
|
obj_som_copyright (int unused ATTRIBUTE_UNUSED)
|
{
|
{
|
char *copyright, c;
|
char *copyright, c;
|
|
|
if (copyright_seen)
|
if (copyright_seen)
|
{
|
{
|
as_bad (_("Only one .copyright pseudo-op per file!"));
|
as_bad (_("Only one .copyright pseudo-op per file!"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == '\"')
|
if (*input_line_pointer == '\"')
|
{
|
{
|
copyright = input_line_pointer;
|
copyright = input_line_pointer;
|
++input_line_pointer;
|
++input_line_pointer;
|
while (is_a_char (next_char_of_string ()))
|
while (is_a_char (next_char_of_string ()))
|
;
|
;
|
c = *input_line_pointer;
|
c = *input_line_pointer;
|
*input_line_pointer = '\000';
|
*input_line_pointer = '\000';
|
}
|
}
|
else
|
else
|
{
|
{
|
as_bad (_("Expected quoted string"));
|
as_bad (_("Expected quoted string"));
|
ignore_rest_of_line ();
|
ignore_rest_of_line ();
|
return;
|
return;
|
}
|
}
|
|
|
copyright_seen = 1;
|
copyright_seen = 1;
|
if (!bfd_som_attach_aux_hdr (stdoutput, COPYRIGHT_AUX_ID, copyright))
|
if (!bfd_som_attach_aux_hdr (stdoutput, COPYRIGHT_AUX_ID, copyright))
|
as_fatal (_("attaching copyright header %s: %s"),
|
as_fatal (_("attaching copyright header %s: %s"),
|
stdoutput->filename, bfd_errmsg (bfd_get_error ()));
|
stdoutput->filename, bfd_errmsg (bfd_get_error ()));
|
|
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
/* Perform any initialization necessary for stabs support.
|
/* Perform any initialization necessary for stabs support.
|
|
|
For SOM we need to create the space which will contain the
|
For SOM we need to create the space which will contain the
|
two stabs subspaces. Additionally we need to set up the
|
two stabs subspaces. Additionally we need to set up the
|
space/subspace relationships and set space/subspace attributes
|
space/subspace relationships and set space/subspace attributes
|
which BFD does not understand. */
|
which BFD does not understand. */
|
|
|
void
|
void
|
obj_som_init_stab_section (segT seg)
|
obj_som_init_stab_section (segT seg)
|
{
|
{
|
segT saved_seg = now_seg;
|
segT saved_seg = now_seg;
|
segT space;
|
segT space;
|
subsegT saved_subseg = now_subseg;
|
subsegT saved_subseg = now_subseg;
|
char *p, *file;
|
char *p, *file;
|
unsigned int stroff;
|
unsigned int stroff;
|
|
|
/* Make the space which will contain the debug subspaces. */
|
/* Make the space which will contain the debug subspaces. */
|
space = bfd_make_section_old_way (stdoutput, "$GDB_DEBUG$");
|
space = bfd_make_section_old_way (stdoutput, "$GDB_DEBUG$");
|
|
|
/* Set SOM specific attributes for the space. In particular we set
|
/* Set SOM specific attributes for the space. In particular we set
|
the space "defined", "private", "sort_key", and "spnum" values.
|
the space "defined", "private", "sort_key", and "spnum" values.
|
|
|
Due to a bug in pxdb (called by hpux linker), the sort keys
|
Due to a bug in pxdb (called by hpux linker), the sort keys
|
of the various stabs spaces/subspaces need to be "small". We
|
of the various stabs spaces/subspaces need to be "small". We
|
reserve range 72/73 which appear to work well. */
|
reserve range 72/73 which appear to work well. */
|
obj_set_section_attributes (space, 1, 1, 72, 2);
|
obj_set_section_attributes (space, 1, 1, 72, 2);
|
bfd_set_section_alignment (stdoutput, space, 2);
|
bfd_set_section_alignment (stdoutput, space, 2);
|
|
|
/* Set the containing space for both stab sections to be $GDB_DEBUG$
|
/* Set the containing space for both stab sections to be $GDB_DEBUG$
|
(just created above). Also set some attributes which BFD does
|
(just created above). Also set some attributes which BFD does
|
not understand. In particular, access bits, sort keys, and load
|
not understand. In particular, access bits, sort keys, and load
|
quadrant. */
|
quadrant. */
|
obj_set_subsection_attributes (seg, space, 0x1f, 73, 0, 0, 0, 0);
|
obj_set_subsection_attributes (seg, space, 0x1f, 73, 0, 0, 0, 0);
|
bfd_set_section_alignment (stdoutput, seg, 2);
|
bfd_set_section_alignment (stdoutput, seg, 2);
|
|
|
/* Make some space for the first special stab entry and zero the memory.
|
/* Make some space for the first special stab entry and zero the memory.
|
It contains information about the length of this file's
|
It contains information about the length of this file's
|
stab string and the like. Using it avoids the need to
|
stab string and the like. Using it avoids the need to
|
relocate the stab strings.
|
relocate the stab strings.
|
|
|
The $GDB_STRINGS$ space will be created as a side effect of
|
The $GDB_STRINGS$ space will be created as a side effect of
|
the call to get_stab_string_offset. */
|
the call to get_stab_string_offset. */
|
p = frag_more (12);
|
p = frag_more (12);
|
memset (p, 0, 12);
|
memset (p, 0, 12);
|
as_where (&file, (unsigned int *) NULL);
|
as_where (&file, (unsigned int *) NULL);
|
stroff = get_stab_string_offset (file, "$GDB_STRINGS$");
|
stroff = get_stab_string_offset (file, "$GDB_STRINGS$");
|
know (stroff == 1);
|
know (stroff == 1);
|
md_number_to_chars (p, stroff, 4);
|
md_number_to_chars (p, stroff, 4);
|
seg_info (seg)->stabu.p = p;
|
seg_info (seg)->stabu.p = p;
|
|
|
/* Set the containing space for both stab sections to be $GDB_DEBUG$
|
/* Set the containing space for both stab sections to be $GDB_DEBUG$
|
(just created above). Also set some attributes which BFD does
|
(just created above). Also set some attributes which BFD does
|
not understand. In particular, access bits, sort keys, and load
|
not understand. In particular, access bits, sort keys, and load
|
quadrant. */
|
quadrant. */
|
seg = bfd_get_section_by_name (stdoutput, "$GDB_STRINGS$");
|
seg = bfd_get_section_by_name (stdoutput, "$GDB_STRINGS$");
|
obj_set_subsection_attributes (seg, space, 0x1f, 72, 0, 0, 0, 0);
|
obj_set_subsection_attributes (seg, space, 0x1f, 72, 0, 0, 0, 0);
|
bfd_set_section_alignment (stdoutput, seg, 2);
|
bfd_set_section_alignment (stdoutput, seg, 2);
|
|
|
subseg_set (saved_seg, saved_subseg);
|
subseg_set (saved_seg, saved_subseg);
|
}
|
}
|
|
|
/* Fill in the counts in the first entry in a .stabs section. */
|
/* Fill in the counts in the first entry in a .stabs section. */
|
|
|
static void
|
static void
|
adjust_stab_sections (bfd *abfd, asection *sec, PTR xxx ATTRIBUTE_UNUSED)
|
adjust_stab_sections (bfd *abfd, asection *sec, PTR xxx ATTRIBUTE_UNUSED)
|
{
|
{
|
asection *strsec;
|
asection *strsec;
|
char *p;
|
char *p;
|
int strsz, nsyms;
|
int strsz, nsyms;
|
|
|
if (strcmp ("$GDB_SYMBOLS$", sec->name))
|
if (strcmp ("$GDB_SYMBOLS$", sec->name))
|
return;
|
return;
|
|
|
strsec = bfd_get_section_by_name (abfd, "$GDB_STRINGS$");
|
strsec = bfd_get_section_by_name (abfd, "$GDB_STRINGS$");
|
if (strsec)
|
if (strsec)
|
strsz = bfd_section_size (abfd, strsec);
|
strsz = bfd_section_size (abfd, strsec);
|
else
|
else
|
strsz = 0;
|
strsz = 0;
|
nsyms = bfd_section_size (abfd, sec) / 12 - 1;
|
nsyms = bfd_section_size (abfd, sec) / 12 - 1;
|
|
|
p = seg_info (sec)->stabu.p;
|
p = seg_info (sec)->stabu.p;
|
assert (p != 0);
|
assert (p != 0);
|
|
|
bfd_h_put_16 (abfd, (bfd_vma) nsyms, (bfd_byte *) p + 6);
|
bfd_h_put_16 (abfd, (bfd_vma) nsyms, (bfd_byte *) p + 6);
|
bfd_h_put_32 (abfd, (bfd_vma) strsz, (bfd_byte *) p + 8);
|
bfd_h_put_32 (abfd, (bfd_vma) strsz, (bfd_byte *) p + 8);
|
}
|
}
|
|
|
/* Called late in the assembly phase to adjust the special
|
/* Called late in the assembly phase to adjust the special
|
stab entry and to set the starting address for each code subspace. */
|
stab entry and to set the starting address for each code subspace. */
|
|
|
void
|
void
|
som_frob_file (void)
|
som_frob_file (void)
|
{
|
{
|
bfd_map_over_sections (stdoutput, adjust_stab_sections, (PTR) 0);
|
bfd_map_over_sections (stdoutput, adjust_stab_sections, (PTR) 0);
|
}
|
}
|
|
|
static void
|
static void
|
obj_som_weak (int ignore ATTRIBUTE_UNUSED)
|
obj_som_weak (int ignore ATTRIBUTE_UNUSED)
|
{
|
{
|
char *name;
|
char *name;
|
int c;
|
int c;
|
symbolS *symbolP;
|
symbolS *symbolP;
|
|
|
do
|
do
|
{
|
{
|
name = input_line_pointer;
|
name = input_line_pointer;
|
c = get_symbol_end ();
|
c = get_symbol_end ();
|
symbolP = symbol_find_or_make (name);
|
symbolP = symbol_find_or_make (name);
|
*input_line_pointer = c;
|
*input_line_pointer = c;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
S_SET_WEAK (symbolP);
|
S_SET_WEAK (symbolP);
|
if (c == ',')
|
if (c == ',')
|
{
|
{
|
input_line_pointer++;
|
input_line_pointer++;
|
SKIP_WHITESPACE ();
|
SKIP_WHITESPACE ();
|
if (*input_line_pointer == '\n')
|
if (*input_line_pointer == '\n')
|
c = '\n';
|
c = '\n';
|
}
|
}
|
}
|
}
|
while (c == ',');
|
while (c == ',');
|
demand_empty_rest_of_line ();
|
demand_empty_rest_of_line ();
|
}
|
}
|
|
|
const pseudo_typeS obj_pseudo_table[] =
|
const pseudo_typeS obj_pseudo_table[] =
|
{
|
{
|
{"weak", obj_som_weak, 0},
|
{"weak", obj_som_weak, 0},
|
{NULL, NULL, 0}
|
{NULL, NULL, 0}
|
};
|
};
|
|
|
