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

/* SOM object file format.
   Copyright (C) 1993 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, 675 Mass Ave, Cambridge, MA 02139, 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"

/* SOM does not need any pseudo-ops.  */

const pseudo_typeS obj_pseudo_table[] =
{
  {NULL}
};

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

/* Unused by SOM.  */
void obj_read_begin_hook () {}

/* 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;
  bfd_som_attach_aux_hdr (stdoutput, VERSION_AUX_ID, version);
  *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;
  bfd_som_attach_aux_hdr (stdoutput, COPYRIGHT_AUX_ID, copyright);
  *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 stab entry which is special.
     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);
  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);
}

#if 0
/* Adjust the VMA address for each $CODE$ subspace.  */
static void
adjust_code_sections (abfd, sec, xxx)
     bfd *abfd;
     asection *sec;
     PTR xxx;
{
  static unsigned size_so_far = 0;

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

  bfd_set_section_vma (stdoutput, sec, size_so_far);
  size_so_far += bfd_get_section_size_before_reloc (sec);
}
#endif

/* 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);
#if 0
  See comment in tc-hppa.c:pa_proc about GDB lossage
  bfd_map_over_sections (stdoutput, adjust_code_sections, (PTR) 0);
#endif
}
Commit	Line	Data
0fa747c4 JL	1	/* SOM object file format.
	2	Copyright (C) 1993 Free Software Foundation, Inc.
	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
	17	License along with GAS; see the file COPYING. If not, write
	18	to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
	19
	20	Written by the Center for Software Science at the University of Utah
	21	and by Cygnus Support. */
	22
	23	#include "as.h"
	24	#include "subsegs.h"
	25	#include "aout/stab_gnu.h"
	26	#include "obstack.h"
	27
	28	/* SOM does not need any pseudo-ops. */
	29
	30	const pseudo_typeS obj_pseudo_table[] =
	31	{
	32	{NULL}
	33	};
	34
eb91665b JL	35	static int version_seen = 0;
	36	static int copyright_seen = 0;
	37
86066d06 JL	38	/* Unused by SOM. */
	39	void obj_read_begin_hook () {}
	40
eb91665b	41	/* Handle a .version directive. */
0fa747c4 JL	42
	43	void
	44	obj_som_version (unused)
	45	int unused;
	46	{
eb91665b JL	47	char *version, c;
	48
	49	if (version_seen)
	50	{
	51	as_bad ("Only one .version pseudo-op per file!");
	52	ignore_rest_of_line ();
	53	return;
	54	}
	55
42ecb409	56	SKIP_WHITESPACE ();
0fa747c4 JL	57	if (*input_line_pointer == '\"')
0fa747c4 JL	58	{
eb91665b	59	version = input_line_pointer;
0fa747c4 JL	60	++input_line_pointer;
	61	while (is_a_char (next_char_of_string ()))
	62	;
eb91665b JL	63	c = *input_line_pointer;
eb91665b JL	64	*input_line_pointer = '\000';
0fa747c4 JL	65	}
	66	else
	67	{
	68	as_bad ("Expected quoted string");
eb91665b JL	69	ignore_rest_of_line ();
eb91665b JL	70	return;
0fa747c4	71	}
eb91665b JL	72
	73	version_seen = 1;
	74	bfd_som_attach_aux_hdr (stdoutput, VERSION_AUX_ID, version);
	75	*input_line_pointer = c;
	76	demand_empty_rest_of_line ();
	77	}
	78
	79	/* Handle a .copyright directive. This probably isn't complete, but
	80	it's of dubious value anyway and (IMHO) not worth the time to finish.
	81	If you care about copyright strings that much, you fix it. */
	82
	83	void
	84	obj_som_copyright (unused)
	85	int unused;
	86	{
	87	char *copyright, c;
	88
	89	if (copyright_seen)
	90	{
	91	as_bad ("Only one .copyright pseudo-op per file!");
	92	ignore_rest_of_line ();
	93	return;
	94	}
	95
	96	SKIP_WHITESPACE ();
	97	if (*input_line_pointer == '\"')
	98	{
	99	copyright = input_line_pointer;
	100	++input_line_pointer;
	101	while (is_a_char (next_char_of_string ()))
	102	;
	103	c = *input_line_pointer;
	104	*input_line_pointer = '\000';
	105	}
	106	else
	107	{
	108	as_bad ("Expected quoted string");
	109	ignore_rest_of_line ();
	110	return;
	111	}
	112
	113	copyright_seen = 1;
	114	bfd_som_attach_aux_hdr (stdoutput, COPYRIGHT_AUX_ID, copyright);
	115	*input_line_pointer = c;
0fa747c4 JL	116	demand_empty_rest_of_line ();
	117	}
	118
	119	/* Perform any initialization necessary for stabs support.
	120
	121	For SOM we need to create the space which will contain the
	122	two stabs subspaces. Additionally we need to set up the
	123	space/subspace relationships and set space/subspace attributes
	124	which BFD does not understand. */
	125
	126	void
	127	obj_som_init_stab_section (seg)
	128	segT seg;
	129	{
42ecb409 JL	130	segT saved_seg = now_seg;
42ecb409 JL	131	segT space;
0fa747c4	132	subsegT saved_subseg = now_subseg;
42ecb409 JL	133	char p, file;
42ecb409 JL	134	unsigned int stroff;
0fa747c4 JL	135
	136	/* Make the space which will contain the debug subspaces. */
	137	space = bfd_make_section_old_way (stdoutput, "$GDB_DEBUG$");
	138
	139	/* Set SOM specific attributes for the space. In particular we set
42ecb409 JL	140	the space "defined", "private", "sort_key", and "spnum" values.
	141
	142	Due to a bug in pxdb (called by hpux linker), the sort keys
	143	of the various stabs spaces/subspaces need to be "small". We
	144	reserve range 72/73 which appear to work well. */
	145	obj_set_section_attributes (space, 1, 1, 72, 2);
	146	bfd_set_section_alignment (stdoutput, space, 2);
0fa747c4 JL	147
	148	/* Set the containing space for both stab sections to be $GDB_DEBUG$
	149	(just created above). Also set some attributes which BFD does
	150	not understand. In particular, access bits, sort keys, and load
	151	quadrant. */
42ecb409 JL	152	obj_set_subsection_attributes (seg, space, 0x1f, 73, 0);
	153	bfd_set_section_alignment (stdoutput, seg, 2);
	154
	155	/* Make some space for the first stab entry which is special.
	156	It contains information about the length of this file's
	157	stab string and the like. Using it avoids the need to
	158	relocate the stab strings.
	159
	160	The $GDB_STRINGS$ space will be created as a side effect of
	161	the call to get_stab_string_offset. */
	162	p = frag_more (12);
	163	as_where (&file, (unsigned int *) NULL);
	164	stroff = get_stab_string_offset (file, "$GDB_STRINGS$");
	165	know (stroff == 1);
	166	md_number_to_chars (p, stroff, 4);
	167	seg_info (seg)->stabu.p = p;
0fa747c4	168
42ecb409 JL	169	/* Set the containing space for both stab sections to be $GDB_DEBUG$
	170	(just created above). Also set some attributes which BFD does
	171	not understand. In particular, access bits, sort keys, and load
	172	quadrant. */
	173	seg = bfd_get_section_by_name (stdoutput, "$GDB_STRINGS$");
	174	obj_set_subsection_attributes (seg, space, 0x1f, 72, 0);
	175	bfd_set_section_alignment (stdoutput, seg, 2);
0fa747c4 JL	176
	177	subseg_set (saved_seg, saved_subseg);
	178	}
