Subversion Repositories Kolibri OS

/* Routines to help build PEI-format DLLs (Win32 etc)

/* Routines to help build PEI-format DLLs (Win32 etc)

   Written by DJ Delorie 

   Written by DJ Delorie 

   This file is part of the GNU Binutils.

   This file is part of the GNU Binutils.

  /* Global vars that should not be exported.  */

  /* Global vars that should not be exported.  */

  { STRING_COMMA_LEN ("impure_ptr") },

  { STRING_COMMA_LEN ("impure_ptr") },

  { STRING_COMMA_LEN ("_impure_ptr") },

  { STRING_COMMA_LEN ("_impure_ptr") },

  { STRING_COMMA_LEN ("_fmode") },

  { STRING_COMMA_LEN ("_fmode") },

  { STRING_COMMA_LEN ("environ") },

  { STRING_COMMA_LEN ("environ") },

  { NULL, 0 }

  { NULL, 0 }

};

};

#define PE_ARCH_i386	 1

#define PE_ARCH_i386	 1

  if (!pe_def_file)

  if (!pe_def_file)

    pe_def_file = def_file_empty ();

    pe_def_file = def_file_empty ();

  /* First, run around to all the objects looking for the .drectve

  /* First, run around to all the objects looking for the .drectve

  for (b = info->input_bfds; b; b = b->link_next)

  for (b = info->input_bfds; b; b = b->link.next)

    {

    {

      s = bfd_get_section_by_name (b, ".drectve");

      s = bfd_get_section_by_name (b, ".drectve");

      if (s)

      if (s)

	{

	{

	}

	}

    }

    }

  /* If we are building an executable and there is nothing

  /* If we are building an executable and there is nothing

  if (info->executable && pe_def_file->num_exports == 0

  if (bfd_link_executable (info) && pe_def_file->num_exports == 0

      && (!pe_dll_export_everything || pe_dll_exclude_all_symbols))

      && (!pe_dll_export_everything || pe_dll_exclude_all_symbols))

    return;

    return;

  /* Now, maybe export everything else the default way.  */

  /* Now, maybe export everything else the default way.  */

  if ((pe_dll_export_everything || pe_def_file->num_exports == 0)

  if ((pe_dll_export_everything || pe_def_file->num_exports == 0)

    {

    {

      for (b = info->input_bfds; b; b = b->link_next)

      for (b = info->input_bfds; b; b = b->link.next)

	{

	{

	  asymbol **symbols;

	  asymbol **symbols;

			  int (*cb) (arelent *, asection *))

			  int (*cb) (arelent *, asection *))

{

{

  bfd *b;

  bfd *b;

  asection *s;

  asection *s;

  for (b = info->input_bfds; b; b = b->link_next)

  for (b = info->input_bfds; b; b = b->link.next)

    {

    {

      asymbol **symbols;

      asymbol **symbols;

  int bi;

  int bi;

  bfd *b;

  bfd *b;

  struct bfd_section *s;

  struct bfd_section *s;

  for (b = info->input_bfds; b; b = b->link_next)

  for (b = info->input_bfds; b; b = b->link.next)

    for (s = b->sections; s; s = s->next)

    for (s = b->sections; s; s = s->next)

      total_relocs += s->reloc_count;

      total_relocs += s->reloc_count;

  reloc_data = xmalloc (total_relocs * sizeof (reloc_data_type));

  reloc_data = xmalloc (total_relocs * sizeof (reloc_data_type));

  total_relocs = 0;

  total_relocs = 0;

  bi = 0;

  bi = 0;

  for (bi = 0, b = info->input_bfds; b; bi++, b = b->link_next)

  for (bi = 0, b = info->input_bfds; b; bi++, b = b->link.next)

    {

    {

  quick_symbol (abfd, "", U ("_pei386_runtime_relocator"), "", UNDSEC,

  quick_symbol (abfd, "", U ("_pei386_runtime_relocator"), "", UNDSEC,

		BSF_NO_FLAGS, 0);

		BSF_NO_FLAGS, 0);

  bfd_set_section_size (abfd, extern_rt_rel, PE_IDATA5_SIZE);

  bfd_set_section_size (abfd, extern_rt_rel, PE_IDATA5_SIZE);

  extern_rt_rel_d = xmalloc (PE_IDATA5_SIZE);

  extern_rt_rel_d = xcalloc (1, PE_IDATA5_SIZE);

  extern_rt_rel->contents = extern_rt_rel_d;

  extern_rt_rel->contents = extern_rt_rel_d;

  /* Work out a reasonable size of things to put onto one line.  */

  /* Work out a reasonable size of things to put onto one line.  */

  ar_head = make_head (outarch);

  ar_head = make_head (outarch);

  /* Iterate the input BFDs, looking for exclude-modules-for-implib.  */

  /* Iterate the input BFDs, looking for exclude-modules-for-implib.  */

  for (ibfd = info->input_bfds; ibfd; ibfd = ibfd->link_next)

  for (ibfd = info->input_bfds; ibfd; ibfd = ibfd->link.next)

    {

    {

      /* Iterate the exclude list.  */

      /* Iterate the exclude list.  */

      struct exclude_list_struct *ex;

      struct exclude_list_struct *ex;

{

{

  pe_dll_id_target (bfd_get_target (abfd));

  pe_dll_id_target (bfd_get_target (abfd));

  pe_output_file_set_long_section_names (abfd);

  pe_output_file_set_long_section_names (abfd);

  process_def_file_and_drectve (abfd, info);

  process_def_file_and_drectve (abfd, info);

  if (pe_def_file->num_exports == 0 && !info->shared)

  if (pe_def_file->num_exports == 0 && !bfd_link_pic (info))

    return;

    return;

  generate_edata (abfd, info);

  generate_edata (abfd, info);

      lang_do_assignments (lang_final_phase_enum);

      lang_do_assignments (lang_final_phase_enum);

    }

    }

  if (info->shared && !info->pie)

  if (bfd_link_dll (info))

    pe_data (abfd)->dll = 1;

    pe_data (abfd)->dll = 1;