/* Support for the generic parts of most COFF variants, for BFD.

   Copyright (C) 1990-2023 Free Software Foundation, Inc.

   Written by Cygnus Support.

   This file is part of BFD, the Binary File Descriptor library.

   This program 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 3 of the License, or

   (at your option) any later version.

   This program 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 this program; if not, write to the Free Software

   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,

   MA 02110-1301, USA.  */

/* Most of this hacked by  Steve Chamberlain,

      sac@cygnus.com.  */

/*

SECTION

  coff backends

  BFD supports a number of different flavours of coff format.

  The major differences between formats are the sizes and

  alignments of fields in structures on disk, and the occasional

  extra field.

  Coff in all its varieties is implemented with a few common

  files and a number of implementation specific files. For

  example, the i386 coff format is implemented in the file

  @file{coff-i386.c}.  This file @code{#include}s

  @file{coff/i386.h} which defines the external structure of the

  coff format for the i386, and @file{coff/internal.h} which

  defines the internal structure. @file{coff-i386.c} also

  defines the relocations used by the i386 coff format

  @xref{Relocations}.

SUBSECTION

  Porting to a new version of coff

  The recommended method is to select from the existing

  implementations the version of coff which is most like the one

  you want to use.  For example, we'll say that i386 coff is

  the one you select, and that your coff flavour is called foo.

  Copy @file{i386coff.c} to @file{foocoff.c}, copy

  @file{../include/coff/i386.h} to @file{../include/coff/foo.h},

  and add the lines to @file{targets.c} and @file{Makefile.in}

  so that your new back end is used. Alter the shapes of the

  structures in @file{../include/coff/foo.h} so that they match

  what you need. You will probably also have to add

  @code{#ifdef}s to the code in @file{coff/internal.h} and

  @file{coffcode.h} if your version of coff is too wild.

  You can verify that your new BFD backend works quite simply by

  building @file{objdump} from the @file{binutils} directory,

  and making sure that its version of what's going on and your

  host system's idea (assuming it has the pretty standard coff

  dump utility, usually called @code{att-dump} or just

  @code{dump}) are the same.  Then clean up your code, and send

  what you've done to Cygnus. Then your stuff will be in the

  next release, and you won't have to keep integrating it.

SUBSECTION

  How the coff backend works

SUBSUBSECTION

  File layout

  The Coff backend is split into generic routines that are

  applicable to any Coff target and routines that are specific

  to a particular target.  The target-specific routines are

  further split into ones which are basically the same for all

  Coff targets except that they use the external symbol format

  or use different values for certain constants.

  The generic routines are in @file{coffgen.c}.  These routines

  work for any Coff target.  They use some hooks into the target

  specific code; the hooks are in a @code{bfd_coff_backend_data}

  structure, one of which exists for each target.

  The essentially similar target-specific routines are in

  @file{coffcode.h}.  This header file includes executable C code.

  The various Coff targets first include the appropriate Coff

  header file, make any special defines that are needed, and

  then include @file{coffcode.h}.

  Some of the Coff targets then also have additional routines in

  the target source file itself.

SUBSUBSECTION

  Coff long section names

  In the standard Coff object format, section names are limited to

  the eight bytes available in the @code{s_name} field of the

  @code{SCNHDR} section header structure.  The format requires the

  field to be NUL-padded, but not necessarily NUL-terminated, so

  the longest section names permitted are a full eight characters.

  The Microsoft PE variants of the Coff object file format add

  an extension to support the use of long section names.  This

  extension is defined in section 4 of the Microsoft PE/COFF

  specification (rev 8.1).  If a section name is too long to fit

  into the section header's @code{s_name} field, it is instead

  placed into the string table, and the @code{s_name} field is

  filled with a slash ("/") followed by the ASCII decimal

  representation of the offset of the full name relative to the

  string table base.

  Note that this implies that the extension can only be used in object

  files, as executables do not contain a string table.  The standard

  specifies that long section names from objects emitted into executable

  images are to be truncated.

  However, as a GNU extension, BFD can generate executable images

  that contain a string table and long section names.  This

  would appear to be technically valid, as the standard only says

  that Coff debugging information is deprecated, not forbidden,

  and in practice it works, although some tools that parse PE files

  expecting the MS standard format may become confused; @file{PEview} is

  one known example.

  The functionality is supported in BFD by code implemented under

  the control of the macro @code{COFF_LONG_SECTION_NAMES}.  If not

  defined, the format does not support long section names in any way.

  If defined, it is used to initialise a flag,

  @code{_bfd_coff_long_section_names}, and a hook function pointer,

  @code{_bfd_coff_set_long_section_names}, in the Coff backend data

  structure.  The flag controls the generation of long section names

  in output BFDs at runtime; if it is false, as it will be by default

  when generating an executable image, long section names are truncated;

  if true, the long section names extension is employed.  The hook

  points to a function that allows the value of a copy of the flag

  in coff object tdata to be altered at runtime, on formats that

  support long section names at all; on other formats it points

  to a stub that returns an error indication.

  With input BFDs, the flag is set according to whether any long section

  names are detected while reading the section headers.  For a completely

  new BFD, the flag is set to the default for the target format.  This

  information can be used by a client of the BFD library when deciding

  what output format to generate, and means that a BFD that is opened

  for read and subsequently converted to a writeable BFD and modified

  in-place will retain whatever format it had on input.

  If @code{COFF_LONG_SECTION_NAMES} is simply defined (blank), or is

  defined to the value "1", then long section names are enabled by

  default; if it is defined to the value zero, they are disabled by

  default (but still accepted in input BFDs).  The header @file{coffcode.h}

  defines a macro, @code{COFF_DEFAULT_LONG_SECTION_NAMES}, which is

  used in the backends to initialise the backend data structure fields

  appropriately; see the comments for further detail.

SUBSUBSECTION

  Bit twiddling

  Each flavour of coff supported in BFD has its own header file

  describing the external layout of the structures. There is also

  an internal description of the coff layout, in

  @file{coff/internal.h}. A major function of the

  coff backend is swapping the bytes and twiddling the bits to

  translate the external form of the structures into the normal

  internal form. This is all performed in the

  @code{bfd_swap}_@i{thing}_@i{direction} routines. Some

  elements are different sizes between different versions of

  coff; it is the duty of the coff version specific include file

  to override the definitions of various packing routines in

  @file{coffcode.h}. E.g., the size of line number entry in coff is

  sometimes 16 bits, and sometimes 32 bits. @code{#define}ing

  @code{PUT_LNSZ_LNNO} and @code{GET_LNSZ_LNNO} will select the

  correct one. No doubt, some day someone will find a version of

  coff which has a varying field size not catered to at the

  moment. To port BFD, that person will have to add more @code{#defines}.

  Three of the bit twiddling routines are exported to

  @code{gdb}; @code{coff_swap_aux_in}, @code{coff_swap_sym_in}

  and @code{coff_swap_lineno_in}. @code{GDB} reads the symbol

  table on its own, but uses BFD to fix things up.  More of the

  bit twiddlers are exported for @code{gas};

  @code{coff_swap_aux_out}, @code{coff_swap_sym_out},

  @code{coff_swap_lineno_out}, @code{coff_swap_reloc_out},

  @code{coff_swap_filehdr_out}, @code{coff_swap_aouthdr_out},

  @code{coff_swap_scnhdr_out}. @code{Gas} currently keeps track

  of all the symbol table and reloc drudgery itself, thereby

  saving the internal BFD overhead, but uses BFD to swap things

  on the way out, making cross ports much safer.  Doing so also

  allows BFD (and thus the linker) to use the same header files

  as @code{gas}, which makes one avenue to disaster disappear.

SUBSUBSECTION

  Symbol reading

  The simple canonical form for symbols used by BFD is not rich

  enough to keep all the information available in a coff symbol

  table. The back end gets around this problem by keeping the original

  symbol table around, "behind the scenes".

  When a symbol table is requested (through a call to

  @code{bfd_canonicalize_symtab}), a request gets through to

  @code{coff_get_normalized_symtab}. This reads the symbol table from

  the coff file and swaps all the structures inside into the

  internal form. It also fixes up all the pointers in the table

  (represented in the file by offsets from the first symbol in

  the table) into physical pointers to elements in the new

  internal table. This involves some work since the meanings of

  fields change depending upon context: a field that is a

  pointer to another structure in the symbol table at one moment

  may be the size in bytes of a structure at the next.  Another

  pass is made over the table. All symbols which mark file names

  (<<C_FILE>> symbols) are modified so that the internal

  string points to the value in the auxent (the real filename)

  rather than the normal text associated with the symbol

  (@code{".file"}).

  At this time the symbol names are moved around. Coff stores

  all symbols less than nine characters long physically

  within the symbol table; longer strings are kept at the end of

  the file in the string table. This pass moves all strings

  into memory and replaces them with pointers to the strings.

  The symbol table is massaged once again, this time to create

  the canonical table used by the BFD application. Each symbol

  is inspected in turn, and a decision made (using the

  @code{sclass} field) about the various flags to set in the

  @code{asymbol}.  @xref{Symbols}. The generated canonical table

  shares strings with the hidden internal symbol table.

  Any linenumbers are read from the coff file too, and attached

  to the symbols which own the functions the linenumbers belong to.

SUBSUBSECTION

  Symbol writing

  Writing a symbol to a coff file which didn't come from a coff

  file will lose any debugging information. The @code{asymbol}

  structure remembers the BFD from which the symbol was taken, and on

  output the back end makes sure that the same destination target as

  source target is present.

  When the symbols have come from a coff file then all the

  debugging information is preserved.

  Symbol tables are provided for writing to the back end in a

  vector of pointers to pointers. This allows applications like

  the linker to accumulate and output large symbol tables

  without having to do too much byte copying.

  This function runs through the provided symbol table and

  patches each symbol marked as a file place holder

  (@code{C_FILE}) to point to the next file place holder in the

  list. It also marks each @code{offset} field in the list with

  the offset from the first symbol of the current symbol.

  Another function of this procedure is to turn the canonical

  value form of BFD into the form used by coff. Internally, BFD

  expects symbol values to be offsets from a section base; so a

  symbol physically at 0x120, but in a section starting at

  0x100, would have the value 0x20. Coff expects symbols to

  contain their final value, so symbols have their values

  changed at this point to reflect their sum with their owning

  section.  This transformation uses the

  <<output_section>> field of the @code{asymbol}'s

  @code{asection} @xref{Sections}.

  o <<coff_mangle_symbols>>

  This routine runs though the provided symbol table and uses

  the offsets generated by the previous pass and the pointers

  generated when the symbol table was read in to create the

  structured hierarchy required by coff. It changes each pointer

  to a symbol into the index into the symbol table of the asymbol.

  o <<coff_write_symbols>>

  This routine runs through the symbol table and patches up the

  symbols from their internal form into the coff way, calls the

  bit twiddlers, and writes out the table to the file.

*/