42ecb409 JL	179
	180	/* Fill in the counts in the first entry in a .stabs section. */
	181
	182	static void
	183	adjust_stab_sections (abfd, sec, xxx)
	184	bfd *abfd;
	185	asection *sec;
	186	PTR xxx;
	187	{
	188	asection *strsec;
	189	char *p;
	190	int strsz, nsyms;
	191
	192	if (strcmp ("$GDB_SYMBOLS$", sec->name))
	193	return;
	194
	195	strsec = bfd_get_section_by_name (abfd, "$GDB_STRINGS$");
	196	if (strsec)
	197	strsz = bfd_section_size (abfd, strsec);
	198	else
	199	strsz = 0;
	200	nsyms = bfd_section_size (abfd, sec) / 12 - 1;
	201
	202	p = seg_info (sec)->stabu.p;
	203	assert (p != 0);
	204
	205	bfd_h_put_16 (abfd, (bfd_vma) nsyms, (bfd_byte *) p + 6);
	206	bfd_h_put_32 (abfd, (bfd_vma) strsz, (bfd_byte *) p + 8);
	207	}
	208
2f156c92	209	#if 0
86066d06 JL	210	/* Adjust the VMA address for each $CODE$ subspace. */
	211	static void
	212	adjust_code_sections (abfd, sec, xxx)
	213	bfd *abfd;
	214	asection *sec;
	215	PTR xxx;
	216	{
	217	static unsigned size_so_far = 0;
	218
	219	if (strcmp (sec->name, "$CODE$"))
	220	return;
	221
	222	bfd_set_section_vma (stdoutput, sec, size_so_far);
	223	size_so_far += bfd_get_section_size_before_reloc (sec);
	224	}
2f156c92	225	#endif
86066d06	226
42ecb409	227	/* Called late in the asssembly phase to adjust the special
86066d06	228	stab entry and to set the starting address for each code subspace. */
42ecb409 JL	229
	230	void
	231	som_frob_file ()
	232	{
	233	bfd_map_over_sections (stdoutput, adjust_stab_sections, (PTR) 0);
2f156c92 JL	234	#if 0
2f156c92 JL	235	See comment in tc-hppa.c:pa_proc about GDB lossage
86066d06	236	bfd_map_over_sections (stdoutput, adjust_code_sections, (PTR) 0);
2f156c92	237	#endif
42ecb409	238	}