1 /* Binutils emulation layer. 2 Copyright 2002, 2003 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 2 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, MA 02110-1301, USA. */ 20 21 #include "binemul.h" 22 #include "bfdlink.h" 23 #include "coff/internal.h" 24 #include "coff/xcoff.h" 25 #include "libcoff.h" 26 #include "libxcoff.h" 27 28 /* Default to <bigaf>. */ 29 static bfd_boolean big_archive = TRUE; 30 31 /* Whether to include 32 bit objects. */ 32 static bfd_boolean X32 = TRUE; 33 34 /* Whether to include 64 bit objects. */ 35 static bfd_boolean X64 = FALSE; 36 37 static void ar_emul_aix_usage (FILE *); 38 static bfd_boolean ar_emul_aix_append (bfd **, char *, bfd_boolean); 39 static bfd_boolean ar_emul_aix5_append (bfd **, char *, bfd_boolean); 40 static bfd_boolean ar_emul_aix_replace (bfd **, char *, bfd_boolean); 41 static bfd_boolean ar_emul_aix5_replace (bfd **, char *, bfd_boolean); 42 static bfd_boolean ar_emul_aix_parse_arg (char *); 43 static bfd_boolean ar_emul_aix_internal 44 (bfd **, char *, bfd_boolean, const char *, bfd_boolean); 45 46 static void 47 ar_emul_aix_usage (FILE *fp) 48 { 49 AR_EMUL_USAGE_PRINT_OPTION_HEADER (fp); 50 /* xgettext:c-format */ 51 fprintf (fp, _(" [-g] - 32 bit small archive\n")); 52 fprintf (fp, _(" [-X32] - ignores 64 bit objects\n")); 53 fprintf (fp, _(" [-X64] - ignores 32 bit objects\n")); 54 fprintf (fp, _(" [-X32_64] - accepts 32 and 64 bit objects\n")); 55 } 56 57 static bfd_boolean 58 ar_emul_aix_internal (bfd **after_bfd, char *file_name, bfd_boolean verbose, 59 const char * target_name, bfd_boolean is_append) 60 { 61 bfd *temp; 62 bfd *try_bfd; 63 64 temp = *after_bfd; 65 66 /* Try 64 bit. */ 67 try_bfd = bfd_openr (file_name, target_name); 68 69 /* Failed or the object is possibly 32 bit. */ 70 if (NULL == try_bfd || ! bfd_check_format (try_bfd, bfd_object)) 71 try_bfd = bfd_openr (file_name, "aixcoff-rs6000"); 72 73 AR_EMUL_ELEMENT_CHECK (try_bfd, file_name); 74 75 if (bfd_xcoff_is_xcoff64 (try_bfd) && (! X64)) 76 return FALSE; 77 78 if (bfd_xcoff_is_xcoff32 (try_bfd) 79 && bfd_check_format (try_bfd, bfd_object) && (! X32)) 80 return FALSE; 81 82 if (is_append) 83 { 84 AR_EMUL_APPEND_PRINT_VERBOSE (verbose, file_name); 85 } 86 else 87 { 88 AR_EMUL_REPLACE_PRINT_VERBOSE (verbose, file_name); 89 } 90 91 *after_bfd = try_bfd; 92 (*after_bfd)->next = temp; 93 94 return TRUE; 95 } 96 97 98 static bfd_boolean 99 ar_emul_aix_append (bfd **after_bfd, char *file_name, bfd_boolean verbose) 100 { 101 return ar_emul_aix_internal (after_bfd, file_name, verbose, 102 "aixcoff64-rs6000", TRUE); 103 } 104 105 static bfd_boolean 106 ar_emul_aix5_append (bfd **after_bfd, char *file_name, bfd_boolean verbose) 107 { 108 return ar_emul_aix_internal (after_bfd, file_name, verbose, 109 "aix5coff64-rs6000", TRUE); 110 } 111 112 static bfd_boolean 113 ar_emul_aix_replace (bfd **after_bfd, char *file_name, bfd_boolean verbose) 114 { 115 return ar_emul_aix_internal (after_bfd, file_name, verbose, 116 "aixcoff64-rs6000", FALSE); 117 } 118 119 static bfd_boolean 120 ar_emul_aix5_replace (bfd **after_bfd, char *file_name, bfd_boolean verbose) 121 { 122 return ar_emul_aix_internal (after_bfd, file_name, verbose, 123 "aix5coff64-rs6000", FALSE); 124 } 125 126 static bfd_boolean 127 ar_emul_aix_parse_arg (char *arg) 128 { 129 if (strncmp (arg, "-X32_64", 6) == 0) 130 { 131 big_archive = TRUE; 132 X32 = TRUE; 133 X64 = TRUE; 134 } 135 else if (strncmp (arg, "-X32", 3) == 0) 136 { 137 big_archive = TRUE; 138 X32 = TRUE; 139 X64 = FALSE; 140 } 141 else if (strncmp (arg, "-X64", 3) == 0) 142 { 143 big_archive = TRUE; 144 X32 = FALSE; 145 X64 = TRUE; 146 } 147 else if (strncmp (arg, "-g", 2) == 0) 148 { 149 big_archive = FALSE; 150 X32 = TRUE; 151 X64 = FALSE; 152 } 153 else 154 return FALSE; 155 156 return TRUE; 157 } 158 159 struct bin_emulation_xfer_struct bin_aix_emulation = 160 { 161 ar_emul_aix_usage, 162 ar_emul_aix_append, 163 ar_emul_aix_replace, 164 ar_emul_aix_parse_arg, 165 }; 166 167 struct bin_emulation_xfer_struct bin_aix5_emulation = 168 { 169 ar_emul_aix_usage, 170 ar_emul_aix5_append, 171 ar_emul_aix5_replace, 172 ar_emul_aix_parse_arg, 173 }; 174