/*

INTERNAL_DEFINITION

  coff_symbol_type

DESCRIPTION

  The hidden information for an <<asymbol>> is described in a

  <<combined_entry_type>>:

CODE_FRAGMENT

.typedef struct coff_ptr_struct

.{

.  {* Remembers the offset from the first symbol in the file for

.     this symbol.  Generated by coff_renumber_symbols.  *}

.  unsigned int offset;

.

.  {* Selects between the elements of the union below.  *}

.  unsigned int is_sym : 1;

.

.  {* Selects between the elements of the x_sym.x_tagndx union.  If set,

.     p is valid and the field will be renumbered.  *}

.  unsigned int fix_tag : 1;

.

.  {* Selects between the elements of the x_sym.x_fcnary.x_fcn.x_endndx

.     union.  If set, p is valid and the field will be renumbered.  *}

.  unsigned int fix_end : 1;

.

.  {* Selects between the elements of the x_csect.x_scnlen union.  If set,

.     p is valid and the field will be renumbered.  *}

.  unsigned int fix_scnlen : 1;

.

.  {* If set, u.syment.n_value contains a pointer to a symbol.  The final

.     value will be the offset field.  Used for XCOFF C_BSTAT symbols.  *}

.  unsigned int fix_value : 1;

.

.  {* If set, u.syment.n_value is an index into the line number entries.

.     Used for XCOFF C_BINCL/C_EINCL symbols.  *}

.  unsigned int fix_line : 1;

.

.  {* The container for the symbol structure as read and translated

.     from the file.  *}

.  union

.  {

.    union internal_auxent auxent;

.    struct internal_syment syment;

.  } u;

.

. {* An extra pointer which can used by format based on COFF (like XCOFF)

.    to provide extra information to their backend.  *}

. void *extrap;

.} combined_entry_type;

.

.{* Each canonical asymbol really looks like this: *}

.

.typedef struct coff_symbol_struct

.{

.  {* The actual symbol which the rest of BFD works with *}

.  asymbol symbol;

.

.  {* A pointer to the hidden information for this symbol *}

.  combined_entry_type *native;

.

.  {* A pointer to the linenumber information for this symbol *}

.  struct lineno_cache_entry *lineno;

.

.  {* Have the line numbers been relocated yet ? *}

.  bool done_lineno;

.} coff_symbol_type;

.

*/

