[binutils.git] / gas / config / obj-som.c

/* SOM object file format.
   Copyright 1993, 1994, 1998, 2000, 2002 Free Software Foundation, Inc.

   This file is part of GAS, the GNU Assembler.

   GAS is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as
   published by the Free Software Foundation; either version 2,
   or (at your option) any later version.

   GAS is distributed in the hope that it will be useful, but
   WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
   the GNU General Public License for more details.

   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
   Software Foundation, 59 Temple Place - Suite 330, Boston, MA
   02111-1307, USA.

   Written by the Center for Software Science at the University of Utah
   and by Cygnus Support.  */

#include "as.h"
#include "subsegs.h"
#include "aout/stab_gnu.h"
#include "obstack.h"

static void obj_som_weak PARAMS ((int));

const pseudo_typeS obj_pseudo_table[] =
{
  {"weak", obj_som_weak, 0},
  {NULL, NULL, 0}
};

static int version_seen = 0;
static int copyright_seen = 0;
static int compiler_seen = 0;

/* Unused by SOM.  */

void
obj_read_begin_hook ()
{
}

/* Handle a .compiler directive.   This is intended to create the
   compilation unit auxiliary header for MPE such that the linkeditor
   can handle SOM extraction from archives. The format of the quoted
   string is "sourcefile language version" and is delimited by blanks.  */

void
obj_som_compiler (unused)
     int unused;
{
  char *buf;
  char c;
  char *filename;
  char *language_name;
  char *p;
  char *version_id;

  if (compiler_seen)
    {
      as_bad ("Only one .compiler pseudo-op per file!");
      ignore_rest_of_line ();
      return;
    }

  SKIP_WHITESPACE ();
  if (*input_line_pointer == '\"')
    {
      buf = input_line_pointer;
      ++input_line_pointer;
      while (is_a_char (next_char_of_string ()))
	;
      c = *input_line_pointer;
      *input_line_pointer = '\000';
    }
  else
    {
      as_bad ("Expected quoted string");
      ignore_rest_of_line ();
      return;
    }

  /* Parse the quoted string into its component parts.  Skip the
     quote.  */
  filename = buf + 1;
  p = filename;
  while (*p != ' ' && *p != '\000')
    p++;
  if (*p == '\000')
    {
      as_bad (".compiler directive missing language and version");
      return;
    }
  *p = '\000';

  language_name = ++p;
  while (*p != ' ' && *p != '\000')
    p++;
  if (*p == '\000')
    {
      as_bad (".compiler directive missing version");
      return;
    }
  *p = '\000';

  version_id = ++p;
  while (*p != '\000')
    p++;
  /* Remove the trailing quote.  */
  *(--p) = '\000';

  compiler_seen = 1;
  if (! bfd_som_attach_compilation_unit (stdoutput, filename, language_name,
					 "GNU Tools", version_id))
    {
      bfd_perror (stdoutput->filename);
      as_fatal ("FATAL: Attaching compiler header %s", stdoutput->filename);
    }
  *input_line_pointer = c;
  demand_empty_rest_of_line ();
}

/* Handle a .version directive.  */

void
obj_som_version (unused)
     int unused;
{
  char *version, c;

  if (version_seen)
    {
      as_bad (_("Only one .version pseudo-op per file!"));
      ignore_rest_of_line ();
      return;
    }

  SKIP_WHITESPACE ();
  if (*input_line_pointer == '\"')
    {
      version = input_line_pointer;
      ++input_line_pointer;
      while (is_a_char (next_char_of_string ()))
	;
      c = *input_line_pointer;
      *input_line_pointer = '\000';
    }
  else
    {
      as_bad (_("Expected quoted string"));
      ignore_rest_of_line ();
      return;
    }

  version_seen = 1;
  if (!bfd_som_attach_aux_hdr (stdoutput, VERSION_AUX_ID, version))
    {
      bfd_perror (stdoutput->filename);
      as_perror (_("FATAL: Attaching version header %s"),
		 stdoutput->filename);
      exit (EXIT_FAILURE);
    }
  *input_line_pointer = c;
  demand_empty_rest_of_line ();
}

/* Handle a .copyright directive.   This probably isn't complete, but
   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.  */

