gas/config/xtensa-relax.c

   1 /* Table of relaxations for Xtensa assembly.
   2    Copyright 2003, 2004, 2005, 2007 Free Software Foundation, Inc.
   3
   4    This file is part of GAS, the GNU Assembler.
   5
   6    GAS is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3, or (at your option)
   9    any later version.
  10
  11    GAS is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with GAS; see the file COPYING.  If not, write to
  18    the Free Software Foundation, 51 Franklin Street - Fifth Floor, Boston,
  19    MA 02110-1301, USA.  */
  20
  21 /* This file contains the code for generating runtime data structures
  22    for relaxation pattern matching from statically specified strings.
  23    Each action contains an instruction pattern to match and
  24    preconditions for the match as well as an expansion if the pattern
  25    matches.  The preconditions can specify that two operands are the
  26    same or an operand is a specific constant or register.  The expansion
  27    uses the bound variables from the pattern to specify that specific
  28    operands from the pattern should be used in the result.
  29
  30    The code determines whether the condition applies to a constant or
  31    a register depending on the type of the operand.  You may get
  32    unexpected results if you don't match the rule against the operand
  33    type correctly.
  34
  35    The patterns match a language like:
  36
  37    INSN_PATTERN ::= INSN_TEMPL ( '|' PRECOND )* ( '?' OPTIONPRED )*
  38    INSN_TEMPL   ::= OPCODE ' ' [ OPERAND (',' OPERAND)* ]
  39    OPCODE       ::=  id
  40    OPERAND      ::= CONSTANT | VARIABLE | SPECIALFN '(' VARIABLE ')'
  41    SPECIALFN    ::= 'HI24S' | 'F32MINUS' | 'LOW8'
  42                     | 'HI16' | 'LOW16'
  43    VARIABLE     ::= '%' id
  44    PRECOND      ::= OPERAND CMPOP OPERAND
  45    CMPOP        ::= '==' | '!='
  46    OPTIONPRED   ::= OPTIONNAME ('+' OPTIONNAME)
  47    OPTIONNAME   ::= '"' id '"'
  48
  49    The replacement language
  50    INSN_REPL      ::= INSN_LABEL_LIT ( ';' INSN_LABEL_LIT )*
  51    INSN_LABEL_LIT ::= INSN_TEMPL
  52                       | 'LABEL'
  53                       | 'LITERAL' VARIABLE
  54
  55    The operands in a PRECOND must be constants or variables bound by
  56    the INSN_PATTERN.
  57
  58    The configuration options define a predicate on the availability of
  59    options which must be TRUE for this rule to be valid.  Examples are
  60    requiring "density" for replacements with density instructions,
  61    requiring "const16" for replacements that require const16
  62    instructions, etc.  The names are interpreted by the assembler to a
  63    truth value for a particular frag.
  64
  65    The operands in the INSN_REPL must be constants, variables bound in
  66    the associated INSN_PATTERN, special variables that are bound in
  67    the INSN_REPL by LABEL or LITERAL definitions, or special value
  68    manipulation functions.
  69
  70    A simple example of a replacement pattern:
  71    {"movi.n %as,%imm", "movi %as,%imm"} would convert the narrow
  72    movi.n instruction to the wide movi instruction.
  73
  74    A more complex example of a branch around:
  75    {"beqz %as,%label", "bnez %as,%LABEL;j %label;LABEL"}
  76    would convert a branch to a negated branch to the following instruction
  77    with a jump to the original label.
  78
  79    An Xtensa-specific example that generates a literal:
  80    {"movi %at,%imm", "LITERAL %imm; l32r %at,%LITERAL"}
  81    will convert a movi instruction to an l32r of a literal
  82    literal defined in the literal pool.
  83
  84    Even more complex is a conversion of a load with immediate offset
  85    to a load of a freshly generated literal, an explicit add and
  86    a load with 0 offset.  This transformation is only valid, though
  87    when the first and second operands are not the same as specified
  88    by the "| %at!=%as" precondition clause.
  89    {"l32i %at,%as,%imm | %at!=%as",
  90    "LITERAL %imm; l32r %at,%LITERAL; add %at,%at,%as; l32i %at,%at,0"}
  91
  92    There is special case for loop instructions here, but because we do
  93    not currently have the ability to represent the difference of two
  94    symbols, the conversion requires special code in the assembler to
  95    write the operands of the addi/addmi pair representing the
  96    difference of the old and new loop end label.  */
  97
  98 #include "as.h"
  99 #include "xtensa-isa.h"
 100 #include "xtensa-relax.h"
 101 #include <stddef.h>
 102 #include "xtensa-config.h"
 103
 104 #ifndef XCHAL_HAVE_WIDE_BRANCHES
 105 #define XCHAL_HAVE_WIDE_BRANCHES 0
 106 #endif
 107
 108 /* Imported from bfd.  */
 109 extern xtensa_isa xtensa_default_isa;
 110
 111 /* The opname_list is a small list of names that we use for opcode and
 112    operand variable names to simplify ownership of these commonly used
 113    strings.  Strings entered in the table can be compared by pointer
 114    equality.  */
 115
 116 typedef struct opname_list_struct opname_list;
 117 typedef opname_list opname_e;
 118
 119 struct opname_list_struct
 120 {
 121   char *opname;
 122   opname_list *next;
 123 };
 124
 125 static opname_list *local_opnames = NULL;
 126
 127
 128 /* The "opname_map" and its element structure "opname_map_e" are used
 129    for binding an operand number to a name or a constant.  */
 130
 131 typedef struct opname_map_e_struct opname_map_e;
 132 typedef struct opname_map_struct opname_map;
 133
 134 struct opname_map_e_struct
 135 {
 136   const char *operand_name;     /* If null, then use constant_value.  */
 137   int operand_num;
 138   unsigned constant_value;
 139   opname_map_e *next;
 140 };
 141
 142 struct opname_map_struct
 143 {
 144   opname_map_e *head;
 145   opname_map_e **tail;
 146 };
 147
 148 /* The "precond_list" and its element structure "precond_e" represents
 149    explicit preconditions comparing operand variables and constants.
 150    In the "precond_e" structure, a variable is identified by the name
 151    in the "opname" field.   If that field is NULL, then the operand
 152    is the constant in field "opval".  */
 153
 154 typedef struct precond_e_struct precond_e;
 155 typedef struct precond_list_struct precond_list;
 156
 157 struct precond_e_struct
 158 {
 159   const char *opname1;
 160   unsigned opval1;
 161   CmpOp cmpop;
 162   const char *opname2;
 163   unsigned opval2;
 164   precond_e *next;
 165 };
 166
 167 struct precond_list_struct
 168 {
 169   precond_e *head;
 170   precond_e **tail;
 171 };
 172
 173
 174 /* The insn_templ represents the INSN_TEMPL instruction template.  It
 175    is an opcode name with a list of operands.  These are used for
 176    instruction patterns and replacement patterns.  */
 177
 178 typedef struct insn_templ_struct insn_templ;
 179 struct insn_templ_struct
 180 {
 181   const char *opcode_name;
 182   opname_map operand_map;
 183 };
 184
 185
 186 /* The insn_pattern represents an INSN_PATTERN instruction pattern.
 187    It is an instruction template with preconditions that specify when
 188    it actually matches a given instruction.  */
 189
 190 typedef struct insn_pattern_struct insn_pattern;
 191 struct insn_pattern_struct
 192 {
 193   insn_templ t;
 194   precond_list preconds;
 195   ReqOptionList *options;
 196 };
 197
 198
 199 /* The "insn_repl" and associated element structure "insn_repl_e"
 200    instruction replacement list is a list of
 201    instructions/LITERALS/LABELS with constant operands or operands
 202    with names bound to the operand names in the associated pattern.  */
 203
 204 typedef struct insn_repl_e_struct insn_repl_e;
 205 struct insn_repl_e_struct
 206 {
 207   insn_templ t;
 208   insn_repl_e *next;
 209 };
 210
 211 typedef struct insn_repl_struct insn_repl;
 212 struct insn_repl_struct
 213 {
 214   insn_repl_e *head;
 215   insn_repl_e **tail;
 216 };
 217
 218
 219 /* The split_rec is a vector of allocated char * pointers.  */
 220
 221 typedef struct split_rec_struct split_rec;
 222 struct split_rec_struct
 223 {
 224   char **vec;
 225   int count;
 226 };
 227
 228 /* The "string_pattern_pair" is a set of pairs containing instruction
 229    patterns and replacement strings.  */
 230
 231 typedef struct string_pattern_pair_struct string_pattern_pair;
 232 struct string_pattern_pair_struct
 233 {
 234   const char *pattern;
 235   const char *replacement;
 236 };
 237
 238 \f
 239 /* The widen_spec_list is a list of valid substitutions that generate
 240    wider representations.  These are generally used to specify
 241    replacements for instructions whose immediates do not fit their
 242    encodings.  A valid transition may require multiple steps of
 243    one-to-one instruction replacements with a final multiple
 244    instruction replacement.  As an example, here are the transitions
 245    required to replace an 'addi.n' with an 'addi', 'addmi'.
 246
 247      addi.n a4, 0x1010
 248      => addi a4, 0x1010
 249      => addmi a4, 0x1010
 250      => addmi a4, 0x1000, addi a4, 0x10.
 251
 252    See the comments in xg_assembly_relax for some important details
 253    regarding how these chains must be built.  */
 254
 255 static string_pattern_pair widen_spec_list[] =
 256 {
 257   {"add.n %ar,%as,%at ? IsaUseDensityInstruction", "add %ar,%as,%at"},
 258   {"addi.n %ar,%as,%imm ? IsaUseDensityInstruction", "addi %ar,%as,%imm"},
 259   {"beqz.n %as,%label ? IsaUseDensityInstruction", "beqz %as,%label"},
 260   {"bnez.n %as,%label ? IsaUseDensityInstruction", "bnez %as,%label"},
 261   {"l32i.n %at,%as,%imm ? IsaUseDensityInstruction", "l32i %at,%as,%imm"},
 262   {"mov.n %at,%as ? IsaUseDensityInstruction", "or %at,%as,%as"},
 263   {"movi.n %as,%imm ? IsaUseDensityInstruction", "movi %as,%imm"},
 264   {"nop.n ? IsaUseDensityInstruction ? realnop", "nop"},
 265   {"nop.n ? IsaUseDensityInstruction ? no-realnop", "or 1,1,1"},
 266   {"ret.n %as ? IsaUseDensityInstruction", "ret %as"},
 267   {"retw.n %as ? IsaUseDensityInstruction", "retw %as"},
 268   {"s32i.n %at,%as,%imm ? IsaUseDensityInstruction", "s32i %at,%as,%imm"},
 269   {"srli %at,%as,%imm", "extui %at,%as,%imm,F32MINUS(%imm)"},
 270   {"slli %ar,%as,0", "or %ar,%as,%as"},
 271
 272   /* Widening with literals or const16.  */
 273   {"movi %at,%imm ? IsaUseL32R ",
 274    "LITERAL %imm; l32r %at,%LITERAL"},
 275   {"movi %at,%imm ? IsaUseConst16",
 276    "const16 %at,HI16U(%imm); const16 %at,LOW16U(%imm)"},
 277
 278   {"addi %ar,%as,%imm", "addmi %ar,%as,%imm"},
 279   /* LOW8 is the low 8 bits of the Immed
 280      MID8S is the middle 8 bits of the Immed */
 281   {"addmi %ar,%as,%imm", "addmi %ar,%as,HI24S(%imm); addi %ar,%ar,LOW8(%imm)"},
 282
 283   /* In the end convert to either an l32r or const16.  */
 284   {"addmi %ar,%as,%imm | %ar!=%as ? IsaUseL32R",
 285    "LITERAL %imm; l32r %ar,%LITERAL; add %ar,%as,%ar"},
 286   {"addmi %ar,%as,%imm | %ar!=%as ? IsaUseConst16",
 287    "const16 %ar,HI16U(%imm); const16 %ar,LOW16U(%imm); add %ar,%as,%ar"},
 288
 289   /* Widening the load instructions with too-large immediates */
 290   {"l8ui %at,%as,%imm | %at!=%as ? IsaUseL32R",
 291    "LITERAL %imm; l32r %at,%LITERAL; add %at,%at,%as; l8ui %at,%at,0"},
 292   {"l16si %at,%as,%imm | %at!=%as ? IsaUseL32R",
 293    "LITERAL %imm; l32r %at,%LITERAL; add %at,%at,%as; l16si %at,%at,0"},
 294   {"l16ui %at,%as,%imm | %at!=%as ? IsaUseL32R",
 295    "LITERAL %imm; l32r %at,%LITERAL; add %at,%at,%as; l16ui %at,%at,0"},
 296   {"l32i %at,%as,%imm | %at!=%as ? IsaUseL32R",
 297    "LITERAL %imm; l32r %at,%LITERAL; add %at,%at,%as; l32i %at,%at,0"},
 298
 299   /* Widening load instructions with const16s.  */
 300   {"l8ui %at,%as,%imm | %at!=%as ? IsaUseConst16",
 301    "const16 %at,HI16U(%imm); const16 %at,LOW16U(%imm); add %at,%at,%as; l8ui %at,%at,0"},
 302   {"l16si %at,%as,%imm | %at!=%as ? IsaUseConst16",
 303    "const16 %at,HI16U(%imm); const16 %at,LOW16U(%imm); add %at,%at,%as; l16si %at,%at,0"},
 304   {"l16ui %at,%as,%imm | %at!=%as ? IsaUseConst16",
 305    "const16 %at,HI16U(%imm); const16 %at,LOW16U(%imm); add %at,%at,%as; l16ui %at,%at,0"},
 306   {"l32i %at,%as,%imm | %at!=%as ? IsaUseConst16",
 307    "const16 %at,HI16U(%imm); const16 %at,LOW16U(%imm); add %at,%at,%as; l32i %at,%at,0"},
 308
 309   /* This is only PART of the loop instruction.  In addition,
 310      hardcoded into its use is a modification of the final operand in
 311      the instruction in bytes 9 and 12.  */
 312   {"loop %as,%label | %as!=1 ? IsaUseLoops",
 313    "loop %as,%LABEL;"
 314    "rsr.lend    %as;"           /* LEND */
 315    "wsr.lbeg    %as;"           /* LBEG */
 316    "addi    %as, %as, 0;"       /* lo8(%label-%LABEL1) */
 317    "addmi   %as, %as, 0;"       /* mid8(%label-%LABEL1) */
 318    "wsr.lend    %as;"
 319    "isync;"
 320    "rsr.lcount    %as;"         /* LCOUNT */
 321    "addi    %as, %as, 1;"       /* density -> addi.n %as, %as, 1 */
 322    "LABEL"},
 323   {"loopgtz %as,%label | %as!=1 ? IsaUseLoops",
 324    "beqz    %as,%label;"
 325    "bltz    %as,%label;"
 326    "loopgtz %as,%LABEL;"
 327    "rsr.lend    %as;"           /* LEND */
 328    "wsr.lbeg    %as;"           /* LBEG */
 329    "addi    %as, %as, 0;"       /* lo8(%label-%LABEL1) */
 330    "addmi   %as, %as, 0;"       /* mid8(%label-%LABEL1) */
 331    "wsr.lend    %as;"
 332    "isync;"
 333    "rsr.lcount    %as;"         /* LCOUNT */
 334    "addi    %as, %as, 1;"       /* density -> addi.n %as, %as, 1 */
 335    "LABEL"},
 336   {"loopnez %as,%label | %as!=1 ? IsaUseLoops",
 337    "beqz     %as,%label;"
 338    "loopnez %as,%LABEL;"
 339    "rsr.lend    %as;"           /* LEND */
 340    "wsr.lbeg    %as;"           /* LBEG */
 341    "addi    %as, %as, 0;"       /* lo8(%label-%LABEL1) */
 342    "addmi   %as, %as, 0;"       /* mid8(%label-%LABEL1) */
 343    "wsr.lend    %as;"
 344    "isync;"
 345    "rsr.lcount    %as;"         /* LCOUNT */
 346    "addi    %as, %as, 1;"       /* density -> addi.n %as, %as, 1 */
 347    "LABEL"},
 348
 349   /* Relaxing to wide branches.  Order is important here.  With wide
 350      branches, there is more than one correct relaxation for an
 351      out-of-range branch.  Put the wide branch relaxations first in the
 352      table since they are more efficient than the branch-around
 353      relaxations.  */
 354
 355   {"beqz %as,%label ? IsaUseWideBranches", "WIDE.beqz %as,%label"},
 356   {"bnez %as,%label ? IsaUseWideBranches", "WIDE.bnez %as,%label"},
 357   {"bgez %as,%label ? IsaUseWideBranches", "WIDE.bgez %as,%label"},
 358   {"bltz %as,%label ? IsaUseWideBranches", "WIDE.bltz %as,%label"},
 359   {"beqi %as,%imm,%label ? IsaUseWideBranches", "WIDE.beqi %as,%imm,%label"},
 360   {"bnei %as,%imm,%label ? IsaUseWideBranches", "WIDE.bnei %as,%imm,%label"},
 361   {"bgei %as,%imm,%label ? IsaUseWideBranches", "WIDE.bgei %as,%imm,%label"},
 362   {"blti %as,%imm,%label ? IsaUseWideBranches", "WIDE.blti %as,%imm,%label"},
 363   {"bgeui %as,%imm,%label ? IsaUseWideBranches", "WIDE.bgeui %as,%imm,%label"},
 364   {"bltui %as,%imm,%label ? IsaUseWideBranches", "WIDE.bltui %as,%imm,%label"},
 365   {"bbci %as,%imm,%label ? IsaUseWideBranches", "WIDE.bbci %as,%imm,%label"},
 366   {"bbsi %as,%imm,%label ? IsaUseWideBranches", "WIDE.bbsi %as,%imm,%label"},
 367   {"beq %as,%at,%label ? IsaUseWideBranches", "WIDE.beq %as,%at,%label"},
 368   {"bne %as,%at,%label ? IsaUseWideBranches", "WIDE.bne %as,%at,%label"},
 369   {"bge %as,%at,%label ? IsaUseWideBranches", "WIDE.bge %as,%at,%label"},
 370   {"blt %as,%at,%label ? IsaUseWideBranches", "WIDE.blt %as,%at,%label"},
 371   {"bgeu %as,%at,%label ? IsaUseWideBranches", "WIDE.bgeu %as,%at,%label"},
 372   {"bltu %as,%at,%label ? IsaUseWideBranches", "WIDE.bltu %as,%at,%label"},
 373   {"bany %as,%at,%label ? IsaUseWideBranches", "WIDE.bany %as,%at,%label"},
 374   {"bnone %as,%at,%label ? IsaUseWideBranches", "WIDE.bnone %as,%at,%label"},
 375   {"ball %as,%at,%label ? IsaUseWideBranches", "WIDE.ball %as,%at,%label"},
 376   {"bnall %as,%at,%label ? IsaUseWideBranches", "WIDE.bnall %as,%at,%label"},
 377   {"bbc %as,%at,%label ? IsaUseWideBranches", "WIDE.bbc %as,%at,%label"},
 378   {"bbs %as,%at,%label ? IsaUseWideBranches", "WIDE.bbs %as,%at,%label"},
 379
 380   /* Widening branch comparisons eq/ne to zero.  Prefer relaxing to narrow
 381      branches if the density option is available.  */
 382   {"beqz %as,%label ? IsaUseDensityInstruction", "bnez.n %as,%LABEL;j %label;LABEL"},
 383   {"bnez %as,%label ? IsaUseDensityInstruction", "beqz.n %as,%LABEL;j %label;LABEL"},
 384   {"beqz %as,%label", "bnez %as,%LABEL;j %label;LABEL"},
 385   {"bnez %as,%label", "beqz %as,%LABEL;j %label;LABEL"},
 386   {"WIDE.beqz %as,%label ? IsaUseDensityInstruction", "bnez.n %as,%LABEL;j %label;LABEL"},
 387   {"WIDE.bnez %as,%label ? IsaUseDensityInstruction", "beqz.n %as,%LABEL;j %label;LABEL"},
 388   {"WIDE.beqz %as,%label", "bnez %as,%LABEL;j %label;LABEL"},
 389   {"WIDE.bnez %as,%label", "beqz %as,%LABEL;j %label;LABEL"},
 390
 391   /* Widening expect-taken branches.  */
 392   {"beqzt %as,%label ? IsaUsePredictedBranches", "bnez %as,%LABEL;j %label;LABEL"},
 393   {"bnezt %as,%label ? IsaUsePredictedBranches", "beqz %as,%LABEL;j %label;LABEL"},
 394   {"beqt %as,%at,%label ? IsaUsePredictedBranches", "bne %as,%at,%LABEL;j %label;LABEL"},
 395   {"bnet %as,%at,%label ? IsaUsePredictedBranches", "beq %as,%at,%LABEL;j %label;LABEL"},
 396
 397   /* Widening branches from the Xtensa boolean option.  */
 398   {"bt %bs,%label ? IsaUseBooleans", "bf %bs,%LABEL;j %label;LABEL"},
 399   {"bf %bs,%label ? IsaUseBooleans", "bt %bs,%LABEL;j %label;LABEL"},
 400
 401   /* Other branch-around-jump widenings.  */
 402   {"bgez %as,%label", "bltz %as,%LABEL;j %label;LABEL"},
 403   {"bltz %as,%label", "bgez %as,%LABEL;j %label;LABEL"},
 404   {"beqi %as,%imm,%label", "bnei %as,%imm,%LABEL;j %label;LABEL"},
 405   {"bnei %as,%imm,%label", "beqi %as,%imm,%LABEL;j %label;LABEL"},
 406   {"bgei %as,%imm,%label", "blti %as,%imm,%LABEL;j %label;LABEL"},
 407   {"blti %as,%imm,%label", "bgei %as,%imm,%LABEL;j %label;LABEL"},
 408   {"bgeui %as,%imm,%label", "bltui %as,%imm,%LABEL;j %label;LABEL"},
 409   {"bltui %as,%imm,%label", "bgeui %as,%imm,%LABEL;j %label;LABEL"},
 410   {"bbci %as,%imm,%label", "bbsi %as,%imm,%LABEL;j %label;LABEL"},
 411   {"bbsi %as,%imm,%label", "bbci %as,%imm,%LABEL;j %label;LABEL"},
 412   {"beq %as,%at,%label", "bne %as,%at,%LABEL;j %label;LABEL"},
 413   {"bne %as,%at,%label", "beq %as,%at,%LABEL;j %label;LABEL"},
 414   {"bge %as,%at,%label", "blt %as,%at,%LABEL;j %label;LABEL"},
 415   {"blt %as,%at,%label", "bge %as,%at,%LABEL;j %label;LABEL"},
 416   {"bgeu %as,%at,%label", "bltu %as,%at,%LABEL;j %label;LABEL"},
 417   {"bltu %as,%at,%label", "bgeu %as,%at,%LABEL;j %label;LABEL"},
 418   {"bany %as,%at,%label", "bnone %as,%at,%LABEL;j %label;LABEL"},
 419   {"bnone %as,%at,%label", "bany %as,%at,%LABEL;j %label;LABEL"},
 420   {"ball %as,%at,%label", "bnall %as,%at,%LABEL;j %label;LABEL"},
 421   {"bnall %as,%at,%label", "ball %as,%at,%LABEL;j %label;LABEL"},
 422   {"bbc %as,%at,%label", "bbs %as,%at,%LABEL;j %label;LABEL"},
 423   {"bbs %as,%at,%label", "bbc %as,%at,%LABEL;j %label;LABEL"},
 424
 425   {"WIDE.bgez %as,%label", "bltz %as,%LABEL;j %label;LABEL"},
 426   {"WIDE.bltz %as,%label", "bgez %as,%LABEL;j %label;LABEL"},
 427   {"WIDE.beqi %as,%imm,%label", "bnei %as,%imm,%LABEL;j %label;LABEL"},
 428   {"WIDE.bnei %as,%imm,%label", "beqi %as,%imm,%LABEL;j %label;LABEL"},
 429   {"WIDE.bgei %as,%imm,%label", "blti %as,%imm,%LABEL;j %label;LABEL"},
 430   {"WIDE.blti %as,%imm,%label", "bgei %as,%imm,%LABEL;j %label;LABEL"},
 431   {"WIDE.bgeui %as,%imm,%label", "bltui %as,%imm,%LABEL;j %label;LABEL"},
 432   {"WIDE.bltui %as,%imm,%label", "bgeui %as,%imm,%LABEL;j %label;LABEL"},
 433   {"WIDE.bbci %as,%imm,%label", "bbsi %as,%imm,%LABEL;j %label;LABEL"},
 434   {"WIDE.bbsi %as,%imm,%label", "bbci %as,%imm,%LABEL;j %label;LABEL"},
 435   {"WIDE.beq %as,%at,%label", "bne %as,%at,%LABEL;j %label;LABEL"},
 436   {"WIDE.bne %as,%at,%label", "beq %as,%at,%LABEL;j %label;LABEL"},
 437   {"WIDE.bge %as,%at,%label", "blt %as,%at,%LABEL;j %label;LABEL"},
 438   {"WIDE.blt %as,%at,%label", "bge %as,%at,%LABEL;j %label;LABEL"},
 439   {"WIDE.bgeu %as,%at,%label", "bltu %as,%at,%LABEL;j %label;LABEL"},
 440   {"WIDE.bltu %as,%at,%label", "bgeu %as,%at,%LABEL;j %label;LABEL"},
 441   {"WIDE.bany %as,%at,%label", "bnone %as,%at,%LABEL;j %label;LABEL"},
 442   {"WIDE.bnone %as,%at,%label", "bany %as,%at,%LABEL;j %label;LABEL"},
 443   {"WIDE.ball %as,%at,%label", "bnall %as,%at,%LABEL;j %label;LABEL"},
 444   {"WIDE.bnall %as,%at,%label", "ball %as,%at,%LABEL;j %label;LABEL"},
 445   {"WIDE.bbc %as,%at,%label", "bbs %as,%at,%LABEL;j %label;LABEL"},
 446   {"WIDE.bbs %as,%at,%label", "bbc %as,%at,%LABEL;j %label;LABEL"},
 447
 448   /* Expanding calls with literals.  */
 449   {"call0 %label,%ar0 ? IsaUseL32R",
 450    "LITERAL %label; l32r a0,%LITERAL; callx0 a0,%ar0"},
 451   {"call4 %label,%ar4 ? IsaUseL32R",
 452    "LITERAL %label; l32r a4,%LITERAL; callx4 a4,%ar4"},
 453   {"call8 %label,%ar8 ? IsaUseL32R",
 454    "LITERAL %label; l32r a8,%LITERAL; callx8 a8,%ar8"},
 455   {"call12 %label,%ar12 ? IsaUseL32R",
 456    "LITERAL %label; l32r a12,%LITERAL; callx12 a12,%ar12"},
 457
 458   /* Expanding calls with const16.  */
 459   {"call0 %label,%ar0 ? IsaUseConst16",
 460    "const16 a0,HI16U(%label); const16 a0,LOW16U(%label); callx0 a0,%ar0"},
 461   {"call4 %label,%ar4 ? IsaUseConst16",
 462    "const16 a4,HI16U(%label); const16 a4,LOW16U(%label); callx4 a4,%ar4"},
 463   {"call8 %label,%ar8 ? IsaUseConst16",
 464    "const16 a8,HI16U(%label); const16 a8,LOW16U(%label); callx8 a8,%ar8"},
 465   {"call12 %label,%ar12 ? IsaUseConst16",
 466    "const16 a12,HI16U(%label); const16 a12,LOW16U(%label); callx12 a12,%ar12"}
 467 };
 468
 469 #define WIDEN_COUNT (sizeof (widen_spec_list) / sizeof (string_pattern_pair))
 470
 471
 472 /* The simplify_spec_list specifies simplifying transformations that
 473    will reduce the instruction width or otherwise simplify an
 474    instruction.  These are usually applied before relaxation in the
 475    assembler.  It is always legal to simplify.  Even for "addi as, 0",
 476    the "addi.n as, 0" will eventually be widened back to an "addi 0"
 477    after the widening table is applied.  Note: The usage of this table
 478    has changed somewhat so that it is entirely specific to "narrowing"
 479    instructions to use the density option.  This table is not used at
 480    all when the density option is not available.  */
 481
 482 string_pattern_pair simplify_spec_list[] =
 483 {
 484   {"add %ar,%as,%at ? IsaUseDensityInstruction", "add.n %ar,%as,%at"},
 485   {"addi.n %ar,%as,0 ? IsaUseDensityInstruction", "mov.n %ar,%as"},
 486   {"addi %ar,%as,0 ? IsaUseDensityInstruction", "mov.n %ar,%as"},
 487   {"addi %ar,%as,%imm ? IsaUseDensityInstruction", "addi.n %ar,%as,%imm"},
 488   {"addmi %ar,%as,%imm ? IsaUseDensityInstruction", "addi.n %ar,%as,%imm"},
 489   {"beqz %as,%label ? IsaUseDensityInstruction", "beqz.n %as,%label"},
 490   {"bnez %as,%label ? IsaUseDensityInstruction", "bnez.n %as,%label"},
 491   {"l32i %at,%as,%imm ? IsaUseDensityInstruction", "l32i.n %at,%as,%imm"},
 492   {"movi %as,%imm ? IsaUseDensityInstruction", "movi.n %as,%imm"},
 493   {"nop ? realnop ? IsaUseDensityInstruction", "nop.n"},
 494   {"or %ar,%as,%at | %ar==%as | %as==%at ? IsaUseDensityInstruction", "nop.n"},
 495   {"or %ar,%as,%at | %ar!=%as | %as==%at ? IsaUseDensityInstruction", "mov.n %ar,%as"},
 496   {"ret %as ? IsaUseDensityInstruction", "ret.n %as"},
 497   {"retw %as ? IsaUseDensityInstruction", "retw.n %as"},
 498   {"s32i %at,%as,%imm ? IsaUseDensityInstruction", "s32i.n %at,%as,%imm"},
 499   {"slli %ar,%as,0 ? IsaUseDensityInstruction", "mov.n %ar,%as"}
 500 };
 501
 502 #define SIMPLIFY_COUNT \
 503   (sizeof (simplify_spec_list) / sizeof (string_pattern_pair))
 504
 505 \f
 506 /* Externally visible functions.  */
 507
 508 extern bfd_boolean xg_has_userdef_op_fn (OpType);
 509 extern long xg_apply_userdef_op_fn (OpType, long);
 510
 511
 512 static void
 513 append_transition (TransitionTable *tt,
 514                    xtensa_opcode opcode,
 515                    TransitionRule *t,
 516                    transition_cmp_fn cmp)
 517 {
 518   TransitionList *tl = (TransitionList *) xmalloc (sizeof (TransitionList));
 519   TransitionList *prev;
 520   TransitionList **t_p;
 521   assert (tt != NULL);
 522   assert (opcode < tt->num_opcodes);
 523
 524   prev = tt->table[opcode];
 525   tl->rule = t;
 526   tl->next = NULL;
 527   if (prev == NULL)
 528     {
 529       tt->table[opcode] = tl;
 530       return;
 531     }
 532
 533   for (t_p = &tt->table[opcode]; (*t_p) != NULL; t_p = &(*t_p)->next)
 534     {
 535       if (cmp && cmp (t, (*t_p)->rule) < 0)
 536         {
 537           /* Insert it here.  */
 538           tl->next = *t_p;
 539           *t_p = tl;
 540           return;
 541         }
 542     }
 543   (*t_p) = tl;
 544 }
 545
 546
 547 static void
 548 append_condition (TransitionRule *tr, Precondition *cond)
 549 {
 550   PreconditionList *pl =
 551     (PreconditionList *) xmalloc (sizeof (PreconditionList));
 552   PreconditionList *prev = tr->conditions;
 553   PreconditionList *nxt;
 554
 555   pl->precond = cond;
 556   pl->next = NULL;
 557   if (prev == NULL)
 558     {
 559       tr->conditions = pl;
 560       return;
 561     }
 562   nxt = prev->next;
 563   while (nxt != NULL)
 564     {
 565       prev = nxt;
 566       nxt = nxt->next;
 567     }
 568   prev->next = pl;
 569 }
 570
 571
 572 static void
 573 append_value_condition (TransitionRule *tr,
 574                         CmpOp cmp,
 575                         unsigned op1,
 576                         unsigned op2)
 577 {
 578   Precondition *cond = (Precondition *) xmalloc (sizeof (Precondition));
 579
 580   cond->cmp = cmp;
 581   cond->op_num = op1;
 582   cond->typ = OP_OPERAND;
 583   cond->op_data = op2;
 584   append_condition (tr, cond);
 585 }
 586
 587
 588 static void
 589 append_constant_value_condition (TransitionRule *tr,
 590                                  CmpOp cmp,
 591                                  unsigned op1,
 592                                  unsigned cnst)
 593 {
 594   Precondition *cond = (Precondition *) xmalloc (sizeof (Precondition));
 595
 596   cond->cmp = cmp;
 597   cond->op_num = op1;
 598   cond->typ = OP_CONSTANT;
 599   cond->op_data = cnst;
 600   append_condition (tr, cond);
 601 }
 602
 603
 604 static void
 605 append_build_insn (TransitionRule *tr, BuildInstr *bi)
 606 {
 607   BuildInstr *prev = tr->to_instr;
 608   BuildInstr *nxt;
 609
 610   bi->next = NULL;
 611   if (prev == NULL)
 612     {
 613       tr->to_instr = bi;
 614       return;
 615     }
 616   nxt = prev->next;
 617   while (nxt != 0)
 618     {
 619       prev = nxt;
 620       nxt = prev->next;
 621     }
 622   prev->next = bi;
 623 }
 624
 625
 626 static void
 627 append_op (BuildInstr *bi, BuildOp *b_op)
 628 {
 629   BuildOp *prev = bi->ops;
 630   BuildOp *nxt;
 631
 632   if (prev == NULL)
 633     {
 634       bi->ops = b_op;
 635       return;
 636     }
 637   nxt = prev->next;
 638   while (nxt != NULL)
 639     {
 640       prev = nxt;
 641       nxt = nxt->next;
 642     }
 643   prev->next = b_op;
 644 }
 645
 646
 647 static void
 648 append_literal_op (BuildInstr *bi, unsigned op1)
 649 {
 650   BuildOp *b_op = (BuildOp *) xmalloc (sizeof (BuildOp));
 651
 652   b_op->op_num = op1;
 653   b_op->typ = OP_LITERAL;
 654   b_op->op_data = 0;
 655   b_op->next = NULL;
 656   append_op (bi, b_op);
 657 }
 658
 659
 660 static void
 661 append_label_op (BuildInstr *bi, unsigned op1)
 662 {
 663   BuildOp *b_op = (BuildOp *) xmalloc (sizeof (BuildOp));
 664
 665   b_op->op_num = op1;
 666   b_op->typ = OP_LABEL;
 667   b_op->op_data = 0;
 668   b_op->next = NULL;
 669   append_op (bi, b_op);
 670 }
 671
 672
 673 static void
 674 append_constant_op (BuildInstr *bi, unsigned op1, unsigned cnst)
 675 {
 676   BuildOp *b_op = (BuildOp *) xmalloc (sizeof (BuildOp));
 677
 678   b_op->op_num = op1;
 679   b_op->typ = OP_CONSTANT;
 680   b_op->op_data = cnst;
 681   b_op->next = NULL;
 682   append_op (bi, b_op);
 683 }
 684
 685
 686 static void
 687 append_field_op (BuildInstr *bi, unsigned op1, unsigned src_op)
 688 {
 689   BuildOp *b_op = (BuildOp *) xmalloc (sizeof (BuildOp));
 690
 691   b_op->op_num = op1;
 692   b_op->typ = OP_OPERAND;
 693   b_op->op_data = src_op;
 694   b_op->next = NULL;
 695   append_op (bi, b_op);
 696 }
 697
 698
 699 /* These could be generated but are not currently.  */
 700
 701 static void
 702 append_user_fn_field_op (BuildInstr *bi,
 703                          unsigned op1,
 704                          OpType typ,
 705                          unsigned src_op)
 706 {
 707   BuildOp *b_op = (BuildOp *) xmalloc (sizeof (BuildOp));
 708
 709   b_op->op_num = op1;
 710   b_op->typ = typ;
 711   b_op->op_data = src_op;
 712   b_op->next = NULL;
 713   append_op (bi, b_op);
 714 }
 715
 716
 717 /* These operand functions are the semantics of user-defined
 718    operand functions.  */
 719
 720 static long
 721 operand_function_HI24S (long a)
 722 {
 723   if (a & 0x80)
 724     return (a & (~0xff)) + 0x100;
 725   else
 726     return (a & (~0xff));
 727 }
 728
 729
 730 static long
 731 operand_function_F32MINUS (long a)
 732 {
 733   return (32 - a);
 734 }
 735
 736
 737 static long
 738 operand_function_LOW8 (long a)
 739 {
 740   if (a & 0x80)
 741     return (a & 0xff) | ~0xff;
 742   else
 743     return (a & 0xff);
 744 }
 745
 746
 747 static long
 748 operand_function_LOW16U (long a)
 749 {
 750   return (a & 0xffff);
 751 }
 752
 753
 754 static long
 755 operand_function_HI16U (long a)
 756 {
 757   unsigned long b = a & 0xffff0000;
 758   return (long) (b >> 16);
 759 }
 760
 761
 762 bfd_boolean
 763 xg_has_userdef_op_fn (OpType op)
 764 {
 765   switch (op)
 766     {
 767     case OP_OPERAND_F32MINUS:
 768     case OP_OPERAND_LOW8:
 769     case OP_OPERAND_HI24S:
 770     case OP_OPERAND_LOW16U:
 771     case OP_OPERAND_HI16U:
 772       return TRUE;
 773     default:
 774       break;
 775     }
 776   return FALSE;
 777 }
 778
 779
 780 long
 781 xg_apply_userdef_op_fn (OpType op, long a)
 782 {
 783   switch (op)
 784     {
 785     case OP_OPERAND_F32MINUS:
 786       return operand_function_F32MINUS (a);
 787     case OP_OPERAND_LOW8:
 788       return operand_function_LOW8 (a);
 789     case OP_OPERAND_HI24S:
 790       return operand_function_HI24S (a);
 791     case OP_OPERAND_LOW16U:
 792       return operand_function_LOW16U (a);
 793     case OP_OPERAND_HI16U:
 794       return operand_function_HI16U (a);
 795     default:
 796       break;
 797     }
 798   return FALSE;
 799 }
 800
 801
 802 /* Generate a transition table.  */
 803
 804 static const char *
 805 enter_opname_n (const char *name, int len)
 806 {
 807   opname_e *op;
 808
 809   for (op = local_opnames; op != NULL; op = op->next)
 810     {
 811       if (strlen (op->opname) == (unsigned) len
 812           && strncmp (op->opname, name, len) == 0)
 813         return op->opname;
 814     }
 815   op = (opname_e *) xmalloc (sizeof (opname_e));
 816   op->opname = (char *) xmalloc (len + 1);
 817   strncpy (op->opname, name, len);
 818   op->opname[len] = '\0';
 819   return op->opname;
 820 }
 821
 822
 823 static const char *
 824 enter_opname (const char *name)
 825 {
 826   opname_e *op;
 827
 828   for (op = local_opnames; op != NULL; op = op->next)
 829     {
 830       if (strcmp (op->opname, name) == 0)
 831         return op->opname;
 832     }
 833   op = (opname_e *) xmalloc (sizeof (opname_e));
 834   op->opname = xstrdup (name);
 835   return op->opname;
 836 }
 837
 838
 839 static void
 840 init_opname_map (opname_map *m)
 841 {
 842   m->head = NULL;
 843   m->tail = &m->head;
 844 }
 845
 846
 847 static void
 848 clear_opname_map (opname_map *m)
 849 {
 850   opname_map_e *e;
 851
 852   while (m->head != NULL)
 853     {
 854       e = m->head;
 855       m->head = e->next;
 856       free (e);
 857     }
 858   m->tail = &m->head;
 859 }
 860
 861
 862 static bfd_boolean
 863 same_operand_name (const opname_map_e *m1, const opname_map_e *m2)
 864 {
 865   if (m1->operand_name == NULL || m1->operand_name == NULL)
 866     return FALSE;
 867   return (m1->operand_name == m2->operand_name);
 868 }
 869
 870
 871 static opname_map_e *
 872 get_opmatch (opname_map *map, const char *operand_name)
 873 {
 874   opname_map_e *m;
 875
 876   for (m = map->head; m != NULL; m = m->next)
 877     {
 878       if (strcmp (m->operand_name, operand_name) == 0)
 879         return m;
 880     }
 881   return NULL;
 882 }
 883
 884
 885 static bfd_boolean
 886 op_is_constant (const opname_map_e *m1)
 887 {
 888   return (m1->operand_name == NULL);
 889 }
 890
 891
 892 static unsigned
 893 op_get_constant (const opname_map_e *m1)
 894 {
 895   assert (m1->operand_name == NULL);
 896   return m1->constant_value;
 897 }
 898
 899
 900 static void
 901 init_precond_list (precond_list *l)
 902 {
 903   l->head = NULL;
 904   l->tail = &l->head;
 905 }
 906
 907
 908 static void
 909 clear_precond_list (precond_list *l)
 910 {
 911   precond_e *e;
 912
 913   while (l->head != NULL)
 914     {
 915       e = l->head;
 916       l->head = e->next;
 917       free (e);
 918     }
 919   l->tail = &l->head;
 920 }
 921
 922
 923 static void
 924 init_insn_templ (insn_templ *t)
 925 {
 926   t->opcode_name = NULL;
 927   init_opname_map (&t->operand_map);
 928 }
 929
 930
 931 static void
 932 clear_insn_templ (insn_templ *t)
 933 {
 934   clear_opname_map (&t->operand_map);
 935 }
 936
 937
 938 static void
 939 init_insn_pattern (insn_pattern *p)
 940 {
 941   init_insn_templ (&p->t);
 942   init_precond_list (&p->preconds);
 943   p->options = NULL;
 944 }
 945
 946
 947 static void
 948 clear_insn_pattern (insn_pattern *p)
 949 {
 950   clear_insn_templ (&p->t);
 951   clear_precond_list (&p->preconds);
 952 }
 953
 954
 955 static void
 956 init_insn_repl (insn_repl *r)
 957 {
 958   r->head = NULL;
 959   r->tail = &r->head;
 960 }
 961
 962
 963 static void
 964 clear_insn_repl (insn_repl *r)
 965 {
 966   insn_repl_e *e;
 967
 968   while (r->head != NULL)
 969     {
 970       e = r->head;
 971       r->head = e->next;
 972       clear_insn_templ (&e->t);
 973     }
 974   r->tail = &r->head;
 975 }
 976
 977
 978 static int
 979 insn_templ_operand_count (const insn_templ *t)
 980 {
 981   int i = 0;
 982   const opname_map_e *op;
 983
 984   for (op = t->operand_map.head; op != NULL; op = op->next, i++)
 985     ;
 986   return i;
 987 }
 988
 989
 990 /* Convert a string to a number.  E.G.: parse_constant("10", &num) */
 991
 992 static bfd_boolean
 993 parse_constant (const char *in, unsigned *val_p)
 994 {
 995   unsigned val = 0;
 996   const char *p;
 997
 998   if (in == NULL)
 999     return FALSE;
1000   p = in;
1001
1002   while (*p != '\0')
1003     {
1004       if (*p >= '0' && *p <= '9')
1005         val = val * 10 + (*p - '0');
1006       else
1007         return FALSE;
1008       ++p;
1009     }
1010   *val_p = val;
1011   return TRUE;
1012 }
1013
1014
1015 static bfd_boolean
1016 parse_special_fn (const char *name,
1017                   const char **fn_name_p,
1018                   const char **arg_name_p)
1019 {
1020   char *p_start;
1021   const char *p_end;
1022
1023   p_start = strchr (name, '(');
1024   if (p_start == NULL)
1025     return FALSE;
1026
1027   p_end = strchr (p_start, ')');
1028
1029   if (p_end == NULL)
1030     return FALSE;
1031
1032   if (p_end[1] != '\0')
1033     return FALSE;
1034
1035   *fn_name_p = enter_opname_n (name, p_start - name);
1036   *arg_name_p = enter_opname_n (p_start + 1, p_end - p_start - 1);
1037   return TRUE;
1038 }
1039
1040
1041 static const char *
1042 skip_white (const char *p)
1043 {
1044   if (p == NULL)
1045     return p;
1046   while (*p == ' ')
1047     ++p;
1048   return p;
1049 }
1050
1051
1052 static void
1053 trim_whitespace (char *in)
1054 {
1055   char *last_white = NULL;
1056   char *p = in;
1057
1058   while (p && *p != '\0')
1059     {
1060       while (*p == ' ')
1061         {
1062           if (last_white == NULL)
1063             last_white = p;
1064           p++;
1065         }
1066       if (*p != '\0')
1067         {
1068           last_white = NULL;
1069           p++;
1070         }
1071     }
1072   if (last_white)
1073     *last_white = '\0';
1074 }
1075
1076
1077 /* Split a string into component strings where "c" is the
1078    delimiter.  Place the result in the split_rec.  */
1079
1080 static void
1081 split_string (split_rec *rec,
1082               const char *in,
1083               char c,
1084               bfd_boolean elide_whitespace)
1085 {
1086   int cnt = 0;
1087   int i;
1088   const char *p = in;
1089
1090   while (p != NULL && *p != '\0')
1091     {
1092       cnt++;
1093       p = strchr (p, c);
1094       if (p)
1095         p++;
1096     }
1097   rec->count = cnt;
1098   rec->vec = NULL;
1099
1100   if (rec->count == 0)
1101     return;
1102
1103   rec->vec = (char **) xmalloc (sizeof (char *) * cnt);
1104   for (i = 0; i < cnt; i++)
1105     rec->vec[i] = 0;
1106
1107   p = in;
1108   for (i = 0; i < cnt; i++)
1109     {
1110       const char *q;
1111       int len;
1112
1113       q = p;
1114       if (elide_whitespace)
1115         q = skip_white (q);
1116
1117       p = strchr (q, c);
1118       if (p == NULL)
1119         rec->vec[i] = xstrdup (q);
1120       else
1121         {
1122           len = p - q;
1123           rec->vec[i] = (char *) xmalloc (sizeof (char) * (len + 1));
1124           strncpy (rec->vec[i], q, len);
1125           rec->vec[i][len] = '\0';
1126           p++;
1127         }
1128
1129       if (elide_whitespace)
1130         trim_whitespace (rec->vec[i]);
1131     }
1132 }
1133
1134
1135 static void
1136 clear_split_rec (split_rec *rec)
1137 {
1138   int i;
1139
1140   for (i = 0; i < rec->count; i++)
1141     free (rec->vec[i]);
1142
1143   if (rec->count > 0)
1144     free (rec->vec);
1145 }
1146
1147
1148 /* Initialize a split record.  The split record must be initialized
1149    before split_string is called.  */
1150
1151 static void
1152 init_split_rec (split_rec *rec)
1153 {
1154   rec->vec = NULL;
1155   rec->count = 0;
1156 }
1157
1158
1159 /* Parse an instruction template like "insn op1, op2, op3".  */
1160
1161 static bfd_boolean
1162 parse_insn_templ (const char *s, insn_templ *t)
1163 {
1164   const char *p = s;
1165   int insn_name_len;
1166   split_rec oprec;
1167   int i;
1168
1169   /* First find the first whitespace.  */
1170
1171   init_split_rec (&oprec);
1172
1173   p = skip_white (p);
1174   insn_name_len = strcspn (s, " ");
1175   if (insn_name_len == 0)
1176     return FALSE;
1177
1178   init_insn_templ (t);
1179   t->opcode_name = enter_opname_n (p, insn_name_len);
1180
1181   p = p + insn_name_len;
1182
1183   /* Split by ',' and skip beginning and trailing whitespace.  */
1184   split_string (&oprec, p, ',', TRUE);
1185
1186   for (i = 0; i < oprec.count; i++)
1187     {
1188       const char *opname = oprec.vec[i];
1189       opname_map_e *e = (opname_map_e *) xmalloc (sizeof (opname_map_e));
1190       e->next = NULL;
1191       e->operand_name = NULL;
1192       e->constant_value = 0;
1193       e->operand_num = i;
1194
1195       /* If it begins with a number, assume that it is a number.  */
1196       if (opname && opname[0] >= '0' && opname[0] <= '9')
1197         {
1198           unsigned val;
1199
1200           if (parse_constant (opname, &val))
1201             e->constant_value = val;
1202           else
1203             {
1204               free (e);
1205               clear_split_rec (&oprec);
1206               clear_insn_templ (t);
1207               return FALSE;
1208             }
1209         }
1210       else
1211         e->operand_name = enter_opname (oprec.vec[i]);
1212
1213       *t->operand_map.tail = e;
1214       t->operand_map.tail = &e->next;
1215     }
1216   clear_split_rec (&oprec);
1217   return TRUE;
1218 }
1219
1220
1221 static bfd_boolean
1222 parse_precond (const char *s, precond_e *precond)
1223 {
1224   /* All preconditions are currently of the form:
1225      a == b or a != b or a == k (where k is a constant).
1226      Later we may use some special functions like DENSITY == 1
1227      to identify when density is available.  */
1228
1229   const char *p = s;
1230   int len;
1231   precond->opname1 = NULL;
1232   precond->opval1 = 0;
1233   precond->cmpop = OP_EQUAL;
1234   precond->opname2 = NULL;
1235   precond->opval2 = 0;
1236   precond->next = NULL;
1237
1238   p = skip_white (p);
1239
1240   len = strcspn (p, " !=");
1241
1242   if (len == 0)
1243     return FALSE;
1244
1245   precond->opname1 = enter_opname_n (p, len);
1246   p = p + len;
1247   p = skip_white (p);
1248
1249   /* Check for "==" and "!=".  */
1250   if (strncmp (p, "==", 2) == 0)
1251     precond->cmpop = OP_EQUAL;
1252   else if (strncmp (p, "!=", 2) == 0)
1253     precond->cmpop = OP_NOTEQUAL;
1254   else
1255     return FALSE;
1256
1257   p = p + 2;
1258   p = skip_white (p);
1259
1260   /* No trailing whitespace from earlier parsing.  */
1261   if (p[0] >= '0' && p[0] <= '9')
1262     {
1263       unsigned val;
1264       if (parse_constant (p, &val))
1265         precond->opval2 = val;
1266       else
1267         return FALSE;
1268     }
1269   else
1270     precond->opname2 = enter_opname (p);
1271   return TRUE;
1272 }
1273
1274
1275 static void
1276 clear_req_or_option_list (ReqOrOption **r_p)
1277 {
1278   if (*r_p == NULL)
1279     return;
1280
1281   free ((*r_p)->option_name);
1282   clear_req_or_option_list (&(*r_p)->next);
1283   *r_p = NULL;
1284 }
1285
1286
1287 static void
1288 clear_req_option_list (ReqOption **r_p)
1289 {
1290   if (*r_p == NULL)
1291     return;
1292
1293   clear_req_or_option_list (&(*r_p)->or_option_terms);
1294   clear_req_option_list (&(*r_p)->next);
1295   *r_p = NULL;
1296 }
1297
1298
1299 static ReqOrOption *
1300 clone_req_or_option_list (ReqOrOption *req_or_option)
1301 {
1302   ReqOrOption *new_req_or_option;
1303
1304   if (req_or_option == NULL)
1305     return NULL;
1306
1307   new_req_or_option = (ReqOrOption *) xmalloc (sizeof (ReqOrOption));
1308   new_req_or_option->option_name = xstrdup (req_or_option->option_name);
1309   new_req_or_option->is_true = req_or_option->is_true;
1310   new_req_or_option->next = NULL;
1311   new_req_or_option->next = clone_req_or_option_list (req_or_option->next);
1312   return new_req_or_option;
1313 }
1314
1315
1316 static ReqOption *
1317 clone_req_option_list (ReqOption *req_option)
1318 {
1319   ReqOption *new_req_option;
1320
1321   if (req_option == NULL)
1322     return NULL;
1323
1324   new_req_option = (ReqOption *) xmalloc (sizeof (ReqOption));
1325   new_req_option->or_option_terms = NULL;
1326   new_req_option->next = NULL;
1327   new_req_option->or_option_terms =
1328     clone_req_or_option_list (req_option->or_option_terms);
1329   new_req_option->next = clone_req_option_list (req_option->next);
1330   return new_req_option;
1331 }
1332
1333
1334 static bfd_boolean
1335 parse_option_cond (const char *s, ReqOption *option)
1336 {
1337   int i;
1338   split_rec option_term_rec;
1339
1340   /* All option or conditions are of the form:
1341      optionA + no-optionB + ...
1342      "Ands" are divided by "?".  */
1343
1344   init_split_rec (&option_term_rec);
1345   split_string (&option_term_rec, s, '+', TRUE);
1346
1347   if (option_term_rec.count == 0)
1348     {
1349       clear_split_rec (&option_term_rec);
1350       return FALSE;
1351     }
1352
1353   for (i = 0; i < option_term_rec.count; i++)
1354     {
1355       char *option_name = option_term_rec.vec[i];
1356       bfd_boolean is_true = TRUE;
1357       ReqOrOption *req;
1358       ReqOrOption **r_p;
1359
1360       if (strncmp (option_name, "no-", 3) == 0)
1361         {
1362           option_name = xstrdup (&option_name[3]);
1363           is_true = FALSE;
1364         }
1365       else
1366         option_name = xstrdup (option_name);
1367
1368       req = (ReqOrOption *) xmalloc (sizeof (ReqOrOption));
1369       req->option_name = option_name;
1370       req->is_true = is_true;
1371       req->next = NULL;
1372
1373       /* Append to list.  */
1374       for (r_p = &option->or_option_terms; (*r_p) != NULL;
1375            r_p = &(*r_p)->next)
1376         ;
1377       (*r_p) = req;
1378     }
1379   return TRUE;
1380 }
1381
1382
1383 /* Parse a string like:
1384    "insn op1, op2, op3, op4 | op1 != op2 | op2 == op3 | op4 == 1".
1385    I.E., instruction "insn" with 4 operands where operand 1 and 2 are not
1386    the same and operand 2 and 3 are the same and operand 4 is 1.
1387
1388    or:
1389
1390    "insn op1 | op1 == 1 / density + boolean / no-useroption".
1391    i.e. instruction "insn" with 1 operands where operand 1 is 1
1392    when "density" or "boolean" options are available and
1393    "useroption" is not available.
1394
1395    Because the current implementation of this parsing scheme uses
1396    split_string, it requires that '|' and '?' are only used as
1397    delimiters for predicates and required options.  */
1398
1399 static bfd_boolean
1400 parse_insn_pattern (const char *in, insn_pattern *insn)
1401 {
1402   split_rec rec;
1403   split_rec optionrec;
1404   int i;
1405
1406   init_insn_pattern (insn);
1407
1408   init_split_rec (&optionrec);
1409   split_string (&optionrec, in, '?', TRUE);
1410   if (optionrec.count == 0)
1411     {
1412       clear_split_rec (&optionrec);
1413       return FALSE;
1414     }
1415
1416   init_split_rec (&rec);
1417
1418   split_string (&rec, optionrec.vec[0], '|', TRUE);
1419
1420   if (rec.count == 0)
1421     {
1422       clear_split_rec (&rec);
1423       clear_split_rec (&optionrec);
1424       return FALSE;
1425     }
1426
1427   if (!parse_insn_templ (rec.vec[0], &insn->t))
1428     {
1429       clear_split_rec (&rec);
1430       clear_split_rec (&optionrec);
1431       return FALSE;
1432     }
1433
1434   for (i = 1; i < rec.count; i++)
1435     {
1436       precond_e *cond = (precond_e *) xmalloc (sizeof (precond_e));
1437
1438       if (!parse_precond (rec.vec[i], cond))
1439         {
1440           clear_split_rec (&rec);
1441           clear_split_rec (&optionrec);
1442           clear_insn_pattern (insn);
1443           return FALSE;
1444         }
1445
1446       /* Append the condition.  */
1447       *insn->preconds.tail = cond;
1448       insn->preconds.tail = &cond->next;
1449     }
1450
1451   for (i = 1; i < optionrec.count; i++)
1452     {
1453       /* Handle the option conditions.  */
1454       ReqOption **r_p;
1455       ReqOption *req_option = (ReqOption *) xmalloc (sizeof (ReqOption));
1456       req_option->or_option_terms = NULL;
1457       req_option->next = NULL;
1458
1459       if (!parse_option_cond (optionrec.vec[i], req_option))
1460         {
1461           clear_split_rec (&rec);
1462           clear_split_rec (&optionrec);
1463           clear_insn_pattern (insn);
1464           clear_req_option_list (&req_option);
1465           return FALSE;
1466         }
1467
1468       /* Append the condition.  */
1469       for (r_p = &insn->options; (*r_p) != NULL; r_p = &(*r_p)->next)
1470         ;
1471
1472       (*r_p) = req_option;
1473     }
1474
1475   clear_split_rec (&rec);
1476   clear_split_rec (&optionrec);
1477   return TRUE;
1478 }
1479
1480
1481 static bfd_boolean
1482 parse_insn_repl (const char *in, insn_repl *r_p)
1483 {
1484   /* This is a list of instruction templates separated by ';'.  */
1485   split_rec rec;
1486   int i;
1487
1488   split_string (&rec, in, ';', TRUE);
1489
1490   for (i = 0; i < rec.count; i++)
1491     {
1492       insn_repl_e *e = (insn_repl_e *) xmalloc (sizeof (insn_repl_e));
1493
1494       e->next = NULL;
1495
1496       if (!parse_insn_templ (rec.vec[i], &e->t))
1497         {
1498           free (e);
1499           clear_insn_repl (r_p);
1500           return FALSE;
1501         }
1502       *r_p->tail = e;
1503       r_p->tail = &e->next;
1504     }
1505   return TRUE;
1506 }
1507
1508
1509 static bfd_boolean
1510 transition_applies (insn_pattern *initial_insn,
1511                     const char *from_string ATTRIBUTE_UNUSED,
1512                     const char *to_string ATTRIBUTE_UNUSED)
1513 {
1514   ReqOption *req_option;
1515
1516   for (req_option = initial_insn->options;
1517        req_option != NULL;
1518        req_option = req_option->next)
1519     {
1520       ReqOrOption *req_or_option = req_option->or_option_terms;
1521
1522       if (req_or_option == NULL
1523           || req_or_option->next != NULL)
1524         continue;
1525
1526       if (strncmp (req_or_option->option_name, "IsaUse", 6) == 0)
1527         {
1528           bfd_boolean option_available = FALSE;
1529           char *option_name = req_or_option->option_name + 6;
1530           if (!strcmp (option_name, "DensityInstruction"))
1531             option_available = (XCHAL_HAVE_DENSITY == 1);
1532           else if (!strcmp (option_name, "L32R"))
1533             option_available = (XCHAL_HAVE_L32R == 1);
1534           else if (!strcmp (option_name, "Const16"))
1535             option_available = (XCHAL_HAVE_CONST16 == 1);
1536           else if (!strcmp (option_name, "Loops"))
1537             option_available = (XCHAL_HAVE_LOOPS == 1);
1538           else if (!strcmp (option_name, "WideBranches"))
1539             option_available = (XCHAL_HAVE_WIDE_BRANCHES == 1);
1540           else if (!strcmp (option_name, "PredictedBranches"))
1541             option_available = (XCHAL_HAVE_PREDICTED_BRANCHES == 1);
1542           else if (!strcmp (option_name, "Booleans"))
1543             option_available = (XCHAL_HAVE_BOOLEANS == 1);
1544           else
1545             as_warn (_("invalid configuration option '%s' in transition rule '%s'"),
1546                      req_or_option->option_name, from_string);
1547           if ((option_available ^ req_or_option->is_true) != 0)
1548             return FALSE;
1549         }
1550       else if (strcmp (req_or_option->option_name, "realnop") == 0)
1551         {
1552           bfd_boolean nop_available =
1553             (xtensa_opcode_lookup (xtensa_default_isa, "nop")
1554              != XTENSA_UNDEFINED);
1555           if ((nop_available ^ req_or_option->is_true) != 0)
1556             return FALSE;
1557         }
1558     }
1559   return TRUE;
1560 }
1561
1562
1563 static bfd_boolean
1564 wide_branch_opcode (const char *opcode_name,
1565                     char *suffix,
1566                     xtensa_opcode *popcode)
1567 {
1568   xtensa_isa isa = xtensa_default_isa;
1569   xtensa_opcode opcode;
1570   static char wbr_name_buf[20];
1571
1572   if (strncmp (opcode_name, "WIDE.", 5) != 0)
1573     return FALSE;
1574
1575   strcpy (wbr_name_buf, opcode_name + 5);
1576   strcat (wbr_name_buf, suffix);
1577   opcode = xtensa_opcode_lookup (isa, wbr_name_buf);
1578   if (opcode != XTENSA_UNDEFINED)
1579     {
1580       *popcode = opcode;
1581       return TRUE;
1582     }
1583
1584   return FALSE;
1585 }
1586
1587
1588 static TransitionRule *
1589 build_transition (insn_pattern *initial_insn,
1590                   insn_repl *replace_insns,
1591                   const char *from_string,
1592                   const char *to_string)
1593 {
1594   TransitionRule *tr = NULL;
1595   xtensa_opcode opcode;
1596   xtensa_isa isa = xtensa_default_isa;
1597
1598   opname_map_e *op1;
1599   opname_map_e *op2;
1600
1601   precond_e *precond;
1602   insn_repl_e *r;
1603
1604   if (!wide_branch_opcode (initial_insn->t.opcode_name, ".w18", &opcode)
1605       && !wide_branch_opcode (initial_insn->t.opcode_name, ".w15", &opcode))
1606     opcode = xtensa_opcode_lookup (isa, initial_insn->t.opcode_name);
1607
1608   if (opcode == XTENSA_UNDEFINED)
1609     {
1610       /* It is OK to not be able to translate some of these opcodes.  */
1611       return NULL;
1612     }
1613
1614
1615   if (xtensa_opcode_num_operands (isa, opcode)
1616       != insn_templ_operand_count (&initial_insn->t))
1617     {
1618       /* This is also OK because there are opcodes that
1619          have different numbers of operands on different
1620          architecture variations.  */
1621       return NULL;
1622     }
1623
1624   tr = (TransitionRule *) xmalloc (sizeof (TransitionRule));
1625   tr->opcode = opcode;
1626   tr->conditions = NULL;
1627   tr->to_instr = NULL;
1628
1629   /* Build the conditions. First, equivalent operand condition....  */
1630   for (op1 = initial_insn->t.operand_map.head; op1 != NULL; op1 = op1->next)
1631     {
1632       for (op2 = op1->next; op2 != NULL; op2 = op2->next)
1633         {
1634           if (same_operand_name (op1, op2))
1635             {
1636               append_value_condition (tr, OP_EQUAL,
1637                                       op1->operand_num, op2->operand_num);
1638             }
1639         }
1640     }
1641
1642   /* Now the condition that an operand value must be a constant....  */
1643   for (op1 = initial_insn->t.operand_map.head; op1 != NULL; op1 = op1->next)
1644     {
1645       if (op_is_constant (op1))
1646         {
1647           append_constant_value_condition (tr,
1648                                            OP_EQUAL,
1649                                            op1->operand_num,
1650                                            op_get_constant (op1));
1651         }
1652     }
1653
1654
1655   /* Now add the explicit preconditions listed after the "|" in the spec.
1656      These are currently very limited, so we do a special case
1657      parse for them.  We expect spaces, opname != opname.  */
1658   for (precond = initial_insn->preconds.head;
1659        precond != NULL;
1660        precond = precond->next)
1661     {
1662       op1 = NULL;
1663       op2 = NULL;
1664
1665       if (precond->opname1)
1666         {
1667           op1 = get_opmatch (&initial_insn->t.operand_map, precond->opname1);
1668           if (op1 == NULL)
1669             as_fatal (_("opcode '%s': no bound opname '%s' "
1670                         "for precondition in '%s'"),
1671                       xtensa_opcode_name (isa, opcode),
1672                       precond->opname1, from_string);
1673         }
1674
1675       if (precond->opname2)
1676         {
1677           op2 = get_opmatch (&initial_insn->t.operand_map, precond->opname2);
1678           if (op2 == NULL)
1679             as_fatal (_("opcode '%s': no bound opname '%s' "
1680                         "for precondition in %s"),
1681                       xtensa_opcode_name (isa, opcode),
1682                       precond->opname2, from_string);
1683         }
1684
1685       if (op1 == NULL && op2 == NULL)
1686         as_fatal (_("opcode '%s': precondition only contains "
1687                     "constants in '%s'"),
1688                   xtensa_opcode_name (isa, opcode), from_string);
1689       else if (op1 != NULL && op2 != NULL)
1690         append_value_condition (tr, precond->cmpop,
1691                                 op1->operand_num, op2->operand_num);
1692       else if (op2 == NULL)
1693         append_constant_value_condition (tr, precond->cmpop,
1694                                          op1->operand_num, precond->opval2);
1695       else
1696         append_constant_value_condition (tr, precond->cmpop,
1697                                          op2->operand_num, precond->opval1);
1698     }
1699
1700   tr->options = clone_req_option_list (initial_insn->options);
1701
1702   /* Generate the replacement instructions.  Some of these
1703      "instructions" are actually labels and literals.  There can be at
1704      most one literal and at most one label.  A literal must be defined
1705      (e.g., "LITERAL %imm") before use (e.g., "%LITERAL").  The labels
1706      can be used before they are defined.  Also there are a number of
1707      special operands (e.g., HI24S).  */
1708
1709   for (r = replace_insns->head; r != NULL; r = r->next)
1710     {
1711       BuildInstr *bi;
1712       const char *opcode_name;
1713       int operand_count;
1714       opname_map_e *op;
1715       const char *fn_name;
1716       const char *operand_arg_name;
1717
1718       bi = (BuildInstr *) xmalloc (sizeof (BuildInstr));
1719       append_build_insn (tr, bi);
1720
1721       bi->opcode = XTENSA_UNDEFINED;
1722       bi->ops = NULL;
1723       bi->next = NULL;
1724
1725       opcode_name = r->t.opcode_name;
1726       operand_count = insn_templ_operand_count (&r->t);
1727
1728       if (strcmp (opcode_name, "LITERAL") == 0)
1729         {
1730           bi->typ = INSTR_LITERAL_DEF;
1731           if (operand_count != 1)
1732             as_fatal (_("expected one operand for generated literal"));
1733         }
1734       else if (strcmp (opcode_name, "LABEL") == 0)
1735         {
1736           bi->typ = INSTR_LABEL_DEF;
1737           if (operand_count != 0)
1738             as_fatal (_("expected 0 operands for generated label"));
1739         }
1740       else
1741         {
1742           bi->typ = INSTR_INSTR;
1743           if (wide_branch_opcode (opcode_name, ".w18", &bi->opcode)
1744               || wide_branch_opcode (opcode_name, ".w15", &bi->opcode))
1745             opcode_name = xtensa_opcode_name (isa, bi->opcode);
1746           else
1747             bi->opcode = xtensa_opcode_lookup (isa, opcode_name);
1748
1749           if (bi->opcode == XTENSA_UNDEFINED)
1750             {
1751               as_warn (_("invalid opcode '%s' in transition rule '%s'"),
1752                        opcode_name, to_string);
1753               return NULL;
1754             }
1755
1756           /* Check for the right number of ops.  */
1757           if (xtensa_opcode_num_operands (isa, bi->opcode)
1758               != (int) operand_count)
1759             as_fatal (_("opcode '%s': replacement does not have %d ops"),
1760                       opcode_name,
1761                       xtensa_opcode_num_operands (isa, bi->opcode));
1762         }
1763
1764       for (op = r->t.operand_map.head; op != NULL; op = op->next)
1765         {
1766           unsigned idnum;
1767
1768           if (op_is_constant (op))
1769             append_constant_op (bi, op->operand_num, op_get_constant (op));
1770           else if (strcmp (op->operand_name, "%LITERAL") == 0)
1771             append_literal_op (bi, op->operand_num);
1772           else if (strcmp (op->operand_name, "%LABEL") == 0)
1773             append_label_op (bi, op->operand_num);
1774           else if (op->operand_name[0] == 'a'
1775                    && parse_constant (op->operand_name + 1, &idnum))
1776             append_constant_op (bi, op->operand_num, idnum);
1777           else if (op->operand_name[0] == '%')
1778             {
1779               opname_map_e *orig_op;
1780               orig_op = get_opmatch (&initial_insn->t.operand_map,
1781                                      op->operand_name);
1782               if (orig_op == NULL)
1783                 as_fatal (_("opcode %s: unidentified operand '%s' in '%s'"),
1784                           opcode_name, op->operand_name, to_string);
1785               append_field_op (bi, op->operand_num, orig_op->operand_num);
1786             }
1787           else if (parse_special_fn (op->operand_name,
1788                                      &fn_name, &operand_arg_name))
1789             {
1790               opname_map_e *orig_op;
1791               OpType typ = OP_CONSTANT;
1792
1793               if (strcmp (fn_name, "LOW8") == 0)
1794                 typ = OP_OPERAND_LOW8;
1795               else if (strcmp (fn_name, "HI24S") == 0)
1796                 typ = OP_OPERAND_HI24S;
1797               else if (strcmp (fn_name, "F32MINUS") == 0)
1798                 typ = OP_OPERAND_F32MINUS;
1799               else if (strcmp (fn_name, "LOW16U") == 0)
1800                 typ = OP_OPERAND_LOW16U;
1801               else if (strcmp (fn_name, "HI16U") == 0)
1802                 typ = OP_OPERAND_HI16U;
1803               else
1804                 as_fatal (_("unknown user-defined function %s"), fn_name);
1805
1806               orig_op = get_opmatch (&initial_insn->t.operand_map,
1807                                      operand_arg_name);
1808               if (orig_op == NULL)
1809                 as_fatal (_("opcode %s: unidentified operand '%s' in '%s'"),
1810                           opcode_name, op->operand_name, to_string);
1811               append_user_fn_field_op (bi, op->operand_num,
1812                                        typ, orig_op->operand_num);
1813             }
1814           else
1815             as_fatal (_("opcode %s: could not parse operand '%s' in '%s'"),
1816                       opcode_name, op->operand_name, to_string);
1817         }
1818     }
1819
1820   return tr;
1821 }
1822
1823
1824 static TransitionTable *
1825 build_transition_table (const string_pattern_pair *transitions,
1826                         int transition_count,
1827                         transition_cmp_fn cmp)
1828 {
1829   TransitionTable *table = NULL;
1830   int num_opcodes = xtensa_isa_num_opcodes (xtensa_default_isa);
1831   int i, tnum;
1832
1833   if (table != NULL)
1834     return table;
1835
1836   /* Otherwise, build it now.  */
1837   table = (TransitionTable *) xmalloc (sizeof (TransitionTable));
1838   table->num_opcodes = num_opcodes;
1839   table->table =
1840     (TransitionList **) xmalloc (sizeof (TransitionTable *) * num_opcodes);
1841
1842   for (i = 0; i < num_opcodes; i++)
1843     table->table[i] = NULL;
1844
1845   for (tnum = 0; tnum < transition_count; tnum++)
1846     {
1847       const char *from_string = transitions[tnum].pattern;
1848       const char *to_string = transitions[tnum].replacement;
1849
1850       insn_pattern initial_insn;
1851       insn_repl replace_insns;
1852       TransitionRule *tr;
1853
1854       init_insn_pattern (&initial_insn);
1855       if (!parse_insn_pattern (from_string, &initial_insn))
1856         as_fatal (_("could not parse INSN_PATTERN '%s'"), from_string);
1857
1858       init_insn_repl (&replace_insns);
1859       if (!parse_insn_repl (to_string, &replace_insns))
1860         as_fatal (_("could not parse INSN_REPL '%s'"), to_string);
1861
1862       if (transition_applies (&initial_insn, from_string, to_string))
1863         {
1864           tr = build_transition (&initial_insn, &replace_insns,
1865                                  from_string, to_string);
1866           if (tr)
1867             append_transition (table, tr->opcode, tr, cmp);
1868           else
1869             {
1870 #if TENSILICA_DEBUG
1871               as_warn (_("could not build transition for %s => %s"),
1872                        from_string, to_string);
1873 #endif
1874             }
1875         }
1876
1877       clear_insn_repl (&replace_insns);
1878       clear_insn_pattern (&initial_insn);
1879     }
1880   return table;
1881 }
1882
1883 \f
1884 extern TransitionTable *
1885 xg_build_widen_table (transition_cmp_fn cmp)
1886 {
1887   static TransitionTable *table = NULL;
1888   if (table == NULL)
1889     table = build_transition_table (widen_spec_list, WIDEN_COUNT, cmp);
1890   return table;
1891 }
1892
1893
1894 extern TransitionTable *
1895 xg_build_simplify_table (transition_cmp_fn cmp)
1896 {
1897   static TransitionTable *table = NULL;
1898   if (table == NULL)
1899     table = build_transition_table (simplify_spec_list, SIMPLIFY_COUNT, cmp);
1900   return table;
1901 }