#include "libiberty.h"

#include <string.h>

#ifdef COFF_WITH_PE

#include "peicode.h"

#else

#include "coffswap.h"

#endif

#define STRING_SIZE_SIZE 4

#define DOT_DEBUG ".debug"

#define DOT_ZDEBUG  ".zdebug"

#define GNU_LINKONCE_WI ".gnu.linkonce.wi."

#define GNU_LINKONCE_WT ".gnu.linkonce.wt."

#define DOT_RELOC ".reloc"

#if defined(COFF_WITH_PE) || defined(COFF_GO32_EXE) || defined(COFF_GO32)

# define COFF_WITH_EXTENDED_RELOC_COUNTER

#endif

#if defined (COFF_LONG_SECTION_NAMES)

/* Needed to expand the inputs to BLANKOR1TOODD.  */

#define COFFLONGSECTIONCATHELPER(x,y)    x ## y

/* If the input macro Y is blank or '1', return an odd number; if it is

   '0', return an even number.  Result undefined in all other cases.  */

#define BLANKOR1TOODD(y)     COFFLONGSECTIONCATHELPER(1,y)

/* Defined to numerical 0 or 1 according to whether generation of long

   section names is disabled or enabled by default.  */

#define COFF_ENABLE_LONG_SECTION_NAMES   (BLANKOR1TOODD(COFF_LONG_SECTION_NAMES) & 1)

/* Where long section names are supported, we allow them to be enabled

   and disabled at runtime, so select an appropriate hook function for

   _bfd_coff_set_long_section_names.  */

#define COFF_LONG_SECTION_NAMES_SETTER   bfd_coff_set_long_section_names_allowed

#else /* !defined (COFF_LONG_SECTION_NAMES) */

/* If long section names are not supported, this stub disallows any

   attempt to enable them at run-time.  */

#define COFF_LONG_SECTION_NAMES_SETTER   bfd_coff_set_long_section_names_disallowed

