Automatic date update in version.in
[binutils-gdb.git] / binutils / emul_aix.c
index c58846fa9670d67f90e4c2d13ced97842d51cf65..052f2fb5449f85a8d165c767013b56030b56a130 100644 (file)
@@ -1,12 +1,12 @@
 /* Binutils emulation layer.
-   Copyright 2002, 2003 Free Software Foundation, Inc.
-   Written by Tom Rix, Redhat.
+   Copyright (C) 2002-2022 Free Software Foundation, Inc.
+   Written by Tom Rix, Red Hat Inc.
 
    This file is part of GNU Binutils.
 
    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 2 of the License, or
+   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,
@@ -16,7 +16,8 @@
 
    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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+   Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
+   MA 02110-1301, USA.  */
 
 #include "binemul.h"
 #include "bfdlink.h"
 #include "libxcoff.h"
 
 /* Default to <bigaf>.  */
-static bfd_boolean big_archive = TRUE;
+/* FIXME: write only variable.  */
+static bool big_archive = true;
 
 /* Whether to include 32 bit objects.  */
-static bfd_boolean X32 = TRUE;
+static bool X32 = true;
 
 /* Whether to include 64 bit objects.  */
-static bfd_boolean X64 = FALSE;
-
-static void ar_emul_aix_usage (FILE *);
-static bfd_boolean ar_emul_aix_append (bfd **, char *, bfd_boolean);
-static bfd_boolean ar_emul_aix5_append (bfd **, char *, bfd_boolean);
-static bfd_boolean ar_emul_aix_replace (bfd **, char *, bfd_boolean);
-static bfd_boolean ar_emul_aix5_replace (bfd **, char *, bfd_boolean);
-static bfd_boolean ar_emul_aix_parse_arg (char *);
-static bfd_boolean ar_emul_aix_internal
-  (bfd **, char *, bfd_boolean, const char *, bfd_boolean);
+static bool X64 = false;
 
 static void
 ar_emul_aix_usage (FILE *fp)
@@ -54,106 +47,78 @@ ar_emul_aix_usage (FILE *fp)
   fprintf (fp, _("  [-X32_64]    - accepts 32 and 64 bit objects\n"));
 }
 
-static bfd_boolean
-ar_emul_aix_internal (bfd **after_bfd, char *file_name, bfd_boolean verbose,
-                     const char * target_name, bfd_boolean is_append)
+static bool
+check_aix (bfd *try_bfd)
 {
-  bfd *temp;
-  bfd *try_bfd;
-
-  temp = *after_bfd;
-
-  /* Try 64 bit.  */
-  try_bfd = bfd_openr (file_name, target_name);
-
-  /* Failed or the object is possibly 32 bit.  */
-  if (NULL == try_bfd || ! bfd_check_format (try_bfd, bfd_object))
-    try_bfd = bfd_openr (file_name, "aixcoff-rs6000");
-
-  AR_EMUL_ELEMENT_CHECK (try_bfd, file_name);
-
-  if (bfd_xcoff_is_xcoff64 (try_bfd) && (! X64))
-    return FALSE;
+  extern const bfd_target rs6000_xcoff_vec;
+  extern const bfd_target rs6000_xcoff64_vec;
+  extern const bfd_target rs6000_xcoff64_aix_vec;
 
-  if (bfd_xcoff_is_xcoff32 (try_bfd)
-      && bfd_check_format (try_bfd, bfd_object) && (! X32))
-    return FALSE;
-
-  if (is_append)
-    {
-      AR_EMUL_APPEND_PRINT_VERBOSE (verbose, file_name);
-    }
-  else
+  if (bfd_check_format (try_bfd, bfd_object))
     {
-      AR_EMUL_REPLACE_PRINT_VERBOSE (verbose, file_name);
-    }
-
-  *after_bfd = try_bfd;
-  (*after_bfd)->next = temp;
+      if (!X32 && try_bfd->xvec == &rs6000_xcoff_vec)
+       return false;
 
-  return TRUE;
+      if (!X64 && (try_bfd->xvec == &rs6000_xcoff64_vec
+                  || try_bfd->xvec == &rs6000_xcoff64_aix_vec))
+       return false;
+    }
+  return true;
 }
 
