gas/config/obj-som.c

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