#endif /* defined (COFF_LONG_SECTION_NAMES) */

/* Define a macro that can be used to initialise both the fields relating

   to long section names in the backend data struct simultaneously.  */

#if COFF_ENABLE_LONG_SECTION_NAMES

#define COFF_DEFAULT_LONG_SECTION_NAMES  (true), COFF_LONG_SECTION_NAMES_SETTER

#else /* !COFF_ENABLE_LONG_SECTION_NAMES */

#define COFF_DEFAULT_LONG_SECTION_NAMES  (false), COFF_LONG_SECTION_NAMES_SETTER

#endif /* COFF_ENABLE_LONG_SECTION_NAMES */

static enum coff_symbol_classification coff_classify_symbol

  (bfd *, struct internal_syment *);

/* void warning(); */

#if defined (COFF_LONG_SECTION_NAMES)

static bool

bfd_coff_set_long_section_names_allowed (bfd *abfd, int enable)

{

  bfd_coff_long_section_names (abfd) = enable;

  return true;

}

pei-i386.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

285k

{

411

285k

  bfd_coff_long_section_names (abfd) = enable;

412

285k

  return true;

413

285k

}

pe-x86_64.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

320k

{

411

320k

  bfd_coff_long_section_names (abfd) = enable;

412

320k

  return true;

413

320k

}

pei-x86_64.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

214k

{

411

214k

  bfd_coff_long_section_names (abfd) = enable;

412

214k

  return true;

413

214k

}

pe-aarch64.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

123k

{

411

123k

  bfd_coff_long_section_names (abfd) = enable;

412

123k

  return true;

413

123k

}

pei-aarch64.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

157k

{

411

157k

  bfd_coff_long_section_names (abfd) = enable;

412

157k

  return true;

413

157k

}

pei-ia64.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

225k

{

411

225k

  bfd_coff_long_section_names (abfd) = enable;

412

225k

  return true;

413

225k

}

pei-loongarch64.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

170k

{

411

170k

  bfd_coff_long_section_names (abfd) = enable;

412

170k

  return true;

413

170k

}

coff-go32.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

4.99M

{

411

4.99M

  bfd_coff_long_section_names (abfd) = enable;

412

4.99M

  return true;

413

4.99M

}

coff-stgo32.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

360k

{

411

360k

  bfd_coff_long_section_names (abfd) = enable;

412

360k

  return true;

413

360k

}

pe-arm-wince.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

40.8k

{

411

40.8k

  bfd_coff_long_section_names (abfd) = enable;

412

40.8k

  return true;

413

40.8k

}

pe-arm.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

40.8k

{

411

40.8k

  bfd_coff_long_section_names (abfd) = enable;

412

40.8k

  return true;

413

40.8k

}

pe-i386.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

116k

{

411

116k

  bfd_coff_long_section_names (abfd) = enable;

412

116k

  return true;

413

116k

}

pe-mcore.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

807k

{

411

807k

  bfd_coff_long_section_names (abfd) = enable;

412

807k

  return true;

413

807k

}

pe-sh.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

96.7k

{

411

96.7k

  bfd_coff_long_section_names (abfd) = enable;

412

96.7k

  return true;

413

96.7k

}

pei-arm-wince.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

200k

{

411

200k

  bfd_coff_long_section_names (abfd) = enable;

412

200k

  return true;

413

200k

}

pei-arm.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

782k

{

411

782k

  bfd_coff_long_section_names (abfd) = enable;

412

782k

  return true;

413

782k

}

pei-mcore.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

210k

{

411

210k

  bfd_coff_long_section_names (abfd) = enable;

412

210k

  return true;

413

210k

}

pei-sh.c:bfd_coff_set_long_section_names_allowed

Line

Count

Source

410

227k

{

411

227k

  bfd_coff_long_section_names (abfd) = enable;

412

227k

  return true;

413

227k

}

#else /* !defined (COFF_LONG_SECTION_NAMES) */

static bool

bfd_coff_set_long_section_names_disallowed (bfd *abfd ATTRIBUTE_UNUSED,

              int enable ATTRIBUTE_UNUSED)

{

  return false;

}

coff-x86_64.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

9.32M

{

419

9.32M

  return false;

420

9.32M

}

coff64-rs6000.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

4.62M

{

419

4.62M

  return false;

420

4.62M

}

cf-i386lynx.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

6.05M

{

419

6.05M

  return false;

420

6.05M

}

coff-i386.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

5.72M

{

419

5.72M

  return false;

420

5.72M

}

coff-rs6000.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

25.5M

{

419

25.5M

  return false;

420

25.5M

}

coff-sh.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

12.2M

{

419

12.2M

  return false;

420

12.2M

}

coff-tic30.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

5.80M

{

419

5.80M

  return false;

420

5.80M

}

Unexecuted instantiation: coff-tic4x.c:bfd_coff_set_long_section_names_disallowed

coff-tic54x.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

8.33M

{

419

8.33M

  return false;

420

8.33M

}

coff-z80.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

754k

{

419

754k

  return false;

420

754k

}

coff-z8k.c:bfd_coff_set_long_section_names_disallowed

Line

Count

Source

