binutils/emul_aix.c

   1 /* Binutils emulation layer.
   2    Copyright 2002, 2003, 2006, 2007 Free Software Foundation, Inc.
   3    Written by Tom Rix, Red Hat Inc.
   4
   5    This file is part of GNU Binutils.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 3 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
  20    MA 02110-1301, USA.  */
  21
  22 #include "binemul.h"
  23 #include "bfdlink.h"
  24 #include "coff/internal.h"
  25 #include "coff/xcoff.h"
  26 #include "libcoff.h"
  27 #include "libxcoff.h"
  28
  29 /* Default to <bigaf>.  */
  30 static bfd_boolean big_archive = TRUE;
  31
  32 /* Whether to include 32 bit objects.  */
  33 static bfd_boolean X32 = TRUE;
  34
  35 /* Whether to include 64 bit objects.  */
  36 static bfd_boolean X64 = FALSE;
  37
  38 static void ar_emul_aix_usage (FILE *);
  39 static bfd_boolean ar_emul_aix_append (bfd **, char *, bfd_boolean);
  40 static bfd_boolean ar_emul_aix5_append (bfd **, char *, bfd_boolean);
  41 static bfd_boolean ar_emul_aix_replace (bfd **, char *, bfd_boolean);
  42 static bfd_boolean ar_emul_aix5_replace (bfd **, char *, bfd_boolean);
  43 static bfd_boolean ar_emul_aix_parse_arg (char *);
  44 static bfd_boolean ar_emul_aix_internal
  45   (bfd **, char *, bfd_boolean, const char *, bfd_boolean);
  46
  47 static void
  48 ar_emul_aix_usage (FILE *fp)
  49 {
  50   AR_EMUL_USAGE_PRINT_OPTION_HEADER (fp);
  51   /* xgettext:c-format */
  52   fprintf (fp, _("  [-g]         - 32 bit small archive\n"));
  53   fprintf (fp, _("  [-X32]       - ignores 64 bit objects\n"));
  54   fprintf (fp, _("  [-X64]       - ignores 32 bit objects\n"));
  55   fprintf (fp, _("  [-X32_64]    - accepts 32 and 64 bit objects\n"));
  56 }
  57
  58 static bfd_boolean
  59 ar_emul_aix_internal (bfd **after_bfd, char *file_name, bfd_boolean verbose,
  60                       const char * target_name, bfd_boolean is_append)
  61 {
  62   bfd *temp;
  63   bfd *try_bfd;
  64
  65   temp = *after_bfd;
  66
  67   /* Try 64 bit.  */
  68   try_bfd = bfd_openr (file_name, target_name);
  69
  70   /* Failed or the object is possibly 32 bit.  */
  71   if (NULL == try_bfd || ! bfd_check_format (try_bfd, bfd_object))
  72     try_bfd = bfd_openr (file_name, "aixcoff-rs6000");
  73
  74   AR_EMUL_ELEMENT_CHECK (try_bfd, file_name);
  75
  76   if (bfd_xcoff_is_xcoff64 (try_bfd) && (! X64))
  77     return FALSE;
  78
  79   if (bfd_xcoff_is_xcoff32 (try_bfd)
  80       && bfd_check_format (try_bfd, bfd_object) && (! X32))
  81     return FALSE;
  82
  83   if (is_append)
  84     {
  85       AR_EMUL_APPEND_PRINT_VERBOSE (verbose, file_name);
  86     }
  87   else
  88     {
  89       AR_EMUL_REPLACE_PRINT_VERBOSE (verbose, file_name);
  90     }
  91
  92   *after_bfd = try_bfd;
  93   (*after_bfd)->archive_next = temp;
  94
  95   return TRUE;
  96 }
  97
  98
  99 static bfd_boolean
 100 ar_emul_aix_append (bfd **after_bfd, char *file_name, bfd_boolean verbose)
 101 {
 102   return ar_emul_aix_internal (after_bfd, file_name, verbose,
 103                                "aixcoff64-rs6000", TRUE);
 104 }
 105
 106 static bfd_boolean
 107 ar_emul_aix5_append (bfd **after_bfd, char *file_name, bfd_boolean verbose)
 108 {
 109   return ar_emul_aix_internal (after_bfd, file_name, verbose,
 110                                "aix5coff64-rs6000", TRUE);
 111 }
 112
 113 static bfd_boolean
 114 ar_emul_aix_replace (bfd **after_bfd, char *file_name, bfd_boolean verbose)
 115 {
 116   return ar_emul_aix_internal (after_bfd, file_name, verbose,
 117                                "aixcoff64-rs6000", FALSE);
 118 }
 119
 120 static bfd_boolean
 121 ar_emul_aix5_replace (bfd **after_bfd, char *file_name, bfd_boolean verbose)
 122 {
 123   return ar_emul_aix_internal (after_bfd, file_name, verbose,
 124                                "aix5coff64-rs6000", FALSE);
 125 }
 126
 127 static bfd_boolean
 128 ar_emul_aix_parse_arg (char *arg)
 129 {
 130   if (CONST_STRNEQ (arg, "-X32_64"))
 131     {
 132       big_archive = TRUE;
 133       X32 = TRUE;
 134       X64 = TRUE;
 135     }
 136   else if (CONST_STRNEQ (arg, "-X32"))
 137     {
 138       big_archive = TRUE;
 139       X32 = TRUE;
 140       X64 = FALSE;
 141     }
 142   else if (CONST_STRNEQ (arg, "-X64"))
 143     {
 144       big_archive = TRUE;
 145       X32 = FALSE;
 146       X64 = TRUE;
 147     }
 148   else if (CONST_STRNEQ (arg, "-g"))
 149     {
 150       big_archive = FALSE;
 151       X32 = TRUE;
 152       X64 = FALSE;
 153     }
 154   else
 155     return FALSE;
 156
 157   return TRUE;
 158 }
 159
 160 struct bin_emulation_xfer_struct bin_aix_emulation =
 161 {
 162   ar_emul_aix_usage,
 163   ar_emul_aix_append,
 164   ar_emul_aix_replace,
 165   ar_emul_aix_parse_arg,
 166 };
 167
 168 struct bin_emulation_xfer_struct bin_aix5_emulation =
 169 {
 170   ar_emul_aix_usage,
 171   ar_emul_aix5_append,
 172   ar_emul_aix5_replace,
 173   ar_emul_aix_parse_arg,
 174 };