1 /* Generate code to initialize optabs from machine description. 2 Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2010, 2011 4 Free Software Foundation, Inc. 5 6 This file is part of GCC. 7 8 GCC is free software; you can redistribute it and/or modify it under 9 the terms of the GNU General Public License as published by the Free 10 Software Foundation; either version 3, or (at your option) any later 11 version. 12 13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY 14 WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 16 for more details. 17 18 You should have received a copy of the GNU General Public License 19 along with GCC; see the file COPYING3. If not see 20 <http://www.gnu.org/licenses/>. */ 21 22 23 #include "bconfig.h" 24 #include "system.h" 25 #include "coretypes.h" 26 #include "tm.h" 27 #include "rtl.h" 28 #include "errors.h" 29 #include "gensupport.h" 30 31 32 /* Many parts of GCC use arrays that are indexed by machine mode and 33 contain the insn codes for pattern in the MD file that perform a given 34 operation on operands of that mode. 35 36 These patterns are present in the MD file with names that contain 37 the mode(s) used and the name of the operation. This program 38 writes a function `init_all_optabs' that initializes the optabs with 39 all the insn codes of the relevant patterns present in the MD file. 40 41 This array contains a list of optabs that need to be initialized. Within 42 each string, the name of the pattern to be matched against is delimited 43 with $( and $). In the string, $a and $b are used to match a short mode 44 name (the part of the mode name not including `mode' and converted to 45 lower-case). When writing out the initializer, the entire string is 46 used. $A and $B are replaced with the full name of the mode; $a and $b 47 are replaced with the short form of the name, as above. 48 49 If $N is present in the pattern, it means the two modes must be in 50 the same mode class, and $b must be greater than $a (e.g, QImode 51 and HImode). 52 53 $I means that only full integer modes should be considered for the 54 next mode, and $F means that only float modes should be considered. 55 $P means that both full and partial integer modes should be considered. 56 $Q means that only fixed-point modes should be considered. 57 58 $V means to emit 'v' if the first mode is a MODE_FLOAT mode. 59 60 For some optabs, we store the operation by RTL codes. These are only 61 used for comparisons. In that case, $c and $C are the lower-case and 62 upper-case forms of the comparison, respectively. */ 63 64 static const char * const optabs[] = 65 { "set_convert_optab_handler (sext_optab, $B, $A, CODE_FOR_$(extend$a$b2$))", 66 "set_convert_optab_handler (zext_optab, $B, $A, CODE_FOR_$(zero_extend$a$b2$))", 67 "set_convert_optab_handler (sfix_optab, $B, $A, CODE_FOR_$(fix$F$a$I$b2$))", 68 "set_convert_optab_handler (ufix_optab, $B, $A, CODE_FOR_$(fixuns$F$a$b2$))", 69 "set_convert_optab_handler (sfixtrunc_optab, $B, $A, CODE_FOR_$(fix_trunc$F$a$I$b2$))", 70 "set_convert_optab_handler (ufixtrunc_optab, $B, $A, CODE_FOR_$(fixuns_trunc$F$a$I$b2$))", 71 "set_convert_optab_handler (sfloat_optab, $B, $A, CODE_FOR_$(float$I$a$F$b2$))", 72 "set_convert_optab_handler (ufloat_optab, $B, $A, CODE_FOR_$(floatuns$I$a$F$b2$))", 73 "set_convert_optab_handler (trunc_optab, $B, $A, CODE_FOR_$(trunc$a$b2$))", 74 "set_convert_optab_handler (fract_optab, $B, $A, CODE_FOR_$(fract$a$b2$))", 75 "set_convert_optab_handler (fractuns_optab, $B, $A, CODE_FOR_$(fractuns$I$a$Q$b2$))", 76 "set_convert_optab_handler (fractuns_optab, $B, $A, CODE_FOR_$(fractuns$Q$a$I$b2$))", 77 "set_convert_optab_handler (satfract_optab, $B, $A, CODE_FOR_$(satfract$a$Q$b2$))", 78 "set_convert_optab_handler (satfractuns_optab, $B, $A, CODE_FOR_$(satfractuns$I$a$Q$b2$))", 79 "set_convert_optab_handler (vec_load_lanes_optab, $A, $B, CODE_FOR_$(vec_load_lanes$a$b$))", 80 "set_convert_optab_handler (vec_store_lanes_optab, $A, $B, CODE_FOR_$(vec_store_lanes$a$b$))", 81 "set_optab_handler (add_optab, $A, CODE_FOR_$(add$P$a3$))", 82 "set_optab_handler (addv_optab, $A, CODE_FOR_$(add$F$a3$)),\n\ 83 set_optab_handler (add_optab, $A, CODE_FOR_$(add$F$a3$))", 84 "set_optab_handler (addv_optab, $A, CODE_FOR_$(addv$I$a3$))", 85 "set_optab_handler (add_optab, $A, CODE_FOR_$(add$Q$a3$))", 86 "set_optab_handler (ssadd_optab, $A, CODE_FOR_$(ssadd$Q$a3$))", 87 "set_optab_handler (usadd_optab, $A, CODE_FOR_$(usadd$Q$a3$))", 88 "set_optab_handler (sub_optab, $A, CODE_FOR_$(sub$P$a3$))", 89 "set_optab_handler (subv_optab, $A, CODE_FOR_$(sub$F$a3$)),\n\ 90 set_optab_handler (sub_optab, $A, CODE_FOR_$(sub$F$a3$))", 91 "set_optab_handler (subv_optab, $A, CODE_FOR_$(subv$I$a3$))", 92 "set_optab_handler (sub_optab, $A, CODE_FOR_$(sub$Q$a3$))", 93 "set_optab_handler (sssub_optab, $A, CODE_FOR_$(sssub$Q$a3$))", 94 "set_optab_handler (ussub_optab, $A, CODE_FOR_$(ussub$Q$a3$))", 95 "set_optab_handler (smul_optab, $A, CODE_FOR_$(mul$Q$a3$))", 96 "set_optab_handler (ssmul_optab, $A, CODE_FOR_$(ssmul$Q$a3$))", 97 "set_optab_handler (usmul_optab, $A, CODE_FOR_$(usmul$Q$a3$))", 98 "set_optab_handler (smul_optab, $A, CODE_FOR_$(mul$P$a3$))", 99 "set_optab_handler (smulv_optab, $A, CODE_FOR_$(mul$F$a3$)),\n\ 100 set_optab_handler (smul_optab, $A, CODE_FOR_$(mul$F$a3$))", 101 "set_optab_handler (smulv_optab, $A, CODE_FOR_$(mulv$I$a3$))", 102 "set_optab_handler (umul_highpart_optab, $A, CODE_FOR_$(umul$a3_highpart$))", 103 "set_optab_handler (smul_highpart_optab, $A, CODE_FOR_$(smul$a3_highpart$))", 104 "set_widening_optab_handler (smul_widen_optab, $B, $A, CODE_FOR_$(mul$a$b3$)$N)", 105 "set_widening_optab_handler (umul_widen_optab, $B, $A, CODE_FOR_$(umul$a$b3$)$N)", 106 "set_widening_optab_handler (usmul_widen_optab, $B, $A, CODE_FOR_$(usmul$a$b3$)$N)", 107 "set_widening_optab_handler (smadd_widen_optab, $B, $A, CODE_FOR_$(madd$a$b4$)$N)", 108 "set_widening_optab_handler (umadd_widen_optab, $B, $A, CODE_FOR_$(umadd$a$b4$)$N)", 109 "set_widening_optab_handler (ssmadd_widen_optab, $B, $A, CODE_FOR_$(ssmadd$a$b4$)$N)", 110 "set_widening_optab_handler (usmadd_widen_optab, $B, $A, CODE_FOR_$(usmadd$a$b4$)$N)", 111 "set_widening_optab_handler (smsub_widen_optab, $B, $A, CODE_FOR_$(msub$a$b4$)$N)", 112 "set_widening_optab_handler (umsub_widen_optab, $B, $A, CODE_FOR_$(umsub$a$b4$)$N)", 113 "set_widening_optab_handler (ssmsub_widen_optab, $B, $A, CODE_FOR_$(ssmsub$a$b4$)$N)", 114 "set_widening_optab_handler (usmsub_widen_optab, $B, $A, CODE_FOR_$(usmsub$a$b4$)$N)", 115 "set_optab_handler (sdiv_optab, $A, CODE_FOR_$(div$a3$))", 116 "set_optab_handler (ssdiv_optab, $A, CODE_FOR_$(ssdiv$Q$a3$))", 117 "set_optab_handler (sdivv_optab, $A, CODE_FOR_$(div$V$I$a3$))", 118 "set_optab_handler (udiv_optab, $A, CODE_FOR_$(udiv$I$a3$))", 119 "set_optab_handler (udiv_optab, $A, CODE_FOR_$(udiv$Q$a3$))", 120 "set_optab_handler (usdiv_optab, $A, CODE_FOR_$(usdiv$Q$a3$))", 121 "set_optab_handler (sdivmod_optab, $A, CODE_FOR_$(divmod$a4$))", 122 "set_optab_handler (udivmod_optab, $A, CODE_FOR_$(udivmod$a4$))", 123 "set_optab_handler (smod_optab, $A, CODE_FOR_$(mod$a3$))", 124 "set_optab_handler (umod_optab, $A, CODE_FOR_$(umod$a3$))", 125 "set_optab_handler (fmod_optab, $A, CODE_FOR_$(fmod$a3$))", 126 "set_optab_handler (remainder_optab, $A, CODE_FOR_$(remainder$a3$))", 127 "set_optab_handler (ftrunc_optab, $A, CODE_FOR_$(ftrunc$F$a2$))", 128 "set_optab_handler (and_optab, $A, CODE_FOR_$(and$a3$))", 129 "set_optab_handler (ior_optab, $A, CODE_FOR_$(ior$a3$))", 130 "set_optab_handler (xor_optab, $A, CODE_FOR_$(xor$a3$))", 131 "set_optab_handler (ashl_optab, $A, CODE_FOR_$(ashl$a3$))", 132 "set_optab_handler (ssashl_optab, $A, CODE_FOR_$(ssashl$Q$a3$))", 133 "set_optab_handler (usashl_optab, $A, CODE_FOR_$(usashl$Q$a3$))", 134 "set_optab_handler (ashr_optab, $A, CODE_FOR_$(ashr$a3$))", 135 "set_optab_handler (lshr_optab, $A, CODE_FOR_$(lshr$a3$))", 136 "set_optab_handler (rotl_optab, $A, CODE_FOR_$(rotl$a3$))", 137 "set_optab_handler (rotr_optab, $A, CODE_FOR_$(rotr$a3$))", 138 "set_optab_handler (vashr_optab, $A, CODE_FOR_$(vashr$a3$))", 139 "set_optab_handler (vlshr_optab, $A, CODE_FOR_$(vlshr$a3$))", 140 "set_optab_handler (vashl_optab, $A, CODE_FOR_$(vashl$a3$))", 141 "set_optab_handler (vrotl_optab, $A, CODE_FOR_$(vrotl$a3$))", 142 "set_optab_handler (vrotr_optab, $A, CODE_FOR_$(vrotr$a3$))", 143 "set_optab_handler (smin_optab, $A, CODE_FOR_$(smin$a3$))", 144 "set_optab_handler (smax_optab, $A, CODE_FOR_$(smax$a3$))", 145 "set_optab_handler (umin_optab, $A, CODE_FOR_$(umin$I$a3$))", 146 "set_optab_handler (umax_optab, $A, CODE_FOR_$(umax$I$a3$))", 147 "set_optab_handler (pow_optab, $A, CODE_FOR_$(pow$a3$))", 148 "set_optab_handler (atan2_optab, $A, CODE_FOR_$(atan2$a3$))", 149 "set_optab_handler (neg_optab, $A, CODE_FOR_$(neg$P$a2$))", 150 "set_optab_handler (negv_optab, $A, CODE_FOR_$(neg$F$a2$)),\n\ 151 set_optab_handler (neg_optab, $A, CODE_FOR_$(neg$F$a2$))", 152 "set_optab_handler (negv_optab, $A, CODE_FOR_$(negv$I$a2$))", 153 "set_optab_handler (neg_optab, $A, CODE_FOR_$(neg$Q$a2$))", 154 "set_optab_handler (ssneg_optab, $A, CODE_FOR_$(ssneg$Q$a2$))", 155 "set_optab_handler (usneg_optab, $A, CODE_FOR_$(usneg$Q$a2$))", 156 "set_optab_handler (abs_optab, $A, CODE_FOR_$(abs$P$a2$))", 157 "set_optab_handler (absv_optab, $A, CODE_FOR_$(abs$F$a2$)),\n\ 158 set_optab_handler (abs_optab, $A, CODE_FOR_$(abs$F$a2$))", 159 "set_optab_handler (absv_optab, $A, CODE_FOR_$(absv$I$a2$))", 160 "set_optab_handler (copysign_optab, $A, CODE_FOR_$(copysign$F$a3$))", 161 "set_optab_handler (signbit_optab, $A, CODE_FOR_$(signbit$F$a2$))", 162 "set_optab_handler (isinf_optab, $A, CODE_FOR_$(isinf$a2$))", 163 "set_optab_handler (sqrt_optab, $A, CODE_FOR_$(sqrt$a2$))", 164 "set_optab_handler (floor_optab, $A, CODE_FOR_$(floor$a2$))", 165 "set_convert_optab_handler (lfloor_optab, $B, $A, CODE_FOR_$(lfloor$F$a$I$b2$))", 166 "set_optab_handler (fma_optab, $A, CODE_FOR_$(fma$a4$))", 167 "set_optab_handler (fms_optab, $A, CODE_FOR_$(fms$a4$))", 168 "set_optab_handler (fnma_optab, $A, CODE_FOR_$(fnma$a4$))", 169 "set_optab_handler (fnms_optab, $A, CODE_FOR_$(fnms$a4$))", 170 "set_optab_handler (ceil_optab, $A, CODE_FOR_$(ceil$a2$))", 171 "set_convert_optab_handler (lceil_optab, $B, $A, CODE_FOR_$(lceil$F$a$I$b2$))", 172 "set_optab_handler (round_optab, $A, CODE_FOR_$(round$a2$))", 173 "set_optab_handler (btrunc_optab, $A, CODE_FOR_$(btrunc$a2$))", 174 "set_optab_handler (nearbyint_optab, $A, CODE_FOR_$(nearbyint$a2$))", 175 "set_optab_handler (rint_optab, $A, CODE_FOR_$(rint$a2$))", 176 "set_convert_optab_handler (lrint_optab, $B, $A, CODE_FOR_$(lrint$F$a$I$b2$))", 177 "set_convert_optab_handler (lround_optab, $B, $A, CODE_FOR_$(lround$F$a$I$b2$))", 178 "set_optab_handler (sincos_optab, $A, CODE_FOR_$(sincos$a3$))", 179 "set_optab_handler (sin_optab, $A, CODE_FOR_$(sin$a2$))", 180 "set_optab_handler (asin_optab, $A, CODE_FOR_$(asin$a2$))", 181 "set_optab_handler (cos_optab, $A, CODE_FOR_$(cos$a2$))", 182 "set_optab_handler (acos_optab, $A, CODE_FOR_$(acos$a2$))", 183 "set_optab_handler (exp_optab, $A, CODE_FOR_$(exp$a2$))", 184 "set_optab_handler (exp10_optab, $A, CODE_FOR_$(exp10$a2$))", 185 "set_optab_handler (exp2_optab, $A, CODE_FOR_$(exp2$a2$))", 186 "set_optab_handler (expm1_optab, $A, CODE_FOR_$(expm1$a2$))", 187 "set_optab_handler (ldexp_optab, $A, CODE_FOR_$(ldexp$a3$))", 188 "set_optab_handler (scalb_optab, $A, CODE_FOR_$(scalb$a3$))", 189 "set_optab_handler (significand_optab, $A, CODE_FOR_$(significand$a2$))", 190 "set_optab_handler (logb_optab, $A, CODE_FOR_$(logb$a2$))", 191 "set_optab_handler (ilogb_optab, $A, CODE_FOR_$(ilogb$a2$))", 192 "set_optab_handler (log_optab, $A, CODE_FOR_$(log$a2$))", 193 "set_optab_handler (log10_optab, $A, CODE_FOR_$(log10$a2$))", 194 "set_optab_handler (log2_optab, $A, CODE_FOR_$(log2$a2$))", 195 "set_optab_handler (log1p_optab, $A, CODE_FOR_$(log1p$a2$))", 196 "set_optab_handler (tan_optab, $A, CODE_FOR_$(tan$a2$))", 197 "set_optab_handler (atan_optab, $A, CODE_FOR_$(atan$a2$))", 198 "set_optab_handler (strlen_optab, $A, CODE_FOR_$(strlen$a$))", 199 "set_optab_handler (one_cmpl_optab, $A, CODE_FOR_$(one_cmpl$a2$))", 200 "set_optab_handler (bswap_optab, $A, CODE_FOR_$(bswap$a2$))", 201 "set_optab_handler (ffs_optab, $A, CODE_FOR_$(ffs$a2$))", 202 "set_optab_handler (clz_optab, $A, CODE_FOR_$(clz$a2$))", 203 "set_optab_handler (ctz_optab, $A, CODE_FOR_$(ctz$a2$))", 204 "set_optab_handler (clrsb_optab, $A, CODE_FOR_$(clrsb$a2$))", 205 "set_optab_handler (popcount_optab, $A, CODE_FOR_$(popcount$a2$))", 206 "set_optab_handler (parity_optab, $A, CODE_FOR_$(parity$a2$))", 207 "set_optab_handler (mov_optab, $A, CODE_FOR_$(mov$a$))", 208 "set_optab_handler (movstrict_optab, $A, CODE_FOR_$(movstrict$a$))", 209 "set_optab_handler (movmisalign_optab, $A, CODE_FOR_$(movmisalign$a$))", 210 "set_optab_handler (storent_optab, $A, CODE_FOR_$(storent$a$))", 211 "set_optab_handler (addcc_optab, $A, CODE_FOR_$(add$acc$))", 212 "set_direct_optab_handler (movcc_optab, $A, CODE_FOR_$(mov$acc$))", 213 "set_optab_handler (cbranch_optab, $A, CODE_FOR_$(cbranch$a4$))", 214 "set_optab_handler (cmov_optab, $A, CODE_FOR_$(cmov$a6$))", 215 "set_optab_handler (cstore_optab, $A, CODE_FOR_$(cstore$a4$))", 216 "set_optab_handler (ctrap_optab, $A, CODE_FOR_$(ctrap$a4$))", 217 "set_optab_handler (push_optab, $A, CODE_FOR_$(push$a1$))", 218 "set_direct_optab_handler (reload_in_optab, $A, CODE_FOR_$(reload_in$a$))", 219 "set_direct_optab_handler (reload_out_optab, $A, CODE_FOR_$(reload_out$a$))", 220 "set_direct_optab_handler (movmem_optab, $A, CODE_FOR_$(movmem$a$))", 221 "set_direct_optab_handler (cmpstr_optab, $A, CODE_FOR_$(cmpstr$a$))", 222 "set_direct_optab_handler (cmpstrn_optab, $A, CODE_FOR_$(cmpstrn$a$))", 223 "set_direct_optab_handler (cmpmem_optab, $A, CODE_FOR_$(cmpmem$a$))", 224 "set_direct_optab_handler (setmem_optab, $A, CODE_FOR_$(setmem$a$))", 225 "set_direct_optab_handler (sync_add_optab, $A, CODE_FOR_$(sync_add$I$a$))", 226 "set_direct_optab_handler (sync_sub_optab, $A, CODE_FOR_$(sync_sub$I$a$))", 227 "set_direct_optab_handler (sync_ior_optab, $A, CODE_FOR_$(sync_ior$I$a$))", 228 "set_direct_optab_handler (sync_and_optab, $A, CODE_FOR_$(sync_and$I$a$))", 229 "set_direct_optab_handler (sync_xor_optab, $A, CODE_FOR_$(sync_xor$I$a$))", 230 "set_direct_optab_handler (sync_nand_optab, $A, CODE_FOR_$(sync_nand$I$a$))", 231 "set_optab_handler (sync_old_add_optab, $A, CODE_FOR_$(sync_old_add$I$a$))", 232 "set_optab_handler (sync_old_sub_optab, $A, CODE_FOR_$(sync_old_sub$I$a$))", 233 "set_optab_handler (sync_old_ior_optab, $A, CODE_FOR_$(sync_old_ior$I$a$))", 234 "set_optab_handler (sync_old_and_optab, $A, CODE_FOR_$(sync_old_and$I$a$))", 235 "set_optab_handler (sync_old_xor_optab, $A, CODE_FOR_$(sync_old_xor$I$a$))", 236 "set_optab_handler (sync_old_nand_optab, $A, CODE_FOR_$(sync_old_nand$I$a$))", 237 "set_optab_handler (sync_new_add_optab, $A, CODE_FOR_$(sync_new_add$I$a$))", 238 "set_optab_handler (sync_new_sub_optab, $A, CODE_FOR_$(sync_new_sub$I$a$))", 239 "set_optab_handler (sync_new_ior_optab, $A, CODE_FOR_$(sync_new_ior$I$a$))", 240 "set_optab_handler (sync_new_and_optab, $A, CODE_FOR_$(sync_new_and$I$a$))", 241 "set_optab_handler (sync_new_xor_optab, $A, CODE_FOR_$(sync_new_xor$I$a$))", 242 "set_optab_handler (sync_new_nand_optab, $A, CODE_FOR_$(sync_new_nand$I$a$))", 243 "set_optab_handler (sync_compare_and_swap_optab, $A, CODE_FOR_$(sync_compare_and_swap$I$a$))", 244 "set_optab_handler (sync_lock_test_and_set_optab, $A, CODE_FOR_$(sync_lock_test_and_set$I$a$))", 245 "set_direct_optab_handler (sync_lock_release_optab, $A, CODE_FOR_$(sync_lock_release$I$a$))", 246 "set_direct_optab_handler (atomic_exchange_optab, $A, CODE_FOR_$(atomic_exchange$I$a$))", 247 "set_direct_optab_handler (atomic_compare_and_swap_optab, $A, CODE_FOR_$(atomic_compare_and_swap$I$a$))", 248 "set_direct_optab_handler (atomic_load_optab, $A, CODE_FOR_$(atomic_load$I$a$))", 249 "set_direct_optab_handler (atomic_store_optab, $A, CODE_FOR_$(atomic_store$I$a$))", 250 "set_direct_optab_handler (atomic_add_fetch_optab, $A, CODE_FOR_$(atomic_add_fetch$I$a$))", 251 "set_direct_optab_handler (atomic_sub_fetch_optab, $A, CODE_FOR_$(atomic_sub_fetch$I$a$))", 252 "set_direct_optab_handler (atomic_and_fetch_optab, $A, CODE_FOR_$(atomic_and_fetch$I$a$))", 253 "set_direct_optab_handler (atomic_nand_fetch_optab, $A, CODE_FOR_$(atomic_nand_fetch$I$a$))", 254 "set_direct_optab_handler (atomic_xor_fetch_optab, $A, CODE_FOR_$(atomic_xor_fetch$I$a$))", 255 "set_direct_optab_handler (atomic_or_fetch_optab, $A, CODE_FOR_$(atomic_or_fetch$I$a$))", 256 "set_direct_optab_handler (atomic_fetch_add_optab, $A, CODE_FOR_$(atomic_fetch_add$I$a$))", 257 "set_direct_optab_handler (atomic_fetch_sub_optab, $A, CODE_FOR_$(atomic_fetch_sub$I$a$))", 258 "set_direct_optab_handler (atomic_fetch_and_optab, $A, CODE_FOR_$(atomic_fetch_and$I$a$))", 259 "set_direct_optab_handler (atomic_fetch_nand_optab, $A, CODE_FOR_$(atomic_fetch_nand$I$a$))", 260 "set_direct_optab_handler (atomic_fetch_xor_optab, $A, CODE_FOR_$(atomic_fetch_xor$I$a$))", 261 "set_direct_optab_handler (atomic_fetch_or_optab, $A, CODE_FOR_$(atomic_fetch_or$I$a$))", 262 "set_direct_optab_handler (atomic_add_optab, $A, CODE_FOR_$(atomic_add$I$a$))", 263 "set_direct_optab_handler (atomic_sub_optab, $A, CODE_FOR_$(atomic_sub$I$a$))", 264 "set_direct_optab_handler (atomic_and_optab, $A, CODE_FOR_$(atomic_and$I$a$))", 265 "set_direct_optab_handler (atomic_nand_optab, $A, CODE_FOR_$(atomic_nand$I$a$))", 266 "set_direct_optab_handler (atomic_xor_optab, $A, CODE_FOR_$(atomic_xor$I$a$))", 267 "set_direct_optab_handler (atomic_or_optab, $A, CODE_FOR_$(atomic_or$I$a$))", 268 "set_optab_handler (vec_set_optab, $A, CODE_FOR_$(vec_set$a$))", 269 "set_optab_handler (vec_extract_optab, $A, CODE_FOR_$(vec_extract$a$))", 270 "set_optab_handler (vec_init_optab, $A, CODE_FOR_$(vec_init$a$))", 271 "set_optab_handler (vec_shl_optab, $A, CODE_FOR_$(vec_shl_$a$))", 272 "set_optab_handler (vec_shr_optab, $A, CODE_FOR_$(vec_shr_$a$))", 273 "set_optab_handler (vec_realign_load_optab, $A, CODE_FOR_$(vec_realign_load_$a$))", 274 "set_direct_optab_handler (vec_perm_optab, $A, CODE_FOR_$(vec_perm$a$))", 275 "set_direct_optab_handler (vec_perm_const_optab, $A, CODE_FOR_$(vec_perm_const$a$))", 276 "set_convert_optab_handler (vcond_optab, $A, $B, CODE_FOR_$(vcond$a$b$))", 277 "set_convert_optab_handler (vcondu_optab, $A, $B, CODE_FOR_$(vcondu$a$b$))", 278 "set_optab_handler (ssum_widen_optab, $A, CODE_FOR_$(widen_ssum$I$a3$))", 279 "set_optab_handler (usum_widen_optab, $A, CODE_FOR_$(widen_usum$I$a3$))", 280 "set_optab_handler (udot_prod_optab, $A, CODE_FOR_$(udot_prod$I$a$))", 281 "set_optab_handler (sdot_prod_optab, $A, CODE_FOR_$(sdot_prod$I$a$))", 282 "set_optab_handler (reduc_smax_optab, $A, CODE_FOR_$(reduc_smax_$a$))", 283 "set_optab_handler (reduc_umax_optab, $A, CODE_FOR_$(reduc_umax_$a$))", 284 "set_optab_handler (reduc_smin_optab, $A, CODE_FOR_$(reduc_smin_$a$))", 285 "set_optab_handler (reduc_umin_optab, $A, CODE_FOR_$(reduc_umin_$a$))", 286 "set_optab_handler (reduc_splus_optab, $A, CODE_FOR_$(reduc_splus_$a$))" , 287 "set_optab_handler (reduc_uplus_optab, $A, CODE_FOR_$(reduc_uplus_$a$))", 288 "set_optab_handler (vec_widen_umult_hi_optab, $A, CODE_FOR_$(vec_widen_umult_hi_$a$))", 289 "set_optab_handler (vec_widen_umult_lo_optab, $A, CODE_FOR_$(vec_widen_umult_lo_$a$))", 290 "set_optab_handler (vec_widen_smult_hi_optab, $A, CODE_FOR_$(vec_widen_smult_hi_$a$))", 291 "set_optab_handler (vec_widen_smult_lo_optab, $A, CODE_FOR_$(vec_widen_smult_lo_$a$))", 292 "set_optab_handler (vec_widen_ushiftl_hi_optab, $A, CODE_FOR_$(vec_widen_ushiftl_hi_$a$))", 293 "set_optab_handler (vec_widen_ushiftl_lo_optab, $A, CODE_FOR_$(vec_widen_ushiftl_lo_$a$))", 294 "set_optab_handler (vec_widen_sshiftl_hi_optab, $A, CODE_FOR_$(vec_widen_sshiftl_hi_$a$))", 295 "set_optab_handler (vec_widen_sshiftl_lo_optab, $A, CODE_FOR_$(vec_widen_sshiftl_lo_$a$))", 296 "set_optab_handler (vec_unpacks_hi_optab, $A, CODE_FOR_$(vec_unpacks_hi_$a$))", 297 "set_optab_handler (vec_unpacks_lo_optab, $A, CODE_FOR_$(vec_unpacks_lo_$a$))", 298 "set_optab_handler (vec_unpacku_hi_optab, $A, CODE_FOR_$(vec_unpacku_hi_$a$))", 299 "set_optab_handler (vec_unpacku_lo_optab, $A, CODE_FOR_$(vec_unpacku_lo_$a$))", 300 "set_optab_handler (vec_unpacks_float_hi_optab, $A, CODE_FOR_$(vec_unpacks_float_hi_$a$))", 301 "set_optab_handler (vec_unpacks_float_lo_optab, $A, CODE_FOR_$(vec_unpacks_float_lo_$a$))", 302 "set_optab_handler (vec_unpacku_float_hi_optab, $A, CODE_FOR_$(vec_unpacku_float_hi_$a$))", 303 "set_optab_handler (vec_unpacku_float_lo_optab, $A, CODE_FOR_$(vec_unpacku_float_lo_$a$))", 304 "set_optab_handler (vec_pack_trunc_optab, $A, CODE_FOR_$(vec_pack_trunc_$a$))", 305 "set_optab_handler (vec_pack_ssat_optab, $A, CODE_FOR_$(vec_pack_ssat_$a$))", 306 "set_optab_handler (vec_pack_usat_optab, $A, CODE_FOR_$(vec_pack_usat_$a$))", 307 "set_optab_handler (vec_pack_sfix_trunc_optab, $A, CODE_FOR_$(vec_pack_sfix_trunc_$a$))", 308 "set_optab_handler (vec_pack_ufix_trunc_optab, $A, CODE_FOR_$(vec_pack_ufix_trunc_$a$))" 309 }; 310 311 static void gen_insn (rtx); 312 313 static void 314 gen_insn (rtx insn) 315 { 316 const char *name = XSTR (insn, 0); 317 int m1 = 0, m2 = 0, op = 0; 318 size_t pindex; 319 int i; 320 const char *np, *pp, *p, *q; 321 322 /* Don't mention instructions whose names are the null string. 323 They are in the machine description just to be recognized. */ 324 if (*name == 0) 325 return; 326 327 /* See if NAME matches one of the patterns we have for the optabs we know 328 about. */ 329 330 for (pindex = 0; pindex < ARRAY_SIZE (optabs); pindex++) 331 { 332 int force_float = 0, force_int = 0, force_partial_int = 0; 333 int force_fixed = 0; 334 int force_wider = 0; 335 int matches = 1; 336 337 for (pp = optabs[pindex]; pp[0] != '$' || pp[1] != '('; pp++) 338 ; 339 340 for (pp += 2, np = name; matches && ! (pp[0] == '$' && pp[1] == ')'); 341 pp++) 342 { 343 if (*pp != '$') 344 { 345 if (*pp != *np++) 346 break; 347 } 348 else 349 switch (*++pp) 350 { 351 case 'N': 352 force_wider = 1; 353 break; 354 case 'I': 355 force_int = 1; 356 break; 357 case 'P': 358 force_partial_int = 1; 359 break; 360 case 'F': 361 force_float = 1; 362 break; 363 case 'Q': 364 force_fixed = 1; 365 break; 366 case 'V': 367 break; 368 case 'c': 369 for (op = 0; op < NUM_RTX_CODE; op++) 370 { 371 for (p = GET_RTX_NAME(op), q = np; *p; p++, q++) 372 if (*p != *q) 373 break; 374 375 /* We have to be concerned about matching "gt" and 376 missing "gtu", e.g., so verify we have reached the 377 end of thing we are to match. */ 378 if (*p == 0 && *q == 0 379 && (GET_RTX_CLASS (op) == RTX_COMPARE 380 || GET_RTX_CLASS (op) == RTX_COMM_COMPARE)) 381 break; 382 } 383 384 if (op == NUM_RTX_CODE) 385 matches = 0; 386 else 387 np += strlen (GET_RTX_NAME(op)); 388 break; 389 case 'a': 390 case 'b': 391 /* This loop will stop at the first prefix match, so 392 look through the modes in reverse order, in case 393 there are extra CC modes and CC is a prefix of the 394 CC modes (as it should be). */ 395 for (i = (MAX_MACHINE_MODE) - 1; i >= 0; i--) 396 { 397 for (p = GET_MODE_NAME(i), q = np; *p; p++, q++) 398 if (TOLOWER (*p) != *q) 399 break; 400 401 if (*p == 0 402 && (! force_int || mode_class[i] == MODE_INT 403 || mode_class[i] == MODE_VECTOR_INT) 404 && (! force_partial_int 405 || mode_class[i] == MODE_INT 406 || mode_class[i] == MODE_PARTIAL_INT 407 || mode_class[i] == MODE_VECTOR_INT) 408 && (! force_float 409 || mode_class[i] == MODE_FLOAT 410 || mode_class[i] == MODE_DECIMAL_FLOAT 411 || mode_class[i] == MODE_COMPLEX_FLOAT 412 || mode_class[i] == MODE_VECTOR_FLOAT) 413 && (! force_fixed 414 || mode_class[i] == MODE_FRACT 415 || mode_class[i] == MODE_UFRACT 416 || mode_class[i] == MODE_ACCUM 417 || mode_class[i] == MODE_UACCUM 418 || mode_class[i] == MODE_VECTOR_FRACT 419 || mode_class[i] == MODE_VECTOR_UFRACT 420 || mode_class[i] == MODE_VECTOR_ACCUM 421 || mode_class[i] == MODE_VECTOR_UACCUM) 422 && (! force_wider 423 || *pp == 'a' 424 || m1 < i)) 425 break; 426 } 427 428 if (i < 0) 429 matches = 0; 430 else if (*pp == 'a') 431 m1 = i, np += strlen (GET_MODE_NAME(i)); 432 else 433 m2 = i, np += strlen (GET_MODE_NAME(i)); 434 435 force_int = force_partial_int = force_float = force_fixed = 0; 436 break; 437 438 default: 439 gcc_unreachable (); 440 } 441 } 442 443 if (matches && pp[0] == '$' && pp[1] == ')' 444 && *np == 0) 445 break; 446 } 447 448 if (pindex == ARRAY_SIZE (optabs)) 449 return; 450 451 /* We found a match. If this pattern is only conditionally present, 452 write out the "if" and two extra blanks. */ 453 454 if (*XSTR (insn, 2) != 0) 455 printf (" if (HAVE_%s)\n ", name); 456 457 printf (" "); 458 459 /* Now write out the initialization, making all required substitutions. */ 460 for (pp = optabs[pindex]; *pp; pp++) 461 { 462 if (*pp != '$') 463 putchar (*pp); 464 else 465 switch (*++pp) 466 { 467 case '(': case ')': 468 case 'I': case 'F': case 'N': 469 break; 470 case 'V': 471 if (SCALAR_FLOAT_MODE_P (m1)) 472 printf ("v"); 473 break; 474 case 'a': 475 for (np = GET_MODE_NAME(m1); *np; np++) 476 putchar (TOLOWER (*np)); 477 break; 478 case 'b': 479 for (np = GET_MODE_NAME(m2); *np; np++) 480 putchar (TOLOWER (*np)); 481 break; 482 case 'A': 483 printf ("%smode", GET_MODE_NAME(m1)); 484 break; 485 case 'B': 486 printf ("%smode", GET_MODE_NAME(m2)); 487 break; 488 case 'c': 489 printf ("%s", GET_RTX_NAME(op)); 490 break; 491 case 'C': 492 for (np = GET_RTX_NAME(op); *np; np++) 493 putchar (TOUPPER (*np)); 494 break; 495 } 496 } 497 498 printf (";\n"); 499 } 500 501 extern int main (int, char **); 502 503 int 504 main (int argc, char **argv) 505 { 506 rtx desc; 507 508 progname = "genopinit"; 509 510 if (!init_rtx_reader_args (argc, argv)) 511 return (FATAL_EXIT_CODE); 512 513 printf ("/* Generated automatically by the program `genopinit'\n\ 514 from the machine description file `md'. */\n\n"); 515 516 printf ("#include \"config.h\"\n"); 517 printf ("#include \"system.h\"\n"); 518 printf ("#include \"coretypes.h\"\n"); 519 printf ("#include \"tm.h\"\n"); 520 printf ("#include \"rtl.h\"\n"); 521 printf ("#include \"tm_p.h\"\n"); 522 printf ("#include \"flags.h\"\n"); 523 printf ("#include \"insn-config.h\"\n"); 524 printf ("#include \"recog.h\"\n"); 525 printf ("#include \"expr.h\"\n"); 526 printf ("#include \"optabs.h\"\n"); 527 printf ("#include \"reload.h\"\n\n"); 528 529 printf ("void\ninit_all_optabs (void)\n{\n"); 530 531 puts ("\ 532 #ifdef FIXUNS_TRUNC_LIKE_FIX_TRUNC\n\ 533 int i, j;\n\ 534 #endif\n"); 535 536 /* Read the machine description. */ 537 538 while (1) 539 { 540 int line_no, insn_code_number = 0; 541 542 desc = read_md_rtx (&line_no, &insn_code_number); 543 if (desc == NULL) 544 break; 545 546 if (GET_CODE (desc) == DEFINE_INSN || GET_CODE (desc) == DEFINE_EXPAND) 547 gen_insn (desc); 548 } 549 550 puts ("\ 551 \n\ 552 #ifdef FIXUNS_TRUNC_LIKE_FIX_TRUNC\n\ 553 /* This flag says the same insns that convert to a signed fixnum\n\ 554 also convert validly to an unsigned one. */\n\ 555 for (i = 0; i < NUM_MACHINE_MODES; i++)\n\ 556 for (j = 0; j < NUM_MACHINE_MODES; j++)\n\ 557 set_convert_optab_handler\n\ 558 (ufixtrunc_optab, (enum machine_mode) i, (enum machine_mode) j,\n\ 559 convert_optab_handler (sfixtrunc_optab, (enum machine_mode) i,\n\ 560 (enum machine_mode) j));\n\ 561 #endif\n\ 562 }"); 563 564 fflush (stdout); 565 return (ferror (stdout) != 0 ? FATAL_EXIT_CODE : SUCCESS_EXIT_CODE); 566 } 567