418

8.88M

{

419

8.88M

  return false;

420

8.88M

}

#endif /* defined (COFF_LONG_SECTION_NAMES) */

/* Return a word with STYP_* (scnhdr.s_flags) flags set to represent

   the incoming SEC_* flags.  The inverse of this function is

   styp_to_sec_flags().  NOTE: If you add to/change this routine, you

   should probably mirror the changes in styp_to_sec_flags().  */

#ifndef COFF_WITH_PE

/* Macros for setting debugging flags.  */

#ifdef STYP_DEBUG

#define STYP_XCOFF_DEBUG STYP_DEBUG

#else

#define STYP_XCOFF_DEBUG STYP_INFO

#endif

#ifdef COFF_ALIGN_IN_S_FLAGS

#define STYP_DEBUG_INFO STYP_DSECT

#else

#define STYP_DEBUG_INFO STYP_INFO

#endif

static long

sec_to_styp_flags (const char *sec_name, flagword sec_flags)

{

  long styp_flags = 0;

  if (!strcmp (sec_name, _TEXT))

    {

      styp_flags = STYP_TEXT;

    }

  else if (!strcmp (sec_name, _DATA))

    {

      styp_flags = STYP_DATA;

    }

  else if (!strcmp (sec_name, _BSS))

    {

      styp_flags = STYP_BSS;

#ifdef _COMMENT

    }

  else if (!strcmp (sec_name, _COMMENT))

    {

      styp_flags = STYP_INFO;

#endif /* _COMMENT */

#ifdef _LIB

    }

  else if (!strcmp (sec_name, _LIB))

    {

      styp_flags = STYP_LIB;

#endif /* _LIB */

#ifdef _LIT

    }

  else if (!strcmp (sec_name, _LIT))

    {

      styp_flags = STYP_LIT;

#endif /* _LIT */

    }

  else if (startswith (sec_name, DOT_DEBUG)

     || startswith (sec_name, DOT_ZDEBUG))

    {

      /* Handle the XCOFF debug section and DWARF2 debug sections.  */

      if (!sec_name[6])

  styp_flags = STYP_XCOFF_DEBUG;

      else

  styp_flags = STYP_DEBUG_INFO;

    }

  else if (startswith (sec_name, ".stab"))

    {

      styp_flags = STYP_DEBUG_INFO;

    }

#ifdef COFF_LONG_SECTION_NAMES

  else if (startswith (sec_name, GNU_LINKONCE_WI)

     || startswith (sec_name, GNU_LINKONCE_WT))

    {

      styp_flags = STYP_DEBUG_INFO;

    }

#endif

#ifdef RS6000COFF_C

  else if (!strcmp (sec_name, _TDATA))

    {

      styp_flags = STYP_TDATA;

    }

  else if (!strcmp (sec_name, _TBSS))

    {

      styp_flags = STYP_TBSS;

    }

  else if (!strcmp (sec_name, _PAD))

    {

      styp_flags = STYP_PAD;

    }

  else if (!strcmp (sec_name, _LOADER))

    {

      styp_flags = STYP_LOADER;

    }

  else if (!strcmp (sec_name, _EXCEPT))

    {

      styp_flags = STYP_EXCEPT;

    }

  else if (!strcmp (sec_name, _TYPCHK))

    {

      styp_flags = STYP_TYPCHK;

    }

  else if (sec_flags & SEC_DEBUGGING)

    {

      int i;

      for (i = 0; i < XCOFF_DWSECT_NBR_NAMES; i++)

  if (!strcmp (sec_name, xcoff_dwsect_names[i].xcoff_name))

    {

      styp_flags = STYP_DWARF | xcoff_dwsect_names[i].flag;

      break;

    }

    }

#endif

  /* Try and figure out what it should be */

  else if (sec_flags & SEC_CODE)

    {

      styp_flags = STYP_TEXT;

    }

  else if (sec_flags & SEC_DATA)

    {

      styp_flags = STYP_DATA;

    }

  else if (sec_flags & SEC_READONLY)

    {

#ifdef STYP_LIT     /* 29k readonly text/data section */

      styp_flags = STYP_LIT;

#else

      styp_flags = STYP_TEXT;

#endif /* STYP_LIT */

    }

  else if (sec_flags & SEC_LOAD)

    {

      styp_flags = STYP_TEXT;

    }

  else if (sec_flags & SEC_ALLOC)

    {

      styp_flags = STYP_BSS;

    }

#ifdef STYP_CLINK

  if (sec_flags & SEC_TIC54X_CLINK)

    styp_flags |= STYP_CLINK;

#endif

#ifdef STYP_BLOCK

  if (sec_flags & SEC_TIC54X_BLOCK)

    styp_flags |= STYP_BLOCK;

#endif

#ifdef STYP_NOLOAD

  if ((sec_flags & (SEC_NEVER_LOAD | SEC_COFF_SHARED_LIBRARY)) != 0)

    styp_flags |= STYP_NOLOAD;

#endif

  return styp_flags;

}

Unexecuted instantiation: coff-x86_64.c:sec_to_styp_flags

Unexecuted instantiation: coff64-rs6000.c:sec_to_styp_flags