-
-static bfd_boolean
-ar_emul_aix_append (bfd **after_bfd, char *file_name, bfd_boolean verbose)
+static bool
+ar_emul_aix_append (bfd **after_bfd, bfd *new_bfd,
+                   bool verbose, bool flatten)
 {
-  return ar_emul_aix_internal (after_bfd, file_name, verbose,
-                              "aixcoff64-rs6000", TRUE);
+  return do_ar_emul_append (after_bfd, new_bfd, verbose, flatten, check_aix);
 }
 
-static bfd_boolean
-ar_emul_aix5_append (bfd **after_bfd, char *file_name, bfd_boolean verbose)
+static bool
+ar_emul_aix_replace (bfd **after_bfd, bfd *new_bfd,
+                    bool verbose)
 {
-  return ar_emul_aix_internal (after_bfd, file_name, verbose,
-                              "aix5coff64-rs6000", TRUE);
-}
+  if (!check_aix (new_bfd))
+    return false;
 
-static bfd_boolean
-ar_emul_aix_replace (bfd **after_bfd, char *file_name, bfd_boolean verbose)
-{
-  return ar_emul_aix_internal (after_bfd, file_name, verbose,
-                              "aixcoff64-rs6000", FALSE);
-}
+  AR_EMUL_REPLACE_PRINT_VERBOSE (verbose, bfd_get_filename (new_bfd));
 
-static bfd_boolean
-ar_emul_aix5_replace (bfd **after_bfd, char *file_name, bfd_boolean verbose)
-{
-  return ar_emul_aix_internal (after_bfd, file_name, verbose,
-                              "aix5coff64-rs6000", FALSE);
+  new_bfd->archive_next = *after_bfd;
+  *after_bfd = new_bfd;
+
+  return true;
 }
 
-static bfd_boolean
+static bool
 ar_emul_aix_parse_arg (char *arg)
 {
-  if (strncmp (arg, "-X32_64", 6) == 0)
+  if (startswith (arg, "-X32_64"))
     {
-      big_archive = TRUE;
-      X32 = TRUE;
-      X64 = TRUE;
+      big_archive = true;
+      X32 = true;
+      X64 = true;
     }
-  else if (strncmp (arg, "-X32", 3) == 0)
+  else if (startswith (arg, "-X32"))
     {
-      big_archive = TRUE;
-      X32 = TRUE;
-      X64 = FALSE;
+      big_archive = true;
+      X32 = true;
+      X64 = false;
     }
-  else if (strncmp (arg, "-X64", 3) == 0)
+  else if (startswith (arg, "-X64"))
     {
-      big_archive = TRUE;
-      X32 = FALSE;
-      X64 = TRUE;
+      big_archive = true;
+      X32 = false;
+      X64 = true;
     }
-  else if (strncmp (arg, "-g", 2) == 0)
+  else if (startswith (arg, "-g"))
     {
-      big_archive = FALSE;
-      X32 = TRUE;
-      X64 = FALSE;
+      big_archive = false;
+      X32 = true;
+      X64 = false;
     }
   else
-    return FALSE;
+    return false;
 
-  return TRUE;
+  return true;
 }
 
 struct bin_emulation_xfer_struct bin_aix_emulation =
@@ -163,11 +128,3 @@ struct bin_emulation_xfer_struct bin_aix_emulation =
   ar_emul_aix_replace,
   ar_emul_aix_parse_arg,
 };
-
-struct bin_emulation_xfer_struct bin_aix5_emulation =
-{
-  ar_emul_aix_usage,
-  ar_emul_aix5_append,
-  ar_emul_aix5_replace,
-  ar_emul_aix_parse_arg,
-};