void
obj_som_copyright (unused)
     int unused;
{
  char *copyright, c;

  if (copyright_seen)
    {
      as_bad (_("Only one .copyright pseudo-op per file!"));
      ignore_rest_of_line ();
      return;
    }

  SKIP_WHITESPACE ();
  if (*input_line_pointer == '\"')
    {
      copyright = input_line_pointer;
      ++input_line_pointer;
      while (is_a_char (next_char_of_string ()))
	;
      c = *input_line_pointer;
      *input_line_pointer = '\000';
    }
  else
    {
      as_bad (_("Expected quoted string"));
      ignore_rest_of_line ();
      return;
    }

  copyright_seen = 1;
  if (!bfd_som_attach_aux_hdr (stdoutput, COPYRIGHT_AUX_ID, copyright))
    {
      bfd_perror (stdoutput->filename);
      as_perror (_("FATAL: Attaching copyright header %s"),
		 stdoutput->filename);
      exit (EXIT_FAILURE);
    }
  *input_line_pointer = c;
  demand_empty_rest_of_line ();
}

/* Perform any initialization necessary for stabs support.

   For SOM we need to create the space which will contain the
   two stabs subspaces.  Additionally we need to set up the
   space/subspace relationships and set space/subspace attributes
   which BFD does not understand.  */

void
obj_som_init_stab_section (seg)
     segT seg;
{
  segT saved_seg = now_seg;
  segT space;
  subsegT saved_subseg = now_subseg;
  char *p, *file;
  unsigned int stroff;

  /* Make the space which will contain the debug subspaces.  */
  space = bfd_make_section_old_way (stdoutput, "$GDB_DEBUG$");

  /* Set SOM specific attributes for the space.  In particular we set
     the space "defined", "private", "sort_key", and "spnum" values.

     Due to a bug in pxdb (called by hpux linker), the sort keys
     of the various stabs spaces/subspaces need to be "small".  We
     reserve range 72/73 which appear to work well.  */
  obj_set_section_attributes (space, 1, 1, 72, 2);
  bfd_set_section_alignment (stdoutput, space, 2);

  /* Set the containing space for both stab sections to be $GDB_DEBUG$
     (just created above).  Also set some attributes which BFD does
     not understand.  In particular, access bits, sort keys, and load
     quadrant.  */
  obj_set_subsection_attributes (seg, space, 0x1f, 73, 0);
  bfd_set_section_alignment (stdoutput, seg, 2);

  /* Make some space for the first special stab entry and zero the memory.
     It contains information about the length of this file's
     stab string and the like.  Using it avoids the need to
     relocate the stab strings.

     The $GDB_STRINGS$ space will be created as a side effect of
     the call to get_stab_string_offset.  */
  p = frag_more (12);
  memset (p, 0, 12);
  as_where (&file, (unsigned int *) NULL);
  stroff = get_stab_string_offset (file, "$GDB_STRINGS$");
  know (stroff == 1);
  md_number_to_chars (p, stroff, 4);
  seg_info (seg)->stabu.p = p;

  /* Set the containing space for both stab sections to be $GDB_DEBUG$
     (just created above).  Also set some attributes which BFD does
     not understand.  In particular, access bits, sort keys, and load
     quadrant.  */
  seg = bfd_get_section_by_name (stdoutput, "$GDB_STRINGS$");
  obj_set_subsection_attributes (seg, space, 0x1f, 72, 0);
  bfd_set_section_alignment (stdoutput, seg, 2);

  subseg_set (saved_seg, saved_subseg);
}

/* Fill in the counts in the first entry in a .stabs section.  */

static void
adjust_stab_sections (abfd, sec, xxx)
     bfd *abfd;
     asection *sec;
     PTR xxx;
{
  asection *strsec;
  char *p;
  int strsz, nsyms;

  if (strcmp ("$GDB_SYMBOLS$", sec->name))
    return;

  strsec = bfd_get_section_by_name (abfd, "$GDB_STRINGS$");
  if (strsec)
    strsz = bfd_section_size (abfd, strsec);
  else
    strsz = 0;
  nsyms = bfd_section_size (abfd, sec) / 12 - 1;

  p = seg_info (sec)->stabu.p;
  assert (p != 0);

  bfd_h_put_16 (abfd, (bfd_vma) nsyms, (bfd_byte *) p + 6);
  bfd_h_put_32 (abfd, (bfd_vma) strsz, (bfd_byte *) p + 8);
}

/* Called late in the asssembly phase to adjust the special
   stab entry and to set the starting address for each code subspace.  */

void
som_frob_file ()
{
  bfd_map_over_sections (stdoutput, adjust_stab_sections, (PTR) 0);
}

static void
obj_som_weak (ignore)
     int ignore ATTRIBUTE_UNUSED;
{
  char *name;
  int c;
  symbolS *symbolP;

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