Unexecuted instantiation: cf-i386lynx.c:sec_to_styp_flags

Unexecuted instantiation: coff-go32.c:sec_to_styp_flags

Unexecuted instantiation: coff-i386.c:sec_to_styp_flags

Unexecuted instantiation: coff-rs6000.c:sec_to_styp_flags

Unexecuted instantiation: coff-sh.c:sec_to_styp_flags

Unexecuted instantiation: coff-stgo32.c:sec_to_styp_flags

Unexecuted instantiation: coff-tic30.c:sec_to_styp_flags

Unexecuted instantiation: coff-tic4x.c:sec_to_styp_flags

Unexecuted instantiation: coff-tic54x.c:sec_to_styp_flags

Unexecuted instantiation: coff-z80.c:sec_to_styp_flags

coff-z8k.c:sec_to_styp_flags

Line

Count

Source

446

254

{

447

254

  long styp_flags = 0;

448

449

254

  if (!strcmp (sec_name, _TEXT))

450

0

    {

451

0

      styp_flags = STYP_TEXT;

452

0

    }

453

254

  else if (!strcmp (sec_name, _DATA))

454

0

    {

455

0

      styp_flags = STYP_DATA;

456

0

    }

457

254

  else if (!strcmp (sec_name, _BSS))

458

0

    {

459

0

      styp_flags = STYP_BSS;

460

0

#ifdef _COMMENT

461

0

    }

462

254

  else if (!strcmp (sec_name, _COMMENT))

463

0

    {

464

0

      styp_flags = STYP_INFO;

465

0

#endif /* _COMMENT */

466

0

#ifdef _LIB

467

0

    }

468

254

  else if (!strcmp (sec_name, _LIB))

469

0

    {

470

0

      styp_flags = STYP_LIB;

471

0

#endif /* _LIB */

472

#ifdef _LIT

473

    }

474

  else if (!strcmp (sec_name, _LIT))

475

    {

476

      styp_flags = STYP_LIT;

477

#endif /* _LIT */

478

0

    }

479

254

  else if (startswith (sec_name, DOT_DEBUG)

480

254

     || startswith (sec_name, DOT_ZDEBUG))

481

0

    {

482

      /* Handle the XCOFF debug section and DWARF2 debug sections.  */

483

0

      if (!sec_name[6])

484

0

  styp_flags = STYP_XCOFF_DEBUG;

485

0

      else

486

0

  styp_flags = STYP_DEBUG_INFO;

487

0

    }

488

254

  else if (startswith (sec_name, ".stab"))

489

0

    {

490

0

      styp_flags = STYP_DEBUG_INFO;

491

0

    }

492

#ifdef COFF_LONG_SECTION_NAMES

493

  else if (startswith (sec_name, GNU_LINKONCE_WI)

494

     || startswith (sec_name, GNU_LINKONCE_WT))

495

    {

496

      styp_flags = STYP_DEBUG_INFO;

497

    }

498

#endif

499

#ifdef RS6000COFF_C

500

  else if (!strcmp (sec_name, _TDATA))

501

    {

502

      styp_flags = STYP_TDATA;

503

    }

504

  else if (!strcmp (sec_name, _TBSS))

505

    {

506

      styp_flags = STYP_TBSS;

507

    }

508

  else if (!strcmp (sec_name, _PAD))

509

    {

510

      styp_flags = STYP_PAD;

511

    }

512

  else if (!strcmp (sec_name, _LOADER))

513

    {

514

      styp_flags = STYP_LOADER;

515

    }

516

  else if (!strcmp (sec_name, _EXCEPT))

517

    {

518

      styp_flags = STYP_EXCEPT;

519

    }

520

  else if (!strcmp (sec_name, _TYPCHK))

521

    {

522

      styp_flags = STYP_TYPCHK;

523

    }

524

  else if (sec_flags & SEC_DEBUGGING)

525

    {

526

      int i;

527

528

      for (i = 0; i < XCOFF_DWSECT_NBR_NAMES; i++)

529

  if (!strcmp (sec_name, xcoff_dwsect_names[i].xcoff_name))

530

    {

531

      styp_flags = STYP_DWARF | xcoff_dwsect_names[i].flag;

532

      break;

533

    }

534

    }

535

#endif

536

  /* Try and figure out what it should be */

537

254

  else if (sec_flags & SEC_CODE)

538

0

    {

539

0

      styp_flags = STYP_TEXT;

540

0

    }

541

254

  else if (sec_flags & SEC_DATA)

542

0

    {

543

0

      styp_flags = STYP_DATA;

544

0

    }

545

254

  else if (sec_flags & SEC_READONLY)

546

0

    {

547

0

#ifdef STYP_LIT     /* 29k readonly text/data section */

548

0

      styp_flags = STYP_LIT;

549

#else

550

      styp_flags = STYP_TEXT;

551

#endif /* STYP_LIT */

552

0

    }

553

254

  else if (sec_flags & SEC_LOAD)

554

254

    {

555

254

      styp_flags = STYP_TEXT;

556

254

    }

557

0

  else if (sec_flags & SEC_ALLOC)

558

0

    {

559

0

      styp_flags = STYP_BSS;

560

0

    }

561

562

#ifdef STYP_CLINK

563

  if (sec_flags & SEC_TIC54X_CLINK)

564

    styp_flags |= STYP_CLINK;

565

#endif

566

567

#ifdef STYP_BLOCK

568

  if (sec_flags & SEC_TIC54X_BLOCK)

569

    styp_flags |= STYP_BLOCK;

570

#endif

571

572

254

#ifdef STYP_NOLOAD

573

254

  if ((sec_flags & (SEC_NEVER_LOAD | SEC_COFF_SHARED_LIBRARY)) != 0)

574

0

    styp_flags |= STYP_NOLOAD;

575

254

#endif

576

577

254

  return styp_flags;

578

254

}

#else /* COFF_WITH_PE */

/* The PE version; see above for the general comments.  The non-PE

   case seems to be more guessing, and breaks PE format; specifically,

   .rdata is readonly, but it sure ain't text.  Really, all this

   should be set up properly in gas (or whatever assembler is in use),

   and honor whatever objcopy/strip, etc. sent us as input.  */

static long

sec_to_styp_flags (const char *sec_name, flagword sec_flags)

{

  long styp_flags = 0;

  bool is_dbg = false;

  if (startswith (sec_name, DOT_DEBUG)

      || startswith (sec_name, DOT_ZDEBUG)

#ifdef COFF_LONG_SECTION_NAMES

      || startswith (sec_name, GNU_LINKONCE_WI)

      || startswith (sec_name, GNU_LINKONCE_WT)

#endif

      || startswith (sec_name, ".stab"))

    is_dbg = true;

  /* caution: there are at least three groups of symbols that have

     very similar bits and meanings: IMAGE_SCN*, SEC_*, and STYP_*.

     SEC_* are the BFD internal flags, used for generic BFD

     information.  STYP_* are the COFF section flags which appear in

     COFF files.  IMAGE_SCN_* are the PE section flags which appear in

     PE files.  The STYP_* flags and the IMAGE_SCN_* flags overlap,

     but there are more IMAGE_SCN_* flags.  */

  /* FIXME: There is no gas syntax to specify the debug section flag.  */

  if (is_dbg)

    {

      sec_flags &= (SEC_LINK_ONCE | SEC_LINK_DUPLICATES_DISCARD

        | SEC_LINK_DUPLICATES_SAME_CONTENTS

        | SEC_LINK_DUPLICATES_SAME_SIZE);

      sec_flags |= SEC_DEBUGGING | SEC_READONLY;

    }

  /* skip LOAD */

  /* READONLY later */

  /* skip RELOC */

  if ((sec_flags & SEC_CODE) != 0)

    styp_flags |= IMAGE_SCN_CNT_CODE;

  if ((sec_flags & (SEC_DATA | SEC_DEBUGGING)) != 0)

    styp_flags |= IMAGE_SCN_CNT_INITIALIZED_DATA;

  if ((sec_flags & SEC_ALLOC) != 0 && (sec_flags & SEC_LOAD) == 0)

    styp_flags |= IMAGE_SCN_CNT_UNINITIALIZED_DATA;  /* ==STYP_BSS */

  /* skip ROM */

  /* skip constRUCTOR */

  /* skip CONTENTS */

#ifndef COFF_IMAGE_WITH_PE

  /* I don't think any of the IMAGE_SCN_LNK_* flags set below should be set

     when the output is PE. Only object files should have them, for the linker

     to consume.  */

  if ((sec_flags & SEC_IS_COMMON) != 0)

    styp_flags |= IMAGE_SCN_LNK_COMDAT;

#endif

  if ((sec_flags & SEC_DEBUGGING) != 0)

    styp_flags |= IMAGE_SCN_MEM_DISCARDABLE;

  if ((sec_flags & (SEC_EXCLUDE | SEC_NEVER_LOAD)) != 0 && !is_dbg)

#ifdef COFF_IMAGE_WITH_PE

    styp_flags |= IMAGE_SCN_MEM_DISCARDABLE;

#else

    styp_flags |= IMAGE_SCN_LNK_REMOVE;

#endif

  /* skip IN_MEMORY */

  /* skip SORT */

#ifndef COFF_IMAGE_WITH_PE

  if (sec_flags & SEC_LINK_ONCE)

    styp_flags |= IMAGE_SCN_LNK_COMDAT;

  if ((sec_flags

       & (SEC_LINK_DUPLICATES_DISCARD | SEC_LINK_DUPLICATES_SAME_CONTENTS

    | SEC_LINK_DUPLICATES_SAME_SIZE)) != 0)

    styp_flags |= IMAGE_SCN_LNK_COMDAT;

#endif

  /* skip LINKER_CREATED */

  if ((sec_flags & SEC_COFF_NOREAD) == 0)

    styp_flags |= IMAGE_SCN_MEM_READ;     /* Invert NOREAD for read.  */

  if ((sec_flags & SEC_READONLY) == 0)

    styp_flags |= IMAGE_SCN_MEM_WRITE;    /* Invert READONLY for write.  */

  if (sec_flags & SEC_CODE)

    styp_flags |= IMAGE_SCN_MEM_EXECUTE;  /* CODE->EXECUTE.  */

  if (sec_flags & SEC_COFF_SHARED)

    styp_flags |= IMAGE_SCN_MEM_SHARED;   /* Shared remains meaningful.  */

  return styp_flags;

}

pei-i386.c:sec_to_styp_flags

Line

Count

Source

590

13

{

591

13

  long styp_flags = 0;

592

13

  bool is_dbg = false;

593

594

13

  if (startswith (sec_name, DOT_DEBUG)

595

13

      || startswith (sec_name, DOT_ZDEBUG)

596

13

#ifdef COFF_LONG_SECTION_NAMES

597

13

      || startswith (sec_name, GNU_LINKONCE_WI)

598

13

      || startswith (sec_name, GNU_LINKONCE_WT)

599

13

#endif

600

13

      || startswith (sec_name, ".stab"))

601

0

    is_dbg = true;

602

603

  /* caution: there are at least three groups of symbols that have

604

     very similar bits and meanings: IMAGE_SCN*, SEC_*, and STYP_*.

605

     SEC_* are the BFD internal flags, used for generic BFD

606

     information.  STYP_* are the COFF section flags which appear in

607

     COFF files.  IMAGE_SCN_* are the PE section flags which appear in

608

     PE files.  The STYP_* flags and the IMAGE_SCN_* flags overlap,

609

     but there are more IMAGE_SCN_* flags.  */

610

611

  /* FIXME: There is no gas syntax to specify the debug section flag.  */

612

13

  if (is_dbg)

613

0

    {

614

0

      sec_flags &= (SEC_LINK_ONCE | SEC_LINK_DUPLICATES_DISCARD

615

0

        | SEC_LINK_DUPLICATES_SAME_CONTENTS

616

0

        | SEC_LINK_DUPLICATES_SAME_SIZE);

617

0

      sec_flags |= SEC_DEBUGGING | SEC_READONLY;

618

0

    }

619

620

  /* skip LOAD */

621

  /* READONLY later */

622

  /* skip RELOC */

623

13

  if ((sec_flags & SEC_CODE) != 0)

624

2

    styp_flags |= IMAGE_SCN_CNT_CODE;

625

13

  if ((sec_flags & (SEC_DATA | SEC_DEBUGGING)) != 0)

626

11

    styp_flags |= IMAGE_SCN_CNT_INITIALIZED_DATA;

627

13

  if ((sec_flags & SEC_ALLOC) != 0 && (sec_flags & SEC_LOAD) == 0)

628

1

    styp_flags |= IMAGE_SCN_CNT_UNINITIALIZED_DATA;  /* ==STYP_BSS */

629

  /* skip ROM */

630

  /* skip constRUCTOR */

631

  /* skip CONTENTS */

632

#ifndef COFF_IMAGE_WITH_PE

633

  /* I don't think any of the IMAGE_SCN_LNK_* flags set below should be set

634

     when the output is PE. Only object files should have them, for the linker

635

     to consume.  */

636

  if ((sec_flags & SEC_IS_COMMON) != 0)

637

    styp_flags |= IMAGE_SCN_LNK_COMDAT;

638

#endif

639

13

  if ((sec_flags & SEC_DEBUGGING) != 0)

640

1

    styp_flags |= IMAGE_SCN_MEM_DISCARDABLE;

641

13

  if ((sec_flags & (SEC_EXCLUDE | SEC_NEVER_LOAD)) != 0 && !is_dbg)

642

0

#ifdef COFF_IMAGE_WITH_PE

643

0

    styp_flags |= IMAGE_SCN_MEM_DISCARDABLE;

644

#else

645

    styp_flags |= IMAGE_SCN_LNK_REMOVE;

646

#endif

647

  /* skip IN_MEMORY */

648

  /* skip SORT */

649

#ifndef COFF_IMAGE_WITH_PE

650

  if (sec_flags & SEC_LINK_ONCE)

651

    styp_flags |= IMAGE_SCN_LNK_COMDAT;

652

  if ((sec_flags

653

       & (SEC_LINK_DUPLICATES_DISCARD | SEC_LINK_DUPLICATES_SAME_CONTENTS

654

    | SEC_LINK_DUPLICATES_SAME_SIZE)) != 0)

655

    styp_flags |= IMAGE_SCN_LNK_COMDAT;

656

#endif

657

658

  /* skip LINKER_CREATED */

659

660

13

  if ((sec_flags & SEC_COFF_NOREAD) == 0)

661

13

    styp_flags |= IMAGE_SCN_MEM_READ;     /* Invert NOREAD for read.  */

662

13

  if ((sec_flags & SEC_READONLY) == 0)

663

5

    styp_flags |= IMAGE_SCN_MEM_WRITE;    /* Invert READONLY for write.  */

664

13

  if (sec_flags & SEC_CODE)

665

2

    styp_flags |= IMAGE_SCN_MEM_EXECUTE;  /* CODE->EXECUTE.  */

666

13

  if (sec_flags & SEC_COFF_SHARED)

667