8734 lines
219 KiB
C
8734 lines
219 KiB
C
/* tc-xtensa.c -- Assemble Xtensa instructions.
|
||
Copyright 2003 Free Software Foundation, Inc.
|
||
|
||
This file is part of GAS, the GNU Assembler.
|
||
|
||
GAS is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2, or (at your option)
|
||
any later version.
|
||
|
||
GAS is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
GNU General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with GAS; see the file COPYING. If not, write to
|
||
the Free Software Foundation, 59 Temple Place - Suite 330, Boston,
|
||
MA 02111-1307, USA. */
|
||
|
||
#include <string.h>
|
||
#include "as.h"
|
||
#include "sb.h"
|
||
#include "safe-ctype.h"
|
||
#include "tc-xtensa.h"
|
||
#include "frags.h"
|
||
#include "subsegs.h"
|
||
#include "xtensa-relax.h"
|
||
#include "xtensa-istack.h"
|
||
#include "struc-symbol.h"
|
||
#include "xtensa-config.h"
|
||
|
||
#ifndef uint32
|
||
#define uint32 unsigned int
|
||
#endif
|
||
#ifndef int32
|
||
#define int32 signed int
|
||
#endif
|
||
|
||
/* Notes:
|
||
|
||
There are 3 forms for instructions,
|
||
1) the MEMORY format -- this is the encoding 2 or 3 byte instruction
|
||
2) the TInsn -- handles instructions/labels and literals;
|
||
all operands are assumed to be expressions
|
||
3) the IStack -- a stack of TInsn. this allows us to
|
||
reason about the generated expansion instructions
|
||
|
||
Naming conventions (used somewhat inconsistently):
|
||
The xtensa_ functions are exported
|
||
The xg_ functions are internal
|
||
|
||
We also have a couple of different extensibility mechanisms.
|
||
1) The idiom replacement:
|
||
This is used when a line is first parsed to
|
||
replace an instruction pattern with another instruction
|
||
It is currently limited to replacements of instructions
|
||
with constant operands.
|
||
2) The xtensa-relax.c mechanism that has stronger instruction
|
||
replacement patterns. When an instruction's immediate field
|
||
does not fit the next instruction sequence is attempted.
|
||
In addition, "narrow" opcodes are supported this way. */
|
||
|
||
|
||
/* Define characters with special meanings to GAS. */
|
||
const char comment_chars[] = "#";
|
||
const char line_comment_chars[] = "#";
|
||
const char line_separator_chars[] = ";";
|
||
const char EXP_CHARS[] = "eE";
|
||
const char FLT_CHARS[] = "rRsSfFdDxXpP";
|
||
|
||
|
||
/* Flag to indicate whether the hardware supports the density option.
|
||
If not, enabling density instructions (via directives or --density flag)
|
||
is illegal. */
|
||
|
||
#if STATIC_LIBISA
|
||
bfd_boolean density_supported = XCHAL_HAVE_DENSITY;
|
||
#else
|
||
bfd_boolean density_supported = TRUE;
|
||
#endif
|
||
|
||
#define XTENSA_FETCH_WIDTH 4
|
||
|
||
/* Flags for properties of the last instruction in a segment. */
|
||
#define FLAG_IS_A0_WRITER 0x1
|
||
#define FLAG_IS_BAD_LOOPEND 0x2
|
||
|
||
|
||
/* We define a special segment names ".literal" to place literals
|
||
into. The .fini and .init sections are special because they
|
||
contain code that is moved together by the linker. We give them
|
||
their own special .fini.literal and .init.literal sections. */
|
||
|
||
#define LITERAL_SECTION_NAME xtensa_section_rename (".literal")
|
||
#define FINI_SECTION_NAME xtensa_section_rename (".fini")
|
||
#define INIT_SECTION_NAME xtensa_section_rename (".init")
|
||
#define FINI_LITERAL_SECTION_NAME xtensa_section_rename (".fini.literal")
|
||
#define INIT_LITERAL_SECTION_NAME xtensa_section_rename (".init.literal")
|
||
|
||
|
||
/* This type is used for the directive_stack to keep track of the
|
||
state of the literal collection pools. */
|
||
|
||
typedef struct lit_state_struct
|
||
{
|
||
const char *lit_seg_name;
|
||
const char *init_lit_seg_name;
|
||
const char *fini_lit_seg_name;
|
||
segT lit_seg;
|
||
segT init_lit_seg;
|
||
segT fini_lit_seg;
|
||
} lit_state;
|
||
|
||
static lit_state default_lit_sections;
|
||
|
||
|
||
/* We keep lists of literal segments. The seg_list type is the node
|
||
for such a list. The *_literal_head locals are the heads of the
|
||
various lists. All of these lists have a dummy node at the start. */
|
||
|
||
typedef struct seg_list_struct
|
||
{
|
||
struct seg_list_struct *next;
|
||
segT seg;
|
||
} seg_list;
|
||
|
||
static seg_list literal_head_h;
|
||
static seg_list *literal_head = &literal_head_h;
|
||
static seg_list init_literal_head_h;
|
||
static seg_list *init_literal_head = &init_literal_head_h;
|
||
static seg_list fini_literal_head_h;
|
||
static seg_list *fini_literal_head = &fini_literal_head_h;
|
||
|
||
|
||
/* Lists of symbols. We keep a list of symbols that label the current
|
||
instruction, so that we can adjust the symbols when inserting alignment
|
||
for various instructions. We also keep a list of all the symbols on
|
||
literals, so that we can fix up those symbols when the literals are
|
||
later moved into the text sections. */
|
||
|
||
typedef struct sym_list_struct
|
||
{
|
||
struct sym_list_struct *next;
|
||
symbolS *sym;
|
||
} sym_list;
|
||
|
||
static sym_list *insn_labels = NULL;
|
||
static sym_list *free_insn_labels = NULL;
|
||
static sym_list *saved_insn_labels = NULL;
|
||
|
||
static sym_list *literal_syms;
|
||
|
||
|
||
/* Global flag to indicate when we are emitting literals. */
|
||
int generating_literals = 0;
|
||
|
||
|
||
/* Structure for saving the current state before emitting literals. */
|
||
typedef struct emit_state_struct
|
||
{
|
||
const char *name;
|
||
segT now_seg;
|
||
subsegT now_subseg;
|
||
int generating_literals;
|
||
} emit_state;
|
||
|
||
|
||
/* Directives. */
|
||
|
||
typedef enum
|
||
{
|
||
directive_none = 0,
|
||
directive_literal,
|
||
directive_density,
|
||
directive_generics,
|
||
directive_relax,
|
||
directive_freeregs,
|
||
directive_longcalls,
|
||
directive_literal_prefix
|
||
} directiveE;
|
||
|
||
typedef struct
|
||
{
|
||
const char *name;
|
||
bfd_boolean can_be_negated;
|
||
} directive_infoS;
|
||
|
||
const directive_infoS directive_info[] =
|
||
{
|
||
{"none", FALSE},
|
||
{"literal", FALSE},
|
||
{"density", TRUE},
|
||
{"generics", TRUE},
|
||
{"relax", TRUE},
|
||
{"freeregs", FALSE},
|
||
{"longcalls", TRUE},
|
||
{"literal_prefix", FALSE}
|
||
};
|
||
|
||
bfd_boolean directive_state[] =
|
||
{
|
||
FALSE, /* none */
|
||
FALSE, /* literal */
|
||
#if STATIC_LIBISA && !XCHAL_HAVE_DENSITY
|
||
FALSE, /* density */
|
||
#else
|
||
TRUE, /* density */
|
||
#endif
|
||
TRUE, /* generics */
|
||
TRUE, /* relax */
|
||
FALSE, /* freeregs */
|
||
FALSE, /* longcalls */
|
||
FALSE /* literal_prefix */
|
||
};
|
||
|
||
|
||
enum xtensa_relax_statesE
|
||
{
|
||
RELAX_ALIGN_NEXT_OPCODE,
|
||
/* Use the first opcode of the next fragment to determine the
|
||
alignment requirements. This is ONLY used for LOOPS
|
||
currently. */
|
||
|
||
RELAX_DESIRE_ALIGN_IF_TARGET,
|
||
/* These are placed in front of labels. They will all be converted
|
||
to RELAX_DESIRE_ALIGN / RELAX_LOOP_END or rs_fill of 0 before
|
||
relaxation begins. */
|
||
|
||
RELAX_ADD_NOP_IF_A0_B_RETW,
|
||
/* These are placed in front of conditional branches. It will be
|
||
turned into a NOP (using a1) if the branch is immediately
|
||
followed by a RETW or RETW.N. Otherwise it will be turned into
|
||
an rs_fill of 0 before relaxation begins. */
|
||
|
||
RELAX_ADD_NOP_IF_PRE_LOOP_END,
|
||
/* These are placed after JX instructions. It will be turned into a
|
||
NOP if there is one instruction before a loop end label.
|
||
Otherwise it will be turned into an rs_fill of 0 before
|
||
relaxation begins. This is used to avoid a hardware TIE
|
||
interlock issue prior to T1040. */
|
||
|
||
RELAX_ADD_NOP_IF_SHORT_LOOP,
|
||
/* These are placed after LOOP instructions. It will be turned into
|
||
a NOP when: (1) there are less than 3 instructions in the loop;
|
||
we place 2 of these in a row to add up to 2 NOPS in short loops;
|
||
or (2) The instructions in the loop do not include a branch or
|
||
jump. Otherwise it will be turned into an rs_fill of 0 before
|
||
relaxation begins. This is used to avoid hardware bug
|
||
PR3830. */
|
||
|
||
RELAX_ADD_NOP_IF_CLOSE_LOOP_END,
|
||
/* These are placed after LOOP instructions. It will be turned into
|
||
a NOP if there are less than 12 bytes to the end of some other
|
||
loop's end. Otherwise it will be turned into an rs_fill of 0
|
||
before relaxation begins. This is used to avoid hardware bug
|
||
PR3830. */
|
||
|
||
RELAX_DESIRE_ALIGN,
|
||
/* The next fragment like its first instruction to NOT cross a
|
||
4-byte boundary. */
|
||
|
||
RELAX_LOOP_END,
|
||
/* This will be turned into a NOP or NOP.N if the previous
|
||
instruction is expanded to negate a loop. */
|
||
|
||
RELAX_LOOP_END_ADD_NOP,
|
||
/* When the code density option is available, this will generate a
|
||
NOP.N marked RELAX_NARROW. Otherwise, it will create an rs_fill
|
||
fragment with a NOP in it. */
|
||
|
||
RELAX_LITERAL,
|
||
/* Another fragment could generate an expansion here but has not yet. */
|
||
|
||
RELAX_LITERAL_NR,
|
||
/* Expansion has been generated by an instruction that generates a
|
||
literal. However, the stretch has NOT been reported yet in this
|
||
fragment. */
|
||
|
||
RELAX_LITERAL_FINAL,
|
||
/* Expansion has been generated by an instruction that generates a
|
||
literal. */
|
||
|
||
RELAX_LITERAL_POOL_BEGIN,
|
||
RELAX_LITERAL_POOL_END,
|
||
/* Technically these are not relaxations at all, but mark a location
|
||
to store literals later. Note that fr_var stores the frchain for
|
||
BEGIN frags and fr_var stores now_seg for END frags. */
|
||
|
||
RELAX_NARROW,
|
||
/* The last instruction in this fragment (at->fr_opcode) can be
|
||
freely replaced with a single wider instruction if a future
|
||
alignment desires or needs it. */
|
||
|
||
RELAX_IMMED,
|
||
/* The last instruction in this fragment (at->fr_opcode) contains
|
||
the value defined by fr_symbol (fr_offset = 0). If the value
|
||
does not fit, use the specified expansion. This is similar to
|
||
"NARROW", except that these may not be expanded in order to align
|
||
code. */
|
||
|
||
RELAX_IMMED_STEP1,
|
||
/* The last instruction in this fragment (at->fr_opcode) contains a
|
||
literal. It has already been expanded at least 1 step. */
|
||
|
||
RELAX_IMMED_STEP2
|
||
/* The last instruction in this fragment (at->fr_opcode) contains a
|
||
literal. It has already been expanded at least 2 steps. */
|
||
};
|
||
|
||
/* This is used as a stopper to bound the number of steps that
|
||
can be taken. */
|
||
#define RELAX_IMMED_MAXSTEPS (RELAX_IMMED_STEP2 - RELAX_IMMED)
|
||
|
||
|
||
typedef bfd_boolean (*frag_predicate) (const fragS *);
|
||
|
||
|
||
/* Directive functions. */
|
||
|
||
static bfd_boolean use_generics
|
||
PARAMS ((void));
|
||
static bfd_boolean use_longcalls
|
||
PARAMS ((void));
|
||
static bfd_boolean code_density_available
|
||
PARAMS ((void));
|
||
static bfd_boolean can_relax
|
||
PARAMS ((void));
|
||
static void directive_push
|
||
PARAMS ((directiveE, bfd_boolean, const void *));
|
||
static void directive_pop
|
||
PARAMS ((directiveE *, bfd_boolean *, const char **,
|
||
unsigned int *, const void **));
|
||
static void directive_balance
|
||
PARAMS ((void));
|
||
static bfd_boolean inside_directive
|
||
PARAMS ((directiveE));
|
||
static void get_directive
|
||
PARAMS ((directiveE *, bfd_boolean *));
|
||
static void xtensa_begin_directive
|
||
PARAMS ((int));
|
||
static void xtensa_end_directive
|
||
PARAMS ((int));
|
||
static void xtensa_literal_prefix
|
||
PARAMS ((char const *, int));
|
||
static void xtensa_literal_position
|
||
PARAMS ((int));
|
||
static void xtensa_literal_pseudo
|
||
PARAMS ((int));
|
||
|
||
/* Parsing and Idiom Translation Functions. */
|
||
|
||
static const char *expression_end
|
||
PARAMS ((const char *));
|
||
static unsigned tc_get_register
|
||
PARAMS ((const char *));
|
||
static void expression_maybe_register
|
||
PARAMS ((xtensa_operand, expressionS *));
|
||
static int tokenize_arguments
|
||
PARAMS ((char **, char *));
|
||
static bfd_boolean parse_arguments
|
||
PARAMS ((TInsn *, int, char **));
|
||
static int xg_translate_idioms
|
||
PARAMS ((char **, int *, char **));
|
||
static int xg_translate_sysreg_op
|
||
PARAMS ((char **, int *, char **));
|
||
static void xg_reverse_shift_count
|
||
PARAMS ((char **));
|
||
static int xg_arg_is_constant
|
||
PARAMS ((char *, offsetT *));
|
||
static void xg_replace_opname
|
||
PARAMS ((char **, char *));
|
||
static int xg_check_num_args
|
||
PARAMS ((int *, int, char *, char **));
|
||
|
||
/* Functions for dealing with the Xtensa ISA. */
|
||
|
||
static bfd_boolean operand_is_immed
|
||
PARAMS ((xtensa_operand));
|
||
static bfd_boolean operand_is_pcrel_label
|
||
PARAMS ((xtensa_operand));
|
||
static int get_relaxable_immed
|
||
PARAMS ((xtensa_opcode));
|
||
static xtensa_opcode get_opcode_from_buf
|
||
PARAMS ((const char *));
|
||
static bfd_boolean is_direct_call_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_call_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_entry_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_loop_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_the_loop_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_jx_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_windowed_return_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_conditional_branch_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean is_branch_or_jump_opcode
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_reloc_code_real_type opnum_to_reloc
|
||
PARAMS ((int));
|
||
static int reloc_to_opnum
|
||
PARAMS ((bfd_reloc_code_real_type));
|
||
static void xtensa_insnbuf_set_operand
|
||
PARAMS ((xtensa_insnbuf, xtensa_opcode, xtensa_operand, int32,
|
||
const char *, unsigned int));
|
||
static uint32 xtensa_insnbuf_get_operand
|
||
PARAMS ((xtensa_insnbuf, xtensa_opcode, int));
|
||
static void xtensa_insnbuf_set_immediate_field
|
||
PARAMS ((xtensa_opcode, xtensa_insnbuf, int32, const char *,
|
||
unsigned int));
|
||
static bfd_boolean is_negatable_branch
|
||
PARAMS ((TInsn *));
|
||
|
||
/* Various Other Internal Functions. */
|
||
|
||
static bfd_boolean is_unique_insn_expansion
|
||
PARAMS ((TransitionRule *));
|
||
static int xg_get_insn_size
|
||
PARAMS ((TInsn *));
|
||
static int xg_get_build_instr_size
|
||
PARAMS ((BuildInstr *));
|
||
static bfd_boolean xg_is_narrow_insn
|
||
PARAMS ((TInsn *));
|
||
static bfd_boolean xg_is_single_relaxable_insn
|
||
PARAMS ((TInsn *));
|
||
static int xg_get_max_narrow_insn_size
|
||
PARAMS ((xtensa_opcode));
|
||
static int xg_get_max_insn_widen_size
|
||
PARAMS ((xtensa_opcode));
|
||
static int xg_get_max_insn_widen_literal_size
|
||
PARAMS ((xtensa_opcode));
|
||
static bfd_boolean xg_is_relaxable_insn
|
||
PARAMS ((TInsn *, int));
|
||
static symbolS *get_special_literal_symbol
|
||
PARAMS ((void));
|
||
static symbolS *get_special_label_symbol
|
||
PARAMS ((void));
|
||
static bfd_boolean xg_build_to_insn
|
||
PARAMS ((TInsn *, TInsn *, BuildInstr *));
|
||
static bfd_boolean xg_build_to_stack
|
||
PARAMS ((IStack *, TInsn *, BuildInstr *));
|
||
static bfd_boolean xg_expand_to_stack
|
||
PARAMS ((IStack *, TInsn *, int));
|
||
static bfd_boolean xg_expand_narrow
|
||
PARAMS ((TInsn *, TInsn *));
|
||
static bfd_boolean xg_immeds_fit
|
||
PARAMS ((const TInsn *));
|
||
static bfd_boolean xg_symbolic_immeds_fit
|
||
PARAMS ((const TInsn *, segT, fragS *, offsetT, long));
|
||
static bfd_boolean xg_check_operand
|
||
PARAMS ((int32, xtensa_operand));
|
||
static int is_dnrange
|
||
PARAMS ((fragS *, symbolS *, long));
|
||
static int xg_assembly_relax
|
||
PARAMS ((IStack *, TInsn *, segT, fragS *, offsetT, int, long));
|
||
static void xg_force_frag_space
|
||
PARAMS ((int));
|
||
static void xg_finish_frag
|
||
PARAMS ((char *, enum xtensa_relax_statesE, int, bfd_boolean));
|
||
static bfd_boolean is_branch_jmp_to_next
|
||
PARAMS ((TInsn *, fragS *));
|
||
static void xg_add_branch_and_loop_targets
|
||
PARAMS ((TInsn *));
|
||
static bfd_boolean xg_instruction_matches_rule
|
||
PARAMS ((TInsn *, TransitionRule *));
|
||
static TransitionRule *xg_instruction_match
|
||
PARAMS ((TInsn *));
|
||
static bfd_boolean xg_build_token_insn
|
||
PARAMS ((BuildInstr *, TInsn *, TInsn *));
|
||
static bfd_boolean xg_simplify_insn
|
||
PARAMS ((TInsn *, TInsn *));
|
||
static bfd_boolean xg_expand_assembly_insn
|
||
PARAMS ((IStack *, TInsn *));
|
||
static symbolS *xg_assemble_literal
|
||
PARAMS ((TInsn *));
|
||
static void xg_assemble_literal_space
|
||
PARAMS ((int));
|
||
static symbolS *xtensa_create_literal_symbol
|
||
PARAMS ((segT, fragS *));
|
||
static void xtensa_add_literal_sym
|
||
PARAMS ((symbolS *));
|
||
static void xtensa_add_insn_label
|
||
PARAMS ((symbolS *));
|
||
static void xtensa_clear_insn_labels
|
||
PARAMS ((void));
|
||
static bfd_boolean get_is_linkonce_section
|
||
PARAMS ((bfd *, segT));
|
||
static bfd_boolean xg_emit_insn
|
||
PARAMS ((TInsn *, bfd_boolean));
|
||
static bfd_boolean xg_emit_insn_to_buf
|
||
PARAMS ((TInsn *, char *, fragS *, offsetT, bfd_boolean));
|
||
static bfd_boolean xg_add_opcode_fix
|
||
PARAMS ((xtensa_opcode, int, expressionS *, fragS *, offsetT));
|
||
static void xg_resolve_literals
|
||
PARAMS ((TInsn *, symbolS *));
|
||
static void xg_resolve_labels
|
||
PARAMS ((TInsn *, symbolS *));
|
||
static void xg_assemble_tokens
|
||
PARAMS ((TInsn *));
|
||
static bfd_boolean is_register_writer
|
||
PARAMS ((const TInsn *, const char *, int));
|
||
static bfd_boolean is_bad_loopend_opcode
|
||
PARAMS ((const TInsn *));
|
||
static bfd_boolean is_unaligned_label
|
||
PARAMS ((symbolS *));
|
||
static fragS *next_non_empty_frag
|
||
PARAMS ((const fragS *));
|
||
static xtensa_opcode next_frag_opcode
|
||
PARAMS ((const fragS *));
|
||
static void update_next_frag_nop_state
|
||
PARAMS ((fragS *));
|
||
static bfd_boolean next_frag_is_branch_target
|
||
PARAMS ((const fragS *));
|
||
static bfd_boolean next_frag_is_loop_target
|
||
PARAMS ((const fragS *));
|
||
static addressT next_frag_pre_opcode_bytes
|
||
PARAMS ((const fragS *));
|
||
static bfd_boolean is_next_frag_target
|
||
PARAMS ((const fragS *, const fragS *));
|
||
static void xtensa_mark_literal_pool_location
|
||
PARAMS ((void));
|
||
static void xtensa_move_labels
|
||
PARAMS ((fragS *, valueT, bfd_boolean));
|
||
static void assemble_nop
|
||
PARAMS ((size_t, char *));
|
||
static addressT get_expanded_loop_offset
|
||
PARAMS ((xtensa_opcode));
|
||
static fragS *get_literal_pool_location
|
||
PARAMS ((segT));
|
||
static void set_literal_pool_location
|
||
PARAMS ((segT, fragS *));
|
||
|
||
/* Helpers for xtensa_end(). */
|
||
|
||
static void xtensa_cleanup_align_frags
|
||
PARAMS ((void));
|
||
static void xtensa_fix_target_frags
|
||
PARAMS ((void));
|
||
static bfd_boolean frag_can_negate_branch
|
||
PARAMS ((fragS *));
|
||
static void xtensa_fix_a0_b_retw_frags
|
||
PARAMS ((void));
|
||
static bfd_boolean next_instrs_are_b_retw
|
||
PARAMS ((fragS *));
|
||
static void xtensa_fix_b_j_loop_end_frags
|
||
PARAMS ((void));
|
||
static bfd_boolean next_instr_is_loop_end
|
||
PARAMS ((fragS *));
|
||
static void xtensa_fix_close_loop_end_frags
|
||
PARAMS ((void));
|
||
static size_t min_bytes_to_other_loop_end
|
||
PARAMS ((fragS *, fragS *, offsetT, size_t));
|
||
static size_t unrelaxed_frag_min_size
|
||
PARAMS ((fragS *));
|
||
static void xtensa_fix_short_loop_frags
|
||
PARAMS ((void));
|
||
static size_t count_insns_to_loop_end
|
||
PARAMS ((fragS *, bfd_boolean, size_t));
|
||
static size_t unrelaxed_frag_min_insn_count
|
||
PARAMS ((fragS *));
|
||
static bfd_boolean branch_before_loop_end
|
||
PARAMS ((fragS *));
|
||
static bfd_boolean unrelaxed_frag_has_b_j
|
||
PARAMS ((fragS *));
|
||
static void xtensa_sanity_check
|
||
PARAMS ((void));
|
||
static bfd_boolean is_empty_loop
|
||
PARAMS ((const TInsn *, fragS *));
|
||
static bfd_boolean is_local_forward_loop
|
||
PARAMS ((const TInsn *, fragS *));
|
||
|
||
/* Alignment Functions. */
|
||
|
||
static size_t get_text_align_power
|
||
PARAMS ((int));
|
||
static addressT get_text_align_max_fill_size
|
||
PARAMS ((int, bfd_boolean, bfd_boolean));
|
||
static addressT get_text_align_fill_size
|
||
PARAMS ((addressT, int, int, bfd_boolean, bfd_boolean));
|
||
static size_t get_text_align_nop_count
|
||
PARAMS ((size_t, bfd_boolean));
|
||
static size_t get_text_align_nth_nop_size
|
||
PARAMS ((size_t, size_t, bfd_boolean));
|
||
static addressT get_noop_aligned_address
|
||
PARAMS ((fragS *, addressT));
|
||
static addressT get_widen_aligned_address
|
||
PARAMS ((fragS *, addressT));
|
||
|
||
/* Helpers for xtensa_relax_frag(). */
|
||
|
||
static long relax_frag_text_align
|
||
PARAMS ((fragS *, long));
|
||
static long relax_frag_add_nop
|
||
PARAMS ((fragS *));
|
||
static long relax_frag_narrow
|
||
PARAMS ((fragS *, long));
|
||
static bfd_boolean future_alignment_required
|
||
PARAMS ((fragS *, long));
|
||
static long relax_frag_immed
|
||
PARAMS ((segT, fragS *, long, int, int *));
|
||
|
||
/* Helpers for md_convert_frag(). */
|
||
|
||
static void convert_frag_align_next_opcode
|
||
PARAMS ((fragS *));
|
||
static void convert_frag_narrow
|
||
PARAMS ((fragS *));
|
||
static void convert_frag_immed
|
||
PARAMS ((segT, fragS *, int));
|
||
static fixS *fix_new_exp_in_seg
|
||
PARAMS ((segT, subsegT, fragS *, int, int, expressionS *, int,
|
||
bfd_reloc_code_real_type));
|
||
static void convert_frag_immed_finish_loop
|
||
PARAMS ((segT, fragS *, TInsn *));
|
||
static offsetT get_expression_value
|
||
PARAMS ((segT, expressionS *));
|
||
|
||
/* Flags for the Last Instruction in Each Subsegment. */
|
||
|
||
static unsigned get_last_insn_flags
|
||
PARAMS ((segT, subsegT));
|
||
static void set_last_insn_flags
|
||
PARAMS ((segT, subsegT, unsigned, bfd_boolean));
|
||
|
||
/* Segment list functions. */
|
||
|
||
static void xtensa_remove_section
|
||
PARAMS ((segT));
|
||
static void xtensa_insert_section
|
||
PARAMS ((segT, segT));
|
||
static void xtensa_move_seg_list_to_beginning
|
||
PARAMS ((seg_list *));
|
||
static void xtensa_move_literals
|
||
PARAMS ((void));
|
||
static void xtensa_reorder_seg_list
|
||
PARAMS ((seg_list *, segT));
|
||
static void xtensa_reorder_segments
|
||
PARAMS ((void));
|
||
static segT get_last_sec
|
||
PARAMS ((void));
|
||
static void xtensa_switch_to_literal_fragment
|
||
PARAMS ((emit_state *));
|
||
static void xtensa_switch_section_emit_state
|
||
PARAMS ((emit_state *, segT, subsegT));
|
||
static void xtensa_restore_emit_state
|
||
PARAMS ((emit_state *));
|
||
static void cache_literal_section
|
||
PARAMS ((seg_list *, const char *, segT *));
|
||
static segT retrieve_literal_seg
|
||
PARAMS ((seg_list *, const char *));
|
||
static segT seg_present
|
||
PARAMS ((const char *));
|
||
static void add_seg_list
|
||
PARAMS ((seg_list *, segT));
|
||
|
||
/* Property Table (e.g., ".xt.insn" and ".xt.lit") Functions. */
|
||
|
||
static void xtensa_create_property_segments
|
||
PARAMS ((frag_predicate, const char *, xt_section_type));
|
||
static segment_info_type *retrieve_segment_info
|
||
PARAMS ((segT));
|
||
static segT retrieve_xtensa_section
|
||
PARAMS ((char *));
|
||
static bfd_boolean section_has_property
|
||
PARAMS ((segT sec, frag_predicate));
|
||
static void add_xt_block_frags
|
||
PARAMS ((segT, segT, xtensa_block_info **, frag_predicate));
|
||
static bfd_boolean get_frag_is_literal
|
||
PARAMS ((const fragS *));
|
||
static bfd_boolean get_frag_is_insn
|
||
PARAMS ((const fragS *));
|
||
|
||
/* Import from elf32-xtensa.c in BFD library. */
|
||
extern char *xtensa_get_property_section_name
|
||
PARAMS ((asection *, const char *));
|
||
|
||
/* TInsn and IStack functions. */
|
||
static bfd_boolean tinsn_has_symbolic_operands
|
||
PARAMS ((const TInsn *));
|
||
static bfd_boolean tinsn_has_invalid_symbolic_operands
|
||
PARAMS ((const TInsn *));
|
||
static bfd_boolean tinsn_has_complex_operands
|
||
PARAMS ((const TInsn *));
|
||
static bfd_boolean tinsn_to_insnbuf
|
||
PARAMS ((TInsn *, xtensa_insnbuf));
|
||
static bfd_boolean tinsn_check_arguments
|
||
PARAMS ((const TInsn *));
|
||
static void tinsn_from_chars
|
||
PARAMS ((TInsn *, char *));
|
||
static void tinsn_immed_from_frag
|
||
PARAMS ((TInsn *, fragS *));
|
||
static int get_num_stack_text_bytes
|
||
PARAMS ((IStack *));
|
||
static int get_num_stack_literal_bytes
|
||
PARAMS ((IStack *));
|
||
|
||
/* Expression Utilities. */
|
||
bfd_boolean expr_is_const
|
||
PARAMS ((const expressionS *));
|
||
offsetT get_expr_const
|
||
PARAMS ((const expressionS *));
|
||
void set_expr_const
|
||
PARAMS ((expressionS *, offsetT));
|
||
void set_expr_symbol_offset
|
||
PARAMS ((expressionS *, symbolS *, offsetT));
|
||
bfd_boolean expr_is_equal
|
||
PARAMS ((expressionS *, expressionS *));
|
||
static void copy_expr
|
||
PARAMS ((expressionS *, const expressionS *));
|
||
|
||
#ifdef XTENSA_SECTION_RENAME
|
||
static void build_section_rename
|
||
PARAMS ((const char *));
|
||
static void add_section_rename
|
||
PARAMS ((char *, char *));
|
||
#endif
|
||
|
||
|
||
/* ISA imported from bfd. */
|
||
extern xtensa_isa xtensa_default_isa;
|
||
|
||
extern int target_big_endian;
|
||
|
||
static xtensa_opcode xtensa_addi_opcode;
|
||
static xtensa_opcode xtensa_addmi_opcode;
|
||
static xtensa_opcode xtensa_call0_opcode;
|
||
static xtensa_opcode xtensa_call4_opcode;
|
||
static xtensa_opcode xtensa_call8_opcode;
|
||
static xtensa_opcode xtensa_call12_opcode;
|
||
static xtensa_opcode xtensa_callx0_opcode;
|
||
static xtensa_opcode xtensa_callx4_opcode;
|
||
static xtensa_opcode xtensa_callx8_opcode;
|
||
static xtensa_opcode xtensa_callx12_opcode;
|
||
static xtensa_opcode xtensa_entry_opcode;
|
||
static xtensa_opcode xtensa_isync_opcode;
|
||
static xtensa_opcode xtensa_j_opcode;
|
||
static xtensa_opcode xtensa_jx_opcode;
|
||
static xtensa_opcode xtensa_loop_opcode;
|
||
static xtensa_opcode xtensa_loopnez_opcode;
|
||
static xtensa_opcode xtensa_loopgtz_opcode;
|
||
static xtensa_opcode xtensa_nop_n_opcode;
|
||
static xtensa_opcode xtensa_or_opcode;
|
||
static xtensa_opcode xtensa_ret_opcode;
|
||
static xtensa_opcode xtensa_ret_n_opcode;
|
||
static xtensa_opcode xtensa_retw_opcode;
|
||
static xtensa_opcode xtensa_retw_n_opcode;
|
||
static xtensa_opcode xtensa_rsr_opcode;
|
||
static xtensa_opcode xtensa_waiti_opcode;
|
||
|
||
|
||
/* Command-line Options. */
|
||
|
||
bfd_boolean use_literal_section = TRUE;
|
||
static bfd_boolean align_targets = TRUE;
|
||
static bfd_boolean align_only_targets = FALSE;
|
||
static bfd_boolean software_a0_b_retw_interlock = TRUE;
|
||
static bfd_boolean has_a0_b_retw = FALSE;
|
||
static bfd_boolean workaround_a0_b_retw = TRUE;
|
||
|
||
static bfd_boolean software_avoid_b_j_loop_end = TRUE;
|
||
static bfd_boolean workaround_b_j_loop_end = TRUE;
|
||
static bfd_boolean maybe_has_b_j_loop_end = FALSE;
|
||
|
||
static bfd_boolean software_avoid_short_loop = TRUE;
|
||
static bfd_boolean workaround_short_loop = TRUE;
|
||
static bfd_boolean maybe_has_short_loop = FALSE;
|
||
|
||
static bfd_boolean software_avoid_close_loop_end = TRUE;
|
||
static bfd_boolean workaround_close_loop_end = TRUE;
|
||
static bfd_boolean maybe_has_close_loop_end = FALSE;
|
||
|
||
/* When avoid_short_loops is true, all loops with early exits must
|
||
have at least 3 instructions. avoid_all_short_loops is a modifier
|
||
to the avoid_short_loop flag. In addition to the avoid_short_loop
|
||
actions, all straightline loopgtz and loopnez must have at least 3
|
||
instructions. */
|
||
|
||
static bfd_boolean software_avoid_all_short_loops = TRUE;
|
||
static bfd_boolean workaround_all_short_loops = TRUE;
|
||
|
||
/* This is on a per-instruction basis. */
|
||
static bfd_boolean specific_opcode = FALSE;
|
||
|
||
enum
|
||
{
|
||
option_density = OPTION_MD_BASE,
|
||
option_no_density,
|
||
|
||
option_relax,
|
||
option_no_relax,
|
||
|
||
option_generics,
|
||
option_no_generics,
|
||
|
||
option_text_section_literals,
|
||
option_no_text_section_literals,
|
||
|
||
option_align_targets,
|
||
option_no_align_targets,
|
||
|
||
option_align_only_targets,
|
||
option_no_align_only_targets,
|
||
|
||
option_longcalls,
|
||
option_no_longcalls,
|
||
|
||
option_workaround_a0_b_retw,
|
||
option_no_workaround_a0_b_retw,
|
||
|
||
option_workaround_b_j_loop_end,
|
||
option_no_workaround_b_j_loop_end,
|
||
|
||
option_workaround_short_loop,
|
||
option_no_workaround_short_loop,
|
||
|
||
option_workaround_all_short_loops,
|
||
option_no_workaround_all_short_loops,
|
||
|
||
option_workaround_close_loop_end,
|
||
option_no_workaround_close_loop_end,
|
||
|
||
option_no_workarounds,
|
||
|
||
#ifdef XTENSA_SECTION_RENAME
|
||
option_literal_section_name,
|
||
option_text_section_name,
|
||
option_data_section_name,
|
||
option_bss_section_name,
|
||
option_rename_section_name,
|
||
#endif
|
||
|
||
option_eb,
|
||
option_el
|
||
};
|
||
|
||
const char *md_shortopts = "";
|
||
|
||
struct option md_longopts[] =
|
||
{
|
||
{"density", no_argument, NULL, option_density},
|
||
{"no-density", no_argument, NULL, option_no_density},
|
||
/* At least as early as alameda, --[no-]relax didn't work as
|
||
documented, so as of albany, --[no-]relax is equivalent to
|
||
--[no-]generics. Both of these will be deprecated in
|
||
BearValley. */
|
||
{"relax", no_argument, NULL, option_generics},
|
||
{"no-relax", no_argument, NULL, option_no_generics},
|
||
{"generics", no_argument, NULL, option_generics},
|
||
{"no-generics", no_argument, NULL, option_no_generics},
|
||
{"text-section-literals", no_argument, NULL, option_text_section_literals},
|
||
{"no-text-section-literals", no_argument, NULL,
|
||
option_no_text_section_literals},
|
||
/* This option was changed from -align-target to -target-align
|
||
because it conflicted with the "-al" option. */
|
||
{"target-align", no_argument, NULL, option_align_targets},
|
||
{"no-target-align", no_argument, NULL,
|
||
option_no_align_targets},
|
||
#if 0
|
||
/* This option should do a better job aligning targets because
|
||
it will only attempt to align targets that are the target of a
|
||
branch. */
|
||
{ "target-align-only", no_argument, NULL, option_align_only_targets },
|
||
{ "no-target-align-only", no_argument, NULL, option_no_align_only_targets },
|
||
#endif /* 0 */
|
||
{"longcalls", no_argument, NULL, option_longcalls},
|
||
{"no-longcalls", no_argument, NULL, option_no_longcalls},
|
||
|
||
{"no-workaround-a0-b-retw", no_argument, NULL,
|
||
option_no_workaround_a0_b_retw},
|
||
{"workaround-a0-b-retw", no_argument, NULL, option_workaround_a0_b_retw},
|
||
|
||
{"no-workaround-b-j-loop-end", no_argument, NULL,
|
||
option_no_workaround_b_j_loop_end},
|
||
{"workaround-b-j-loop-end", no_argument, NULL,
|
||
option_workaround_b_j_loop_end},
|
||
|
||
{"no-workaround-short-loops", no_argument, NULL,
|
||
option_no_workaround_short_loop},
|
||
{"workaround-short-loops", no_argument, NULL, option_workaround_short_loop},
|
||
|
||
{"no-workaround-all-short-loops", no_argument, NULL,
|
||
option_no_workaround_all_short_loops},
|
||
{"workaround-all-short-loop", no_argument, NULL,
|
||
option_workaround_all_short_loops},
|
||
|
||
{"no-workaround-close-loop-end", no_argument, NULL,
|
||
option_no_workaround_close_loop_end},
|
||
{"workaround-close-loop-end", no_argument, NULL,
|
||
option_workaround_close_loop_end},
|
||
|
||
{"no-workarounds", no_argument, NULL, option_no_workarounds},
|
||
|
||
#ifdef XTENSA_SECTION_RENAME
|
||
{"literal-section-name", required_argument, NULL,
|
||
option_literal_section_name},
|
||
{"text-section-name", required_argument, NULL,
|
||
option_text_section_name},
|
||
{"data-section-name", required_argument, NULL,
|
||
option_data_section_name},
|
||
{"rename-section", required_argument, NULL,
|
||
option_rename_section_name},
|
||
{"bss-section-name", required_argument, NULL,
|
||
option_bss_section_name},
|
||
#endif /* XTENSA_SECTION_RENAME */
|
||
|
||
{NULL, no_argument, NULL, 0}
|
||
};
|
||
|
||
size_t md_longopts_size = sizeof md_longopts;
|
||
|
||
|
||
int
|
||
md_parse_option (c, arg)
|
||
int c;
|
||
char *arg;
|
||
{
|
||
switch (c)
|
||
{
|
||
case option_density:
|
||
if (!density_supported)
|
||
{
|
||
as_bad (_("'--density' option not supported in this Xtensa "
|
||
"configuration"));
|
||
return 0;
|
||
}
|
||
directive_state[directive_density] = TRUE;
|
||
return 1;
|
||
case option_no_density:
|
||
directive_state[directive_density] = FALSE;
|
||
return 1;
|
||
case option_generics:
|
||
directive_state[directive_generics] = TRUE;
|
||
return 1;
|
||
case option_no_generics:
|
||
directive_state[directive_generics] = FALSE;
|
||
return 1;
|
||
case option_longcalls:
|
||
directive_state[directive_longcalls] = TRUE;
|
||
return 1;
|
||
case option_no_longcalls:
|
||
directive_state[directive_longcalls] = FALSE;
|
||
return 1;
|
||
case option_text_section_literals:
|
||
use_literal_section = FALSE;
|
||
return 1;
|
||
case option_no_text_section_literals:
|
||
use_literal_section = TRUE;
|
||
return 1;
|
||
case option_workaround_a0_b_retw:
|
||
workaround_a0_b_retw = TRUE;
|
||
software_a0_b_retw_interlock = TRUE;
|
||
return 1;
|
||
case option_no_workaround_a0_b_retw:
|
||
workaround_a0_b_retw = FALSE;
|
||
software_a0_b_retw_interlock = FALSE;
|
||
return 1;
|
||
case option_workaround_b_j_loop_end:
|
||
workaround_b_j_loop_end = TRUE;
|
||
software_avoid_b_j_loop_end = TRUE;
|
||
return 1;
|
||
case option_no_workaround_b_j_loop_end:
|
||
workaround_b_j_loop_end = FALSE;
|
||
software_avoid_b_j_loop_end = FALSE;
|
||
return 1;
|
||
|
||
case option_workaround_short_loop:
|
||
workaround_short_loop = TRUE;
|
||
software_avoid_short_loop = TRUE;
|
||
return 1;
|
||
case option_no_workaround_short_loop:
|
||
workaround_short_loop = FALSE;
|
||
software_avoid_short_loop = FALSE;
|
||
return 1;
|
||
|
||
case option_workaround_all_short_loops:
|
||
workaround_all_short_loops = TRUE;
|
||
software_avoid_all_short_loops = TRUE;
|
||
return 1;
|
||
case option_no_workaround_all_short_loops:
|
||
workaround_all_short_loops = FALSE;
|
||
software_avoid_all_short_loops = FALSE;
|
||
return 1;
|
||
|
||
case option_workaround_close_loop_end:
|
||
workaround_close_loop_end = TRUE;
|
||
software_avoid_close_loop_end = TRUE;
|
||
return 1;
|
||
case option_no_workaround_close_loop_end:
|
||
workaround_close_loop_end = FALSE;
|
||
software_avoid_close_loop_end = FALSE;
|
||
return 1;
|
||
|
||
case option_no_workarounds:
|
||
workaround_a0_b_retw = FALSE;
|
||
software_a0_b_retw_interlock = FALSE;
|
||
workaround_b_j_loop_end = FALSE;
|
||
software_avoid_b_j_loop_end = FALSE;
|
||
workaround_short_loop = FALSE;
|
||
software_avoid_short_loop = FALSE;
|
||
workaround_all_short_loops = FALSE;
|
||
software_avoid_all_short_loops = FALSE;
|
||
workaround_close_loop_end = FALSE;
|
||
software_avoid_close_loop_end = FALSE;
|
||
return 1;
|
||
|
||
case option_align_targets:
|
||
align_targets = TRUE;
|
||
return 1;
|
||
case option_no_align_targets:
|
||
align_targets = FALSE;
|
||
return 1;
|
||
|
||
case option_align_only_targets:
|
||
align_only_targets = TRUE;
|
||
return 1;
|
||
case option_no_align_only_targets:
|
||
align_only_targets = FALSE;
|
||
return 1;
|
||
|
||
#ifdef XTENSA_SECTION_RENAME
|
||
case option_literal_section_name:
|
||
add_section_rename (".literal", arg);
|
||
as_warn (_("'--literal-section-name' is deprecated; "
|
||
"use '--rename-section .literal=NEWNAME'"));
|
||
return 1;
|
||
|
||
case option_text_section_name:
|
||
add_section_rename (".text", arg);
|
||
as_warn (_("'--text-section-name' is deprecated; "
|
||
"use '--rename-section .text=NEWNAME'"));
|
||
return 1;
|
||
|
||
case option_data_section_name:
|
||
add_section_rename (".data", arg);
|
||
as_warn (_("'--data-section-name' is deprecated; "
|
||
"use '--rename-section .data=NEWNAME'"));
|
||
return 1;
|
||
|
||
case option_bss_section_name:
|
||
add_section_rename (".bss", arg);
|
||
as_warn (_("'--bss-section-name' is deprecated; "
|
||
"use '--rename-section .bss=NEWNAME'"));
|
||
return 1;
|
||
|
||
case option_rename_section_name:
|
||
build_section_rename (arg);
|
||
return 1;
|
||
#endif /* XTENSA_SECTION_RENAME */
|
||
|
||
case 'Q':
|
||
/* -Qy, -Qn: SVR4 arguments controlling whether a .comment section
|
||
should be emitted or not. FIXME: Not implemented. */
|
||
return 1;
|
||
|
||
default:
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
|
||
void
|
||
md_show_usage (stream)
|
||
FILE *stream;
|
||
{
|
||
fputs ("\nXtensa options:\n"
|
||
"--[no-]density [Do not] emit density instructions\n"
|
||
"--[no-]relax [Do not] perform branch relaxation\n"
|
||
"--[no-]generics [Do not] transform instructions\n"
|
||
"--[no-]longcalls [Do not] emit 32-bit call sequences\n"
|
||
"--[no-]target-align [Do not] try to align branch targets\n"
|
||
"--[no-]text-section-literals\n"
|
||
" [Do not] put literals in the text section\n"
|
||
"--no-workarounds Do not use any Xtensa workarounds\n"
|
||
#ifdef XTENSA_SECTION_RENAME
|
||
"--rename-section old=new(:old1=new1)*\n"
|
||
" Rename section 'old' to 'new'\n"
|
||
"\nThe following Xtensa options are deprecated\n"
|
||
"--literal-section-name Name of literal section (default .literal)\n"
|
||
"--text-section-name Name of text section (default .text)\n"
|
||
"--data-section-name Name of data section (default .data)\n"
|
||
"--bss-section-name Name of bss section (default .bss)\n"
|
||
#endif
|
||
, stream);
|
||
}
|
||
|
||
|
||
/* Directive data and functions. */
|
||
|
||
typedef struct state_stackS_struct
|
||
{
|
||
directiveE directive;
|
||
bfd_boolean negated;
|
||
bfd_boolean old_state;
|
||
const char *file;
|
||
unsigned int line;
|
||
const void *datum;
|
||
struct state_stackS_struct *prev;
|
||
} state_stackS;
|
||
|
||
state_stackS *directive_state_stack;
|
||
|
||
const pseudo_typeS md_pseudo_table[] =
|
||
{
|
||
{"align", s_align_bytes, 0}, /* Defaulting is invalid (0) */
|
||
{"literal_position", xtensa_literal_position, 0},
|
||
{"frame", s_ignore, 0}, /* formerly used for STABS debugging */
|
||
{"word", cons, 4},
|
||
{"begin", xtensa_begin_directive, 0},
|
||
{"end", xtensa_end_directive, 0},
|
||
{"literal", xtensa_literal_pseudo, 0},
|
||
{NULL, 0, 0},
|
||
};
|
||
|
||
|
||
bfd_boolean
|
||
use_generics ()
|
||
{
|
||
return directive_state[directive_generics];
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
use_longcalls ()
|
||
{
|
||
return directive_state[directive_longcalls];
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
code_density_available ()
|
||
{
|
||
return directive_state[directive_density];
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
can_relax ()
|
||
{
|
||
return use_generics ();
|
||
}
|
||
|
||
|
||
static void
|
||
directive_push (directive, negated, datum)
|
||
directiveE directive;
|
||
bfd_boolean negated;
|
||
const void *datum;
|
||
{
|
||
char *file;
|
||
unsigned int line;
|
||
state_stackS *stack = (state_stackS *) xmalloc (sizeof (state_stackS));
|
||
|
||
as_where (&file, &line);
|
||
|
||
stack->directive = directive;
|
||
stack->negated = negated;
|
||
stack->old_state = directive_state[directive];
|
||
stack->file = file;
|
||
stack->line = line;
|
||
stack->datum = datum;
|
||
stack->prev = directive_state_stack;
|
||
directive_state_stack = stack;
|
||
|
||
directive_state[directive] = !negated;
|
||
}
|
||
|
||
static void
|
||
directive_pop (directive, negated, file, line, datum)
|
||
directiveE *directive;
|
||
bfd_boolean *negated;
|
||
const char **file;
|
||
unsigned int *line;
|
||
const void **datum;
|
||
{
|
||
state_stackS *top = directive_state_stack;
|
||
|
||
if (!directive_state_stack)
|
||
{
|
||
as_bad (_("unmatched end directive"));
|
||
*directive = directive_none;
|
||
return;
|
||
}
|
||
|
||
directive_state[directive_state_stack->directive] = top->old_state;
|
||
*directive = top->directive;
|
||
*negated = top->negated;
|
||
*file = top->file;
|
||
*line = top->line;
|
||
*datum = top->datum;
|
||
directive_state_stack = top->prev;
|
||
free (top);
|
||
}
|
||
|
||
|
||
static void
|
||
directive_balance ()
|
||
{
|
||
while (directive_state_stack)
|
||
{
|
||
directiveE directive;
|
||
bfd_boolean negated;
|
||
const char *file;
|
||
unsigned int line;
|
||
const void *datum;
|
||
|
||
directive_pop (&directive, &negated, &file, &line, &datum);
|
||
as_warn_where ((char *) file, line,
|
||
_(".begin directive with no matching .end directive"));
|
||
}
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
inside_directive (dir)
|
||
directiveE dir;
|
||
{
|
||
state_stackS *top = directive_state_stack;
|
||
|
||
while (top && top->directive != dir)
|
||
top = top->prev;
|
||
|
||
return (top != NULL);
|
||
}
|
||
|
||
|
||
static void
|
||
get_directive (directive, negated)
|
||
directiveE *directive;
|
||
bfd_boolean *negated;
|
||
{
|
||
int len;
|
||
unsigned i;
|
||
|
||
if (strncmp (input_line_pointer, "no-", 3) != 0)
|
||
*negated = FALSE;
|
||
else
|
||
{
|
||
*negated = TRUE;
|
||
input_line_pointer += 3;
|
||
}
|
||
|
||
len = strspn (input_line_pointer,
|
||
"abcdefghijklmnopqrstuvwxyz_/0123456789.");
|
||
|
||
for (i = 0; i < sizeof (directive_info) / sizeof (*directive_info); ++i)
|
||
{
|
||
if (strncmp (input_line_pointer, directive_info[i].name, len) == 0)
|
||
{
|
||
input_line_pointer += len;
|
||
*directive = (directiveE) i;
|
||
if (*negated && !directive_info[i].can_be_negated)
|
||
as_bad (_("directive %s can't be negated"),
|
||
directive_info[i].name);
|
||
return;
|
||
}
|
||
}
|
||
|
||
as_bad (_("unknown directive"));
|
||
*directive = (directiveE) XTENSA_UNDEFINED;
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_begin_directive (ignore)
|
||
int ignore ATTRIBUTE_UNUSED;
|
||
{
|
||
directiveE directive;
|
||
bfd_boolean negated;
|
||
emit_state *state;
|
||
int len;
|
||
lit_state *ls;
|
||
|
||
md_flush_pending_output ();
|
||
|
||
get_directive (&directive, &negated);
|
||
if (directive == (directiveE) XTENSA_UNDEFINED)
|
||
{
|
||
discard_rest_of_line ();
|
||
return;
|
||
}
|
||
|
||
switch (directive)
|
||
{
|
||
case directive_literal:
|
||
if (!inside_directive (directive_literal))
|
||
{
|
||
/* Previous labels go with whatever follows this directive, not with
|
||
the literal, so save them now. */
|
||
saved_insn_labels = insn_labels;
|
||
insn_labels = NULL;
|
||
}
|
||
state = (emit_state *) xmalloc (sizeof (emit_state));
|
||
xtensa_switch_to_literal_fragment (state);
|
||
directive_push (directive_literal, negated, state);
|
||
break;
|
||
|
||
case directive_literal_prefix:
|
||
/* Check to see if the current fragment is a literal
|
||
fragment. If it is, then this operation is not allowed. */
|
||
if (frag_now->tc_frag_data.is_literal)
|
||
{
|
||
as_bad (_("cannot set literal_prefix inside literal fragment"));
|
||
return;
|
||
}
|
||
|
||
/* Allocate the literal state for this section and push
|
||
onto the directive stack. */
|
||
ls = xmalloc (sizeof (lit_state));
|
||
assert (ls);
|
||
|
||
*ls = default_lit_sections;
|
||
|
||
directive_push (directive_literal_prefix, negated, ls);
|
||
|
||
/* Parse the new prefix from the input_line_pointer. */
|
||
SKIP_WHITESPACE ();
|
||
len = strspn (input_line_pointer,
|
||
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||
"abcdefghijklmnopqrstuvwxyz_/0123456789.$");
|
||
|
||
/* Process the new prefix. */
|
||
xtensa_literal_prefix (input_line_pointer, len);
|
||
|
||
/* Skip the name in the input line. */
|
||
input_line_pointer += len;
|
||
break;
|
||
|
||
case directive_freeregs:
|
||
/* This information is currently unused, but we'll accept the statement
|
||
and just discard the rest of the line. This won't check the syntax,
|
||
but it will accept every correct freeregs directive. */
|
||
input_line_pointer += strcspn (input_line_pointer, "\n");
|
||
directive_push (directive_freeregs, negated, 0);
|
||
break;
|
||
|
||
case directive_density:
|
||
if (!density_supported && !negated)
|
||
{
|
||
as_warn (_("Xtensa density option not supported; ignored"));
|
||
break;
|
||
}
|
||
/* fall through */
|
||
|
||
default:
|
||
directive_push (directive, negated, 0);
|
||
break;
|
||
}
|
||
|
||
demand_empty_rest_of_line ();
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_end_directive (ignore)
|
||
int ignore ATTRIBUTE_UNUSED;
|
||
{
|
||
directiveE begin_directive, end_directive;
|
||
bfd_boolean begin_negated, end_negated;
|
||
const char *file;
|
||
unsigned int line;
|
||
emit_state *state;
|
||
lit_state *s;
|
||
|
||
md_flush_pending_output ();
|
||
|
||
get_directive (&end_directive, &end_negated);
|
||
if (end_directive == (directiveE) XTENSA_UNDEFINED)
|
||
{
|
||
discard_rest_of_line ();
|
||
return;
|
||
}
|
||
|
||
if (end_directive == directive_density && !density_supported && !end_negated)
|
||
{
|
||
as_warn (_("Xtensa density option not supported; ignored"));
|
||
demand_empty_rest_of_line ();
|
||
return;
|
||
}
|
||
|
||
directive_pop (&begin_directive, &begin_negated, &file, &line,
|
||
(const void **) &state);
|
||
|
||
if (begin_directive != directive_none)
|
||
{
|
||
if (begin_directive != end_directive || begin_negated != end_negated)
|
||
{
|
||
as_bad (_("does not match begin %s%s at %s:%d"),
|
||
begin_negated ? "no-" : "",
|
||
directive_info[begin_directive].name, file, line);
|
||
}
|
||
else
|
||
{
|
||
switch (end_directive)
|
||
{
|
||
case directive_literal:
|
||
frag_var (rs_fill, 0, 0, 0, NULL, 0, NULL);
|
||
xtensa_restore_emit_state (state);
|
||
free (state);
|
||
if (!inside_directive (directive_literal))
|
||
{
|
||
/* Restore the list of current labels. */
|
||
xtensa_clear_insn_labels ();
|
||
insn_labels = saved_insn_labels;
|
||
}
|
||
break;
|
||
|
||
case directive_freeregs:
|
||
break;
|
||
|
||
case directive_literal_prefix:
|
||
/* Restore the default collection sections from saved state. */
|
||
s = (lit_state *) state;
|
||
assert (s);
|
||
|
||
if (use_literal_section)
|
||
default_lit_sections = *s;
|
||
|
||
/* free the state storage */
|
||
free (s);
|
||
break;
|
||
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
|
||
demand_empty_rest_of_line ();
|
||
}
|
||
|
||
|
||
/* Place an aligned literal fragment at the current location. */
|
||
|
||
static void
|
||
xtensa_literal_position (ignore)
|
||
int ignore ATTRIBUTE_UNUSED;
|
||
{
|
||
if (inside_directive (directive_literal))
|
||
as_warn (_(".literal_position inside literal directive; ignoring"));
|
||
else if (!use_literal_section)
|
||
xtensa_mark_literal_pool_location ();
|
||
|
||
demand_empty_rest_of_line ();
|
||
xtensa_clear_insn_labels ();
|
||
}
|
||
|
||
|
||
/* Support .literal label, value@plt + offset. */
|
||
|
||
static void
|
||
xtensa_literal_pseudo (ignored)
|
||
int ignored ATTRIBUTE_UNUSED;
|
||
{
|
||
emit_state state;
|
||
char *p, *base_name;
|
||
char c;
|
||
expressionS expP;
|
||
segT dest_seg;
|
||
|
||
if (inside_directive (directive_literal))
|
||
{
|
||
as_bad (_(".literal not allowed inside .begin literal region"));
|
||
ignore_rest_of_line ();
|
||
return;
|
||
}
|
||
|
||
/* Previous labels go with whatever follows this directive, not with
|
||
the literal, so save them now. */
|
||
saved_insn_labels = insn_labels;
|
||
insn_labels = NULL;
|
||
|
||
/* If we are using text-section literals, then this is the right value... */
|
||
dest_seg = now_seg;
|
||
|
||
base_name = input_line_pointer;
|
||
|
||
xtensa_switch_to_literal_fragment (&state);
|
||
|
||
/* ...but if we aren't using text-section-literals, then we
|
||
need to put them in the section we just switched to. */
|
||
if (use_literal_section)
|
||
dest_seg = now_seg;
|
||
|
||
/* All literals are aligned to four-byte boundaries
|
||
which is handled by switch to literal fragment. */
|
||
/* frag_align (2, 0, 0); */
|
||
|
||
c = get_symbol_end ();
|
||
/* Just after name is now '\0'. */
|
||
p = input_line_pointer;
|
||
*p = c;
|
||
SKIP_WHITESPACE ();
|
||
|
||
if (*input_line_pointer != ',' && *input_line_pointer != ':')
|
||
{
|
||
as_bad (_("expected comma or colon after symbol name; "
|
||
"rest of line ignored"));
|
||
ignore_rest_of_line ();
|
||
xtensa_restore_emit_state (&state);
|
||
return;
|
||
}
|
||
*p = 0;
|
||
|
||
colon (base_name);
|
||
|
||
do
|
||
{
|
||
input_line_pointer++; /* skip ',' or ':' */
|
||
|
||
expr (0, &expP);
|
||
|
||
/* We only support 4-byte literals with .literal. */
|
||
emit_expr (&expP, 4);
|
||
}
|
||
while (*input_line_pointer == ',');
|
||
|
||
*p = c;
|
||
|
||
demand_empty_rest_of_line ();
|
||
|
||
xtensa_restore_emit_state (&state);
|
||
|
||
/* Restore the list of current labels. */
|
||
xtensa_clear_insn_labels ();
|
||
insn_labels = saved_insn_labels;
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_literal_prefix (start, len)
|
||
char const *start;
|
||
int len;
|
||
{
|
||
segT s_now; /* Storage for the current seg and subseg. */
|
||
subsegT ss_now;
|
||
char *name; /* Pointer to the name itself. */
|
||
char *newname;
|
||
|
||
if (!use_literal_section)
|
||
return;
|
||
|
||
/* Store away the current section and subsection. */
|
||
s_now = now_seg;
|
||
ss_now = now_subseg;
|
||
|
||
/* Get a null-terminated copy of the name. */
|
||
name = xmalloc (len + 1);
|
||
assert (name);
|
||
|
||
strncpy (name, start, len);
|
||
name[len] = 0;
|
||
|
||
/* Allocate the sections (interesting note: the memory pointing to
|
||
the name is actually used for the name by the new section). */
|
||
newname = xmalloc (len + strlen (".literal") + 1);
|
||
strcpy (newname, name);
|
||
strcpy (newname + len, ".literal");
|
||
|
||
/* Note that retrieve_literal_seg does not create a segment if
|
||
it already exists. */
|
||
default_lit_sections.lit_seg = NULL; /* retrieved on demand */
|
||
|
||
/* Canonicalizing section names allows renaming literal
|
||
sections to occur correctly. */
|
||
default_lit_sections.lit_seg_name =
|
||
tc_canonicalize_symbol_name (newname);
|
||
|
||
free (name);
|
||
|
||
/* Restore the current section and subsection and set the
|
||
generation into the old segment. */
|
||
subseg_set (s_now, ss_now);
|
||
}
|
||
|
||
|
||
/* Parsing and Idiom Translation. */
|
||
|
||
static const char *
|
||
expression_end (name)
|
||
const char *name;
|
||
{
|
||
while (1)
|
||
{
|
||
switch (*name)
|
||
{
|
||
case ';':
|
||
case '\0':
|
||
case ',':
|
||
return name;
|
||
case ' ':
|
||
case '\t':
|
||
++name;
|
||
continue;
|
||
default:
|
||
return 0;
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
#define ERROR_REG_NUM ((unsigned) -1)
|
||
|
||
static unsigned
|
||
tc_get_register (prefix)
|
||
const char *prefix;
|
||
{
|
||
unsigned reg;
|
||
const char *next_expr;
|
||
const char *old_line_pointer;
|
||
|
||
SKIP_WHITESPACE ();
|
||
old_line_pointer = input_line_pointer;
|
||
|
||
if (*input_line_pointer == '$')
|
||
++input_line_pointer;
|
||
|
||
/* Accept "sp" as a synonym for "a1". */
|
||
if (input_line_pointer[0] == 's' && input_line_pointer[1] == 'p'
|
||
&& expression_end (input_line_pointer + 2))
|
||
{
|
||
input_line_pointer += 2;
|
||
return 1; /* AR[1] */
|
||
}
|
||
|
||
while (*input_line_pointer++ == *prefix++)
|
||
;
|
||
--input_line_pointer;
|
||
--prefix;
|
||
|
||
if (*prefix)
|
||
{
|
||
as_bad (_("bad register name: %s"), old_line_pointer);
|
||
return ERROR_REG_NUM;
|
||
}
|
||
|
||
if (!ISDIGIT ((unsigned char) *input_line_pointer))
|
||
{
|
||
as_bad (_("bad register number: %s"), input_line_pointer);
|
||
return ERROR_REG_NUM;
|
||
}
|
||
|
||
reg = 0;
|
||
|
||
while (ISDIGIT ((int) *input_line_pointer))
|
||
reg = reg * 10 + *input_line_pointer++ - '0';
|
||
|
||
if (!(next_expr = expression_end (input_line_pointer)))
|
||
{
|
||
as_bad (_("bad register name: %s"), old_line_pointer);
|
||
return ERROR_REG_NUM;
|
||
}
|
||
|
||
input_line_pointer = (char *) next_expr;
|
||
|
||
return reg;
|
||
}
|
||
|
||
|
||
#define PLT_SUFFIX "@PLT"
|
||
#define plt_suffix "@plt"
|
||
|
||
static void
|
||
expression_maybe_register (opnd, tok)
|
||
xtensa_operand opnd;
|
||
expressionS *tok;
|
||
{
|
||
char *kind = xtensa_operand_kind (opnd);
|
||
|
||
if ((strlen (kind) == 1)
|
||
&& (*kind == 'l' || *kind == 'L' || *kind == 'i' || *kind == 'r'))
|
||
{
|
||
segT t = expression (tok);
|
||
if (t == absolute_section && operand_is_pcrel_label (opnd))
|
||
{
|
||
assert (tok->X_op == O_constant);
|
||
tok->X_op = O_symbol;
|
||
tok->X_add_symbol = &abs_symbol;
|
||
}
|
||
if (tok->X_op == O_symbol
|
||
&& (!strncmp (input_line_pointer, PLT_SUFFIX,
|
||
strlen (PLT_SUFFIX) - 1)
|
||
|| !strncmp (input_line_pointer, plt_suffix,
|
||
strlen (plt_suffix) - 1)))
|
||
{
|
||
symbol_get_tc (tok->X_add_symbol)->plt = 1;
|
||
input_line_pointer += strlen (plt_suffix);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
unsigned reg = tc_get_register (kind);
|
||
|
||
if (reg != ERROR_REG_NUM) /* Already errored */
|
||
{
|
||
uint32 buf = reg;
|
||
if ((xtensa_operand_encode (opnd, &buf) != xtensa_encode_result_ok)
|
||
|| (reg != xtensa_operand_decode (opnd, buf)))
|
||
as_bad (_("register number out of range"));
|
||
}
|
||
|
||
tok->X_op = O_register;
|
||
tok->X_add_symbol = 0;
|
||
tok->X_add_number = reg;
|
||
}
|
||
}
|
||
|
||
|
||
/* Split up the arguments for an opcode or pseudo-op. */
|
||
|
||
static int
|
||
tokenize_arguments (args, str)
|
||
char **args;
|
||
char *str;
|
||
{
|
||
char *old_input_line_pointer;
|
||
bfd_boolean saw_comma = FALSE;
|
||
bfd_boolean saw_arg = FALSE;
|
||
int num_args = 0;
|
||
char *arg_end, *arg;
|
||
int arg_len;
|
||
|
||
/* Save and restore input_line_pointer around this function. */
|
||
old_input_line_pointer = input_line_pointer;
|
||
input_line_pointer = str;
|
||
|
||
while (*input_line_pointer)
|
||
{
|
||
SKIP_WHITESPACE ();
|
||
switch (*input_line_pointer)
|
||
{
|
||
case '\0':
|
||
goto fini;
|
||
|
||
case ',':
|
||
input_line_pointer++;
|
||
if (saw_comma || !saw_arg)
|
||
goto err;
|
||
saw_comma = TRUE;
|
||
break;
|
||
|
||
default:
|
||
if (!saw_comma && saw_arg)
|
||
goto err;
|
||
|
||
arg_end = input_line_pointer + 1;
|
||
while (!expression_end (arg_end))
|
||
arg_end += 1;
|
||
|
||
arg_len = arg_end - input_line_pointer;
|
||
arg = (char *) xmalloc (arg_len + 1);
|
||
args[num_args] = arg;
|
||
|
||
strncpy (arg, input_line_pointer, arg_len);
|
||
arg[arg_len] = '\0';
|
||
|
||
input_line_pointer = arg_end;
|
||
num_args += 1;
|
||
saw_comma = FALSE;
|
||
saw_arg = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
|
||
fini:
|
||
if (saw_comma)
|
||
goto err;
|
||
input_line_pointer = old_input_line_pointer;
|
||
return num_args;
|
||
|
||
err:
|
||
input_line_pointer = old_input_line_pointer;
|
||
return -1;
|
||
}
|
||
|
||
|
||
/* Parse the arguments to an opcode. Return true on error. */
|
||
|
||
static bfd_boolean
|
||
parse_arguments (insn, num_args, arg_strings)
|
||
TInsn *insn;
|
||
int num_args;
|
||
char **arg_strings;
|
||
{
|
||
expressionS *tok = insn->tok;
|
||
xtensa_opcode opcode = insn->opcode;
|
||
bfd_boolean had_error = TRUE;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
int n;
|
||
int opcode_operand_count;
|
||
int actual_operand_count = 0;
|
||
xtensa_operand opnd = NULL;
|
||
char *old_input_line_pointer;
|
||
|
||
if (insn->insn_type == ITYPE_LITERAL)
|
||
opcode_operand_count = 1;
|
||
else
|
||
opcode_operand_count = xtensa_num_operands (isa, opcode);
|
||
|
||
memset (tok, 0, sizeof (*tok) * MAX_INSN_ARGS);
|
||
|
||
/* Save and restore input_line_pointer around this function. */
|
||
old_input_line_pointer = input_line_pointer;
|
||
|
||
for (n = 0; n < num_args; n++)
|
||
{
|
||
input_line_pointer = arg_strings[n];
|
||
|
||
if (actual_operand_count >= opcode_operand_count)
|
||
{
|
||
as_warn (_("too many arguments"));
|
||
goto err;
|
||
}
|
||
assert (actual_operand_count < MAX_INSN_ARGS);
|
||
|
||
opnd = xtensa_get_operand (isa, opcode, actual_operand_count);
|
||
expression_maybe_register (opnd, tok);
|
||
|
||
if (tok->X_op == O_illegal || tok->X_op == O_absent)
|
||
goto err;
|
||
actual_operand_count++;
|
||
tok++;
|
||
}
|
||
|
||
insn->ntok = tok - insn->tok;
|
||
had_error = FALSE;
|
||
|
||
err:
|
||
input_line_pointer = old_input_line_pointer;
|
||
return had_error;
|
||
}
|
||
|
||
|
||
static void
|
||
xg_reverse_shift_count (cnt_argp)
|
||
char **cnt_argp;
|
||
{
|
||
char *cnt_arg, *new_arg;
|
||
cnt_arg = *cnt_argp;
|
||
|
||
/* replace the argument with "31-(argument)" */
|
||
new_arg = (char *) xmalloc (strlen (cnt_arg) + 6);
|
||
sprintf (new_arg, "31-(%s)", cnt_arg);
|
||
|
||
free (cnt_arg);
|
||
*cnt_argp = new_arg;
|
||
}
|
||
|
||
|
||
/* If "arg" is a constant expression, return non-zero with the value
|
||
in *valp. */
|
||
|
||
static int
|
||
xg_arg_is_constant (arg, valp)
|
||
char *arg;
|
||
offsetT *valp;
|
||
{
|
||
expressionS exp;
|
||
char *save_ptr = input_line_pointer;
|
||
|
||
input_line_pointer = arg;
|
||
expression (&exp);
|
||
input_line_pointer = save_ptr;
|
||
|
||
if (exp.X_op == O_constant)
|
||
{
|
||
*valp = exp.X_add_number;
|
||
return 1;
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
static void
|
||
xg_replace_opname (popname, newop)
|
||
char **popname;
|
||
char *newop;
|
||
{
|
||
free (*popname);
|
||
*popname = (char *) xmalloc (strlen (newop) + 1);
|
||
strcpy (*popname, newop);
|
||
}
|
||
|
||
|
||
static int
|
||
xg_check_num_args (pnum_args, expected_num, opname, arg_strings)
|
||
int *pnum_args;
|
||
int expected_num;
|
||
char *opname;
|
||
char **arg_strings;
|
||
{
|
||
int num_args = *pnum_args;
|
||
|
||
if (num_args < expected_num)
|
||
{
|
||
as_bad (_("not enough operands (%d) for '%s'; expected %d"),
|
||
num_args, opname, expected_num);
|
||
return -1;
|
||
}
|
||
|
||
if (num_args > expected_num)
|
||
{
|
||
as_warn (_("too many operands (%d) for '%s'; expected %d"),
|
||
num_args, opname, expected_num);
|
||
while (num_args-- > expected_num)
|
||
{
|
||
free (arg_strings[num_args]);
|
||
arg_strings[num_args] = 0;
|
||
}
|
||
*pnum_args = expected_num;
|
||
return -1;
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
static int
|
||
xg_translate_sysreg_op (popname, pnum_args, arg_strings)
|
||
char **popname;
|
||
int *pnum_args;
|
||
char **arg_strings;
|
||
{
|
||
char *opname, *new_opname;
|
||
offsetT val;
|
||
bfd_boolean has_underbar = FALSE;
|
||
|
||
opname = *popname;
|
||
if (*opname == '_')
|
||
{
|
||
has_underbar = TRUE;
|
||
opname += 1;
|
||
}
|
||
|
||
/* Opname == [rw]ur... */
|
||
|
||
if (opname[3] == '\0')
|
||
{
|
||
/* If the register is not specified as part of the opcode,
|
||
then get it from the operand and move it to the opcode. */
|
||
|
||
if (xg_check_num_args (pnum_args, 2, opname, arg_strings))
|
||
return -1;
|
||
|
||
if (!xg_arg_is_constant (arg_strings[1], &val))
|
||
{
|
||
as_bad (_("register number for `%s' is not a constant"), opname);
|
||
return -1;
|
||
}
|
||
if ((unsigned) val > 255)
|
||
{
|
||
as_bad (_("register number (%ld) for `%s' is out of range"),
|
||
val, opname);
|
||
return -1;
|
||
}
|
||
|
||
/* Remove the last argument, which is now part of the opcode. */
|
||
free (arg_strings[1]);
|
||
arg_strings[1] = 0;
|
||
*pnum_args = 1;
|
||
|
||
/* Translate the opcode. */
|
||
new_opname = (char *) xmalloc (8);
|
||
sprintf (new_opname, "%s%cur%u", (has_underbar ? "_" : ""),
|
||
opname[0], (unsigned) val);
|
||
free (*popname);
|
||
*popname = new_opname;
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* If the instruction is an idiom (i.e., a built-in macro), translate it.
|
||
Returns non-zero if an error was found. */
|
||
|
||
static int
|
||
xg_translate_idioms (popname, pnum_args, arg_strings)
|
||
char **popname;
|
||
int *pnum_args;
|
||
char **arg_strings;
|
||
{
|
||
char *opname = *popname;
|
||
bfd_boolean has_underbar = FALSE;
|
||
|
||
if (*opname == '_')
|
||
{
|
||
has_underbar = TRUE;
|
||
opname += 1;
|
||
}
|
||
|
||
if (strcmp (opname, "mov") == 0)
|
||
{
|
||
if (!has_underbar && code_density_available ())
|
||
xg_replace_opname (popname, "mov.n");
|
||
else
|
||
{
|
||
if (xg_check_num_args (pnum_args, 2, opname, arg_strings))
|
||
return -1;
|
||
xg_replace_opname (popname, (has_underbar ? "_or" : "or"));
|
||
arg_strings[2] = (char *) xmalloc (strlen (arg_strings[1]) + 1);
|
||
strcpy (arg_strings[2], arg_strings[1]);
|
||
*pnum_args = 3;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
if (strcmp (opname, "bbsi.l") == 0)
|
||
{
|
||
if (xg_check_num_args (pnum_args, 3, opname, arg_strings))
|
||
return -1;
|
||
xg_replace_opname (popname, (has_underbar ? "_bbsi" : "bbsi"));
|
||
if (target_big_endian)
|
||
xg_reverse_shift_count (&arg_strings[1]);
|
||
return 0;
|
||
}
|
||
|
||
if (strcmp (opname, "bbci.l") == 0)
|
||
{
|
||
if (xg_check_num_args (pnum_args, 3, opname, arg_strings))
|
||
return -1;
|
||
xg_replace_opname (popname, (has_underbar ? "_bbci" : "bbci"));
|
||
if (target_big_endian)
|
||
xg_reverse_shift_count (&arg_strings[1]);
|
||
return 0;
|
||
}
|
||
|
||
if (strcmp (opname, "nop") == 0)
|
||
{
|
||
if (!has_underbar && code_density_available ())
|
||
xg_replace_opname (popname, "nop.n");
|
||
else
|
||
{
|
||
if (xg_check_num_args (pnum_args, 0, opname, arg_strings))
|
||
return -1;
|
||
xg_replace_opname (popname, (has_underbar ? "_or" : "or"));
|
||
arg_strings[0] = (char *) xmalloc (3);
|
||
arg_strings[1] = (char *) xmalloc (3);
|
||
arg_strings[2] = (char *) xmalloc (3);
|
||
strcpy (arg_strings[0], "a1");
|
||
strcpy (arg_strings[1], "a1");
|
||
strcpy (arg_strings[2], "a1");
|
||
*pnum_args = 3;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
if ((opname[0] == 'r' || opname[0] == 'w')
|
||
&& opname[1] == 'u'
|
||
&& opname[2] == 'r')
|
||
return xg_translate_sysreg_op (popname, pnum_args, arg_strings);
|
||
|
||
|
||
/* WIDENING DENSITY OPCODES
|
||
|
||
questionable relaxations (widening) from old "tai" idioms:
|
||
|
||
ADD.N --> ADD
|
||
BEQZ.N --> BEQZ
|
||
RET.N --> RET
|
||
RETW.N --> RETW
|
||
MOVI.N --> MOVI
|
||
MOV.N --> MOV
|
||
NOP.N --> NOP
|
||
|
||
Note: this incomplete list was imported to match the "tai"
|
||
behavior; other density opcodes are not handled.
|
||
|
||
The xtensa-relax code may know how to do these but it doesn't do
|
||
anything when these density opcodes appear inside a no-density
|
||
region. Somehow GAS should either print an error when that happens
|
||
or do the widening. The old "tai" behavior was to do the widening.
|
||
For now, I'll make it widen but print a warning.
|
||
|
||
FIXME: GAS needs to detect density opcodes inside no-density
|
||
regions and treat them as errors. This code should be removed
|
||
when that is done. */
|
||
|
||
if (use_generics ()
|
||
&& !has_underbar
|
||
&& density_supported
|
||
&& !code_density_available ())
|
||
{
|
||
if (strcmp (opname, "add.n") == 0)
|
||
xg_replace_opname (popname, "add");
|
||
|
||
else if (strcmp (opname, "beqz.n") == 0)
|
||
xg_replace_opname (popname, "beqz");
|
||
|
||
else if (strcmp (opname, "ret.n") == 0)
|
||
xg_replace_opname (popname, "ret");
|
||
|
||
else if (strcmp (opname, "retw.n") == 0)
|
||
xg_replace_opname (popname, "retw");
|
||
|
||
else if (strcmp (opname, "movi.n") == 0)
|
||
xg_replace_opname (popname, "movi");
|
||
|
||
else if (strcmp (opname, "mov.n") == 0)
|
||
{
|
||
if (xg_check_num_args (pnum_args, 2, opname, arg_strings))
|
||
return -1;
|
||
xg_replace_opname (popname, "or");
|
||
arg_strings[2] = (char *) xmalloc (strlen (arg_strings[1]) + 1);
|
||
strcpy (arg_strings[2], arg_strings[1]);
|
||
*pnum_args = 3;
|
||
}
|
||
|
||
else if (strcmp (opname, "nop.n") == 0)
|
||
{
|
||
if (xg_check_num_args (pnum_args, 0, opname, arg_strings))
|
||
return -1;
|
||
xg_replace_opname (popname, "or");
|
||
arg_strings[0] = (char *) xmalloc (3);
|
||
arg_strings[1] = (char *) xmalloc (3);
|
||
arg_strings[2] = (char *) xmalloc (3);
|
||
strcpy (arg_strings[0], "a1");
|
||
strcpy (arg_strings[1], "a1");
|
||
strcpy (arg_strings[2], "a1");
|
||
*pnum_args = 3;
|
||
}
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* Functions for dealing with the Xtensa ISA. */
|
||
|
||
/* Return true if the given operand is an immed or target instruction,
|
||
i.e., has a reloc associated with it. Currently, this is only true
|
||
if the operand kind is "i, "l" or "L". */
|
||
|
||
static bfd_boolean
|
||
operand_is_immed (opnd)
|
||
xtensa_operand opnd;
|
||
{
|
||
const char *opkind = xtensa_operand_kind (opnd);
|
||
if (opkind[0] == '\0' || opkind[1] != '\0')
|
||
return FALSE;
|
||
switch (opkind[0])
|
||
{
|
||
case 'i':
|
||
case 'l':
|
||
case 'L':
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Return true if the given operand is a pc-relative label. This is
|
||
true for "l", "L", and "r" operand kinds. */
|
||
|
||
bfd_boolean
|
||
operand_is_pcrel_label (opnd)
|
||
xtensa_operand opnd;
|
||
{
|
||
const char *opkind = xtensa_operand_kind (opnd);
|
||
if (opkind[0] == '\0' || opkind[1] != '\0')
|
||
return FALSE;
|
||
switch (opkind[0])
|
||
{
|
||
case 'r':
|
||
case 'l':
|
||
case 'L':
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Currently the assembler only allows us to use a single target per
|
||
fragment. Because of this, only one operand for a given
|
||
instruction may be symbolic. If there is an operand of kind "lrL",
|
||
the last one is chosen. Otherwise, the result is the number of the
|
||
last operand of type "i", and if there are none of those, we fail
|
||
and return -1. */
|
||
|
||
int
|
||
get_relaxable_immed (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
int last_immed = -1;
|
||
int noperands, opi;
|
||
xtensa_operand operand;
|
||
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return -1;
|
||
|
||
noperands = xtensa_num_operands (xtensa_default_isa, opcode);
|
||
for (opi = noperands - 1; opi >= 0; opi--)
|
||
{
|
||
operand = xtensa_get_operand (xtensa_default_isa, opcode, opi);
|
||
if (operand_is_pcrel_label (operand))
|
||
return opi;
|
||
if (last_immed == -1 && operand_is_immed (operand))
|
||
last_immed = opi;
|
||
}
|
||
return last_immed;
|
||
}
|
||
|
||
|
||
xtensa_opcode
|
||
get_opcode_from_buf (buf)
|
||
const char *buf;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
xtensa_opcode opcode;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (isa);
|
||
|
||
xtensa_insnbuf_from_chars (isa, insnbuf, buf);
|
||
opcode = xtensa_decode_insn (isa, insnbuf);
|
||
return opcode;
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
is_direct_call_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
return (opcode == xtensa_call0_opcode
|
||
|| opcode == xtensa_call4_opcode
|
||
|| opcode == xtensa_call8_opcode
|
||
|| opcode == xtensa_call12_opcode);
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
is_call_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
if (is_direct_call_opcode (opcode))
|
||
return TRUE;
|
||
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
return (opcode == xtensa_callx0_opcode
|
||
|| opcode == xtensa_callx4_opcode
|
||
|| opcode == xtensa_callx8_opcode
|
||
|| opcode == xtensa_callx12_opcode);
|
||
}
|
||
|
||
|
||
/* Return true if the opcode is an entry opcode. This is used because
|
||
"entry" adds an implicit ".align 4" and also the entry instruction
|
||
has an extra check for an operand value. */
|
||
|
||
static bfd_boolean
|
||
is_entry_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
return (opcode == xtensa_entry_opcode);
|
||
}
|
||
|
||
|
||
/* Return true if it is one of the loop opcodes. Loops are special
|
||
because they need automatic alignment and they have a relaxation so
|
||
complex that we hard-coded it. */
|
||
|
||
static bfd_boolean
|
||
is_loop_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
return (opcode == xtensa_loop_opcode
|
||
|| opcode == xtensa_loopnez_opcode
|
||
|| opcode == xtensa_loopgtz_opcode);
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
is_the_loop_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
return (opcode == xtensa_loop_opcode);
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
is_jx_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
return (opcode == xtensa_jx_opcode);
|
||
}
|
||
|
||
|
||
/* Return true if the opcode is a retw or retw.n.
|
||
Needed to add nops to avoid a hardware interlock issue. */
|
||
|
||
static bfd_boolean
|
||
is_windowed_return_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
return (opcode == xtensa_retw_opcode || opcode == xtensa_retw_n_opcode);
|
||
}
|
||
|
||
|
||
/* Return true if the opcode type is "l" and the opcode is NOT a jump. */
|
||
|
||
static bfd_boolean
|
||
is_conditional_branch_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
int num_ops, i;
|
||
|
||
if (opcode == xtensa_j_opcode && opcode != XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
num_ops = xtensa_num_operands (isa, opcode);
|
||
for (i = 0; i < num_ops; i++)
|
||
{
|
||
xtensa_operand operand = xtensa_get_operand (isa, opcode, i);
|
||
if (strcmp (xtensa_operand_kind (operand), "l") == 0)
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Return true if the given opcode is a conditional branch
|
||
instruction, i.e., currently this is true if the instruction
|
||
is a jx or has an operand with 'l' type and is not a loop. */
|
||
|
||
bfd_boolean
|
||
is_branch_or_jump_opcode (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
int opn, op_count;
|
||
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
if (is_loop_opcode (opcode))
|
||
return FALSE;
|
||
|
||
if (is_jx_opcode (opcode))
|
||
return TRUE;
|
||
|
||
op_count = xtensa_num_operands (xtensa_default_isa, opcode);
|
||
for (opn = 0; opn < op_count; opn++)
|
||
{
|
||
xtensa_operand opnd =
|
||
xtensa_get_operand (xtensa_default_isa, opcode, opn);
|
||
const char *opkind = xtensa_operand_kind (opnd);
|
||
if (opkind && opkind[0] == 'l' && opkind[1] == '\0')
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Convert from operand numbers to BFD relocation type code.
|
||
Return BFD_RELOC_NONE on failure. */
|
||
|
||
bfd_reloc_code_real_type
|
||
opnum_to_reloc (opnum)
|
||
int opnum;
|
||
{
|
||
switch (opnum)
|
||
{
|
||
case 0:
|
||
return BFD_RELOC_XTENSA_OP0;
|
||
case 1:
|
||
return BFD_RELOC_XTENSA_OP1;
|
||
case 2:
|
||
return BFD_RELOC_XTENSA_OP2;
|
||
default:
|
||
break;
|
||
}
|
||
return BFD_RELOC_NONE;
|
||
}
|
||
|
||
|
||
/* Convert from BFD relocation type code to operand number.
|
||
Return -1 on failure. */
|
||
|
||
int
|
||
reloc_to_opnum (reloc)
|
||
bfd_reloc_code_real_type reloc;
|
||
{
|
||
switch (reloc)
|
||
{
|
||
case BFD_RELOC_XTENSA_OP0:
|
||
return 0;
|
||
case BFD_RELOC_XTENSA_OP1:
|
||
return 1;
|
||
case BFD_RELOC_XTENSA_OP2:
|
||
return 2;
|
||
default:
|
||
break;
|
||
}
|
||
return -1;
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_insnbuf_set_operand (insnbuf, opcode, operand, value, file, line)
|
||
xtensa_insnbuf insnbuf;
|
||
xtensa_opcode opcode;
|
||
xtensa_operand operand;
|
||
int32 value;
|
||
const char *file;
|
||
unsigned int line;
|
||
{
|
||
xtensa_encode_result encode_result;
|
||
uint32 valbuf = value;
|
||
|
||
encode_result = xtensa_operand_encode (operand, &valbuf);
|
||
|
||
switch (encode_result)
|
||
{
|
||
case xtensa_encode_result_ok:
|
||
break;
|
||
case xtensa_encode_result_align:
|
||
as_bad_where ((char *) file, line,
|
||
_("operand %d not properly aligned for '%s'"),
|
||
value, xtensa_opcode_name (xtensa_default_isa, opcode));
|
||
break;
|
||
case xtensa_encode_result_not_in_table:
|
||
as_bad_where ((char *) file, line,
|
||
_("operand %d not in immediate table for '%s'"),
|
||
value, xtensa_opcode_name (xtensa_default_isa, opcode));
|
||
break;
|
||
case xtensa_encode_result_too_high:
|
||
as_bad_where ((char *) file, line,
|
||
_("operand %d too large for '%s'"), value,
|
||
xtensa_opcode_name (xtensa_default_isa, opcode));
|
||
break;
|
||
case xtensa_encode_result_too_low:
|
||
as_bad_where ((char *) file, line,
|
||
_("operand %d too small for '%s'"), value,
|
||
xtensa_opcode_name (xtensa_default_isa, opcode));
|
||
break;
|
||
case xtensa_encode_result_not_ok:
|
||
as_bad_where ((char *) file, line,
|
||
_("operand %d is invalid for '%s'"), value,
|
||
xtensa_opcode_name (xtensa_default_isa, opcode));
|
||
break;
|
||
default:
|
||
abort ();
|
||
}
|
||
|
||
xtensa_operand_set_field (operand, insnbuf, valbuf);
|
||
}
|
||
|
||
|
||
static uint32
|
||
xtensa_insnbuf_get_operand (insnbuf, opcode, opnum)
|
||
xtensa_insnbuf insnbuf;
|
||
xtensa_opcode opcode;
|
||
int opnum;
|
||
{
|
||
xtensa_operand op = xtensa_get_operand (xtensa_default_isa, opcode, opnum);
|
||
return xtensa_operand_decode (op, xtensa_operand_get_field (op, insnbuf));
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_insnbuf_set_immediate_field (opcode, insnbuf, value, file, line)
|
||
xtensa_opcode opcode;
|
||
xtensa_insnbuf insnbuf;
|
||
int32 value;
|
||
const char *file;
|
||
unsigned int line;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
int last_opnd = xtensa_num_operands (isa, opcode) - 1;
|
||
xtensa_operand operand = xtensa_get_operand (isa, opcode, last_opnd);
|
||
xtensa_insnbuf_set_operand (insnbuf, opcode, operand, value, file, line);
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
is_negatable_branch (insn)
|
||
TInsn *insn;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
int i;
|
||
int num_ops = xtensa_num_operands (isa, insn->opcode);
|
||
|
||
for (i = 0; i < num_ops; i++)
|
||
{
|
||
xtensa_operand opnd = xtensa_get_operand (isa, insn->opcode, i);
|
||
char *kind = xtensa_operand_kind (opnd);
|
||
if (strlen (kind) == 1 && *kind == 'l')
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Various Other Internal Functions. */
|
||
|
||
static bfd_boolean
|
||
is_unique_insn_expansion (r)
|
||
TransitionRule *r;
|
||
{
|
||
if (!r->to_instr || r->to_instr->next != NULL)
|
||
return FALSE;
|
||
if (r->to_instr->typ != INSTR_INSTR)
|
||
return FALSE;
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
static int
|
||
xg_get_insn_size (insn)
|
||
TInsn *insn;
|
||
{
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
return xtensa_insn_length (xtensa_default_isa, insn->opcode);
|
||
}
|
||
|
||
|
||
static int
|
||
xg_get_build_instr_size (insn)
|
||
BuildInstr *insn;
|
||
{
|
||
assert (insn->typ == INSTR_INSTR);
|
||
return xtensa_insn_length (xtensa_default_isa, insn->opcode);
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
xg_is_narrow_insn (insn)
|
||
TInsn *insn;
|
||
{
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
int num_match = 0;
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
assert (insn->opcode < table->num_opcodes);
|
||
|
||
for (l = table->table[insn->opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
|
||
if (xg_instruction_matches_rule (insn, rule)
|
||
&& is_unique_insn_expansion (rule))
|
||
{
|
||
/* It only generates one instruction... */
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
/* ...and it is a larger instruction. */
|
||
if (xg_get_insn_size (insn)
|
||
< xg_get_build_instr_size (rule->to_instr))
|
||
{
|
||
num_match++;
|
||
if (num_match > 1)
|
||
return FALSE;
|
||
}
|
||
}
|
||
}
|
||
return (num_match == 1);
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
xg_is_single_relaxable_insn (insn)
|
||
TInsn *insn;
|
||
{
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
int num_match = 0;
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
assert (insn->opcode < table->num_opcodes);
|
||
|
||
for (l = table->table[insn->opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
|
||
if (xg_instruction_matches_rule (insn, rule)
|
||
&& is_unique_insn_expansion (rule))
|
||
{
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
/* ... and it is a larger instruction. */
|
||
if (xg_get_insn_size (insn)
|
||
<= xg_get_build_instr_size (rule->to_instr))
|
||
{
|
||
num_match++;
|
||
if (num_match > 1)
|
||
return FALSE;
|
||
}
|
||
}
|
||
}
|
||
return (num_match == 1);
|
||
}
|
||
|
||
|
||
/* Return the largest size instruction that this instruction can
|
||
expand to. Currently, in all cases, this is 3 bytes. Of course we
|
||
could just calculate this once and generate a table. */
|
||
|
||
int
|
||
xg_get_max_narrow_insn_size (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
/* Go ahead and compute it, but it better be 3. */
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
int old_size = xtensa_insn_length (xtensa_default_isa, opcode);
|
||
assert (opcode < table->num_opcodes);
|
||
|
||
/* Actually we can do better. Check to see of Only one applies. */
|
||
for (l = table->table[opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
|
||
/* If it only generates one instruction. */
|
||
if (is_unique_insn_expansion (rule))
|
||
{
|
||
int new_size = xtensa_insn_length (xtensa_default_isa,
|
||
rule->to_instr->opcode);
|
||
if (new_size > old_size)
|
||
{
|
||
assert (new_size == 3);
|
||
return 3;
|
||
}
|
||
}
|
||
}
|
||
return old_size;
|
||
}
|
||
|
||
|
||
/* Return the maximum number of bytes this opcode can expand to. */
|
||
|
||
int
|
||
xg_get_max_insn_widen_size (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
int max_size = xtensa_insn_length (xtensa_default_isa, opcode);
|
||
|
||
assert (opcode < table->num_opcodes);
|
||
|
||
for (l = table->table[opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
BuildInstr *build_list;
|
||
int this_size = 0;
|
||
|
||
if (!rule)
|
||
continue;
|
||
build_list = rule->to_instr;
|
||
if (is_unique_insn_expansion (rule))
|
||
{
|
||
assert (build_list->typ == INSTR_INSTR);
|
||
this_size = xg_get_max_insn_widen_size (build_list->opcode);
|
||
}
|
||
else
|
||
for (; build_list != NULL; build_list = build_list->next)
|
||
{
|
||
switch (build_list->typ)
|
||
{
|
||
case INSTR_INSTR:
|
||
this_size += xtensa_insn_length (xtensa_default_isa,
|
||
build_list->opcode);
|
||
|
||
break;
|
||
case INSTR_LITERAL_DEF:
|
||
case INSTR_LABEL_DEF:
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
if (this_size > max_size)
|
||
max_size = this_size;
|
||
}
|
||
return max_size;
|
||
}
|
||
|
||
|
||
/* Return the maximum number of literal bytes this opcode can generate. */
|
||
|
||
int
|
||
xg_get_max_insn_widen_literal_size (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
int max_size = 0;
|
||
|
||
assert (opcode < table->num_opcodes);
|
||
|
||
for (l = table->table[opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
BuildInstr *build_list;
|
||
int this_size = 0;
|
||
|
||
if (!rule)
|
||
continue;
|
||
build_list = rule->to_instr;
|
||
if (is_unique_insn_expansion (rule))
|
||
{
|
||
assert (build_list->typ == INSTR_INSTR);
|
||
this_size = xg_get_max_insn_widen_literal_size (build_list->opcode);
|
||
}
|
||
else
|
||
for (; build_list != NULL; build_list = build_list->next)
|
||
{
|
||
switch (build_list->typ)
|
||
{
|
||
case INSTR_LITERAL_DEF:
|
||
/* hard coded 4-byte literal. */
|
||
this_size += 4;
|
||
break;
|
||
case INSTR_INSTR:
|
||
case INSTR_LABEL_DEF:
|
||
default:
|
||
break;
|
||
}
|
||
}
|
||
if (this_size > max_size)
|
||
max_size = this_size;
|
||
}
|
||
return max_size;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
xg_is_relaxable_insn (insn, lateral_steps)
|
||
TInsn *insn;
|
||
int lateral_steps;
|
||
{
|
||
int steps_taken = 0;
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
assert (insn->opcode < table->num_opcodes);
|
||
|
||
for (l = table->table[insn->opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
|
||
if (xg_instruction_matches_rule (insn, rule))
|
||
{
|
||
if (steps_taken == lateral_steps)
|
||
return TRUE;
|
||
steps_taken++;
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
static symbolS *
|
||
get_special_literal_symbol ()
|
||
{
|
||
static symbolS *sym = NULL;
|
||
|
||
if (sym == NULL)
|
||
sym = symbol_find_or_make ("SPECIAL_LITERAL0\001");
|
||
return sym;
|
||
}
|
||
|
||
|
||
static symbolS *
|
||
get_special_label_symbol ()
|
||
{
|
||
static symbolS *sym = NULL;
|
||
|
||
if (sym == NULL)
|
||
sym = symbol_find_or_make ("SPECIAL_LABEL0\001");
|
||
return sym;
|
||
}
|
||
|
||
|
||
/* Return true on success. */
|
||
|
||
bfd_boolean
|
||
xg_build_to_insn (targ, insn, bi)
|
||
TInsn *targ;
|
||
TInsn *insn;
|
||
BuildInstr *bi;
|
||
{
|
||
BuildOp *op;
|
||
symbolS *sym;
|
||
|
||
memset (targ, 0, sizeof (TInsn));
|
||
switch (bi->typ)
|
||
{
|
||
case INSTR_INSTR:
|
||
op = bi->ops;
|
||
targ->opcode = bi->opcode;
|
||
targ->insn_type = ITYPE_INSN;
|
||
targ->is_specific_opcode = FALSE;
|
||
|
||
for (; op != NULL; op = op->next)
|
||
{
|
||
int op_num = op->op_num;
|
||
int op_data = op->op_data;
|
||
|
||
assert (op->op_num < MAX_INSN_ARGS);
|
||
|
||
if (targ->ntok <= op_num)
|
||
targ->ntok = op_num + 1;
|
||
|
||
switch (op->typ)
|
||
{
|
||
case OP_CONSTANT:
|
||
set_expr_const (&targ->tok[op_num], op_data);
|
||
break;
|
||
case OP_OPERAND:
|
||
assert (op_data < insn->ntok);
|
||
copy_expr (&targ->tok[op_num], &insn->tok[op_data]);
|
||
break;
|
||
case OP_LITERAL:
|
||
sym = get_special_literal_symbol ();
|
||
set_expr_symbol_offset (&targ->tok[op_num], sym, 0);
|
||
break;
|
||
case OP_LABEL:
|
||
sym = get_special_label_symbol ();
|
||
set_expr_symbol_offset (&targ->tok[op_num], sym, 0);
|
||
break;
|
||
default:
|
||
/* currently handles:
|
||
OP_OPERAND_LOW8
|
||
OP_OPERAND_HI24S
|
||
OP_OPERAND_F32MINUS */
|
||
if (xg_has_userdef_op_fn (op->typ))
|
||
{
|
||
assert (op_data < insn->ntok);
|
||
if (expr_is_const (&insn->tok[op_data]))
|
||
{
|
||
long val;
|
||
copy_expr (&targ->tok[op_num], &insn->tok[op_data]);
|
||
val = xg_apply_userdef_op_fn (op->typ,
|
||
targ->tok[op_num].
|
||
X_add_number);
|
||
targ->tok[op_num].X_add_number = val;
|
||
}
|
||
else
|
||
return FALSE; /* We cannot use a relocation for this. */
|
||
break;
|
||
}
|
||
assert (0);
|
||
break;
|
||
}
|
||
}
|
||
break;
|
||
|
||
case INSTR_LITERAL_DEF:
|
||
op = bi->ops;
|
||
targ->opcode = XTENSA_UNDEFINED;
|
||
targ->insn_type = ITYPE_LITERAL;
|
||
targ->is_specific_opcode = FALSE;
|
||
for (; op != NULL; op = op->next)
|
||
{
|
||
int op_num = op->op_num;
|
||
int op_data = op->op_data;
|
||
assert (op->op_num < MAX_INSN_ARGS);
|
||
|
||
if (targ->ntok <= op_num)
|
||
targ->ntok = op_num + 1;
|
||
|
||
switch (op->typ)
|
||
{
|
||
case OP_OPERAND:
|
||
assert (op_data < insn->ntok);
|
||
copy_expr (&targ->tok[op_num], &insn->tok[op_data]);
|
||
break;
|
||
case OP_LITERAL:
|
||
case OP_CONSTANT:
|
||
case OP_LABEL:
|
||
default:
|
||
assert (0);
|
||
break;
|
||
}
|
||
}
|
||
break;
|
||
|
||
case INSTR_LABEL_DEF:
|
||
op = bi->ops;
|
||
targ->opcode = XTENSA_UNDEFINED;
|
||
targ->insn_type = ITYPE_LABEL;
|
||
targ->is_specific_opcode = FALSE;
|
||
/* Literal with no ops. is a label? */
|
||
assert (op == NULL);
|
||
break;
|
||
|
||
default:
|
||
assert (0);
|
||
}
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
/* Return true on success. */
|
||
|
||
bfd_boolean
|
||
xg_build_to_stack (istack, insn, bi)
|
||
IStack *istack;
|
||
TInsn *insn;
|
||
BuildInstr *bi;
|
||
{
|
||
for (; bi != NULL; bi = bi->next)
|
||
{
|
||
TInsn *next_insn = istack_push_space (istack);
|
||
|
||
if (!xg_build_to_insn (next_insn, insn, bi))
|
||
return FALSE;
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
/* Return true on valid expansion. */
|
||
|
||
bfd_boolean
|
||
xg_expand_to_stack (istack, insn, lateral_steps)
|
||
IStack *istack;
|
||
TInsn *insn;
|
||
int lateral_steps;
|
||
{
|
||
int stack_size = istack->ninsn;
|
||
int steps_taken = 0;
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
assert (insn->opcode < table->num_opcodes);
|
||
|
||
for (l = table->table[insn->opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
|
||
if (xg_instruction_matches_rule (insn, rule))
|
||
{
|
||
if (lateral_steps == steps_taken)
|
||
{
|
||
int i;
|
||
|
||
/* This is it. Expand the rule to the stack. */
|
||
if (!xg_build_to_stack (istack, insn, rule->to_instr))
|
||
return FALSE;
|
||
|
||
/* Check to see if it fits. */
|
||
for (i = stack_size; i < istack->ninsn; i++)
|
||
{
|
||
TInsn *insn = &istack->insn[i];
|
||
|
||
if (insn->insn_type == ITYPE_INSN
|
||
&& !tinsn_has_symbolic_operands (insn)
|
||
&& !xg_immeds_fit (insn))
|
||
{
|
||
istack->ninsn = stack_size;
|
||
return FALSE;
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
steps_taken++;
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
xg_expand_narrow (targ, insn)
|
||
TInsn *targ;
|
||
TInsn *insn;
|
||
{
|
||
TransitionTable *table = xg_build_widen_table ();
|
||
TransitionList *l;
|
||
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
assert (insn->opcode < table->num_opcodes);
|
||
|
||
for (l = table->table[insn->opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
if (xg_instruction_matches_rule (insn, rule)
|
||
&& is_unique_insn_expansion (rule))
|
||
{
|
||
/* Is it a larger instruction? */
|
||
if (xg_get_insn_size (insn)
|
||
<= xg_get_build_instr_size (rule->to_instr))
|
||
{
|
||
xg_build_to_insn (targ, insn, rule->to_instr);
|
||
return FALSE;
|
||
}
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
/* Assumes: All immeds are constants. Check that all constants fit
|
||
into their immeds; return false if not. */
|
||
|
||
static bfd_boolean
|
||
xg_immeds_fit (insn)
|
||
const TInsn *insn;
|
||
{
|
||
int i;
|
||
|
||
int n = insn->ntok;
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
for (i = 0; i < n; ++i)
|
||
{
|
||
const expressionS *expr = &insn->tok[i];
|
||
xtensa_operand opnd = xtensa_get_operand (xtensa_default_isa,
|
||
insn->opcode, i);
|
||
if (!operand_is_immed (opnd))
|
||
continue;
|
||
|
||
switch (expr->X_op)
|
||
{
|
||
case O_register:
|
||
case O_constant:
|
||
{
|
||
if (xg_check_operand (expr->X_add_number, opnd))
|
||
return FALSE;
|
||
}
|
||
break;
|
||
default:
|
||
/* The symbol should have a fixup associated with it. */
|
||
assert (FALSE);
|
||
break;
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
/* This should only be called after we have an initial
|
||
estimate of the addresses. */
|
||
|
||
static bfd_boolean
|
||
xg_symbolic_immeds_fit (insn, pc_seg, pc_frag, pc_offset, stretch)
|
||
const TInsn *insn;
|
||
segT pc_seg;
|
||
fragS *pc_frag;
|
||
offsetT pc_offset;
|
||
long stretch;
|
||
{
|
||
symbolS *symbolP;
|
||
offsetT target, pc, new_offset;
|
||
int i;
|
||
int n = insn->ntok;
|
||
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
|
||
for (i = 0; i < n; ++i)
|
||
{
|
||
const expressionS *expr = &insn->tok[i];
|
||
xtensa_operand opnd = xtensa_get_operand (xtensa_default_isa,
|
||
insn->opcode, i);
|
||
if (!operand_is_immed (opnd))
|
||
continue;
|
||
|
||
switch (expr->X_op)
|
||
{
|
||
case O_register:
|
||
case O_constant:
|
||
if (xg_check_operand (expr->X_add_number, opnd))
|
||
return FALSE;
|
||
break;
|
||
|
||
case O_symbol:
|
||
/* We only allow symbols for pc-relative stuff.
|
||
If pc_frag == 0, then we don't have frag locations yet. */
|
||
if (pc_frag == 0)
|
||
return FALSE;
|
||
|
||
/* If it is PC-relative and the symbol is in the same segment as
|
||
the PC.... */
|
||
if (!xtensa_operand_isPCRelative (opnd)
|
||
|| S_GET_SEGMENT (expr->X_add_symbol) != pc_seg)
|
||
return FALSE;
|
||
|
||
symbolP = expr->X_add_symbol;
|
||
target = S_GET_VALUE (symbolP) + expr->X_add_number;
|
||
pc = pc_frag->fr_address + pc_offset;
|
||
|
||
/* If frag has yet to be reached on this pass, assume it
|
||
will move by STRETCH just as we did. If this is not so,
|
||
it will be because some frag between grows, and that will
|
||
force another pass. Beware zero-length frags. There
|
||
should be a faster way to do this. */
|
||
|
||
if (stretch && is_dnrange (pc_frag, symbolP, stretch))
|
||
target += stretch;
|
||
|
||
new_offset = xtensa_operand_do_reloc (opnd, target, pc);
|
||
if (xg_check_operand (new_offset, opnd))
|
||
return FALSE;
|
||
break;
|
||
|
||
default:
|
||
/* The symbol should have a fixup associated with it. */
|
||
return FALSE;
|
||
}
|
||
}
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
/* This will check to see if the value can be converted into the
|
||
operand type. It will return true if it does not fit. */
|
||
|
||
static bfd_boolean
|
||
xg_check_operand (value, operand)
|
||
int32 value;
|
||
xtensa_operand operand;
|
||
{
|
||
uint32 valbuf = value;
|
||
return (xtensa_operand_encode (operand, &valbuf) != xtensa_encode_result_ok);
|
||
}
|
||
|
||
|
||
/* Check if a symbol is pointing to somewhere after
|
||
the start frag, given that the segment has stretched
|
||
by stretch during relaxation.
|
||
|
||
This is more complicated than it might appear at first blush
|
||
because of the stretching that goes on. Here is how the check
|
||
works:
|
||
|
||
If the symbol and the frag are in the same segment, then
|
||
the symbol could be down range. Note that this function
|
||
assumes that start_frag is in now_seg.
|
||
|
||
If the symbol is pointing to a frag with an address greater than
|
||
than the start_frag's address, then it _could_ be down range.
|
||
|
||
The problem comes because target_frag may or may not have had
|
||
stretch bytes added to its address already, depending on if it is
|
||
before or after start frag. (And if we knew that, then we wouldn't
|
||
need this function.) start_frag has definitely already had stretch
|
||
bytes added to its address.
|
||
|
||
If target_frag's address hasn't been adjusted yet, then to
|
||
determine if it comes after start_frag, we need to subtract
|
||
stretch from start_frag's address.
|
||
|
||
If target_frag's address has been adjusted, then it might have
|
||
been adjusted such that it comes after start_frag's address minus
|
||
stretch bytes.
|
||
|
||
So, in that case, we scan for it down stream to within
|
||
stretch bytes. We could search to the end of the fr_chain, but
|
||
that ends up taking too much time (over a minute on some gnu
|
||
tests). */
|
||
|
||
int
|
||
is_dnrange (start_frag, sym, stretch)
|
||
fragS *start_frag;
|
||
symbolS *sym;
|
||
long stretch;
|
||
{
|
||
if (S_GET_SEGMENT (sym) == now_seg)
|
||
{
|
||
fragS *cur_frag = symbol_get_frag (sym);
|
||
|
||
if (cur_frag->fr_address >= start_frag->fr_address - stretch)
|
||
{
|
||
int distance = stretch;
|
||
|
||
while (cur_frag && distance >= 0)
|
||
{
|
||
distance -= cur_frag->fr_fix;
|
||
if (cur_frag == start_frag)
|
||
return 0;
|
||
cur_frag = cur_frag->fr_next;
|
||
}
|
||
return 1;
|
||
}
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* Relax the assembly instruction at least "min_steps".
|
||
Return the number of steps taken. */
|
||
|
||
int
|
||
xg_assembly_relax (istack, insn, pc_seg, pc_frag, pc_offset, min_steps,
|
||
stretch)
|
||
IStack *istack;
|
||
TInsn *insn;
|
||
segT pc_seg;
|
||
fragS *pc_frag; /* If pc_frag == 0, then no pc-relative. */
|
||
offsetT pc_offset; /* Offset in fragment. */
|
||
int min_steps; /* Minimum number of conversion steps. */
|
||
long stretch; /* Number of bytes stretched so far. */
|
||
{
|
||
int steps_taken = 0;
|
||
|
||
/* assert (has no symbolic operands)
|
||
Some of its immeds don't fit.
|
||
Try to build a relaxed version.
|
||
This may go through a couple of stages
|
||
of single instruction transformations before
|
||
we get there. */
|
||
|
||
TInsn single_target;
|
||
TInsn current_insn;
|
||
int lateral_steps = 0;
|
||
int istack_size = istack->ninsn;
|
||
|
||
if (xg_symbolic_immeds_fit (insn, pc_seg, pc_frag, pc_offset, stretch)
|
||
&& steps_taken >= min_steps)
|
||
{
|
||
istack_push (istack, insn);
|
||
return steps_taken;
|
||
}
|
||
tinsn_copy (¤t_insn, insn);
|
||
|
||
/* Walk through all of the single instruction expansions. */
|
||
while (xg_is_single_relaxable_insn (¤t_insn))
|
||
{
|
||
int error_val = xg_expand_narrow (&single_target, ¤t_insn);
|
||
|
||
assert (!error_val);
|
||
|
||
if (xg_symbolic_immeds_fit (&single_target, pc_seg, pc_frag, pc_offset,
|
||
stretch))
|
||
{
|
||
steps_taken++;
|
||
if (steps_taken >= min_steps)
|
||
{
|
||
istack_push (istack, &single_target);
|
||
return steps_taken;
|
||
}
|
||
}
|
||
tinsn_copy (¤t_insn, &single_target);
|
||
}
|
||
|
||
/* Now check for a multi-instruction expansion. */
|
||
while (xg_is_relaxable_insn (¤t_insn, lateral_steps))
|
||
{
|
||
if (xg_symbolic_immeds_fit (¤t_insn, pc_seg, pc_frag, pc_offset,
|
||
stretch))
|
||
{
|
||
if (steps_taken >= min_steps)
|
||
{
|
||
istack_push (istack, ¤t_insn);
|
||
return steps_taken;
|
||
}
|
||
}
|
||
steps_taken++;
|
||
if (xg_expand_to_stack (istack, ¤t_insn, lateral_steps))
|
||
{
|
||
if (steps_taken >= min_steps)
|
||
return steps_taken;
|
||
}
|
||
lateral_steps++;
|
||
istack->ninsn = istack_size;
|
||
}
|
||
|
||
/* It's not going to work -- use the original. */
|
||
istack_push (istack, insn);
|
||
return steps_taken;
|
||
}
|
||
|
||
|
||
static void
|
||
xg_force_frag_space (size)
|
||
int size;
|
||
{
|
||
/* This may have the side effect of creating a new fragment for the
|
||
space to go into. I just do not like the name of the "frag"
|
||
functions. */
|
||
frag_grow (size);
|
||
}
|
||
|
||
|
||
void
|
||
xg_finish_frag (last_insn, state, max_growth, is_insn)
|
||
char *last_insn;
|
||
enum xtensa_relax_statesE state;
|
||
int max_growth;
|
||
bfd_boolean is_insn;
|
||
{
|
||
/* Finish off this fragment so that it has at LEAST the desired
|
||
max_growth. If it doesn't fit in this fragment, close this one
|
||
and start a new one. In either case, return a pointer to the
|
||
beginning of the growth area. */
|
||
|
||
fragS *old_frag;
|
||
xg_force_frag_space (max_growth);
|
||
|
||
old_frag = frag_now;
|
||
|
||
frag_now->fr_opcode = last_insn;
|
||
if (is_insn)
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
|
||
frag_var (rs_machine_dependent, max_growth, max_growth,
|
||
state, frag_now->fr_symbol, frag_now->fr_offset, last_insn);
|
||
|
||
/* Just to make sure that we did not split it up. */
|
||
assert (old_frag->fr_next == frag_now);
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
is_branch_jmp_to_next (insn, fragP)
|
||
TInsn *insn;
|
||
fragS *fragP;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
int i;
|
||
int num_ops = xtensa_num_operands (isa, insn->opcode);
|
||
int target_op = -1;
|
||
symbolS *sym;
|
||
fragS *target_frag;
|
||
|
||
if (is_loop_opcode (insn->opcode))
|
||
return FALSE;
|
||
|
||
for (i = 0; i < num_ops; i++)
|
||
{
|
||
xtensa_operand opnd = xtensa_get_operand (isa, insn->opcode, i);
|
||
char *kind = xtensa_operand_kind (opnd);
|
||
if (strlen (kind) == 1 && *kind == 'l')
|
||
{
|
||
target_op = i;
|
||
break;
|
||
}
|
||
}
|
||
if (target_op == -1)
|
||
return FALSE;
|
||
|
||
if (insn->ntok <= target_op)
|
||
return FALSE;
|
||
|
||
if (insn->tok[target_op].X_op != O_symbol)
|
||
return FALSE;
|
||
|
||
sym = insn->tok[target_op].X_add_symbol;
|
||
if (sym == NULL)
|
||
return FALSE;
|
||
|
||
if (insn->tok[target_op].X_add_number != 0)
|
||
return FALSE;
|
||
|
||
target_frag = symbol_get_frag (sym);
|
||
if (target_frag == NULL)
|
||
return FALSE;
|
||
|
||
if (is_next_frag_target (fragP->fr_next, target_frag)
|
||
&& S_GET_VALUE (sym) == target_frag->fr_address)
|
||
return TRUE;
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
static void
|
||
xg_add_branch_and_loop_targets (insn)
|
||
TInsn *insn;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
int num_ops = xtensa_num_operands (isa, insn->opcode);
|
||
|
||
if (is_loop_opcode (insn->opcode))
|
||
{
|
||
int i = 1;
|
||
xtensa_operand opnd = xtensa_get_operand (isa, insn->opcode, i);
|
||
char *kind = xtensa_operand_kind (opnd);
|
||
if (strlen (kind) == 1 && *kind == 'l')
|
||
if (insn->tok[i].X_op == O_symbol)
|
||
symbol_get_tc (insn->tok[i].X_add_symbol)->is_loop_target = TRUE;
|
||
return;
|
||
}
|
||
|
||
/* Currently, we do not add branch targets. This is an optimization
|
||
for later that tries to align only branch targets, not just any
|
||
label in a text section. */
|
||
|
||
if (align_only_targets)
|
||
{
|
||
int i;
|
||
|
||
for (i = 0; i < insn->ntok && i < num_ops; i++)
|
||
{
|
||
xtensa_operand opnd = xtensa_get_operand (isa, insn->opcode, i);
|
||
char *kind = xtensa_operand_kind (opnd);
|
||
if (strlen (kind) == 1 && *kind == 'l'
|
||
&& insn->tok[i].X_op == O_symbol)
|
||
{
|
||
symbolS *sym = insn->tok[i].X_add_symbol;
|
||
symbol_get_tc (sym)->is_branch_target = TRUE;
|
||
if (S_IS_DEFINED (sym))
|
||
symbol_get_frag (sym)->tc_frag_data.is_branch_target = TRUE;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/* Return the transition rule that matches or NULL if none matches. */
|
||
|
||
bfd_boolean
|
||
xg_instruction_matches_rule (insn, rule)
|
||
TInsn *insn;
|
||
TransitionRule *rule;
|
||
{
|
||
PreconditionList *condition_l;
|
||
|
||
if (rule->opcode != insn->opcode)
|
||
return FALSE;
|
||
|
||
for (condition_l = rule->conditions;
|
||
condition_l != NULL;
|
||
condition_l = condition_l->next)
|
||
{
|
||
expressionS *exp1;
|
||
expressionS *exp2;
|
||
Precondition *cond = condition_l->precond;
|
||
|
||
switch (cond->typ)
|
||
{
|
||
case OP_CONSTANT:
|
||
/* The expression must be the constant. */
|
||
assert (cond->op_num < insn->ntok);
|
||
exp1 = &insn->tok[cond->op_num];
|
||
if (!expr_is_const (exp1))
|
||
return FALSE;
|
||
switch (cond->cmp)
|
||
{
|
||
case OP_EQUAL:
|
||
if (get_expr_const (exp1) != cond->op_data)
|
||
return FALSE;
|
||
break;
|
||
case OP_NOTEQUAL:
|
||
if (get_expr_const (exp1) == cond->op_data)
|
||
return FALSE;
|
||
break;
|
||
}
|
||
break;
|
||
|
||
case OP_OPERAND:
|
||
assert (cond->op_num < insn->ntok);
|
||
assert (cond->op_data < insn->ntok);
|
||
exp1 = &insn->tok[cond->op_num];
|
||
exp2 = &insn->tok[cond->op_data];
|
||
|
||
switch (cond->cmp)
|
||
{
|
||
case OP_EQUAL:
|
||
if (!expr_is_equal (exp1, exp2))
|
||
return FALSE;
|
||
break;
|
||
case OP_NOTEQUAL:
|
||
if (expr_is_equal (exp1, exp2))
|
||
return FALSE;
|
||
break;
|
||
}
|
||
break;
|
||
|
||
case OP_LITERAL:
|
||
case OP_LABEL:
|
||
default:
|
||
return FALSE;
|
||
}
|
||
}
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
TransitionRule *
|
||
xg_instruction_match (insn)
|
||
TInsn *insn;
|
||
{
|
||
TransitionTable *table = xg_build_simplify_table ();
|
||
TransitionList *l;
|
||
assert (insn->opcode < table->num_opcodes);
|
||
|
||
/* Walk through all of the possible transitions. */
|
||
for (l = table->table[insn->opcode]; l != NULL; l = l->next)
|
||
{
|
||
TransitionRule *rule = l->rule;
|
||
if (xg_instruction_matches_rule (insn, rule))
|
||
return rule;
|
||
}
|
||
return NULL;
|
||
}
|
||
|
||
|
||
/* Return false if no error. */
|
||
|
||
bfd_boolean
|
||
xg_build_token_insn (instr_spec, old_insn, new_insn)
|
||
BuildInstr *instr_spec;
|
||
TInsn *old_insn;
|
||
TInsn *new_insn;
|
||
{
|
||
int num_ops = 0;
|
||
BuildOp *b_op;
|
||
|
||
switch (instr_spec->typ)
|
||
{
|
||
case INSTR_INSTR:
|
||
new_insn->insn_type = ITYPE_INSN;
|
||
new_insn->opcode = instr_spec->opcode;
|
||
new_insn->is_specific_opcode = FALSE;
|
||
break;
|
||
case INSTR_LITERAL_DEF:
|
||
new_insn->insn_type = ITYPE_LITERAL;
|
||
new_insn->opcode = XTENSA_UNDEFINED;
|
||
new_insn->is_specific_opcode = FALSE;
|
||
break;
|
||
case INSTR_LABEL_DEF:
|
||
as_bad (_("INSTR_LABEL_DEF not supported yet"));
|
||
break;
|
||
}
|
||
|
||
for (b_op = instr_spec->ops; b_op != NULL; b_op = b_op->next)
|
||
{
|
||
expressionS *exp;
|
||
const expressionS *src_exp;
|
||
|
||
num_ops++;
|
||
switch (b_op->typ)
|
||
{
|
||
case OP_CONSTANT:
|
||
/* The expression must be the constant. */
|
||
assert (b_op->op_num < MAX_INSN_ARGS);
|
||
exp = &new_insn->tok[b_op->op_num];
|
||
set_expr_const (exp, b_op->op_data);
|
||
break;
|
||
|
||
case OP_OPERAND:
|
||
assert (b_op->op_num < MAX_INSN_ARGS);
|
||
assert (b_op->op_data < (unsigned) old_insn->ntok);
|
||
src_exp = &old_insn->tok[b_op->op_data];
|
||
exp = &new_insn->tok[b_op->op_num];
|
||
copy_expr (exp, src_exp);
|
||
break;
|
||
|
||
case OP_LITERAL:
|
||
case OP_LABEL:
|
||
as_bad (_("can't handle generation of literal/labels yet"));
|
||
assert (0);
|
||
|
||
default:
|
||
as_bad (_("can't handle undefined OP TYPE"));
|
||
assert (0);
|
||
}
|
||
}
|
||
|
||
new_insn->ntok = num_ops;
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Return true if it was simplified. */
|
||
|
||
bfd_boolean
|
||
xg_simplify_insn (old_insn, new_insn)
|
||
TInsn *old_insn;
|
||
TInsn *new_insn;
|
||
{
|
||
TransitionRule *rule = xg_instruction_match (old_insn);
|
||
BuildInstr *insn_spec;
|
||
if (rule == NULL)
|
||
return FALSE;
|
||
|
||
insn_spec = rule->to_instr;
|
||
/* There should only be one. */
|
||
assert (insn_spec != NULL);
|
||
assert (insn_spec->next == NULL);
|
||
if (insn_spec->next != NULL)
|
||
return FALSE;
|
||
|
||
xg_build_token_insn (insn_spec, old_insn, new_insn);
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
/* xg_expand_assembly_insn: (1) Simplify the instruction, i.e., l32i ->
|
||
l32i.n. (2) Check the number of operands. (3) Place the instruction
|
||
tokens into the stack or if we can relax it at assembly time, place
|
||
multiple instructions/literals onto the stack. Return false if no
|
||
error. */
|
||
|
||
static bfd_boolean
|
||
xg_expand_assembly_insn (istack, orig_insn)
|
||
IStack *istack;
|
||
TInsn *orig_insn;
|
||
{
|
||
int noperands;
|
||
TInsn new_insn;
|
||
memset (&new_insn, 0, sizeof (TInsn));
|
||
|
||
/* On return, we will be using the "use_tokens" with "use_ntok".
|
||
This will reduce things like addi to addi.n. */
|
||
if (code_density_available () && !orig_insn->is_specific_opcode)
|
||
{
|
||
if (xg_simplify_insn (orig_insn, &new_insn))
|
||
orig_insn = &new_insn;
|
||
}
|
||
|
||
noperands = xtensa_num_operands (xtensa_default_isa, orig_insn->opcode);
|
||
if (orig_insn->ntok < noperands)
|
||
{
|
||
as_bad (_("found %d operands for '%s': Expected %d"),
|
||
orig_insn->ntok,
|
||
xtensa_opcode_name (xtensa_default_isa, orig_insn->opcode),
|
||
noperands);
|
||
return TRUE;
|
||
}
|
||
if (orig_insn->ntok > noperands)
|
||
as_warn (_("found too many (%d) operands for '%s': Expected %d"),
|
||
orig_insn->ntok,
|
||
xtensa_opcode_name (xtensa_default_isa, orig_insn->opcode),
|
||
noperands);
|
||
|
||
/* If there are not enough operands, we will assert above. If there
|
||
are too many, just cut out the extras here. */
|
||
|
||
orig_insn->ntok = noperands;
|
||
|
||
/* Cases:
|
||
|
||
Instructions with all constant immeds:
|
||
Assemble them and relax the instruction if possible.
|
||
Give error if not possible; no fixup needed.
|
||
|
||
Instructions with symbolic immeds:
|
||
Assemble them with a Fix up (that may cause instruction expansion).
|
||
Also close out the fragment if the fixup may cause instruction expansion.
|
||
|
||
There are some other special cases where we need alignment.
|
||
1) before certain instructions with required alignment (OPCODE_ALIGN)
|
||
2) before labels that have jumps (LABEL_ALIGN)
|
||
3) after call instructions (RETURN_ALIGN)
|
||
Multiple of these may be possible on the same fragment.
|
||
If so, make sure to satisfy the required alignment.
|
||
Then try to get the desired alignment. */
|
||
|
||
if (tinsn_has_invalid_symbolic_operands (orig_insn))
|
||
return TRUE;
|
||
|
||
if (orig_insn->is_specific_opcode || !can_relax ())
|
||
{
|
||
istack_push (istack, orig_insn);
|
||
return FALSE;
|
||
}
|
||
|
||
if (tinsn_has_symbolic_operands (orig_insn))
|
||
{
|
||
if (tinsn_has_complex_operands (orig_insn))
|
||
xg_assembly_relax (istack, orig_insn, 0, 0, 0, 0, 0);
|
||
else
|
||
istack_push (istack, orig_insn);
|
||
}
|
||
else
|
||
{
|
||
if (xg_immeds_fit (orig_insn))
|
||
istack_push (istack, orig_insn);
|
||
else
|
||
xg_assembly_relax (istack, orig_insn, 0, 0, 0, 0, 0);
|
||
}
|
||
|
||
#if 0
|
||
for (i = 0; i < istack->ninsn; i++)
|
||
{
|
||
if (xg_simplify_insn (&new_insn, &istack->insn[i]))
|
||
istack->insn[i] = new_insn;
|
||
}
|
||
#endif
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Currently all literals that are generated here are 32-bit L32R targets. */
|
||
|
||
symbolS *
|
||
xg_assemble_literal (insn)
|
||
/* const */ TInsn *insn;
|
||
{
|
||
emit_state state;
|
||
symbolS *lit_sym = NULL;
|
||
|
||
/* size = 4 for L32R. It could easily be larger when we move to
|
||
larger constants. Add a parameter later. */
|
||
offsetT litsize = 4;
|
||
offsetT litalign = 2; /* 2^2 = 4 */
|
||
expressionS saved_loc;
|
||
set_expr_symbol_offset (&saved_loc, frag_now->fr_symbol, frag_now_fix ());
|
||
|
||
assert (insn->insn_type == ITYPE_LITERAL);
|
||
assert (insn->ntok = 1); /* must be only one token here */
|
||
|
||
xtensa_switch_to_literal_fragment (&state);
|
||
|
||
/* Force a 4-byte align here. Note that this opens a new frag, so all
|
||
literals done with this function have a frag to themselves. That's
|
||
important for the way text section literals work. */
|
||
frag_align (litalign, 0, 0);
|
||
|
||
emit_expr (&insn->tok[0], litsize);
|
||
|
||
assert (frag_now->tc_frag_data.literal_frag == NULL);
|
||
frag_now->tc_frag_data.literal_frag = get_literal_pool_location (now_seg);
|
||
frag_now->fr_symbol = xtensa_create_literal_symbol (now_seg, frag_now);
|
||
lit_sym = frag_now->fr_symbol;
|
||
frag_now->tc_frag_data.is_literal = TRUE;
|
||
|
||
/* Go back. */
|
||
xtensa_restore_emit_state (&state);
|
||
return lit_sym;
|
||
}
|
||
|
||
|
||
static void
|
||
xg_assemble_literal_space (size)
|
||
/* const */ int size;
|
||
{
|
||
emit_state state;
|
||
/* We might have to do something about this alignment. It only
|
||
takes effect if something is placed here. */
|
||
offsetT litalign = 2; /* 2^2 = 4 */
|
||
fragS *lit_saved_frag;
|
||
|
||
expressionS saved_loc;
|
||
|
||
assert (size % 4 == 0);
|
||
set_expr_symbol_offset (&saved_loc, frag_now->fr_symbol, frag_now_fix ());
|
||
|
||
xtensa_switch_to_literal_fragment (&state);
|
||
|
||
/* Force a 4-byte align here. */
|
||
frag_align (litalign, 0, 0);
|
||
|
||
xg_force_frag_space (size);
|
||
|
||
lit_saved_frag = frag_now;
|
||
frag_now->tc_frag_data.literal_frag = get_literal_pool_location (now_seg);
|
||
frag_now->tc_frag_data.is_literal = TRUE;
|
||
frag_now->fr_symbol = xtensa_create_literal_symbol (now_seg, frag_now);
|
||
xg_finish_frag (0, RELAX_LITERAL, size, FALSE);
|
||
|
||
/* Go back. */
|
||
xtensa_restore_emit_state (&state);
|
||
frag_now->tc_frag_data.literal_frag = lit_saved_frag;
|
||
}
|
||
|
||
|
||
symbolS *
|
||
xtensa_create_literal_symbol (sec, frag)
|
||
segT sec;
|
||
fragS *frag;
|
||
{
|
||
static int lit_num = 0;
|
||
static char name[256];
|
||
symbolS *symbolP;
|
||
|
||
sprintf (name, ".L_lit_sym%d", lit_num);
|
||
|
||
/* Create a local symbol. If it is in a linkonce section, we have to
|
||
be careful to make sure that if it is used in a relocation that the
|
||
symbol will be in the output file. */
|
||
if (get_is_linkonce_section (stdoutput, sec))
|
||
{
|
||
symbolP = symbol_new (name, sec, 0, frag);
|
||
S_CLEAR_EXTERNAL (symbolP);
|
||
/* symbolP->local = 1; */
|
||
}
|
||
else
|
||
symbolP = symbol_new (name, sec, 0, frag);
|
||
|
||
xtensa_add_literal_sym (symbolP);
|
||
|
||
frag->tc_frag_data.is_literal = TRUE;
|
||
lit_num++;
|
||
return symbolP;
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_add_literal_sym (sym)
|
||
symbolS *sym;
|
||
{
|
||
sym_list *l;
|
||
|
||
l = (sym_list *) xmalloc (sizeof (sym_list));
|
||
l->sym = sym;
|
||
l->next = literal_syms;
|
||
literal_syms = l;
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_add_insn_label (sym)
|
||
symbolS *sym;
|
||
{
|
||
sym_list *l;
|
||
|
||
if (!free_insn_labels)
|
||
l = (sym_list *) xmalloc (sizeof (sym_list));
|
||
else
|
||
{
|
||
l = free_insn_labels;
|
||
free_insn_labels = l->next;
|
||
}
|
||
|
||
l->sym = sym;
|
||
l->next = insn_labels;
|
||
insn_labels = l;
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_clear_insn_labels (void)
|
||
{
|
||
sym_list **pl;
|
||
|
||
for (pl = &free_insn_labels; *pl != NULL; pl = &(*pl)->next)
|
||
;
|
||
*pl = insn_labels;
|
||
insn_labels = NULL;
|
||
}
|
||
|
||
|
||
/* Return true if the section flags are marked linkonce
|
||
or the name is .gnu.linkonce*. */
|
||
|
||
bfd_boolean
|
||
get_is_linkonce_section (abfd, sec)
|
||
bfd *abfd ATTRIBUTE_UNUSED;
|
||
segT sec;
|
||
{
|
||
flagword flags, link_once_flags;
|
||
|
||
flags = bfd_get_section_flags (abfd, sec);
|
||
link_once_flags = (flags & SEC_LINK_ONCE);
|
||
|
||
/* Flags might not be set yet. */
|
||
if (!link_once_flags)
|
||
{
|
||
static size_t len = sizeof ".gnu.linkonce.t.";
|
||
|
||
if (strncmp (segment_name (sec), ".gnu.linkonce.t.", len - 1) == 0)
|
||
link_once_flags = SEC_LINK_ONCE;
|
||
}
|
||
return (link_once_flags != 0);
|
||
}
|
||
|
||
|
||
/* Emit an instruction to the current fragment. If record_fix is true,
|
||
then this instruction will not change and we can go ahead and record
|
||
the fixup. If record_fix is false, then the instruction may change
|
||
and we are going to close out this fragment. Go ahead and set the
|
||
fr_symbol and fr_offset instead of adding a fixup. */
|
||
|
||
static bfd_boolean
|
||
xg_emit_insn (t_insn, record_fix)
|
||
TInsn *t_insn;
|
||
bfd_boolean record_fix;
|
||
{
|
||
bfd_boolean ok = TRUE;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
xtensa_opcode opcode = t_insn->opcode;
|
||
bfd_boolean has_fixup = FALSE;
|
||
int noperands;
|
||
int i, byte_count;
|
||
fragS *oldfrag;
|
||
size_t old_size;
|
||
char *f;
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
|
||
/* Use a static pointer to the insn buffer so we don't have to call
|
||
malloc each time through. */
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
has_fixup = tinsn_to_insnbuf (t_insn, insnbuf);
|
||
|
||
noperands = xtensa_num_operands (isa, opcode);
|
||
assert (noperands == t_insn->ntok);
|
||
|
||
byte_count = xtensa_insn_length (isa, opcode);
|
||
oldfrag = frag_now;
|
||
/* This should NEVER cause us to jump into a new frag;
|
||
we've already reserved space. */
|
||
old_size = frag_now_fix ();
|
||
f = frag_more (byte_count);
|
||
assert (oldfrag == frag_now);
|
||
|
||
/* This needs to generate a record that lists the parts that are
|
||
instructions. */
|
||
if (!frag_now->tc_frag_data.is_insn)
|
||
{
|
||
/* If we are at the beginning of a fragment, switch this
|
||
fragment to an instruction fragment. */
|
||
if (now_seg != absolute_section && old_size != 0)
|
||
as_warn (_("instruction fragment may contain data"));
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
}
|
||
|
||
xtensa_insnbuf_to_chars (isa, insnbuf, f);
|
||
|
||
/* Now spit out the opcode fixup.... */
|
||
if (!has_fixup)
|
||
return !ok;
|
||
|
||
for (i = 0; i < noperands; ++i)
|
||
{
|
||
expressionS *expr = &t_insn->tok[i];
|
||
switch (expr->X_op)
|
||
{
|
||
case O_symbol:
|
||
if (get_relaxable_immed (opcode) == i)
|
||
{
|
||
if (record_fix)
|
||
{
|
||
if (!xg_add_opcode_fix (opcode, i, expr, frag_now,
|
||
f - frag_now->fr_literal))
|
||
ok = FALSE;
|
||
}
|
||
else
|
||
{
|
||
/* Write it to the fr_offset, fr_symbol. */
|
||
frag_now->fr_symbol = expr->X_add_symbol;
|
||
frag_now->fr_offset = expr->X_add_number;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
as_bad (_("invalid operand %d on '%s'"),
|
||
i, xtensa_opcode_name (isa, opcode));
|
||
ok = FALSE;
|
||
}
|
||
break;
|
||
|
||
case O_constant:
|
||
case O_register:
|
||
break;
|
||
|
||
default:
|
||
as_bad (_("invalid expression for operand %d on '%s'"),
|
||
i, xtensa_opcode_name (isa, opcode));
|
||
ok = FALSE;
|
||
break;
|
||
}
|
||
}
|
||
|
||
return !ok;
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
xg_emit_insn_to_buf (t_insn, buf, fragP, offset, build_fix)
|
||
TInsn *t_insn;
|
||
char *buf;
|
||
fragS *fragP;
|
||
offsetT offset;
|
||
bfd_boolean build_fix;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
bfd_boolean has_symbolic_immed = FALSE;
|
||
bfd_boolean ok = TRUE;
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
has_symbolic_immed = tinsn_to_insnbuf (t_insn, insnbuf);
|
||
if (has_symbolic_immed && build_fix)
|
||
{
|
||
/* Add a fixup. */
|
||
int opnum = get_relaxable_immed (t_insn->opcode);
|
||
expressionS *exp = &t_insn->tok[opnum];
|
||
|
||
if (!xg_add_opcode_fix (t_insn->opcode,
|
||
opnum, exp, fragP, offset))
|
||
ok = FALSE;
|
||
}
|
||
fragP->tc_frag_data.is_insn = TRUE;
|
||
xtensa_insnbuf_to_chars (xtensa_default_isa, insnbuf, buf);
|
||
return ok;
|
||
}
|
||
|
||
|
||
/* Put in a fixup record based on the opcode.
|
||
Return true on success. */
|
||
|
||
bfd_boolean
|
||
xg_add_opcode_fix (opcode, opnum, expr, fragP, offset)
|
||
xtensa_opcode opcode;
|
||
int opnum;
|
||
expressionS *expr;
|
||
fragS *fragP;
|
||
offsetT offset;
|
||
{
|
||
bfd_reloc_code_real_type reloc;
|
||
reloc_howto_type *howto;
|
||
int insn_length;
|
||
fixS *the_fix;
|
||
|
||
reloc = opnum_to_reloc (opnum);
|
||
if (reloc == BFD_RELOC_NONE)
|
||
{
|
||
as_bad (_("invalid relocation operand %i on '%s'"),
|
||
opnum, xtensa_opcode_name (xtensa_default_isa, opcode));
|
||
return FALSE;
|
||
}
|
||
|
||
howto = bfd_reloc_type_lookup (stdoutput, reloc);
|
||
|
||
if (!howto)
|
||
{
|
||
as_bad (_("undefined symbol for opcode \"%s\"."),
|
||
xtensa_opcode_name (xtensa_default_isa, opcode));
|
||
return FALSE;
|
||
}
|
||
|
||
insn_length = xtensa_insn_length (xtensa_default_isa, opcode);
|
||
the_fix = fix_new_exp (fragP, offset, insn_length, expr,
|
||
howto->pc_relative, reloc);
|
||
|
||
if (expr->X_add_symbol &&
|
||
(S_IS_EXTERNAL (expr->X_add_symbol) || S_IS_WEAK (expr->X_add_symbol)))
|
||
the_fix->fx_plt = TRUE;
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
void
|
||
xg_resolve_literals (insn, lit_sym)
|
||
TInsn *insn;
|
||
symbolS *lit_sym;
|
||
{
|
||
symbolS *sym = get_special_literal_symbol ();
|
||
int i;
|
||
if (lit_sym == 0)
|
||
return;
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
for (i = 0; i < insn->ntok; i++)
|
||
if (insn->tok[i].X_add_symbol == sym)
|
||
insn->tok[i].X_add_symbol = lit_sym;
|
||
|
||
}
|
||
|
||
|
||
void
|
||
xg_resolve_labels (insn, label_sym)
|
||
TInsn *insn;
|
||
symbolS *label_sym;
|
||
{
|
||
symbolS *sym = get_special_label_symbol ();
|
||
int i;
|
||
/* assert(!insn->is_literal); */
|
||
for (i = 0; i < insn->ntok; i++)
|
||
if (insn->tok[i].X_add_symbol == sym)
|
||
insn->tok[i].X_add_symbol = label_sym;
|
||
|
||
}
|
||
|
||
|
||
static void
|
||
xg_assemble_tokens (insn)
|
||
/*const */ TInsn *insn;
|
||
{
|
||
/* By the time we get here, there's not too much left to do.
|
||
1) Check our assumptions.
|
||
2) Check if the current instruction is "narrow".
|
||
If so, then finish the frag, create another one.
|
||
We could also go back to change some previous
|
||
"narrow" frags into no-change ones if we have more than
|
||
MAX_NARROW_ALIGNMENT of them without alignment restrictions
|
||
between them.
|
||
|
||
Cases:
|
||
1) It has constant operands and doesn't fit.
|
||
Go ahead and assemble it so it will fail.
|
||
2) It has constant operands that fit.
|
||
If narrow and !is_specific_opcode,
|
||
assemble it and put in a relocation
|
||
else
|
||
assemble it.
|
||
3) It has a symbolic immediate operand
|
||
a) Find the worst-case relaxation required
|
||
b) Find the worst-case literal pool space required.
|
||
Insert appropriate alignment & space in the literal.
|
||
Assemble it.
|
||
Add the relocation. */
|
||
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
|
||
if (!tinsn_has_symbolic_operands (insn))
|
||
{
|
||
if (xg_is_narrow_insn (insn) && !insn->is_specific_opcode)
|
||
{
|
||
/* assemble it but add max required space */
|
||
int max_size = xg_get_max_narrow_insn_size (insn->opcode);
|
||
int min_size = xg_get_insn_size (insn);
|
||
char *last_insn;
|
||
assert (max_size == 3);
|
||
/* make sure we have enough space to widen it */
|
||
xg_force_frag_space (max_size);
|
||
/* Output the instruction. It may cause an error if some
|
||
operands do not fit. */
|
||
last_insn = frag_more (0);
|
||
if (xg_emit_insn (insn, TRUE))
|
||
as_warn (_("instruction with constant operands does not fit"));
|
||
xg_finish_frag (last_insn, RELAX_NARROW, max_size - min_size, TRUE);
|
||
}
|
||
else
|
||
{
|
||
/* Assemble it. No relocation needed. */
|
||
int max_size = xg_get_insn_size (insn);
|
||
xg_force_frag_space (max_size);
|
||
if (xg_emit_insn (insn, FALSE))
|
||
as_warn (_("instruction with constant operands does not "
|
||
"fit without widening"));
|
||
/* frag_more (max_size); */
|
||
|
||
/* Special case for jx. If the jx is the next to last
|
||
instruction in a loop, we will add a NOP after it. This
|
||
avoids a hardware issue that could occur if the jx jumped
|
||
to the next instruction. */
|
||
if (software_avoid_b_j_loop_end
|
||
&& is_jx_opcode (insn->opcode))
|
||
{
|
||
maybe_has_b_j_loop_end = TRUE;
|
||
/* add 2 of these */
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_var (rs_machine_dependent, 4, 4,
|
||
RELAX_ADD_NOP_IF_PRE_LOOP_END,
|
||
frag_now->fr_symbol, frag_now->fr_offset, NULL);
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* Need to assemble it with space for the relocation. */
|
||
if (!insn->is_specific_opcode)
|
||
{
|
||
/* Assemble it but add max required space. */
|
||
char *last_insn;
|
||
int min_size = xg_get_insn_size (insn);
|
||
int max_size = xg_get_max_insn_widen_size (insn->opcode);
|
||
int max_literal_size =
|
||
xg_get_max_insn_widen_literal_size (insn->opcode);
|
||
|
||
#if 0
|
||
symbolS *immed_sym = xg_get_insn_immed_symbol (insn);
|
||
set_frag_segment (frag_now, now_seg);
|
||
#endif /* 0 */
|
||
|
||
/* Make sure we have enough space to widen the instruction.
|
||
This may open a new fragment. */
|
||
xg_force_frag_space (max_size);
|
||
if (max_literal_size != 0)
|
||
xg_assemble_literal_space (max_literal_size);
|
||
|
||
/* Output the instruction. It may cause an error if some
|
||
operands do not fit. Emit the incomplete instruction. */
|
||
last_insn = frag_more (0);
|
||
xg_emit_insn (insn, FALSE);
|
||
|
||
xg_finish_frag (last_insn, RELAX_IMMED, max_size - min_size, TRUE);
|
||
|
||
/* Special cases for loops:
|
||
close_loop_end should be inserted AFTER short_loop.
|
||
Make sure that CLOSE loops are processed BEFORE short_loops
|
||
when converting them. */
|
||
|
||
/* "short_loop": add a NOP if the loop is < 4 bytes. */
|
||
if (software_avoid_short_loop
|
||
&& is_loop_opcode (insn->opcode))
|
||
{
|
||
maybe_has_short_loop = TRUE;
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_var (rs_machine_dependent, 4, 4,
|
||
RELAX_ADD_NOP_IF_SHORT_LOOP,
|
||
frag_now->fr_symbol, frag_now->fr_offset, NULL);
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_var (rs_machine_dependent, 4, 4,
|
||
RELAX_ADD_NOP_IF_SHORT_LOOP,
|
||
frag_now->fr_symbol, frag_now->fr_offset, NULL);
|
||
}
|
||
|
||
/* "close_loop_end": Add up to 12 bytes of NOPs to keep a
|
||
loop at least 12 bytes away from another loop's loop
|
||
end. */
|
||
if (software_avoid_close_loop_end
|
||
&& is_loop_opcode (insn->opcode))
|
||
{
|
||
maybe_has_close_loop_end = TRUE;
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_var (rs_machine_dependent, 12, 12,
|
||
RELAX_ADD_NOP_IF_CLOSE_LOOP_END,
|
||
frag_now->fr_symbol, frag_now->fr_offset, NULL);
|
||
}
|
||
}
|
||
else
|
||
{
|
||
/* Assemble it in place. No expansion will be required,
|
||
but we'll still need a relocation record. */
|
||
int max_size = xg_get_insn_size (insn);
|
||
xg_force_frag_space (max_size);
|
||
if (xg_emit_insn (insn, TRUE))
|
||
as_warn (_("instruction's constant operands do not fit"));
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/* Return true if the instruction can write to the specified
|
||
integer register. */
|
||
|
||
static bfd_boolean
|
||
is_register_writer (insn, regset, regnum)
|
||
const TInsn *insn;
|
||
const char *regset;
|
||
int regnum;
|
||
{
|
||
int i;
|
||
int num_ops;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
|
||
num_ops = xtensa_num_operands (isa, insn->opcode);
|
||
|
||
for (i = 0; i < num_ops; i++)
|
||
{
|
||
xtensa_operand operand = xtensa_get_operand (isa, insn->opcode, i);
|
||
char inout = xtensa_operand_inout (operand);
|
||
|
||
if (inout == '>' || inout == '=')
|
||
{
|
||
if (strcmp (xtensa_operand_kind (operand), regset) == 0)
|
||
{
|
||
if ((insn->tok[i].X_op == O_register)
|
||
&& (insn->tok[i].X_add_number == regnum))
|
||
return TRUE;
|
||
}
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
is_bad_loopend_opcode (tinsn)
|
||
const TInsn * tinsn;
|
||
{
|
||
xtensa_opcode opcode = tinsn->opcode;
|
||
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
return FALSE;
|
||
|
||
if (opcode == xtensa_call0_opcode
|
||
|| opcode == xtensa_callx0_opcode
|
||
|| opcode == xtensa_call4_opcode
|
||
|| opcode == xtensa_callx4_opcode
|
||
|| opcode == xtensa_call8_opcode
|
||
|| opcode == xtensa_callx8_opcode
|
||
|| opcode == xtensa_call12_opcode
|
||
|| opcode == xtensa_callx12_opcode
|
||
|| opcode == xtensa_isync_opcode
|
||
|| opcode == xtensa_ret_opcode
|
||
|| opcode == xtensa_ret_n_opcode
|
||
|| opcode == xtensa_retw_opcode
|
||
|| opcode == xtensa_retw_n_opcode
|
||
|| opcode == xtensa_waiti_opcode)
|
||
return TRUE;
|
||
|
||
/* An RSR of LCOUNT is illegal as the last opcode in a loop. */
|
||
if (opcode == xtensa_rsr_opcode
|
||
&& tinsn->ntok >= 2
|
||
&& tinsn->tok[1].X_op == O_constant
|
||
&& tinsn->tok[1].X_add_number == 2)
|
||
return TRUE;
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Labels that begin with ".Ln" or ".LM" are unaligned.
|
||
This allows the debugger to add unaligned labels.
|
||
Also, the assembler generates stabs labels that need
|
||
not be aligned: FAKE_LABEL_NAME . {"F", "L", "endfunc"}. */
|
||
|
||
bfd_boolean
|
||
is_unaligned_label (sym)
|
||
symbolS *sym;
|
||
{
|
||
const char *name = S_GET_NAME (sym);
|
||
static size_t fake_size = 0;
|
||
|
||
if (name
|
||
&& name[0] == '.'
|
||
&& name[1] == 'L' && (name[2] == 'n' || name[2] == 'M'))
|
||
return TRUE;
|
||
|
||
/* FAKE_LABEL_NAME followed by "F", "L" or "endfunc" */
|
||
if (fake_size == 0)
|
||
fake_size = strlen (FAKE_LABEL_NAME);
|
||
|
||
if (name
|
||
&& strncmp (FAKE_LABEL_NAME, name, fake_size) == 0
|
||
&& (name[fake_size] == 'F'
|
||
|| name[fake_size] == 'L'
|
||
|| (name[fake_size] == 'e'
|
||
&& strncmp ("endfunc", name+fake_size, 7) == 0)))
|
||
return TRUE;
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
fragS *
|
||
next_non_empty_frag (fragP)
|
||
const fragS *fragP;
|
||
{
|
||
fragS *next_fragP = fragP->fr_next;
|
||
|
||
/* Sometimes an empty will end up here due storage allocation issues.
|
||
So we have to skip until we find something legit. */
|
||
while (next_fragP && next_fragP->fr_fix == 0)
|
||
next_fragP = next_fragP->fr_next;
|
||
|
||
if (next_fragP == NULL || next_fragP->fr_fix == 0)
|
||
return NULL;
|
||
|
||
return next_fragP;
|
||
}
|
||
|
||
|
||
xtensa_opcode
|
||
next_frag_opcode (fragP)
|
||
const fragS * fragP;
|
||
{
|
||
const fragS *next_fragP = next_non_empty_frag (fragP);
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (isa);
|
||
|
||
if (next_fragP == NULL)
|
||
return XTENSA_UNDEFINED;
|
||
|
||
xtensa_insnbuf_from_chars (isa, insnbuf, next_fragP->fr_literal);
|
||
return xtensa_decode_insn (isa, insnbuf);
|
||
}
|
||
|
||
|
||
/* Return true if the target frag is one of the next non-empty frags. */
|
||
|
||
bfd_boolean
|
||
is_next_frag_target (fragP, target)
|
||
const fragS *fragP;
|
||
const fragS *target;
|
||
{
|
||
if (fragP == NULL)
|
||
return FALSE;
|
||
|
||
for (; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (fragP == target)
|
||
return TRUE;
|
||
if (fragP->fr_fix != 0)
|
||
return FALSE;
|
||
if (fragP->fr_type == rs_fill && fragP->fr_offset != 0)
|
||
return FALSE;
|
||
if ((fragP->fr_type == rs_align || fragP->fr_type == rs_align_code)
|
||
&& ((fragP->fr_address % (1 << fragP->fr_offset)) != 0))
|
||
return FALSE;
|
||
if (fragP->fr_type == rs_space)
|
||
return FALSE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* If the next legit fragment is an end-of-loop marker,
|
||
switch its state so it will instantiate a NOP. */
|
||
|
||
static void
|
||
update_next_frag_nop_state (fragP)
|
||
fragS *fragP;
|
||
{
|
||
fragS *next_fragP = fragP->fr_next;
|
||
|
||
while (next_fragP && next_fragP->fr_fix == 0)
|
||
{
|
||
if (next_fragP->fr_type == rs_machine_dependent
|
||
&& next_fragP->fr_subtype == RELAX_LOOP_END)
|
||
{
|
||
next_fragP->fr_subtype = RELAX_LOOP_END_ADD_NOP;
|
||
return;
|
||
}
|
||
next_fragP = next_fragP->fr_next;
|
||
}
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
next_frag_is_branch_target (fragP)
|
||
const fragS *fragP;
|
||
{
|
||
/* Sometimes an empty will end up here due storage allocation issues,
|
||
so we have to skip until we find something legit. */
|
||
for (fragP = fragP->fr_next; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (fragP->tc_frag_data.is_branch_target)
|
||
return TRUE;
|
||
if (fragP->fr_fix != 0)
|
||
break;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
next_frag_is_loop_target (fragP)
|
||
const fragS *fragP;
|
||
{
|
||
/* Sometimes an empty will end up here due storage allocation issues.
|
||
So we have to skip until we find something legit. */
|
||
for (fragP = fragP->fr_next; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (fragP->tc_frag_data.is_loop_target)
|
||
return TRUE;
|
||
if (fragP->fr_fix != 0)
|
||
break;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
static addressT
|
||
next_frag_pre_opcode_bytes (fragp)
|
||
const fragS *fragp;
|
||
{
|
||
const fragS *next_fragp = fragp->fr_next;
|
||
|
||
xtensa_opcode next_opcode = next_frag_opcode (fragp);
|
||
if (!is_loop_opcode (next_opcode))
|
||
return 0;
|
||
|
||
/* Sometimes an empty will end up here due storage allocation issues.
|
||
So we have to skip until we find something legit. */
|
||
while (next_fragp->fr_fix == 0)
|
||
next_fragp = next_fragp->fr_next;
|
||
|
||
if (next_fragp->fr_type != rs_machine_dependent)
|
||
return 0;
|
||
|
||
/* There is some implicit knowledge encoded in here.
|
||
The LOOP instructions that are NOT RELAX_IMMED have
|
||
been relaxed. */
|
||
if (next_fragp->fr_subtype > RELAX_IMMED)
|
||
return get_expanded_loop_offset (next_opcode);
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* Mark a location where we can later insert literal frags. Update
|
||
the section's literal_pool_loc, so subsequent literals can be
|
||
placed nearest to their use. */
|
||
|
||
static void
|
||
xtensa_mark_literal_pool_location ()
|
||
{
|
||
/* Any labels pointing to the current location need
|
||
to be adjusted to after the literal pool. */
|
||
emit_state s;
|
||
fragS *pool_location;
|
||
|
||
frag_align (2, 0, 0);
|
||
|
||
/* We stash info in the fr_var of these frags
|
||
so we can later move the literal's fixes into this
|
||
frchain's fix list. We can use fr_var because fr_var's
|
||
interpretation depends solely on the fr_type and subtype. */
|
||
pool_location = frag_now;
|
||
frag_variant (rs_machine_dependent, 0, (int) frchain_now,
|
||
RELAX_LITERAL_POOL_BEGIN, NULL, 0, NULL);
|
||
frag_variant (rs_machine_dependent, 0, (int) now_seg,
|
||
RELAX_LITERAL_POOL_END, NULL, 0, NULL);
|
||
|
||
/* Now put a frag into the literal pool that points to this location. */
|
||
set_literal_pool_location (now_seg, pool_location);
|
||
xtensa_switch_to_literal_fragment (&s);
|
||
|
||
/* Close whatever frag is there. */
|
||
frag_variant (rs_fill, 0, 0, 0, NULL, 0, NULL);
|
||
frag_now->tc_frag_data.literal_frag = pool_location;
|
||
frag_variant (rs_fill, 0, 0, 0, NULL, 0, NULL);
|
||
xtensa_restore_emit_state (&s);
|
||
}
|
||
|
||
|
||
/* The "loops_ok" argument is provided to allow ignoring labels that
|
||
define loop ends. This fixes a bug where the NOPs to align a
|
||
loop opcode were included in a previous zero-cost loop:
|
||
|
||
loop a0, loopend
|
||
<loop1 body>
|
||
loopend:
|
||
|
||
loop a2, loopend2
|
||
<loop2 body>
|
||
|
||
would become:
|
||
|
||
loop a0, loopend
|
||
<loop1 body>
|
||
nop.n <===== bad!
|
||
loopend:
|
||
|
||
loop a2, loopend2
|
||
<loop2 body>
|
||
|
||
This argument is used to prevent moving the NOP to before the
|
||
loop-end label, which is what you want in this special case. */
|
||
|
||
static void
|
||
xtensa_move_labels (new_frag, new_offset, loops_ok)
|
||
fragS *new_frag;
|
||
valueT new_offset;
|
||
bfd_boolean loops_ok;
|
||
{
|
||
sym_list *lit;
|
||
|
||
for (lit = insn_labels; lit; lit = lit->next)
|
||
{
|
||
symbolS *lit_sym = lit->sym;
|
||
if (loops_ok || symbol_get_tc (lit_sym)->is_loop_target == 0)
|
||
{
|
||
S_SET_VALUE (lit_sym, new_offset);
|
||
symbol_set_frag (lit_sym, new_frag);
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/* Assemble a NOP of the requested size in the buffer. User must have
|
||
allocated "buf" with at least "size" bytes. */
|
||
|
||
void
|
||
assemble_nop (size, buf)
|
||
size_t size;
|
||
char *buf;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
TInsn t_insn;
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
tinsn_init (&t_insn);
|
||
switch (size)
|
||
{
|
||
case 2:
|
||
t_insn.opcode = xtensa_nop_n_opcode;
|
||
t_insn.ntok = 0;
|
||
if (t_insn.opcode == XTENSA_UNDEFINED)
|
||
as_fatal (_("opcode 'NOP.N' unavailable in this configuration"));
|
||
tinsn_to_insnbuf (&t_insn, insnbuf);
|
||
xtensa_insnbuf_to_chars (xtensa_default_isa, insnbuf, buf);
|
||
break;
|
||
|
||
case 3:
|
||
t_insn.opcode = xtensa_or_opcode;
|
||
assert (t_insn.opcode != XTENSA_UNDEFINED);
|
||
if (t_insn.opcode == XTENSA_UNDEFINED)
|
||
as_fatal (_("opcode 'OR' unavailable in this configuration"));
|
||
set_expr_const (&t_insn.tok[0], 1);
|
||
set_expr_const (&t_insn.tok[1], 1);
|
||
set_expr_const (&t_insn.tok[2], 1);
|
||
t_insn.ntok = 3;
|
||
tinsn_to_insnbuf (&t_insn, insnbuf);
|
||
xtensa_insnbuf_to_chars (xtensa_default_isa, insnbuf, buf);
|
||
break;
|
||
|
||
default:
|
||
as_fatal (_("invalid %d-byte NOP requested"), size);
|
||
}
|
||
}
|
||
|
||
|
||
/* Return the number of bytes for the offset of the expanded loop
|
||
instruction. This should be incorporated into the relaxation
|
||
specification but is hard-coded here. This is used to auto-align
|
||
the loop instruction. It is invalid to call this function if the
|
||
configuration does not have loops or if the opcode is not a loop
|
||
opcode. */
|
||
|
||
static addressT
|
||
get_expanded_loop_offset (opcode)
|
||
xtensa_opcode opcode;
|
||
{
|
||
/* This is the OFFSET of the loop instruction in the expanded loop.
|
||
This MUST correspond directly to the specification of the loop
|
||
expansion. It will be validated on fragment conversion. */
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
as_fatal (_("get_expanded_loop_offset: undefined opcode"));
|
||
if (opcode == xtensa_loop_opcode)
|
||
return 0;
|
||
if (opcode == xtensa_loopnez_opcode)
|
||
return 3;
|
||
if (opcode == xtensa_loopgtz_opcode)
|
||
return 6;
|
||
as_fatal (_("get_expanded_loop_offset: invalid opcode"));
|
||
return 0;
|
||
}
|
||
|
||
|
||
fragS *
|
||
get_literal_pool_location (seg)
|
||
segT seg;
|
||
{
|
||
return seg_info (seg)->tc_segment_info_data.literal_pool_loc;
|
||
}
|
||
|
||
|
||
static void
|
||
set_literal_pool_location (seg, literal_pool_loc)
|
||
segT seg;
|
||
fragS *literal_pool_loc;
|
||
{
|
||
seg_info (seg)->tc_segment_info_data.literal_pool_loc = literal_pool_loc;
|
||
}
|
||
|
||
|
||
/* External Functions and Other GAS Hooks. */
|
||
|
||
const char *
|
||
xtensa_target_format ()
|
||
{
|
||
return (target_big_endian ? "elf32-xtensa-be" : "elf32-xtensa-le");
|
||
}
|
||
|
||
|
||
void
|
||
xtensa_file_arch_init (abfd)
|
||
bfd *abfd;
|
||
{
|
||
bfd_set_private_flags (abfd, 0x100 | 0x200);
|
||
}
|
||
|
||
|
||
void
|
||
md_number_to_chars (buf, val, n)
|
||
char *buf;
|
||
valueT val;
|
||
int n;
|
||
{
|
||
if (target_big_endian)
|
||
number_to_chars_bigendian (buf, val, n);
|
||
else
|
||
number_to_chars_littleendian (buf, val, n);
|
||
}
|
||
|
||
|
||
/* This function is called once, at assembler startup time. It should
|
||
set up all the tables, etc. that the MD part of the assembler will
|
||
need. */
|
||
|
||
void
|
||
md_begin ()
|
||
{
|
||
segT current_section = now_seg;
|
||
int current_subsec = now_subseg;
|
||
xtensa_isa isa;
|
||
|
||
#if STATIC_LIBISA
|
||
isa = xtensa_isa_init ();
|
||
#else
|
||
/* ISA was already initialized by xtensa_init(). */
|
||
isa = xtensa_default_isa;
|
||
#endif
|
||
|
||
/* Set up the .literal, .fini.literal and .init.literal sections. */
|
||
memset (&default_lit_sections, 0, sizeof (default_lit_sections));
|
||
default_lit_sections.init_lit_seg_name = INIT_LITERAL_SECTION_NAME;
|
||
default_lit_sections.fini_lit_seg_name = FINI_LITERAL_SECTION_NAME;
|
||
default_lit_sections.lit_seg_name = LITERAL_SECTION_NAME;
|
||
|
||
subseg_set (current_section, current_subsec);
|
||
|
||
xtensa_addi_opcode = xtensa_opcode_lookup (isa, "addi");
|
||
xtensa_addmi_opcode = xtensa_opcode_lookup (isa, "addmi");
|
||
xtensa_call0_opcode = xtensa_opcode_lookup (isa, "call0");
|
||
xtensa_call4_opcode = xtensa_opcode_lookup (isa, "call4");
|
||
xtensa_call8_opcode = xtensa_opcode_lookup (isa, "call8");
|
||
xtensa_call12_opcode = xtensa_opcode_lookup (isa, "call12");
|
||
xtensa_callx0_opcode = xtensa_opcode_lookup (isa, "callx0");
|
||
xtensa_callx4_opcode = xtensa_opcode_lookup (isa, "callx4");
|
||
xtensa_callx8_opcode = xtensa_opcode_lookup (isa, "callx8");
|
||
xtensa_callx12_opcode = xtensa_opcode_lookup (isa, "callx12");
|
||
xtensa_entry_opcode = xtensa_opcode_lookup (isa, "entry");
|
||
xtensa_isync_opcode = xtensa_opcode_lookup (isa, "isync");
|
||
xtensa_j_opcode = xtensa_opcode_lookup (isa, "j");
|
||
xtensa_jx_opcode = xtensa_opcode_lookup (isa, "jx");
|
||
xtensa_loop_opcode = xtensa_opcode_lookup (isa, "loop");
|
||
xtensa_loopnez_opcode = xtensa_opcode_lookup (isa, "loopnez");
|
||
xtensa_loopgtz_opcode = xtensa_opcode_lookup (isa, "loopgtz");
|
||
xtensa_nop_n_opcode = xtensa_opcode_lookup (isa, "nop.n");
|
||
xtensa_or_opcode = xtensa_opcode_lookup (isa, "or");
|
||
xtensa_ret_opcode = xtensa_opcode_lookup (isa, "ret");
|
||
xtensa_ret_n_opcode = xtensa_opcode_lookup (isa, "ret.n");
|
||
xtensa_retw_opcode = xtensa_opcode_lookup (isa, "retw");
|
||
xtensa_retw_n_opcode = xtensa_opcode_lookup (isa, "retw.n");
|
||
xtensa_rsr_opcode = xtensa_opcode_lookup (isa, "rsr");
|
||
xtensa_waiti_opcode = xtensa_opcode_lookup (isa, "waiti");
|
||
}
|
||
|
||
|
||
/* tc_frob_label hook */
|
||
|
||
void
|
||
xtensa_frob_label (sym)
|
||
symbolS *sym;
|
||
{
|
||
if (generating_literals)
|
||
xtensa_add_literal_sym (sym);
|
||
else
|
||
xtensa_add_insn_label (sym);
|
||
|
||
if (symbol_get_tc (sym)->is_loop_target
|
||
&& (get_last_insn_flags (now_seg, now_subseg)
|
||
& FLAG_IS_BAD_LOOPEND) != 0)
|
||
as_bad (_("invalid last instruction for a zero-overhead loop"));
|
||
|
||
/* No target aligning in the absolute section. */
|
||
if (now_seg != absolute_section
|
||
&& align_targets
|
||
&& !is_unaligned_label (sym)
|
||
&& !frag_now->tc_frag_data.is_literal)
|
||
{
|
||
/* frag_now->tc_frag_data.is_insn = TRUE; */
|
||
frag_var (rs_machine_dependent, 4, 4,
|
||
RELAX_DESIRE_ALIGN_IF_TARGET,
|
||
frag_now->fr_symbol, frag_now->fr_offset, NULL);
|
||
xtensa_move_labels (frag_now, 0, TRUE);
|
||
|
||
/* If the label is already known to be a branch target, i.e., a
|
||
forward branch, mark the frag accordingly. Backward branches
|
||
are handled by xg_add_branch_and_loop_targets. */
|
||
if (symbol_get_tc (sym)->is_branch_target)
|
||
symbol_get_frag (sym)->tc_frag_data.is_branch_target = TRUE;
|
||
|
||
/* Loops only go forward, so they can be identified here. */
|
||
if (symbol_get_tc (sym)->is_loop_target)
|
||
symbol_get_frag (sym)->tc_frag_data.is_loop_target = TRUE;
|
||
}
|
||
}
|
||
|
||
|
||
/* md_flush_pending_output hook */
|
||
|
||
void
|
||
xtensa_flush_pending_output ()
|
||
{
|
||
/* If there is a non-zero instruction fragment, close it. */
|
||
if (frag_now_fix () != 0 && frag_now->tc_frag_data.is_insn)
|
||
{
|
||
frag_wane (frag_now);
|
||
frag_new (0);
|
||
}
|
||
frag_now->tc_frag_data.is_insn = FALSE;
|
||
|
||
xtensa_clear_insn_labels ();
|
||
}
|
||
|
||
|
||
void
|
||
md_assemble (str)
|
||
char *str;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
char *opname;
|
||
unsigned opnamelen;
|
||
bfd_boolean has_underbar = FALSE;
|
||
char *arg_strings[MAX_INSN_ARGS];
|
||
int num_args;
|
||
IStack istack; /* Put instructions into here. */
|
||
TInsn orig_insn; /* Original instruction from the input. */
|
||
int i;
|
||
symbolS *lit_sym = NULL;
|
||
|
||
if (frag_now->tc_frag_data.is_literal)
|
||
{
|
||
static bfd_boolean reported = 0;
|
||
if (reported < 4)
|
||
as_bad (_("cannot assemble '%s' into a literal fragment"), str);
|
||
if (reported == 3)
|
||
as_bad (_("..."));
|
||
reported++;
|
||
return;
|
||
}
|
||
|
||
istack_init (&istack);
|
||
tinsn_init (&orig_insn);
|
||
|
||
/* Split off the opcode. */
|
||
opnamelen = strspn (str, "abcdefghijklmnopqrstuvwxyz_/0123456789.");
|
||
opname = xmalloc (opnamelen + 1);
|
||
memcpy (opname, str, opnamelen);
|
||
opname[opnamelen] = '\0';
|
||
|
||
num_args = tokenize_arguments (arg_strings, str + opnamelen);
|
||
if (num_args == -1)
|
||
{
|
||
as_bad (_("syntax error"));
|
||
return;
|
||
}
|
||
|
||
if (xg_translate_idioms (&opname, &num_args, arg_strings))
|
||
return;
|
||
|
||
/* Check for an underbar prefix. */
|
||
if (*opname == '_')
|
||
{
|
||
has_underbar = TRUE;
|
||
opname += 1;
|
||
}
|
||
|
||
orig_insn.insn_type = ITYPE_INSN;
|
||
orig_insn.ntok = 0;
|
||
orig_insn.is_specific_opcode = (has_underbar || !use_generics ());
|
||
specific_opcode = orig_insn.is_specific_opcode;
|
||
|
||
orig_insn.opcode = xtensa_opcode_lookup (isa, opname);
|
||
if (orig_insn.opcode == XTENSA_UNDEFINED)
|
||
{
|
||
as_bad (_("unknown opcode %s"), opname);
|
||
return;
|
||
}
|
||
|
||
if (frag_now_fix () != 0 && !frag_now->tc_frag_data.is_insn)
|
||
{
|
||
frag_wane (frag_now);
|
||
frag_new (0);
|
||
}
|
||
|
||
if (software_a0_b_retw_interlock)
|
||
{
|
||
if ((get_last_insn_flags (now_seg, now_subseg) & FLAG_IS_A0_WRITER) != 0
|
||
&& is_conditional_branch_opcode (orig_insn.opcode))
|
||
{
|
||
has_a0_b_retw = TRUE;
|
||
|
||
/* Mark this fragment with the special RELAX_ADD_NOP_IF_A0_B_RETW.
|
||
After the first assembly pass we will check all of them and
|
||
add a nop if needed. */
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_var (rs_machine_dependent, 4, 4,
|
||
RELAX_ADD_NOP_IF_A0_B_RETW,
|
||
frag_now->fr_symbol, frag_now->fr_offset, NULL);
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_var (rs_machine_dependent, 4, 4,
|
||
RELAX_ADD_NOP_IF_A0_B_RETW,
|
||
frag_now->fr_symbol, frag_now->fr_offset, NULL);
|
||
}
|
||
}
|
||
|
||
/* Special case: The call instructions should be marked "specific opcode"
|
||
to keep them from expanding. */
|
||
if (!use_longcalls () && is_direct_call_opcode (orig_insn.opcode))
|
||
orig_insn.is_specific_opcode = TRUE;
|
||
|
||
/* Parse the arguments. */
|
||
if (parse_arguments (&orig_insn, num_args, arg_strings))
|
||
{
|
||
as_bad (_("syntax error"));
|
||
return;
|
||
}
|
||
|
||
/* Free the opcode and argument strings, now that they've been parsed. */
|
||
free (has_underbar ? opname - 1 : opname);
|
||
opname = 0;
|
||
while (num_args-- > 0)
|
||
free (arg_strings[num_args]);
|
||
|
||
/* Check for the right number and type of arguments. */
|
||
if (tinsn_check_arguments (&orig_insn))
|
||
return;
|
||
|
||
/* See if the instruction implies an aligned section. */
|
||
if (is_entry_opcode (orig_insn.opcode) || is_loop_opcode (orig_insn.opcode))
|
||
record_alignment (now_seg, 2);
|
||
|
||
xg_add_branch_and_loop_targets (&orig_insn);
|
||
|
||
/* Special cases for instructions that force an alignment... */
|
||
if (!orig_insn.is_specific_opcode && is_loop_opcode (orig_insn.opcode))
|
||
{
|
||
size_t max_fill;
|
||
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_now->tc_frag_data.is_no_density = !code_density_available ();
|
||
max_fill = get_text_align_max_fill_size
|
||
(get_text_align_power (XTENSA_FETCH_WIDTH),
|
||
TRUE, frag_now->tc_frag_data.is_no_density);
|
||
frag_var (rs_machine_dependent, max_fill, max_fill,
|
||
RELAX_ALIGN_NEXT_OPCODE, frag_now->fr_symbol,
|
||
frag_now->fr_offset, NULL);
|
||
|
||
xtensa_move_labels (frag_now, 0, FALSE);
|
||
}
|
||
|
||
/* Special-case for "entry" instruction. */
|
||
if (is_entry_opcode (orig_insn.opcode))
|
||
{
|
||
/* Check that the second opcode (#1) is >= 16. */
|
||
if (orig_insn.ntok >= 2)
|
||
{
|
||
expressionS *exp = &orig_insn.tok[1];
|
||
switch (exp->X_op)
|
||
{
|
||
case O_constant:
|
||
if (exp->X_add_number < 16)
|
||
as_warn (_("entry instruction with stack decrement < 16"));
|
||
break;
|
||
|
||
default:
|
||
as_warn (_("entry instruction with non-constant decrement"));
|
||
}
|
||
}
|
||
|
||
if (!orig_insn.is_specific_opcode)
|
||
{
|
||
xtensa_mark_literal_pool_location ();
|
||
|
||
/* Automatically align ENTRY instructions. */
|
||
xtensa_move_labels (frag_now, 0, TRUE);
|
||
frag_align (2, 0, 0);
|
||
}
|
||
}
|
||
|
||
/* Any extra alignment frags have been inserted now, and we're about to
|
||
emit a new instruction so clear the list of labels. */
|
||
xtensa_clear_insn_labels ();
|
||
|
||
if (software_a0_b_retw_interlock)
|
||
set_last_insn_flags (now_seg, now_subseg, FLAG_IS_A0_WRITER,
|
||
is_register_writer (&orig_insn, "a", 0));
|
||
|
||
set_last_insn_flags (now_seg, now_subseg, FLAG_IS_BAD_LOOPEND,
|
||
is_bad_loopend_opcode (&orig_insn));
|
||
|
||
/* Finish it off:
|
||
assemble_tokens (opcode, tok, ntok);
|
||
expand the tokens from the orig_insn into the
|
||
stack of instructions that will not expand
|
||
unless required at relaxation time. */
|
||
if (xg_expand_assembly_insn (&istack, &orig_insn))
|
||
return;
|
||
|
||
for (i = 0; i < istack.ninsn; i++)
|
||
{
|
||
TInsn *insn = &istack.insn[i];
|
||
if (insn->insn_type == ITYPE_LITERAL)
|
||
{
|
||
assert (lit_sym == NULL);
|
||
lit_sym = xg_assemble_literal (insn);
|
||
}
|
||
else
|
||
{
|
||
if (lit_sym)
|
||
xg_resolve_literals (insn, lit_sym);
|
||
xg_assemble_tokens (insn);
|
||
}
|
||
}
|
||
|
||
/* Now, if the original opcode was a call... */
|
||
if (align_targets && is_call_opcode (orig_insn.opcode))
|
||
{
|
||
frag_now->tc_frag_data.is_insn = TRUE;
|
||
frag_var (rs_machine_dependent, 4, 4,
|
||
RELAX_DESIRE_ALIGN,
|
||
frag_now->fr_symbol,
|
||
frag_now->fr_offset,
|
||
NULL);
|
||
}
|
||
}
|
||
|
||
|
||
/* TC_CONS_FIX_NEW hook: Check for "@PLT" suffix on symbol references.
|
||
If found, use an XTENSA_PLT reloc for 4-byte values. Otherwise, this
|
||
is the same as the standard code in read.c. */
|
||
|
||
void
|
||
xtensa_cons_fix_new (frag, where, size, exp)
|
||
fragS *frag;
|
||
int where;
|
||
int size;
|
||
expressionS *exp;
|
||
{
|
||
bfd_reloc_code_real_type r;
|
||
bfd_boolean plt = FALSE;
|
||
|
||
if (*input_line_pointer == '@')
|
||
{
|
||
if (!strncmp (input_line_pointer, PLT_SUFFIX, strlen (PLT_SUFFIX) - 1)
|
||
&& !strncmp (input_line_pointer, plt_suffix,
|
||
strlen (plt_suffix) - 1))
|
||
{
|
||
as_bad (_("undefined @ suffix '%s', expected '%s'"),
|
||
input_line_pointer, plt_suffix);
|
||
ignore_rest_of_line ();
|
||
return;
|
||
}
|
||
|
||
input_line_pointer += strlen (plt_suffix);
|
||
plt = TRUE;
|
||
}
|
||
|
||
switch (size)
|
||
{
|
||
case 1:
|
||
r = BFD_RELOC_8;
|
||
break;
|
||
case 2:
|
||
r = BFD_RELOC_16;
|
||
break;
|
||
case 4:
|
||
r = plt ? BFD_RELOC_XTENSA_PLT : BFD_RELOC_32;
|
||
break;
|
||
case 8:
|
||
r = BFD_RELOC_64;
|
||
break;
|
||
default:
|
||
as_bad (_("unsupported BFD relocation size %u"), size);
|
||
r = BFD_RELOC_32;
|
||
break;
|
||
}
|
||
fix_new_exp (frag, where, size, exp, 0, r);
|
||
}
|
||
|
||
|
||
/* TC_FRAG_INIT hook */
|
||
|
||
void
|
||
xtensa_frag_init (frag)
|
||
fragS *frag;
|
||
{
|
||
frag->tc_frag_data.is_no_density = !code_density_available ();
|
||
}
|
||
|
||
|
||
symbolS *
|
||
md_undefined_symbol (name)
|
||
char *name ATTRIBUTE_UNUSED;
|
||
{
|
||
return NULL;
|
||
}
|
||
|
||
|
||
/* Round up a section size to the appropriate boundary. */
|
||
|
||
valueT
|
||
md_section_align (segment, size)
|
||
segT segment ATTRIBUTE_UNUSED;
|
||
valueT size;
|
||
{
|
||
return size; /* Byte alignment is fine. */
|
||
}
|
||
|
||
|
||
long
|
||
md_pcrel_from (fixP)
|
||
fixS *fixP;
|
||
{
|
||
char *insn_p;
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
int opnum;
|
||
xtensa_operand operand;
|
||
xtensa_opcode opcode;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
valueT addr = fixP->fx_where + fixP->fx_frag->fr_address;
|
||
|
||
if (fixP->fx_done)
|
||
return addr;
|
||
|
||
if (fixP->fx_r_type == BFD_RELOC_XTENSA_ASM_EXPAND)
|
||
return addr;
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (isa);
|
||
|
||
insn_p = &fixP->fx_frag->fr_literal[fixP->fx_where];
|
||
xtensa_insnbuf_from_chars (isa, insnbuf, insn_p);
|
||
opcode = xtensa_decode_insn (isa, insnbuf);
|
||
|
||
opnum = reloc_to_opnum (fixP->fx_r_type);
|
||
|
||
if (opnum < 0)
|
||
as_fatal (_("invalid operand relocation for '%s' instruction"),
|
||
xtensa_opcode_name (isa, opcode));
|
||
if (opnum >= xtensa_num_operands (isa, opcode))
|
||
as_fatal (_("invalid relocation for operand %d in '%s' instruction"),
|
||
opnum, xtensa_opcode_name (isa, opcode));
|
||
operand = xtensa_get_operand (isa, opcode, opnum);
|
||
if (!operand)
|
||
{
|
||
as_warn_where (fixP->fx_file,
|
||
fixP->fx_line,
|
||
_("invalid relocation type %d for %s instruction"),
|
||
fixP->fx_r_type, xtensa_opcode_name (isa, opcode));
|
||
return addr;
|
||
}
|
||
|
||
if (!operand_is_pcrel_label (operand))
|
||
{
|
||
as_bad_where (fixP->fx_file,
|
||
fixP->fx_line,
|
||
_("invalid relocation for operand %d of '%s'"),
|
||
opnum, xtensa_opcode_name (isa, opcode));
|
||
return addr;
|
||
}
|
||
if (!xtensa_operand_isPCRelative (operand))
|
||
{
|
||
as_warn_where (fixP->fx_file,
|
||
fixP->fx_line,
|
||
_("non-PCREL relocation operand %d for '%s': %s"),
|
||
opnum, xtensa_opcode_name (isa, opcode),
|
||
bfd_get_reloc_code_name (fixP->fx_r_type));
|
||
return addr;
|
||
}
|
||
|
||
return 0 - xtensa_operand_do_reloc (operand, 0, addr);
|
||
}
|
||
|
||
|
||
/* tc_symbol_new_hook */
|
||
|
||
void
|
||
xtensa_symbol_new_hook (symbolP)
|
||
symbolS *symbolP;
|
||
{
|
||
symbol_get_tc (symbolP)->plt = 0;
|
||
}
|
||
|
||
|
||
/* tc_fix_adjustable hook */
|
||
|
||
bfd_boolean
|
||
xtensa_fix_adjustable (fixP)
|
||
fixS *fixP;
|
||
{
|
||
/* We need the symbol name for the VTABLE entries. */
|
||
if (fixP->fx_r_type == BFD_RELOC_VTABLE_INHERIT
|
||
|| fixP->fx_r_type == BFD_RELOC_VTABLE_ENTRY)
|
||
return 0;
|
||
|
||
return 1;
|
||
}
|
||
|
||
|
||
void
|
||
md_apply_fix3 (fixP, valP, seg)
|
||
fixS *fixP;
|
||
valueT *valP;
|
||
segT seg ATTRIBUTE_UNUSED;
|
||
{
|
||
if (fixP->fx_pcrel == 0 && fixP->fx_addsy == 0)
|
||
{
|
||
/* This happens when the relocation is within the current section.
|
||
It seems this implies a PCREL operation. We'll catch it and error
|
||
if not. */
|
||
|
||
char *const fixpos = fixP->fx_frag->fr_literal + fixP->fx_where;
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
xtensa_opcode opcode;
|
||
xtensa_isa isa;
|
||
|
||
switch (fixP->fx_r_type)
|
||
{
|
||
case BFD_RELOC_XTENSA_ASM_EXPAND:
|
||
fixP->fx_done = 1;
|
||
break;
|
||
|
||
case BFD_RELOC_XTENSA_ASM_SIMPLIFY:
|
||
as_bad (_("unhandled local relocation fix %s"),
|
||
bfd_get_reloc_code_name (fixP->fx_r_type));
|
||
break;
|
||
|
||
case BFD_RELOC_32:
|
||
case BFD_RELOC_16:
|
||
case BFD_RELOC_8:
|
||
/* The only one we support that isn't an instruction field. */
|
||
md_number_to_chars (fixpos, *valP, fixP->fx_size);
|
||
fixP->fx_done = 1;
|
||
break;
|
||
|
||
case BFD_RELOC_XTENSA_OP0:
|
||
case BFD_RELOC_XTENSA_OP1:
|
||
case BFD_RELOC_XTENSA_OP2:
|
||
isa = xtensa_default_isa;
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (isa);
|
||
|
||
xtensa_insnbuf_from_chars (isa, insnbuf, fixpos);
|
||
opcode = xtensa_decode_insn (isa, insnbuf);
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
as_fatal (_("undecodable FIX"));
|
||
|
||
xtensa_insnbuf_set_immediate_field (opcode, insnbuf, *valP,
|
||
fixP->fx_file, fixP->fx_line);
|
||
|
||
fixP->fx_frag->tc_frag_data.is_insn = TRUE;
|
||
xtensa_insnbuf_to_chars (isa, insnbuf, fixpos);
|
||
fixP->fx_done = 1;
|
||
break;
|
||
|
||
case BFD_RELOC_VTABLE_INHERIT:
|
||
case BFD_RELOC_VTABLE_ENTRY:
|
||
fixP->fx_done = 0;
|
||
break;
|
||
|
||
default:
|
||
as_bad (_("unhandled local relocation fix %s"),
|
||
bfd_get_reloc_code_name (fixP->fx_r_type));
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
char *
|
||
md_atof (type, litP, sizeP)
|
||
int type;
|
||
char *litP;
|
||
int *sizeP;
|
||
{
|
||
int prec;
|
||
LITTLENUM_TYPE words[4];
|
||
char *t;
|
||
int i;
|
||
|
||
switch (type)
|
||
{
|
||
case 'f':
|
||
prec = 2;
|
||
break;
|
||
|
||
case 'd':
|
||
prec = 4;
|
||
break;
|
||
|
||
default:
|
||
*sizeP = 0;
|
||
return "bad call to md_atof";
|
||
}
|
||
|
||
t = atof_ieee (input_line_pointer, type, words);
|
||
if (t)
|
||
input_line_pointer = t;
|
||
|
||
*sizeP = prec * 2;
|
||
|
||
for (i = prec - 1; i >= 0; i--)
|
||
{
|
||
int idx = i;
|
||
if (target_big_endian)
|
||
idx = (prec - 1 - i);
|
||
|
||
md_number_to_chars (litP, (valueT) words[idx], 2);
|
||
litP += 2;
|
||
}
|
||
|
||
return NULL;
|
||
}
|
||
|
||
|
||
int
|
||
md_estimate_size_before_relax (fragP, seg)
|
||
fragS *fragP;
|
||
segT seg ATTRIBUTE_UNUSED;
|
||
{
|
||
return fragP->tc_frag_data.text_expansion;
|
||
}
|
||
|
||
|
||
/* Translate internal representation of relocation info to BFD target
|
||
format. */
|
||
|
||
arelent *
|
||
tc_gen_reloc (section, fixp)
|
||
asection *section ATTRIBUTE_UNUSED;
|
||
fixS *fixp;
|
||
{
|
||
arelent *reloc;
|
||
|
||
reloc = (arelent *) xmalloc (sizeof (arelent));
|
||
reloc->sym_ptr_ptr = (asymbol **) xmalloc (sizeof (asymbol *));
|
||
*reloc->sym_ptr_ptr = symbol_get_bfdsym (fixp->fx_addsy);
|
||
reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
|
||
|
||
/* Make sure none of our internal relocations make it this far.
|
||
They'd better have been fully resolved by this point. */
|
||
assert ((int) fixp->fx_r_type > 0);
|
||
|
||
reloc->howto = bfd_reloc_type_lookup (stdoutput, fixp->fx_r_type);
|
||
if (reloc->howto == NULL)
|
||
{
|
||
as_bad_where (fixp->fx_file, fixp->fx_line,
|
||
_("cannot represent `%s' relocation in object file"),
|
||
bfd_get_reloc_code_name (fixp->fx_r_type));
|
||
return NULL;
|
||
}
|
||
|
||
if (!fixp->fx_pcrel != !reloc->howto->pc_relative)
|
||
{
|
||
as_fatal (_("internal error? cannot generate `%s' relocation"),
|
||
bfd_get_reloc_code_name (fixp->fx_r_type));
|
||
}
|
||
assert (!fixp->fx_pcrel == !reloc->howto->pc_relative);
|
||
|
||
reloc->addend = fixp->fx_offset;
|
||
|
||
switch (fixp->fx_r_type)
|
||
{
|
||
case BFD_RELOC_XTENSA_OP0:
|
||
case BFD_RELOC_XTENSA_OP1:
|
||
case BFD_RELOC_XTENSA_OP2:
|
||
case BFD_RELOC_XTENSA_ASM_EXPAND:
|
||
case BFD_RELOC_32:
|
||
case BFD_RELOC_XTENSA_PLT:
|
||
case BFD_RELOC_VTABLE_INHERIT:
|
||
case BFD_RELOC_VTABLE_ENTRY:
|
||
break;
|
||
|
||
case BFD_RELOC_XTENSA_ASM_SIMPLIFY:
|
||
as_warn (_("emitting simplification relocation"));
|
||
break;
|
||
|
||
default:
|
||
as_warn (_("emitting unknown relocation"));
|
||
}
|
||
|
||
return reloc;
|
||
}
|
||
|
||
|
||
void
|
||
xtensa_end ()
|
||
{
|
||
directive_balance ();
|
||
xtensa_move_literals ();
|
||
|
||
xtensa_reorder_segments ();
|
||
xtensa_cleanup_align_frags ();
|
||
xtensa_fix_target_frags ();
|
||
if (software_a0_b_retw_interlock && has_a0_b_retw)
|
||
xtensa_fix_a0_b_retw_frags ();
|
||
if (software_avoid_b_j_loop_end && maybe_has_b_j_loop_end)
|
||
xtensa_fix_b_j_loop_end_frags ();
|
||
|
||
/* "close_loop_end" should be processed BEFORE "short_loop". */
|
||
if (software_avoid_close_loop_end && maybe_has_close_loop_end)
|
||
xtensa_fix_close_loop_end_frags ();
|
||
|
||
if (software_avoid_short_loop && maybe_has_short_loop)
|
||
xtensa_fix_short_loop_frags ();
|
||
|
||
xtensa_sanity_check ();
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_cleanup_align_frags ()
|
||
{
|
||
frchainS *frchP;
|
||
|
||
for (frchP = frchain_root; frchP; frchP = frchP->frch_next)
|
||
{
|
||
fragS *fragP;
|
||
|
||
/* Walk over all of the fragments in a subsection. */
|
||
for (fragP = frchP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if ((fragP->fr_type == rs_align
|
||
|| fragP->fr_type == rs_align_code
|
||
|| (fragP->fr_type == rs_machine_dependent
|
||
&& (fragP->fr_subtype == RELAX_DESIRE_ALIGN
|
||
|| fragP->fr_subtype == RELAX_DESIRE_ALIGN_IF_TARGET)))
|
||
&& fragP->fr_fix == 0)
|
||
{
|
||
fragS * next = fragP->fr_next;
|
||
|
||
while (next
|
||
&& next->fr_type == rs_machine_dependent
|
||
&& next->fr_subtype == RELAX_DESIRE_ALIGN_IF_TARGET)
|
||
{
|
||
frag_wane (next);
|
||
next = next->fr_next;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/* Re-process all of the fragments looking to convert all of the
|
||
RELAX_DESIRE_ALIGN_IF_TARGET fragments. If there is a branch
|
||
target in the next fragment, convert this to RELAX_DESIRE_ALIGN.
|
||
If the next fragment starts with a loop target, AND the previous
|
||
fragment can be expanded to negate the branch, convert this to a
|
||
RELAX_LOOP_END. Otherwise, convert to a .fill 0. */
|
||
|
||
static void
|
||
xtensa_fix_target_frags ()
|
||
{
|
||
frchainS *frchP;
|
||
|
||
/* When this routine is called, all of the subsections are still intact
|
||
so we walk over subsections instead of sections. */
|
||
for (frchP = frchain_root; frchP; frchP = frchP->frch_next)
|
||
{
|
||
bfd_boolean prev_frag_can_negate_branch = FALSE;
|
||
fragS *fragP;
|
||
|
||
/* Walk over all of the fragments in a subsection. */
|
||
for (fragP = frchP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_DESIRE_ALIGN_IF_TARGET)
|
||
{
|
||
if (next_frag_is_loop_target (fragP))
|
||
{
|
||
if (prev_frag_can_negate_branch)
|
||
fragP->fr_subtype = RELAX_LOOP_END;
|
||
else
|
||
{
|
||
if (!align_only_targets ||
|
||
next_frag_is_branch_target (fragP))
|
||
fragP->fr_subtype = RELAX_DESIRE_ALIGN;
|
||
else
|
||
frag_wane (fragP);
|
||
}
|
||
}
|
||
else if (!align_only_targets
|
||
|| next_frag_is_branch_target (fragP))
|
||
fragP->fr_subtype = RELAX_DESIRE_ALIGN;
|
||
else
|
||
frag_wane (fragP);
|
||
}
|
||
if (fragP->fr_fix != 0)
|
||
prev_frag_can_negate_branch = FALSE;
|
||
if (frag_can_negate_branch (fragP))
|
||
prev_frag_can_negate_branch = TRUE;
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
frag_can_negate_branch (fragP)
|
||
fragS *fragP;
|
||
{
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_IMMED)
|
||
{
|
||
TInsn t_insn;
|
||
tinsn_from_chars (&t_insn, fragP->fr_opcode);
|
||
if (is_negatable_branch (&t_insn))
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Re-process all of the fragments looking to convert all of the
|
||
RELAX_ADD_NOP_IF_A0_B_RETW. If the next instruction is a
|
||
conditional branch or a retw/retw.n, convert this frag to one that
|
||
will generate a NOP. In any case close it off with a .fill 0. */
|
||
|
||
static void
|
||
xtensa_fix_a0_b_retw_frags ()
|
||
{
|
||
frchainS *frchP;
|
||
|
||
/* When this routine is called, all of the subsections are still intact
|
||
so we walk over subsections instead of sections. */
|
||
for (frchP = frchain_root; frchP; frchP = frchP->frch_next)
|
||
{
|
||
fragS *fragP;
|
||
|
||
/* Walk over all of the fragments in a subsection. */
|
||
for (fragP = frchP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_ADD_NOP_IF_A0_B_RETW)
|
||
{
|
||
if (next_instrs_are_b_retw (fragP))
|
||
relax_frag_add_nop (fragP);
|
||
else
|
||
frag_wane (fragP);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
next_instrs_are_b_retw (fragP)
|
||
fragS * fragP;
|
||
{
|
||
xtensa_opcode opcode;
|
||
const fragS *next_fragP = next_non_empty_frag (fragP);
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
int offset = 0;
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (isa);
|
||
|
||
if (next_fragP == NULL)
|
||
return FALSE;
|
||
|
||
/* Check for the conditional branch. */
|
||
xtensa_insnbuf_from_chars (isa, insnbuf, &next_fragP->fr_literal[offset]);
|
||
opcode = xtensa_decode_insn (isa, insnbuf);
|
||
|
||
if (!is_conditional_branch_opcode (opcode))
|
||
return FALSE;
|
||
|
||
offset += xtensa_insn_length (isa, opcode);
|
||
if (offset == next_fragP->fr_fix)
|
||
{
|
||
next_fragP = next_non_empty_frag (next_fragP);
|
||
offset = 0;
|
||
}
|
||
if (next_fragP == NULL)
|
||
return FALSE;
|
||
|
||
/* Check for the retw/retw.n. */
|
||
xtensa_insnbuf_from_chars (isa, insnbuf, &next_fragP->fr_literal[offset]);
|
||
opcode = xtensa_decode_insn (isa, insnbuf);
|
||
|
||
if (is_windowed_return_opcode (opcode))
|
||
return TRUE;
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Re-process all of the fragments looking to convert all of the
|
||
RELAX_ADD_NOP_IF_PRE_LOOP_END. If there is one instruction and a
|
||
loop end label, convert this frag to one that will generate a NOP.
|
||
In any case close it off with a .fill 0. */
|
||
|
||
static void
|
||
xtensa_fix_b_j_loop_end_frags ()
|
||
{
|
||
frchainS *frchP;
|
||
|
||
/* When this routine is called, all of the subsections are still intact
|
||
so we walk over subsections instead of sections. */
|
||
for (frchP = frchain_root; frchP; frchP = frchP->frch_next)
|
||
{
|
||
fragS *fragP;
|
||
|
||
/* Walk over all of the fragments in a subsection. */
|
||
for (fragP = frchP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_ADD_NOP_IF_PRE_LOOP_END)
|
||
{
|
||
if (next_instr_is_loop_end (fragP))
|
||
relax_frag_add_nop (fragP);
|
||
else
|
||
frag_wane (fragP);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
next_instr_is_loop_end (fragP)
|
||
fragS * fragP;
|
||
{
|
||
const fragS *next_fragP;
|
||
|
||
if (next_frag_is_loop_target (fragP))
|
||
return FALSE;
|
||
|
||
next_fragP = next_non_empty_frag (fragP);
|
||
if (next_fragP == NULL)
|
||
return FALSE;
|
||
|
||
if (!next_frag_is_loop_target (next_fragP))
|
||
return FALSE;
|
||
|
||
/* If the size is >= 3 then there is more than one instruction here.
|
||
The hardware bug will not fire. */
|
||
if (next_fragP->fr_fix > 3)
|
||
return FALSE;
|
||
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
/* Re-process all of the fragments looking to convert all of the
|
||
RELAX_ADD_NOP_IF_CLOSE_LOOP_END. If there is an loop end that is
|
||
not MY loop's loop end within 12 bytes, add enough nops here to
|
||
make it at least 12 bytes away. In any case close it off with a
|
||
.fill 0. */
|
||
|
||
static void
|
||
xtensa_fix_close_loop_end_frags ()
|
||
{
|
||
frchainS *frchP;
|
||
|
||
/* When this routine is called, all of the subsections are still intact
|
||
so we walk over subsections instead of sections. */
|
||
for (frchP = frchain_root; frchP; frchP = frchP->frch_next)
|
||
{
|
||
fragS *fragP;
|
||
|
||
fragS *current_target = NULL;
|
||
offsetT current_offset = 0;
|
||
|
||
/* Walk over all of the fragments in a subsection. */
|
||
for (fragP = frchP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_IMMED)
|
||
{
|
||
/* Read it. If the instruction is a loop, get the target. */
|
||
xtensa_opcode opcode = get_opcode_from_buf (fragP->fr_opcode);
|
||
if (is_loop_opcode (opcode))
|
||
{
|
||
TInsn t_insn;
|
||
|
||
tinsn_from_chars (&t_insn, fragP->fr_opcode);
|
||
tinsn_immed_from_frag (&t_insn, fragP);
|
||
|
||
/* Get the current fragment target. */
|
||
if (fragP->fr_symbol)
|
||
{
|
||
current_target = symbol_get_frag (fragP->fr_symbol);
|
||
current_offset = fragP->fr_offset;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (current_target
|
||
&& fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_ADD_NOP_IF_CLOSE_LOOP_END)
|
||
{
|
||
size_t min_bytes;
|
||
size_t bytes_added = 0;
|
||
|
||
#define REQUIRED_LOOP_DIVIDING_BYTES 12
|
||
/* Max out at 12. */
|
||
min_bytes = min_bytes_to_other_loop_end
|
||
(fragP->fr_next, current_target, current_offset,
|
||
REQUIRED_LOOP_DIVIDING_BYTES);
|
||
|
||
if (min_bytes < REQUIRED_LOOP_DIVIDING_BYTES)
|
||
{
|
||
while (min_bytes + bytes_added
|
||
< REQUIRED_LOOP_DIVIDING_BYTES)
|
||
{
|
||
int length = 3;
|
||
|
||
if (fragP->fr_var < length)
|
||
as_warn (_("fr_var %lu < length %d; ignoring"),
|
||
fragP->fr_var, length);
|
||
else
|
||
{
|
||
assemble_nop (length,
|
||
fragP->fr_literal + fragP->fr_fix);
|
||
fragP->fr_fix += length;
|
||
fragP->fr_var -= length;
|
||
}
|
||
bytes_added += length;
|
||
}
|
||
}
|
||
frag_wane (fragP);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
size_t
|
||
min_bytes_to_other_loop_end (fragP, current_target, current_offset, max_size)
|
||
fragS *fragP;
|
||
fragS *current_target;
|
||
offsetT current_offset;
|
||
size_t max_size;
|
||
{
|
||
size_t offset = 0;
|
||
fragS *current_fragP;
|
||
|
||
for (current_fragP = fragP;
|
||
current_fragP;
|
||
current_fragP = current_fragP->fr_next)
|
||
{
|
||
if (current_fragP->tc_frag_data.is_loop_target
|
||
&& current_fragP != current_target)
|
||
return offset + current_offset;
|
||
|
||
offset += unrelaxed_frag_min_size (current_fragP);
|
||
|
||
if (offset + current_offset >= max_size)
|
||
return max_size;
|
||
}
|
||
return max_size;
|
||
}
|
||
|
||
|
||
size_t
|
||
unrelaxed_frag_min_size (fragP)
|
||
fragS * fragP;
|
||
{
|
||
size_t size = fragP->fr_fix;
|
||
|
||
/* add fill size */
|
||
if (fragP->fr_type == rs_fill)
|
||
size += fragP->fr_offset;
|
||
|
||
return size;
|
||
}
|
||
|
||
|
||
/* Re-process all of the fragments looking to convert all
|
||
of the RELAX_ADD_NOP_IF_SHORT_LOOP. If:
|
||
|
||
A)
|
||
1) the instruction size count to the loop end label
|
||
is too short (<= 2 instructions),
|
||
2) loop has a jump or branch in it
|
||
|
||
or B)
|
||
1) software_avoid_all_short_loops is true
|
||
2) The generating loop was a 'loopgtz' or 'loopnez'
|
||
3) the instruction size count to the loop end label is too short
|
||
(<= 2 instructions)
|
||
then convert this frag (and maybe the next one) to generate a NOP.
|
||
In any case close it off with a .fill 0. */
|
||
|
||
static void
|
||
xtensa_fix_short_loop_frags ()
|
||
{
|
||
frchainS *frchP;
|
||
|
||
/* When this routine is called, all of the subsections are still intact
|
||
so we walk over subsections instead of sections. */
|
||
for (frchP = frchain_root; frchP; frchP = frchP->frch_next)
|
||
{
|
||
fragS *fragP;
|
||
fragS *current_target = NULL;
|
||
offsetT current_offset = 0;
|
||
xtensa_opcode current_opcode = XTENSA_UNDEFINED;
|
||
|
||
/* Walk over all of the fragments in a subsection. */
|
||
for (fragP = frchP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
/* check on the current loop */
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_IMMED)
|
||
{
|
||
/* Read it. If the instruction is a loop, get the target. */
|
||
xtensa_opcode opcode = get_opcode_from_buf (fragP->fr_opcode);
|
||
if (is_loop_opcode (opcode))
|
||
{
|
||
TInsn t_insn;
|
||
|
||
tinsn_from_chars (&t_insn, fragP->fr_opcode);
|
||
tinsn_immed_from_frag (&t_insn, fragP);
|
||
|
||
/* Get the current fragment target. */
|
||
if (fragP->fr_symbol)
|
||
{
|
||
current_target = symbol_get_frag (fragP->fr_symbol);
|
||
current_offset = fragP->fr_offset;
|
||
current_opcode = opcode;
|
||
}
|
||
}
|
||
}
|
||
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_ADD_NOP_IF_SHORT_LOOP)
|
||
{
|
||
size_t insn_count =
|
||
count_insns_to_loop_end (fragP->fr_next, TRUE, 3);
|
||
if (insn_count < 3
|
||
&& (branch_before_loop_end (fragP->fr_next)
|
||
|| (software_avoid_all_short_loops
|
||
&& current_opcode != XTENSA_UNDEFINED
|
||
&& !is_the_loop_opcode (current_opcode))))
|
||
relax_frag_add_nop (fragP);
|
||
else
|
||
frag_wane (fragP);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
size_t
|
||
count_insns_to_loop_end (base_fragP, count_relax_add, max_count)
|
||
fragS *base_fragP;
|
||
bfd_boolean count_relax_add;
|
||
size_t max_count;
|
||
{
|
||
fragS *fragP = NULL;
|
||
size_t insn_count = 0;
|
||
|
||
fragP = base_fragP;
|
||
|
||
for (; fragP && !fragP->tc_frag_data.is_loop_target; fragP = fragP->fr_next)
|
||
{
|
||
insn_count += unrelaxed_frag_min_insn_count (fragP);
|
||
if (insn_count >= max_count)
|
||
return max_count;
|
||
|
||
if (count_relax_add)
|
||
{
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_ADD_NOP_IF_SHORT_LOOP)
|
||
{
|
||
/* In order to add the appropriate number of
|
||
NOPs, we count an instruction for downstream
|
||
occurrences. */
|
||
insn_count++;
|
||
if (insn_count >= max_count)
|
||
return max_count;
|
||
}
|
||
}
|
||
}
|
||
return insn_count;
|
||
}
|
||
|
||
|
||
size_t
|
||
unrelaxed_frag_min_insn_count (fragP)
|
||
fragS *fragP;
|
||
{
|
||
size_t insn_count = 0;
|
||
int offset = 0;
|
||
|
||
if (!fragP->tc_frag_data.is_insn)
|
||
return insn_count;
|
||
|
||
/* Decode the fixed instructions. */
|
||
while (offset < fragP->fr_fix)
|
||
{
|
||
xtensa_opcode opcode = get_opcode_from_buf (fragP->fr_literal + offset);
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
{
|
||
as_fatal (_("undecodable instruction in instruction frag"));
|
||
return insn_count;
|
||
}
|
||
offset += xtensa_insn_length (xtensa_default_isa, opcode);
|
||
insn_count++;
|
||
}
|
||
|
||
return insn_count;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
branch_before_loop_end (base_fragP)
|
||
fragS *base_fragP;
|
||
{
|
||
fragS *fragP;
|
||
|
||
for (fragP = base_fragP;
|
||
fragP && !fragP->tc_frag_data.is_loop_target;
|
||
fragP = fragP->fr_next)
|
||
{
|
||
if (unrelaxed_frag_has_b_j (fragP))
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
unrelaxed_frag_has_b_j (fragP)
|
||
fragS *fragP;
|
||
{
|
||
size_t insn_count = 0;
|
||
int offset = 0;
|
||
|
||
if (!fragP->tc_frag_data.is_insn)
|
||
return FALSE;
|
||
|
||
/* Decode the fixed instructions. */
|
||
while (offset < fragP->fr_fix)
|
||
{
|
||
xtensa_opcode opcode = get_opcode_from_buf (fragP->fr_literal + offset);
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
{
|
||
as_fatal (_("undecodable instruction in instruction frag"));
|
||
return insn_count;
|
||
}
|
||
if (is_branch_or_jump_opcode (opcode))
|
||
return TRUE;
|
||
offset += xtensa_insn_length (xtensa_default_isa, opcode);
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Checks to be made after initial assembly but before relaxation. */
|
||
|
||
static void
|
||
xtensa_sanity_check ()
|
||
{
|
||
char *file_name;
|
||
int line;
|
||
|
||
frchainS *frchP;
|
||
|
||
as_where (&file_name, &line);
|
||
for (frchP = frchain_root; frchP; frchP = frchP->frch_next)
|
||
{
|
||
fragS *fragP;
|
||
|
||
/* Walk over all of the fragments in a subsection. */
|
||
for (fragP = frchP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
/* Currently we only check for empty loops here. */
|
||
if (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_IMMED)
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
TInsn t_insn;
|
||
|
||
if (fragP->fr_opcode != NULL)
|
||
{
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
tinsn_from_chars (&t_insn, fragP->fr_opcode);
|
||
tinsn_immed_from_frag (&t_insn, fragP);
|
||
|
||
if (is_loop_opcode (t_insn.opcode))
|
||
{
|
||
if (is_empty_loop (&t_insn, fragP))
|
||
{
|
||
new_logical_line (fragP->fr_file, fragP->fr_line);
|
||
as_bad (_("invalid empty loop"));
|
||
}
|
||
if (!is_local_forward_loop (&t_insn, fragP))
|
||
{
|
||
new_logical_line (fragP->fr_file, fragP->fr_line);
|
||
as_bad (_("loop target does not follow "
|
||
"loop instruction in section"));
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
new_logical_line (file_name, line);
|
||
}
|
||
|
||
|
||
#define LOOP_IMMED_OPN 1
|
||
|
||
/* Return true if the loop target is the next non-zero fragment. */
|
||
|
||
bfd_boolean
|
||
is_empty_loop (insn, fragP)
|
||
const TInsn *insn;
|
||
fragS *fragP;
|
||
{
|
||
const expressionS *expr;
|
||
symbolS *symbolP;
|
||
fragS *next_fragP;
|
||
|
||
if (insn->insn_type != ITYPE_INSN)
|
||
return FALSE;
|
||
|
||
if (!is_loop_opcode (insn->opcode))
|
||
return FALSE;
|
||
|
||
if (insn->ntok <= LOOP_IMMED_OPN)
|
||
return FALSE;
|
||
|
||
expr = &insn->tok[LOOP_IMMED_OPN];
|
||
|
||
if (expr->X_op != O_symbol)
|
||
return FALSE;
|
||
|
||
symbolP = expr->X_add_symbol;
|
||
if (!symbolP)
|
||
return FALSE;
|
||
|
||
if (symbol_get_frag (symbolP) == NULL)
|
||
return FALSE;
|
||
|
||
if (S_GET_VALUE (symbolP) != 0)
|
||
return FALSE;
|
||
|
||
/* Walk through the zero-size fragments from this one. If we find
|
||
the target fragment, then this is a zero-size loop. */
|
||
for (next_fragP = fragP->fr_next;
|
||
next_fragP != NULL;
|
||
next_fragP = next_fragP->fr_next)
|
||
{
|
||
if (next_fragP == symbol_get_frag (symbolP))
|
||
return TRUE;
|
||
if (next_fragP->fr_fix != 0)
|
||
return FALSE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
is_local_forward_loop (insn, fragP)
|
||
const TInsn *insn;
|
||
fragS *fragP;
|
||
{
|
||
const expressionS *expr;
|
||
symbolS *symbolP;
|
||
fragS *next_fragP;
|
||
|
||
if (insn->insn_type != ITYPE_INSN)
|
||
return FALSE;
|
||
|
||
if (!is_loop_opcode (insn->opcode))
|
||
return FALSE;
|
||
|
||
if (insn->ntok <= LOOP_IMMED_OPN)
|
||
return FALSE;
|
||
|
||
expr = &insn->tok[LOOP_IMMED_OPN];
|
||
|
||
if (expr->X_op != O_symbol)
|
||
return FALSE;
|
||
|
||
symbolP = expr->X_add_symbol;
|
||
if (!symbolP)
|
||
return FALSE;
|
||
|
||
if (symbol_get_frag (symbolP) == NULL)
|
||
return FALSE;
|
||
|
||
/* Walk through fragments until we find the target.
|
||
If we do not find the target, then this is an invalid loop. */
|
||
for (next_fragP = fragP->fr_next;
|
||
next_fragP != NULL;
|
||
next_fragP = next_fragP->fr_next)
|
||
if (next_fragP == symbol_get_frag (symbolP))
|
||
return TRUE;
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Alignment Functions. */
|
||
|
||
size_t
|
||
get_text_align_power (target_size)
|
||
int target_size;
|
||
{
|
||
size_t i = 0;
|
||
for (i = 0; i < sizeof (size_t); i++)
|
||
{
|
||
if (target_size <= (1 << i))
|
||
return i;
|
||
}
|
||
as_fatal (_("get_text_align_power: argument too large"));
|
||
return 0;
|
||
}
|
||
|
||
|
||
addressT
|
||
get_text_align_max_fill_size (align_pow, use_nops, use_no_density)
|
||
int align_pow;
|
||
bfd_boolean use_nops;
|
||
bfd_boolean use_no_density;
|
||
{
|
||
if (!use_nops)
|
||
return (1 << align_pow);
|
||
if (use_no_density)
|
||
return 3 * (1 << align_pow);
|
||
|
||
return 1 + (1 << align_pow);
|
||
}
|
||
|
||
|
||
/* get_text_align_fill_size ()
|
||
|
||
Desired alignments:
|
||
give the address
|
||
target_size = size of next instruction
|
||
align_pow = get_text_align_power (target_size).
|
||
use_nops = 0
|
||
use_no_density = 0;
|
||
Loop alignments:
|
||
address = current address + loop instruction size;
|
||
target_size = 3 (for 2 or 3 byte target)
|
||
= 8 (for 8 byte target)
|
||
align_pow = get_text_align_power (target_size);
|
||
use_nops = 1
|
||
use_no_density = set appropriately
|
||
Text alignments:
|
||
address = current address + loop instruction size;
|
||
target_size = 0
|
||
align_pow = get_text_align_power (target_size);
|
||
use_nops = 0
|
||
use_no_density = 0. */
|
||
|
||
addressT
|
||
get_text_align_fill_size (address, align_pow, target_size,
|
||
use_nops, use_no_density)
|
||
addressT address;
|
||
int align_pow;
|
||
int target_size;
|
||
bfd_boolean use_nops;
|
||
bfd_boolean use_no_density;
|
||
{
|
||
/* Input arguments:
|
||
|
||
align_pow: log2 (required alignment).
|
||
|
||
target_size: alignment must allow the new_address and
|
||
new_address+target_size-1.
|
||
|
||
use_nops: if true, then we can only use 2 or 3 byte nops.
|
||
|
||
use_no_density: if use_nops and use_no_density, we can only use
|
||
3-byte nops.
|
||
|
||
Usually, for non-zero target_size, the align_pow is the power of 2
|
||
that is greater than or equal to the target_size. This handles the
|
||
2-byte, 3-byte and 8-byte instructions. */
|
||
|
||
size_t alignment = (1 << align_pow);
|
||
if (!use_nops)
|
||
{
|
||
/* This is the easy case. */
|
||
size_t mod;
|
||
mod = address % alignment;
|
||
if (mod != 0)
|
||
mod = alignment - mod;
|
||
assert ((address + mod) % alignment == 0);
|
||
return mod;
|
||
}
|
||
|
||
/* This is the slightly harder case. */
|
||
assert ((int) alignment >= target_size);
|
||
assert (target_size > 0);
|
||
if (!use_no_density)
|
||
{
|
||
size_t i;
|
||
for (i = 0; i < alignment * 2; i++)
|
||
{
|
||
if (i == 1)
|
||
continue;
|
||
if ((address + i) >> align_pow ==
|
||
(address + i + target_size - 1) >> align_pow)
|
||
return i;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
size_t i;
|
||
|
||
/* Can only fill multiples of 3. */
|
||
for (i = 0; i <= alignment * 3; i += 3)
|
||
{
|
||
if ((address + i) >> align_pow ==
|
||
(address + i + target_size - 1) >> align_pow)
|
||
return i;
|
||
}
|
||
}
|
||
assert (0);
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* This will assert if it is not possible. */
|
||
|
||
size_t
|
||
get_text_align_nop_count (fill_size, use_no_density)
|
||
size_t fill_size;
|
||
bfd_boolean use_no_density;
|
||
{
|
||
size_t count = 0;
|
||
if (use_no_density)
|
||
{
|
||
assert (fill_size % 3 == 0);
|
||
return (fill_size / 3);
|
||
}
|
||
|
||
assert (fill_size != 1); /* Bad argument. */
|
||
|
||
while (fill_size > 1)
|
||
{
|
||
size_t insn_size = 3;
|
||
if (fill_size == 2 || fill_size == 4)
|
||
insn_size = 2;
|
||
fill_size -= insn_size;
|
||
count++;
|
||
}
|
||
assert (fill_size != 1); /* Bad algorithm. */
|
||
return count;
|
||
}
|
||
|
||
|
||
size_t
|
||
get_text_align_nth_nop_size (fill_size, n, use_no_density)
|
||
size_t fill_size;
|
||
size_t n;
|
||
bfd_boolean use_no_density;
|
||
{
|
||
size_t count = 0;
|
||
|
||
assert (get_text_align_nop_count (fill_size, use_no_density) > n);
|
||
|
||
if (use_no_density)
|
||
return 3;
|
||
|
||
while (fill_size > 1)
|
||
{
|
||
size_t insn_size = 3;
|
||
if (fill_size == 2 || fill_size == 4)
|
||
insn_size = 2;
|
||
fill_size -= insn_size;
|
||
count++;
|
||
if (n + 1 == count)
|
||
return insn_size;
|
||
}
|
||
assert (0);
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* For the given fragment, find the appropriate address
|
||
for it to begin at if we are using NOPs to align it. */
|
||
|
||
static addressT
|
||
get_noop_aligned_address (fragP, address)
|
||
fragS *fragP;
|
||
addressT address;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
size_t fill_size = 0;
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
switch (fragP->fr_type)
|
||
{
|
||
case rs_machine_dependent:
|
||
if (fragP->fr_subtype == RELAX_ALIGN_NEXT_OPCODE)
|
||
{
|
||
/* The rule is: get next fragment's FIRST instruction. Find
|
||
the smallest number of bytes that need to be added to
|
||
ensure that the next fragment's FIRST instruction will fit
|
||
in a single word.
|
||
|
||
E.G., 2 bytes : 0, 1, 2 mod 4
|
||
3 bytes: 0, 1 mod 4
|
||
|
||
If the FIRST instruction MIGHT be relaxed,
|
||
assume that it will become a 3 byte instruction. */
|
||
|
||
int target_insn_size;
|
||
xtensa_opcode opcode = next_frag_opcode (fragP);
|
||
addressT pre_opcode_bytes;
|
||
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
{
|
||
as_bad_where (fragP->fr_file, fragP->fr_line,
|
||
_("invalid opcode for RELAX_ALIGN_NEXT_OPCODE"));
|
||
as_fatal (_("cannot continue"));
|
||
}
|
||
|
||
target_insn_size = xtensa_insn_length (xtensa_default_isa, opcode);
|
||
|
||
pre_opcode_bytes = next_frag_pre_opcode_bytes (fragP);
|
||
|
||
if (is_loop_opcode (opcode))
|
||
{
|
||
/* next_fragP should be the loop. */
|
||
const fragS *next_fragP = next_non_empty_frag (fragP);
|
||
xtensa_opcode next_opcode = next_frag_opcode (next_fragP);
|
||
size_t alignment;
|
||
|
||
pre_opcode_bytes += target_insn_size;
|
||
|
||
/* For loops, the alignment depends on the size of the
|
||
instruction following the loop, not the loop instruction. */
|
||
if (next_opcode == XTENSA_UNDEFINED)
|
||
target_insn_size = 3;
|
||
else
|
||
{
|
||
target_insn_size =
|
||
xtensa_insn_length (xtensa_default_isa, next_opcode);
|
||
|
||
if (target_insn_size == 2)
|
||
target_insn_size = 3; /* ISA specifies this. */
|
||
}
|
||
|
||
/* If it was 8, then we'll need a larger alignment
|
||
for the section. */
|
||
alignment = get_text_align_power (target_insn_size);
|
||
|
||
/* Is Now_seg valid */
|
||
record_alignment (now_seg, alignment);
|
||
}
|
||
else
|
||
as_fatal (_("expected loop opcode in relax align next target"));
|
||
|
||
fill_size = get_text_align_fill_size
|
||
(address + pre_opcode_bytes,
|
||
get_text_align_power (target_insn_size),
|
||
target_insn_size, TRUE, fragP->tc_frag_data.is_no_density);
|
||
}
|
||
break;
|
||
#if 0
|
||
case rs_align:
|
||
case rs_align_code:
|
||
fill_size = get_text_align_fill_size
|
||
(address, fragP->fr_offset, 1, TRUE,
|
||
fragP->tc_frag_data.is_no_density);
|
||
break;
|
||
#endif
|
||
default:
|
||
as_fatal (_("expected align_code or RELAX_ALIGN_NEXT_OPCODE"));
|
||
}
|
||
|
||
return address + fill_size;
|
||
}
|
||
|
||
|
||
/* 3 mechanisms for relaxing an alignment:
|
||
|
||
Align to a power of 2.
|
||
Align so the next fragment's instruction does not cross a word boundary.
|
||
Align the current instruction so that if the next instruction
|
||
were 3 bytes, it would not cross a word boundary.
|
||
|
||
We can align with:
|
||
|
||
zeros - This is easy; always insert zeros.
|
||
nops - 3 and 2 byte instructions
|
||
2 - 2 byte nop
|
||
3 - 3 byte nop
|
||
4 - 2, 2-byte nops
|
||
>=5 : 3 byte instruction + fn(n-3)
|
||
widening - widen previous instructions. */
|
||
|
||
static addressT
|
||
get_widen_aligned_address (fragP, address)
|
||
fragS *fragP;
|
||
addressT address;
|
||
{
|
||
addressT align_pow, new_address, loop_insn_offset;
|
||
fragS *next_frag;
|
||
int insn_size;
|
||
xtensa_opcode opcode, next_opcode;
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
if (fragP->fr_type == rs_align || fragP->fr_type == rs_align_code)
|
||
{
|
||
align_pow = fragP->fr_offset;
|
||
new_address = ((address + ((1 << align_pow) - 1))
|
||
<< align_pow) >> align_pow;
|
||
return new_address;
|
||
}
|
||
|
||
if (fragP->fr_type == rs_machine_dependent)
|
||
{
|
||
switch (fragP->fr_subtype)
|
||
{
|
||
case RELAX_DESIRE_ALIGN:
|
||
|
||
/* The rule is: get the next fragment's FIRST instruction.
|
||
Find the smallest number of bytes needed to be added
|
||
in order to ensure that the next fragment is FIRST
|
||
instruction will fit in a single word.
|
||
i.e. 2 bytes : 0, 1, 2. mod 4
|
||
3 bytes: 0, 1 mod 4
|
||
If the FIRST instruction MIGHT be relaxed,
|
||
assume that it will become a 3-byte instruction. */
|
||
|
||
insn_size = 3;
|
||
/* Check to see if it might be 2 bytes. */
|
||
next_opcode = next_frag_opcode (fragP);
|
||
if (next_opcode != XTENSA_UNDEFINED
|
||
&& xtensa_insn_length (xtensa_default_isa, next_opcode) == 2)
|
||
insn_size = 2;
|
||
|
||
assert (insn_size <= 4);
|
||
for (new_address = address; new_address < address + 4; new_address++)
|
||
{
|
||
if (new_address >> 2 == (new_address + insn_size - 1) >> 2)
|
||
return new_address;
|
||
}
|
||
as_bad (_("internal error aligning"));
|
||
return address;
|
||
|
||
case RELAX_ALIGN_NEXT_OPCODE:
|
||
/* The rule is: get next fragment's FIRST instruction.
|
||
Find the smallest number of bytes needed to be added
|
||
in order to ensure that the next fragment's FIRST
|
||
instruction will fit in a single word.
|
||
i.e. 2 bytes : 0, 1, 2. mod 4
|
||
3 bytes: 0, 1 mod 4
|
||
If the FIRST instruction MIGHT be relaxed,
|
||
assume that it will become a 3 byte instruction. */
|
||
|
||
opcode = next_frag_opcode (fragP);
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
{
|
||
as_bad_where (fragP->fr_file, fragP->fr_line,
|
||
_("invalid opcode for RELAX_ALIGN_NEXT_OPCODE"));
|
||
as_fatal (_("cannot continue"));
|
||
}
|
||
insn_size = xtensa_insn_length (xtensa_default_isa, opcode);
|
||
assert (insn_size <= 4);
|
||
assert (is_loop_opcode (opcode));
|
||
|
||
loop_insn_offset = 0;
|
||
next_frag = next_non_empty_frag (fragP);
|
||
|
||
/* If the loop has been expanded then the loop
|
||
instruction could be at an offset from this fragment. */
|
||
if (next_frag->fr_subtype != RELAX_IMMED)
|
||
loop_insn_offset = get_expanded_loop_offset (opcode);
|
||
|
||
for (new_address = address; new_address < address + 4; new_address++)
|
||
{
|
||
if ((new_address + loop_insn_offset + insn_size) >> 2 ==
|
||
(new_address + loop_insn_offset + insn_size + 2) >> 2)
|
||
return new_address;
|
||
}
|
||
as_bad (_("internal error aligning"));
|
||
return address;
|
||
|
||
default:
|
||
as_bad (_("internal error aligning"));
|
||
return address;
|
||
}
|
||
}
|
||
as_bad (_("internal error aligning"));
|
||
return address;
|
||
}
|
||
|
||
|
||
/* md_relax_frag Hook and Helper Functions. */
|
||
|
||
/* Return the number of bytes added to this fragment, given that the
|
||
input has been stretched already by "stretch". */
|
||
|
||
long
|
||
xtensa_relax_frag (fragP, stretch, stretched_p)
|
||
fragS *fragP;
|
||
long stretch;
|
||
int *stretched_p;
|
||
{
|
||
int unreported = fragP->tc_frag_data.unreported_expansion;
|
||
long new_stretch = 0;
|
||
char *file_name;
|
||
int line, lit_size;
|
||
|
||
as_where (&file_name, &line);
|
||
new_logical_line (fragP->fr_file, fragP->fr_line);
|
||
|
||
fragP->tc_frag_data.unreported_expansion = 0;
|
||
|
||
switch (fragP->fr_subtype)
|
||
{
|
||
case RELAX_ALIGN_NEXT_OPCODE:
|
||
/* Always convert. */
|
||
new_stretch = relax_frag_text_align (fragP, stretch);
|
||
break;
|
||
|
||
case RELAX_LOOP_END:
|
||
/* Do nothing. */
|
||
break;
|
||
|
||
case RELAX_LOOP_END_ADD_NOP:
|
||
/* Add a NOP and switch to .fill 0. */
|
||
new_stretch = relax_frag_add_nop (fragP);
|
||
break;
|
||
|
||
case RELAX_DESIRE_ALIGN:
|
||
/* We REALLY want to change the relaxation order here. This
|
||
should do NOTHING. The narrowing before it will either align
|
||
it or not. */
|
||
break;
|
||
|
||
case RELAX_LITERAL:
|
||
case RELAX_LITERAL_FINAL:
|
||
return 0;
|
||
|
||
case RELAX_LITERAL_NR:
|
||
lit_size = 4;
|
||
fragP->fr_subtype = RELAX_LITERAL_FINAL;
|
||
assert (unreported == lit_size);
|
||
memset (&fragP->fr_literal[fragP->fr_fix], 0, 4);
|
||
fragP->fr_var -= lit_size;
|
||
fragP->fr_fix += lit_size;
|
||
new_stretch = 4;
|
||
break;
|
||
|
||
case RELAX_NARROW:
|
||
new_stretch = relax_frag_narrow (fragP, stretch);
|
||
break;
|
||
|
||
case RELAX_IMMED:
|
||
case RELAX_IMMED_STEP1:
|
||
case RELAX_IMMED_STEP2:
|
||
/* Place the immediate. */
|
||
new_stretch = relax_frag_immed (now_seg, fragP, stretch,
|
||
fragP->fr_subtype - RELAX_IMMED,
|
||
stretched_p);
|
||
break;
|
||
|
||
case RELAX_LITERAL_POOL_BEGIN:
|
||
case RELAX_LITERAL_POOL_END:
|
||
/* No relaxation required. */
|
||
break;
|
||
|
||
default:
|
||
as_bad (_("bad relaxation state"));
|
||
}
|
||
|
||
new_logical_line (file_name, line);
|
||
return new_stretch;
|
||
}
|
||
|
||
|
||
static long
|
||
relax_frag_text_align (fragP, stretch)
|
||
fragS *fragP;
|
||
long stretch;
|
||
{
|
||
addressT old_address, old_next_address, old_size;
|
||
addressT new_address, new_next_address, new_size;
|
||
addressT growth;
|
||
|
||
/* Overview of the relaxation procedure for alignment
|
||
inside an executable section:
|
||
|
||
The old size is stored in the tc_frag_data.text_expansion field.
|
||
|
||
Calculate the new address, fix up the text_expansion and
|
||
return the growth. */
|
||
|
||
/* Calculate the old address of this fragment and the next fragment. */
|
||
old_address = fragP->fr_address - stretch;
|
||
old_next_address = (fragP->fr_address - stretch + fragP->fr_fix +
|
||
fragP->tc_frag_data.text_expansion);
|
||
old_size = old_next_address - old_address;
|
||
|
||
/* Calculate the new address of this fragment and the next fragment. */
|
||
new_address = fragP->fr_address;
|
||
new_next_address =
|
||
get_noop_aligned_address (fragP, fragP->fr_address + fragP->fr_fix);
|
||
new_size = new_next_address - new_address;
|
||
|
||
growth = new_size - old_size;
|
||
|
||
/* Fix up the text_expansion field and return the new growth. */
|
||
fragP->tc_frag_data.text_expansion += growth;
|
||
return growth;
|
||
}
|
||
|
||
|
||
/* Add a NOP (i.e., "or a1, a1, a1"). Use the 3-byte one because we
|
||
don't know about the availability of density yet. TODO: When the
|
||
flags are stored per fragment, use NOP.N when possible. */
|
||
|
||
static long
|
||
relax_frag_add_nop (fragP)
|
||
fragS *fragP;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
TInsn t_insn;
|
||
char *nop_buf = fragP->fr_literal + fragP->fr_fix;
|
||
int length;
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
tinsn_init (&t_insn);
|
||
t_insn.opcode = xtensa_or_opcode;
|
||
assert (t_insn.opcode != XTENSA_UNDEFINED);
|
||
|
||
t_insn.ntok = 3;
|
||
set_expr_const (&t_insn.tok[0], 1);
|
||
set_expr_const (&t_insn.tok[1], 1);
|
||
set_expr_const (&t_insn.tok[2], 1);
|
||
|
||
tinsn_to_insnbuf (&t_insn, insnbuf);
|
||
fragP->tc_frag_data.is_insn = TRUE;
|
||
xtensa_insnbuf_to_chars (xtensa_default_isa, insnbuf, nop_buf);
|
||
|
||
length = xtensa_insn_length (xtensa_default_isa, t_insn.opcode);
|
||
if (fragP->fr_var < length)
|
||
{
|
||
as_warn (_("fr_var (%ld) < length (%d); ignoring"),
|
||
fragP->fr_var, length);
|
||
frag_wane (fragP);
|
||
return 0;
|
||
}
|
||
|
||
fragP->fr_fix += length;
|
||
fragP->fr_var -= length;
|
||
frag_wane (fragP);
|
||
return length;
|
||
}
|
||
|
||
|
||
static long
|
||
relax_frag_narrow (fragP, stretch)
|
||
fragS *fragP;
|
||
long stretch;
|
||
{
|
||
/* Overview of the relaxation procedure for alignment inside an
|
||
executable section: Find the number of widenings required and the
|
||
number of nop bytes required. Store the number of bytes ALREADY
|
||
widened. If there are enough instructions to widen (must go back
|
||
ONLY through NARROW fragments), mark each of the fragments as TO BE
|
||
widened, recalculate the fragment addresses. */
|
||
|
||
assert (fragP->fr_type == rs_machine_dependent
|
||
&& fragP->fr_subtype == RELAX_NARROW);
|
||
|
||
if (!future_alignment_required (fragP, 0))
|
||
{
|
||
/* If already expanded but no longer needed because of a prior
|
||
stretch, it is SAFE to unexpand because the next fragment will
|
||
NEVER start at an address > the previous time through the
|
||
relaxation. */
|
||
if (fragP->tc_frag_data.text_expansion)
|
||
{
|
||
if (stretch > 0)
|
||
{
|
||
fragP->tc_frag_data.text_expansion = 0;
|
||
return -1;
|
||
}
|
||
/* Otherwise we have to live with this bad choice. */
|
||
return 0;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
if (fragP->tc_frag_data.text_expansion == 0)
|
||
{
|
||
fragP->tc_frag_data.text_expansion = 1;
|
||
return 1;
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
future_alignment_required (fragP, stretch)
|
||
fragS *fragP;
|
||
long stretch;
|
||
{
|
||
long address = fragP->fr_address + stretch;
|
||
int num_widens = 0;
|
||
addressT aligned_address;
|
||
offsetT desired_diff;
|
||
|
||
while (fragP)
|
||
{
|
||
/* Limit this to a small search. */
|
||
if (num_widens > 8)
|
||
return FALSE;
|
||
address += fragP->fr_fix;
|
||
|
||
switch (fragP->fr_type)
|
||
{
|
||
case rs_fill:
|
||
address += fragP->fr_offset * fragP->fr_var;
|
||
break;
|
||
|
||
case rs_machine_dependent:
|
||
switch (fragP->fr_subtype)
|
||
{
|
||
case RELAX_NARROW:
|
||
/* address += fragP->fr_fix; */
|
||
num_widens++;
|
||
break;
|
||
|
||
case RELAX_IMMED:
|
||
address += (/* fragP->fr_fix + */
|
||
fragP->tc_frag_data.text_expansion);
|
||
break;
|
||
|
||
case RELAX_ALIGN_NEXT_OPCODE:
|
||
case RELAX_DESIRE_ALIGN:
|
||
/* address += fragP->fr_fix; */
|
||
aligned_address = get_widen_aligned_address (fragP, address);
|
||
desired_diff = aligned_address - address;
|
||
assert (desired_diff >= 0);
|
||
/* If there are enough wideners in between do it. */
|
||
/* return (num_widens == desired_diff); */
|
||
if (num_widens == desired_diff)
|
||
return TRUE;
|
||
if (fragP->fr_subtype == RELAX_ALIGN_NEXT_OPCODE)
|
||
return FALSE;
|
||
break;
|
||
|
||
default:
|
||
return FALSE;
|
||
}
|
||
break;
|
||
|
||
default:
|
||
return FALSE;
|
||
}
|
||
fragP = fragP->fr_next;
|
||
}
|
||
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
static long
|
||
relax_frag_immed (segP, fragP, stretch, min_steps, stretched_p)
|
||
segT segP;
|
||
fragS *fragP;
|
||
long stretch;
|
||
int min_steps;
|
||
int *stretched_p;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
TInsn t_insn;
|
||
int old_size;
|
||
bfd_boolean negatable_branch = FALSE;
|
||
bfd_boolean branch_jmp_to_next = FALSE;
|
||
IStack istack;
|
||
offsetT frag_offset;
|
||
int num_steps;
|
||
fragS *lit_fragP;
|
||
int num_text_bytes, num_literal_bytes;
|
||
int literal_diff, text_diff;
|
||
|
||
assert (fragP->fr_opcode != NULL);
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
tinsn_from_chars (&t_insn, fragP->fr_opcode);
|
||
tinsn_immed_from_frag (&t_insn, fragP);
|
||
|
||
negatable_branch = is_negatable_branch (&t_insn);
|
||
|
||
old_size = xtensa_insn_length (xtensa_default_isa, t_insn.opcode);
|
||
|
||
if (software_avoid_b_j_loop_end)
|
||
branch_jmp_to_next = is_branch_jmp_to_next (&t_insn, fragP);
|
||
|
||
/* Special case: replace a branch to the next instruction with a NOP.
|
||
This is required to work around a hardware bug in T1040.0 and also
|
||
serves as an optimization. */
|
||
|
||
if (branch_jmp_to_next
|
||
&& ((old_size == 2) || (old_size == 3))
|
||
&& !next_frag_is_loop_target (fragP))
|
||
return 0;
|
||
|
||
/* Here is the fun stuff: Get the immediate field from this
|
||
instruction. If it fits, we are done. If not, find the next
|
||
instruction sequence that fits. */
|
||
|
||
frag_offset = fragP->fr_opcode - fragP->fr_literal;
|
||
istack_init (&istack);
|
||
num_steps = xg_assembly_relax (&istack, &t_insn, segP, fragP, frag_offset,
|
||
min_steps, stretch);
|
||
if (num_steps < min_steps)
|
||
{
|
||
as_fatal (_("internal error: relaxation failed"));
|
||
return 0;
|
||
}
|
||
|
||
if (num_steps > RELAX_IMMED_MAXSTEPS)
|
||
{
|
||
as_fatal (_("internal error: relaxation requires too many steps"));
|
||
return 0;
|
||
}
|
||
|
||
fragP->fr_subtype = (int) RELAX_IMMED + num_steps;
|
||
|
||
/* Figure out the number of bytes needed. */
|
||
lit_fragP = 0;
|
||
num_text_bytes = get_num_stack_text_bytes (&istack) - old_size;
|
||
num_literal_bytes = get_num_stack_literal_bytes (&istack);
|
||
literal_diff = num_literal_bytes - fragP->tc_frag_data.literal_expansion;
|
||
text_diff = num_text_bytes - fragP->tc_frag_data.text_expansion;
|
||
|
||
/* It MUST get larger. If not, we could get an infinite loop. */
|
||
know (num_text_bytes >= 0);
|
||
know (literal_diff >= 0 && text_diff >= 0);
|
||
|
||
fragP->tc_frag_data.text_expansion = num_text_bytes;
|
||
fragP->tc_frag_data.literal_expansion = num_literal_bytes;
|
||
|
||
/* Find the associated expandable literal for this. */
|
||
if (literal_diff != 0)
|
||
{
|
||
lit_fragP = fragP->tc_frag_data.literal_frag;
|
||
if (lit_fragP)
|
||
{
|
||
assert (literal_diff == 4);
|
||
lit_fragP->tc_frag_data.unreported_expansion += literal_diff;
|
||
|
||
/* We expect that the literal section state has NOT been
|
||
modified yet. */
|
||
assert (lit_fragP->fr_type == rs_machine_dependent
|
||
&& lit_fragP->fr_subtype == RELAX_LITERAL);
|
||
lit_fragP->fr_subtype = RELAX_LITERAL_NR;
|
||
|
||
/* We need to mark this section for another iteration
|
||
of relaxation. */
|
||
(*stretched_p)++;
|
||
}
|
||
}
|
||
|
||
/* This implicitly uses the assumption that a branch is negated
|
||
when the size of the output increases by at least 2 bytes. */
|
||
|
||
if (negatable_branch && num_text_bytes >= 2)
|
||
{
|
||
/* If next frag is a loop end, then switch it to add a NOP. */
|
||
update_next_frag_nop_state (fragP);
|
||
}
|
||
|
||
return text_diff;
|
||
}
|
||
|
||
|
||
/* md_convert_frag Hook and Helper Functions. */
|
||
|
||
void
|
||
md_convert_frag (abfd, sec, fragp)
|
||
bfd *abfd ATTRIBUTE_UNUSED;
|
||
segT sec;
|
||
fragS *fragp;
|
||
{
|
||
char *file_name;
|
||
int line;
|
||
|
||
as_where (&file_name, &line);
|
||
new_logical_line (fragp->fr_file, fragp->fr_line);
|
||
|
||
switch (fragp->fr_subtype)
|
||
{
|
||
case RELAX_ALIGN_NEXT_OPCODE:
|
||
/* Always convert. */
|
||
convert_frag_align_next_opcode (fragp);
|
||
break;
|
||
|
||
case RELAX_DESIRE_ALIGN:
|
||
/* Do nothing. If not aligned already, too bad. */
|
||
break;
|
||
|
||
case RELAX_LITERAL:
|
||
case RELAX_LITERAL_FINAL:
|
||
break;
|
||
|
||
case RELAX_NARROW:
|
||
/* No conversion. */
|
||
convert_frag_narrow (fragp);
|
||
break;
|
||
|
||
case RELAX_IMMED:
|
||
case RELAX_IMMED_STEP1:
|
||
case RELAX_IMMED_STEP2:
|
||
/* Place the immediate. */
|
||
convert_frag_immed (sec, fragp, fragp->fr_subtype - RELAX_IMMED);
|
||
break;
|
||
|
||
case RELAX_LITERAL_NR:
|
||
if (use_literal_section)
|
||
{
|
||
/* This should have been handled during relaxation. When
|
||
relaxing a code segment, literals sometimes need to be
|
||
added to the corresponding literal segment. If that
|
||
literal segment has already been relaxed, then we end up
|
||
in this situation. Marking the literal segments as data
|
||
would make this happen less often (since GAS always relaxes
|
||
code before data), but we could still get into trouble if
|
||
there are instructions in a segment that is not marked as
|
||
containing code. Until we can implement a better solution,
|
||
cheat and adjust the addresses of all the following frags.
|
||
This could break subsequent alignments, but the linker's
|
||
literal coalescing will do that anyway. */
|
||
|
||
fragS *f;
|
||
fragp->fr_subtype = RELAX_LITERAL_FINAL;
|
||
assert (fragp->tc_frag_data.unreported_expansion == 4);
|
||
memset (&fragp->fr_literal[fragp->fr_fix], 0, 4);
|
||
fragp->fr_var -= 4;
|
||
fragp->fr_fix += 4;
|
||
for (f = fragp->fr_next; f; f = f->fr_next)
|
||
f->fr_address += 4;
|
||
}
|
||
else
|
||
as_bad (_("invalid relaxation fragment result"));
|
||
break;
|
||
}
|
||
|
||
fragp->fr_var = 0;
|
||
new_logical_line (file_name, line);
|
||
}
|
||
|
||
|
||
void
|
||
convert_frag_align_next_opcode (fragp)
|
||
fragS *fragp;
|
||
{
|
||
char *nop_buf; /* Location for Writing. */
|
||
size_t i;
|
||
|
||
bfd_boolean use_no_density = fragp->tc_frag_data.is_no_density;
|
||
addressT aligned_address;
|
||
size_t fill_size, nop_count;
|
||
|
||
aligned_address = get_noop_aligned_address (fragp, fragp->fr_address +
|
||
fragp->fr_fix);
|
||
fill_size = aligned_address - (fragp->fr_address + fragp->fr_fix);
|
||
nop_count = get_text_align_nop_count (fill_size, use_no_density);
|
||
nop_buf = fragp->fr_literal + fragp->fr_fix;
|
||
|
||
for (i = 0; i < nop_count; i++)
|
||
{
|
||
size_t nop_size;
|
||
nop_size = get_text_align_nth_nop_size (fill_size, i, use_no_density);
|
||
|
||
assemble_nop (nop_size, nop_buf);
|
||
nop_buf += nop_size;
|
||
}
|
||
|
||
fragp->fr_fix += fill_size;
|
||
fragp->fr_var -= fill_size;
|
||
}
|
||
|
||
|
||
static void
|
||
convert_frag_narrow (fragP)
|
||
fragS *fragP;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
TInsn t_insn, single_target;
|
||
int size, old_size, diff, error_val;
|
||
offsetT frag_offset;
|
||
|
||
if (fragP->tc_frag_data.text_expansion == 0)
|
||
{
|
||
/* No conversion. */
|
||
fragP->fr_var = 0;
|
||
return;
|
||
}
|
||
|
||
assert (fragP->fr_opcode != NULL);
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
tinsn_from_chars (&t_insn, fragP->fr_opcode);
|
||
tinsn_immed_from_frag (&t_insn, fragP);
|
||
|
||
/* Just convert it to a wide form.... */
|
||
size = 0;
|
||
old_size = xtensa_insn_length (xtensa_default_isa, t_insn.opcode);
|
||
|
||
tinsn_init (&single_target);
|
||
frag_offset = fragP->fr_opcode - fragP->fr_literal;
|
||
|
||
error_val = xg_expand_narrow (&single_target, &t_insn);
|
||
if (error_val)
|
||
as_bad (_("unable to widen instruction"));
|
||
|
||
size = xtensa_insn_length (xtensa_default_isa, single_target.opcode);
|
||
xg_emit_insn_to_buf (&single_target, fragP->fr_opcode,
|
||
fragP, frag_offset, TRUE);
|
||
|
||
diff = size - old_size;
|
||
assert (diff >= 0);
|
||
assert (diff <= fragP->fr_var);
|
||
fragP->fr_var -= diff;
|
||
fragP->fr_fix += diff;
|
||
|
||
/* clean it up */
|
||
fragP->fr_var = 0;
|
||
}
|
||
|
||
|
||
static void
|
||
convert_frag_immed (segP, fragP, min_steps)
|
||
segT segP;
|
||
fragS *fragP;
|
||
int min_steps;
|
||
{
|
||
char *immed_instr = fragP->fr_opcode;
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
TInsn orig_t_insn;
|
||
bfd_boolean expanded = FALSE;
|
||
char *fr_opcode = fragP->fr_opcode;
|
||
bfd_boolean branch_jmp_to_next = FALSE;
|
||
int size;
|
||
|
||
assert (fragP->fr_opcode != NULL);
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (xtensa_default_isa);
|
||
|
||
tinsn_from_chars (&orig_t_insn, fragP->fr_opcode);
|
||
tinsn_immed_from_frag (&orig_t_insn, fragP);
|
||
|
||
/* Here is the fun stuff: Get the immediate field from this
|
||
instruction. If it fits, we're done. If not, find the next
|
||
instruction sequence that fits. */
|
||
|
||
if (software_avoid_b_j_loop_end)
|
||
branch_jmp_to_next = is_branch_jmp_to_next (&orig_t_insn, fragP);
|
||
|
||
if (branch_jmp_to_next && !next_frag_is_loop_target (fragP))
|
||
{
|
||
/* Conversion just inserts a NOP and marks the fix as completed. */
|
||
size = xtensa_insn_length (xtensa_default_isa, orig_t_insn.opcode);
|
||
assemble_nop (size, fragP->fr_opcode);
|
||
fragP->fr_var = 0;
|
||
}
|
||
else
|
||
{
|
||
IStack istack;
|
||
int i;
|
||
symbolS *lit_sym = NULL;
|
||
int total_size = 0;
|
||
int old_size;
|
||
int diff;
|
||
symbolS *gen_label = NULL;
|
||
offsetT frag_offset;
|
||
|
||
/* It does not fit. Find something that does and
|
||
convert immediately. */
|
||
frag_offset = fragP->fr_opcode - fragP->fr_literal;
|
||
istack_init (&istack);
|
||
xg_assembly_relax (&istack, &orig_t_insn,
|
||
segP, fragP, frag_offset, min_steps, 0);
|
||
|
||
old_size = xtensa_insn_length (xtensa_default_isa, orig_t_insn.opcode);
|
||
|
||
/* Assemble this right inline. */
|
||
|
||
/* First, create the mapping from a label name to the REAL label. */
|
||
total_size = 0;
|
||
for (i = 0; i < istack.ninsn; i++)
|
||
{
|
||
TInsn *t_insn = &istack.insn[i];
|
||
int size = 0;
|
||
fragS *lit_frag;
|
||
|
||
switch (t_insn->insn_type)
|
||
{
|
||
case ITYPE_LITERAL:
|
||
if (lit_sym != NULL)
|
||
as_bad (_("multiple literals in expansion"));
|
||
/* First find the appropriate space in the literal pool. */
|
||
lit_frag = fragP->tc_frag_data.literal_frag;
|
||
if (lit_frag == NULL)
|
||
as_bad (_("no registered fragment for literal"));
|
||
if (t_insn->ntok != 1)
|
||
as_bad (_("number of literal tokens != 1"));
|
||
|
||
/* Set the literal symbol and add a fixup. */
|
||
lit_sym = lit_frag->fr_symbol;
|
||
break;
|
||
|
||
case ITYPE_LABEL:
|
||
assert (gen_label == NULL);
|
||
gen_label = symbol_new (FAKE_LABEL_NAME, now_seg,
|
||
fragP->fr_opcode - fragP->fr_literal +
|
||
total_size, fragP);
|
||
break;
|
||
|
||
case ITYPE_INSN:
|
||
size = xtensa_insn_length (xtensa_default_isa, t_insn->opcode);
|
||
total_size += size;
|
||
break;
|
||
}
|
||
}
|
||
|
||
total_size = 0;
|
||
for (i = 0; i < istack.ninsn; i++)
|
||
{
|
||
TInsn *t_insn = &istack.insn[i];
|
||
fragS *lit_frag;
|
||
int size;
|
||
segT target_seg;
|
||
|
||
switch (t_insn->insn_type)
|
||
{
|
||
case ITYPE_LITERAL:
|
||
lit_frag = fragP->tc_frag_data.literal_frag;
|
||
/* already checked */
|
||
assert (lit_frag != NULL);
|
||
assert (lit_sym != NULL);
|
||
assert (t_insn->ntok == 1);
|
||
/* add a fixup */
|
||
target_seg = S_GET_SEGMENT (lit_sym);
|
||
assert (target_seg);
|
||
fix_new_exp_in_seg (target_seg, 0, lit_frag, 0, 4,
|
||
&t_insn->tok[0], FALSE, BFD_RELOC_32);
|
||
break;
|
||
|
||
case ITYPE_LABEL:
|
||
break;
|
||
|
||
case ITYPE_INSN:
|
||
xg_resolve_labels (t_insn, gen_label);
|
||
xg_resolve_literals (t_insn, lit_sym);
|
||
size = xtensa_insn_length (xtensa_default_isa, t_insn->opcode);
|
||
total_size += size;
|
||
xg_emit_insn_to_buf (t_insn, immed_instr, fragP,
|
||
immed_instr - fragP->fr_literal, TRUE);
|
||
immed_instr += size;
|
||
break;
|
||
}
|
||
}
|
||
|
||
diff = total_size - old_size;
|
||
assert (diff >= 0);
|
||
if (diff != 0)
|
||
expanded = TRUE;
|
||
assert (diff <= fragP->fr_var);
|
||
fragP->fr_var -= diff;
|
||
fragP->fr_fix += diff;
|
||
}
|
||
|
||
/* Clean it up. */
|
||
fragP->fr_var = 0;
|
||
|
||
/* Check for undefined immediates in LOOP instructions. */
|
||
if (is_loop_opcode (orig_t_insn.opcode))
|
||
{
|
||
symbolS *sym;
|
||
sym = orig_t_insn.tok[1].X_add_symbol;
|
||
if (sym != NULL && !S_IS_DEFINED (sym))
|
||
{
|
||
as_bad (_("unresolved loop target symbol: %s"), S_GET_NAME (sym));
|
||
return;
|
||
}
|
||
sym = orig_t_insn.tok[1].X_op_symbol;
|
||
if (sym != NULL && !S_IS_DEFINED (sym))
|
||
{
|
||
as_bad (_("unresolved loop target symbol: %s"), S_GET_NAME (sym));
|
||
return;
|
||
}
|
||
}
|
||
|
||
if (expanded && is_loop_opcode (orig_t_insn.opcode))
|
||
convert_frag_immed_finish_loop (segP, fragP, &orig_t_insn);
|
||
|
||
if (expanded && is_direct_call_opcode (orig_t_insn.opcode))
|
||
{
|
||
/* Add an expansion note on the expanded instruction. */
|
||
fix_new_exp_in_seg (now_seg, 0, fragP, fr_opcode - fragP->fr_literal, 4,
|
||
&orig_t_insn.tok[0], TRUE,
|
||
BFD_RELOC_XTENSA_ASM_EXPAND);
|
||
|
||
}
|
||
}
|
||
|
||
|
||
/* Add a new fix expression into the desired segment. We have to
|
||
switch to that segment to do this. */
|
||
|
||
static fixS *
|
||
fix_new_exp_in_seg (new_seg, new_subseg,
|
||
frag, where, size, exp, pcrel, r_type)
|
||
segT new_seg;
|
||
subsegT new_subseg;
|
||
fragS *frag;
|
||
int where;
|
||
int size;
|
||
expressionS *exp;
|
||
int pcrel;
|
||
bfd_reloc_code_real_type r_type;
|
||
{
|
||
fixS *new_fix;
|
||
segT seg = now_seg;
|
||
subsegT subseg = now_subseg;
|
||
assert (new_seg != 0);
|
||
subseg_set (new_seg, new_subseg);
|
||
|
||
if (r_type == BFD_RELOC_32
|
||
&& exp->X_add_symbol
|
||
&& symbol_get_tc (exp->X_add_symbol)->plt == 1)
|
||
{
|
||
r_type = BFD_RELOC_XTENSA_PLT;
|
||
}
|
||
|
||
new_fix = fix_new_exp (frag, where, size, exp, pcrel, r_type);
|
||
subseg_set (seg, subseg);
|
||
return new_fix;
|
||
}
|
||
|
||
|
||
/* Relax a loop instruction so that it can span loop >256 bytes. */
|
||
/*
|
||
loop as, .L1
|
||
.L0:
|
||
rsr as, LEND
|
||
wsr as, LBEG
|
||
addi as, as, lo8(label-.L1)
|
||
addmi as, as, mid8(label-.L1)
|
||
wsr as, LEND
|
||
isync
|
||
rsr as, LCOUNT
|
||
addi as, as, 1
|
||
.L1:
|
||
<<body>>
|
||
label: */
|
||
|
||
static void
|
||
convert_frag_immed_finish_loop (segP, fragP, t_insn)
|
||
segT segP;
|
||
fragS *fragP;
|
||
TInsn *t_insn;
|
||
{
|
||
TInsn loop_insn;
|
||
TInsn addi_insn;
|
||
TInsn addmi_insn;
|
||
unsigned long target;
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
unsigned int loop_length, loop_length_hi, loop_length_lo;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
addressT loop_offset;
|
||
addressT addi_offset = 9;
|
||
addressT addmi_offset = 12;
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (isa);
|
||
|
||
/* Get the loop offset. */
|
||
loop_offset = get_expanded_loop_offset (t_insn->opcode);
|
||
/* Validate that there really is a LOOP at the loop_offset. */
|
||
tinsn_from_chars (&loop_insn, fragP->fr_opcode + loop_offset);
|
||
|
||
if (!is_loop_opcode (loop_insn.opcode))
|
||
{
|
||
as_bad_where (fragP->fr_file, fragP->fr_line,
|
||
_("loop relaxation specification does not correspond"));
|
||
assert (0);
|
||
}
|
||
addi_offset += loop_offset;
|
||
addmi_offset += loop_offset;
|
||
|
||
assert (t_insn->ntok == 2);
|
||
target = get_expression_value (segP, &t_insn->tok[1]);
|
||
|
||
know (symbolP);
|
||
know (symbolP->sy_frag);
|
||
know (!(S_GET_SEGMENT (symbolP) == absolute_section)
|
||
|| symbol_get_frag (symbolP) == &zero_address_frag);
|
||
|
||
loop_length = target - (fragP->fr_address + fragP->fr_fix);
|
||
loop_length_hi = loop_length & ~0x0ff;
|
||
loop_length_lo = loop_length & 0x0ff;
|
||
if (loop_length_lo >= 128)
|
||
{
|
||
loop_length_lo -= 256;
|
||
loop_length_hi += 256;
|
||
}
|
||
|
||
/* Because addmi sign-extends the immediate, 'loop_length_hi' can be at most
|
||
32512. If the loop is larger than that, then we just fail. */
|
||
if (loop_length_hi > 32512)
|
||
as_bad_where (fragP->fr_file, fragP->fr_line,
|
||
_("loop too long for LOOP instruction"));
|
||
|
||
tinsn_from_chars (&addi_insn, fragP->fr_opcode + addi_offset);
|
||
assert (addi_insn.opcode == xtensa_addi_opcode);
|
||
|
||
tinsn_from_chars (&addmi_insn, fragP->fr_opcode + addmi_offset);
|
||
assert (addmi_insn.opcode == xtensa_addmi_opcode);
|
||
|
||
set_expr_const (&addi_insn.tok[2], loop_length_lo);
|
||
tinsn_to_insnbuf (&addi_insn, insnbuf);
|
||
|
||
fragP->tc_frag_data.is_insn = TRUE;
|
||
xtensa_insnbuf_to_chars (isa, insnbuf, fragP->fr_opcode + addi_offset);
|
||
|
||
set_expr_const (&addmi_insn.tok[2], loop_length_hi);
|
||
tinsn_to_insnbuf (&addmi_insn, insnbuf);
|
||
xtensa_insnbuf_to_chars (isa, insnbuf, fragP->fr_opcode + addmi_offset);
|
||
}
|
||
|
||
|
||
static offsetT
|
||
get_expression_value (segP, exp)
|
||
segT segP;
|
||
expressionS *exp;
|
||
{
|
||
if (exp->X_op == O_constant)
|
||
return exp->X_add_number;
|
||
if (exp->X_op == O_symbol)
|
||
{
|
||
/* Find the fragment. */
|
||
symbolS *sym = exp->X_add_symbol;
|
||
|
||
assert (S_GET_SEGMENT (sym) == segP
|
||
|| S_GET_SEGMENT (sym) == absolute_section);
|
||
|
||
return (S_GET_VALUE (sym) + exp->X_add_number);
|
||
}
|
||
as_bad (_("invalid expression evaluation type %d"), exp->X_op);
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* A map that keeps information on a per-subsegment basis. This is
|
||
maintained during initial assembly, but is invalid once the
|
||
subsegments are smashed together. I.E., it cannot be used during
|
||
the relaxation. */
|
||
|
||
typedef struct subseg_map_struct
|
||
{
|
||
/* the key */
|
||
segT seg;
|
||
subsegT subseg;
|
||
|
||
/* the data */
|
||
unsigned flags;
|
||
|
||
struct subseg_map_struct *next;
|
||
} subseg_map;
|
||
|
||
static subseg_map *sseg_map = NULL;
|
||
|
||
|
||
static unsigned
|
||
get_last_insn_flags (seg, subseg)
|
||
segT seg;
|
||
subsegT subseg;
|
||
{
|
||
subseg_map *subseg_e;
|
||
|
||
for (subseg_e = sseg_map; subseg_e != NULL; subseg_e = subseg_e->next)
|
||
if (seg == subseg_e->seg && subseg == subseg_e->subseg)
|
||
return subseg_e->flags;
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
static void
|
||
set_last_insn_flags (seg, subseg, fl, val)
|
||
segT seg;
|
||
subsegT subseg;
|
||
unsigned fl;
|
||
bfd_boolean val;
|
||
{
|
||
subseg_map *subseg_e;
|
||
|
||
for (subseg_e = sseg_map; subseg_e; subseg_e = subseg_e->next)
|
||
if (seg == subseg_e->seg && subseg == subseg_e->subseg)
|
||
break;
|
||
|
||
if (!subseg_e)
|
||
{
|
||
subseg_e = (subseg_map *) xmalloc (sizeof (subseg_map));
|
||
memset (subseg_e, 0, sizeof (subseg_map));
|
||
subseg_e->seg = seg;
|
||
subseg_e->subseg = subseg;
|
||
subseg_e->flags = 0;
|
||
subseg_e->next = sseg_map;
|
||
sseg_map = subseg_e;
|
||
}
|
||
|
||
if (val)
|
||
subseg_e->flags |= fl;
|
||
else
|
||
subseg_e->flags &= ~fl;
|
||
}
|
||
|
||
|
||
/* Segment Lists and emit_state Stuff. */
|
||
|
||
/* Remove the segment from the global sections list. */
|
||
|
||
static void
|
||
xtensa_remove_section (sec)
|
||
segT sec;
|
||
{
|
||
/* Handle brain-dead bfd_section_list_remove macro, which
|
||
expect the address of the prior section's "next" field, not
|
||
just the address of the section to remove. */
|
||
|
||
segT *ps_next_ptr = &stdoutput->sections;
|
||
while (*ps_next_ptr != sec && *ps_next_ptr != NULL)
|
||
ps_next_ptr = &(*ps_next_ptr)->next;
|
||
|
||
assert (*ps_next_ptr != NULL);
|
||
|
||
bfd_section_list_remove (stdoutput, ps_next_ptr);
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_insert_section (after_sec, sec)
|
||
segT after_sec;
|
||
segT sec;
|
||
{
|
||
segT *after_sec_next;
|
||
if (after_sec == NULL)
|
||
after_sec_next = &stdoutput->sections;
|
||
else
|
||
after_sec_next = &after_sec->next;
|
||
|
||
bfd_section_list_insert (stdoutput, after_sec_next, sec);
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_move_seg_list_to_beginning (head)
|
||
seg_list *head;
|
||
{
|
||
head = head->next;
|
||
while (head)
|
||
{
|
||
segT literal_section = head->seg;
|
||
|
||
/* Move the literal section to the front of the section list. */
|
||
assert (literal_section);
|
||
xtensa_remove_section (literal_section);
|
||
xtensa_insert_section (NULL, literal_section);
|
||
|
||
head = head->next;
|
||
}
|
||
}
|
||
|
||
|
||
void
|
||
xtensa_move_literals ()
|
||
{
|
||
seg_list *segment;
|
||
frchainS *frchain_from, *frchain_to;
|
||
fragS *search_frag, *next_frag, *last_frag, *literal_pool, *insert_after;
|
||
fragS **frag_splice;
|
||
emit_state state;
|
||
segT dest_seg;
|
||
fixS *fix, *next_fix, **fix_splice;
|
||
sym_list *lit;
|
||
|
||
/* As clunky as this is, we can't rely on frag_var
|
||
and frag_variant to get called in all situations. */
|
||
|
||
segment = literal_head->next;
|
||
while (segment)
|
||
{
|
||
frchain_from = seg_info (segment->seg)->frchainP;
|
||
search_frag = frchain_from->frch_root;
|
||
while (search_frag)
|
||
{
|
||
search_frag->tc_frag_data.is_literal = TRUE;
|
||
search_frag = search_frag->fr_next;
|
||
}
|
||
segment = segment->next;
|
||
}
|
||
|
||
if (use_literal_section)
|
||
return;
|
||
|
||
segment = literal_head->next;
|
||
while (segment)
|
||
{
|
||
frchain_from = seg_info (segment->seg)->frchainP;
|
||
search_frag = frchain_from->frch_root;
|
||
literal_pool = NULL;
|
||
frchain_to = NULL;
|
||
frag_splice = &(frchain_from->frch_root);
|
||
|
||
while (!search_frag->tc_frag_data.literal_frag)
|
||
{
|
||
assert (search_frag->fr_fix == 0
|
||
|| search_frag->fr_type == rs_align);
|
||
search_frag = search_frag->fr_next;
|
||
}
|
||
|
||
assert (search_frag->tc_frag_data.literal_frag->fr_subtype
|
||
== RELAX_LITERAL_POOL_BEGIN);
|
||
xtensa_switch_section_emit_state (&state, segment->seg, 0);
|
||
|
||
/* Make sure that all the frags in this series are closed, and
|
||
that there is at least one left over of zero-size. This
|
||
prevents us from making a segment with an frchain without any
|
||
frags in it. */
|
||
frag_variant (rs_fill, 0, 0, 0, NULL, 0, NULL);
|
||
last_frag = frag_now;
|
||
frag_variant (rs_fill, 0, 0, 0, NULL, 0, NULL);
|
||
|
||
while (search_frag != frag_now)
|
||
{
|
||
next_frag = search_frag->fr_next;
|
||
|
||
/* First, move the frag out of the literal section and
|
||
to the appropriate place. */
|
||
if (search_frag->tc_frag_data.literal_frag)
|
||
{
|
||
literal_pool = search_frag->tc_frag_data.literal_frag;
|
||
assert (literal_pool->fr_subtype == RELAX_LITERAL_POOL_BEGIN);
|
||
/* Note that we set this fr_var to be a fix
|
||
chain when we created the literal pool location
|
||
as RELAX_LITERAL_POOL_BEGIN. */
|
||
frchain_to = (frchainS *) literal_pool->fr_var;
|
||
}
|
||
insert_after = literal_pool;
|
||
|
||
while (insert_after->fr_next->fr_subtype != RELAX_LITERAL_POOL_END)
|
||
insert_after = insert_after->fr_next;
|
||
|
||
dest_seg = (segT) insert_after->fr_next->fr_var;
|
||
|
||
*frag_splice = next_frag;
|
||
search_frag->fr_next = insert_after->fr_next;
|
||
insert_after->fr_next = search_frag;
|
||
search_frag->tc_frag_data.lit_seg = dest_seg;
|
||
|
||
/* Now move any fixups associated with this frag to the
|
||
right section. */
|
||
fix = frchain_from->fix_root;
|
||
fix_splice = &(frchain_from->fix_root);
|
||
while (fix)
|
||
{
|
||
next_fix = fix->fx_next;
|
||
if (fix->fx_frag == search_frag)
|
||
{
|
||
*fix_splice = next_fix;
|
||
fix->fx_next = frchain_to->fix_root;
|
||
frchain_to->fix_root = fix;
|
||
if (frchain_to->fix_tail == NULL)
|
||
frchain_to->fix_tail = fix;
|
||
}
|
||
else
|
||
fix_splice = &(fix->fx_next);
|
||
fix = next_fix;
|
||
}
|
||
search_frag = next_frag;
|
||
}
|
||
|
||
if (frchain_from->fix_root != NULL)
|
||
{
|
||
frchain_from = seg_info (segment->seg)->frchainP;
|
||
as_warn (_("fixes not all moved from %s"), segment->seg->name);
|
||
|
||
assert (frchain_from->fix_root == NULL);
|
||
}
|
||
frchain_from->fix_tail = NULL;
|
||
xtensa_restore_emit_state (&state);
|
||
segment = segment->next;
|
||
}
|
||
|
||
/* Now fix up the SEGMENT value for all the literal symbols. */
|
||
for (lit = literal_syms; lit; lit = lit->next)
|
||
{
|
||
symbolS *lit_sym = lit->sym;
|
||
segT dest_seg = symbol_get_frag (lit_sym)->tc_frag_data.lit_seg;
|
||
S_SET_SEGMENT (lit_sym, dest_seg);
|
||
}
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_reorder_seg_list (head, after)
|
||
seg_list *head;
|
||
segT after;
|
||
{
|
||
/* Move all of the sections in the section list to come
|
||
after "after" in the gnu segment list. */
|
||
|
||
head = head->next;
|
||
while (head)
|
||
{
|
||
segT literal_section = head->seg;
|
||
|
||
/* Move the literal section after "after". */
|
||
assert (literal_section);
|
||
if (literal_section != after)
|
||
{
|
||
xtensa_remove_section (literal_section);
|
||
xtensa_insert_section (after, literal_section);
|
||
}
|
||
|
||
head = head->next;
|
||
}
|
||
}
|
||
|
||
|
||
/* Push all the literal segments to the end of the gnu list. */
|
||
|
||
void
|
||
xtensa_reorder_segments ()
|
||
{
|
||
segT sec;
|
||
segT last_sec;
|
||
int old_count = 0;
|
||
int new_count = 0;
|
||
|
||
for (sec = stdoutput->sections; sec != NULL; sec = sec->next)
|
||
old_count++;
|
||
|
||
/* Now that we have the last section, push all the literal
|
||
sections to the end. */
|
||
last_sec = get_last_sec ();
|
||
xtensa_reorder_seg_list (literal_head, last_sec);
|
||
xtensa_reorder_seg_list (init_literal_head, last_sec);
|
||
xtensa_reorder_seg_list (fini_literal_head, last_sec);
|
||
|
||
/* Now perform the final error check. */
|
||
for (sec = stdoutput->sections; sec != NULL; sec = sec->next)
|
||
new_count++;
|
||
assert (new_count == old_count);
|
||
}
|
||
|
||
|
||
segT
|
||
get_last_sec ()
|
||
{
|
||
segT last_sec = stdoutput->sections;
|
||
while (last_sec->next != NULL)
|
||
last_sec = last_sec->next;
|
||
|
||
return last_sec;
|
||
}
|
||
|
||
|
||
/* Change the emit state (seg, subseg, and frag related stuff) to the
|
||
correct location. Return a emit_state which can be passed to
|
||
xtensa_restore_emit_state to return to current fragment. */
|
||
|
||
void
|
||
xtensa_switch_to_literal_fragment (result)
|
||
emit_state *result;
|
||
{
|
||
/* When we mark a literal pool location, we want to put a frag in
|
||
the literal pool that points to it. But to do that, we want to
|
||
switch_to_literal_fragment. But literal sections don't have
|
||
literal pools, so their location is always null, so we would
|
||
recurse forever. This is kind of hacky, but it works. */
|
||
|
||
static bfd_boolean recursive = FALSE;
|
||
fragS *pool_location = get_literal_pool_location (now_seg);
|
||
bfd_boolean is_init =
|
||
(now_seg && !strcmp (segment_name (now_seg), INIT_SECTION_NAME));
|
||
|
||
bfd_boolean is_fini =
|
||
(now_seg && !strcmp (segment_name (now_seg), FINI_SECTION_NAME));
|
||
|
||
|
||
if (pool_location == NULL
|
||
&& !use_literal_section
|
||
&& !recursive
|
||
&& !is_init && ! is_fini)
|
||
{
|
||
as_warn (_("inlining literal pool; "
|
||
"specify location with .literal_position."));
|
||
recursive = TRUE;
|
||
xtensa_mark_literal_pool_location ();
|
||
recursive = FALSE;
|
||
}
|
||
|
||
/* Special case: If we are in the ".fini" or ".init" section, then
|
||
we will ALWAYS be generating to the ".fini.literal" and
|
||
".init.literal" sections. */
|
||
|
||
if (is_init)
|
||
{
|
||
cache_literal_section (init_literal_head,
|
||
default_lit_sections.init_lit_seg_name,
|
||
&default_lit_sections.init_lit_seg);
|
||
xtensa_switch_section_emit_state (result,
|
||
default_lit_sections.init_lit_seg, 0);
|
||
}
|
||
else if (is_fini)
|
||
{
|
||
cache_literal_section (fini_literal_head,
|
||
default_lit_sections.fini_lit_seg_name,
|
||
&default_lit_sections.fini_lit_seg);
|
||
xtensa_switch_section_emit_state (result,
|
||
default_lit_sections.fini_lit_seg, 0);
|
||
}
|
||
else
|
||
{
|
||
cache_literal_section (literal_head,
|
||
default_lit_sections.lit_seg_name,
|
||
&default_lit_sections.lit_seg);
|
||
xtensa_switch_section_emit_state (result,
|
||
default_lit_sections.lit_seg, 0);
|
||
}
|
||
|
||
if (!use_literal_section &&
|
||
!is_init && !is_fini &&
|
||
get_literal_pool_location (now_seg) != pool_location)
|
||
{
|
||
/* Close whatever frag is there. */
|
||
frag_variant (rs_fill, 0, 0, 0, NULL, 0, NULL);
|
||
frag_now->tc_frag_data.literal_frag = pool_location;
|
||
frag_variant (rs_fill, 0, 0, 0, NULL, 0, NULL);
|
||
}
|
||
|
||
/* Do a 4 byte align here. */
|
||
frag_align (2, 0, 0);
|
||
}
|
||
|
||
|
||
/* Call this function before emitting data into the literal section.
|
||
This is a helper function for xtensa_switch_to_literal_fragment.
|
||
This is similar to a .section new_now_seg subseg. */
|
||
|
||
void
|
||
xtensa_switch_section_emit_state (state, new_now_seg, new_now_subseg)
|
||
emit_state *state;
|
||
segT new_now_seg;
|
||
subsegT new_now_subseg;
|
||
{
|
||
state->name = now_seg->name;
|
||
state->now_seg = now_seg;
|
||
state->now_subseg = now_subseg;
|
||
state->generating_literals = generating_literals;
|
||
generating_literals++;
|
||
subseg_new (segment_name (new_now_seg), new_now_subseg);
|
||
}
|
||
|
||
|
||
/* Use to restore the emitting into the normal place. */
|
||
|
||
void
|
||
xtensa_restore_emit_state (state)
|
||
emit_state *state;
|
||
{
|
||
generating_literals = state->generating_literals;
|
||
subseg_new (state->name, state->now_subseg);
|
||
}
|
||
|
||
|
||
/* Get a segment of a given name. If the segment is already
|
||
present, return it; otherwise, create a new one. */
|
||
|
||
static void
|
||
cache_literal_section (head, name, seg)
|
||
seg_list *head;
|
||
const char *name;
|
||
segT *seg;
|
||
{
|
||
segT current_section = now_seg;
|
||
int current_subsec = now_subseg;
|
||
|
||
if (*seg != 0)
|
||
return;
|
||
*seg = retrieve_literal_seg (head, name);
|
||
subseg_set (current_section, current_subsec);
|
||
}
|
||
|
||
|
||
/* Get a segment of a given name. If the segment is already
|
||
present, return it; otherwise, create a new one. */
|
||
|
||
static segT
|
||
retrieve_literal_seg (head, name)
|
||
seg_list *head;
|
||
const char *name;
|
||
{
|
||
segT ret = 0;
|
||
|
||
assert (head);
|
||
|
||
ret = seg_present (name);
|
||
if (!ret)
|
||
{
|
||
ret = subseg_new (name, (subsegT) 0);
|
||
add_seg_list (head, ret);
|
||
bfd_set_section_flags (stdoutput, ret, SEC_HAS_CONTENTS |
|
||
SEC_READONLY | SEC_ALLOC | SEC_LOAD | SEC_CODE);
|
||
bfd_set_section_alignment (stdoutput, ret, 2);
|
||
}
|
||
|
||
return ret;
|
||
}
|
||
|
||
|
||
/* Return a segment of a given name if it is present. */
|
||
|
||
static segT
|
||
seg_present (name)
|
||
const char *name;
|
||
{
|
||
segT seg;
|
||
seg = stdoutput->sections;
|
||
|
||
while (seg)
|
||
{
|
||
if (!strcmp (segment_name (seg), name))
|
||
return seg;
|
||
seg = seg->next;
|
||
}
|
||
|
||
return 0;
|
||
}
|
||
|
||
|
||
/* Add a segment to a segment list. */
|
||
|
||
static void
|
||
add_seg_list (head, seg)
|
||
seg_list *head;
|
||
segT seg;
|
||
{
|
||
seg_list *n;
|
||
n = (seg_list *) xmalloc (sizeof (seg_list));
|
||
assert (n);
|
||
|
||
n->seg = seg;
|
||
n->next = head->next;
|
||
head->next = n;
|
||
}
|
||
|
||
|
||
/* Set up Property Tables after Relaxation. */
|
||
|
||
#define XTENSA_INSN_SEC_NAME ".xt.insn"
|
||
#define XTENSA_LIT_SEC_NAME ".xt.lit"
|
||
|
||
void
|
||
xtensa_post_relax_hook ()
|
||
{
|
||
xtensa_move_seg_list_to_beginning (literal_head);
|
||
xtensa_move_seg_list_to_beginning (init_literal_head);
|
||
xtensa_move_seg_list_to_beginning (fini_literal_head);
|
||
|
||
xtensa_create_property_segments (get_frag_is_insn,
|
||
XTENSA_INSN_SEC_NAME,
|
||
xt_literal_sec);
|
||
if (use_literal_section)
|
||
xtensa_create_property_segments (get_frag_is_literal,
|
||
XTENSA_LIT_SEC_NAME,
|
||
xt_insn_sec);
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
get_frag_is_literal (fragP)
|
||
const fragS *fragP;
|
||
{
|
||
assert (fragP != NULL);
|
||
return (fragP->tc_frag_data.is_literal);
|
||
}
|
||
|
||
|
||
static bfd_boolean
|
||
get_frag_is_insn (fragP)
|
||
const fragS *fragP;
|
||
{
|
||
assert (fragP != NULL);
|
||
return (fragP->tc_frag_data.is_insn);
|
||
}
|
||
|
||
|
||
static void
|
||
xtensa_create_property_segments (property_function, section_name_base,
|
||
sec_type)
|
||
frag_predicate property_function;
|
||
const char * section_name_base;
|
||
xt_section_type sec_type;
|
||
{
|
||
segT *seclist;
|
||
|
||
/* Walk over all of the current segments.
|
||
Walk over each fragment
|
||
For each fragment that has instructions
|
||
Build an instruction record (append where possible). */
|
||
|
||
for (seclist = &stdoutput->sections;
|
||
seclist && *seclist;
|
||
seclist = &(*seclist)->next)
|
||
{
|
||
segT sec = *seclist;
|
||
if (section_has_property (sec, property_function))
|
||
{
|
||
char *property_section_name =
|
||
xtensa_get_property_section_name (sec, section_name_base);
|
||
segT insn_sec = retrieve_xtensa_section (property_section_name);
|
||
segment_info_type *xt_seg_info = retrieve_segment_info (insn_sec);
|
||
xtensa_block_info **xt_blocks =
|
||
&xt_seg_info->tc_segment_info_data.blocks[sec_type];
|
||
/* Walk over all of the frchains here and add new sections. */
|
||
add_xt_block_frags (sec, insn_sec, xt_blocks, property_function);
|
||
}
|
||
}
|
||
|
||
/* Now we fill them out.... */
|
||
|
||
for (seclist = &stdoutput->sections;
|
||
seclist && *seclist;
|
||
seclist = &(*seclist)->next)
|
||
{
|
||
segment_info_type *seginfo;
|
||
xtensa_block_info *block;
|
||
segT sec = *seclist;
|
||
seginfo = seg_info (sec);
|
||
block = seginfo->tc_segment_info_data.blocks[sec_type];
|
||
|
||
if (block)
|
||
{
|
||
xtensa_block_info *cur_block;
|
||
/* This is a section with some data. */
|
||
size_t num_recs = 0;
|
||
size_t rec_size;
|
||
|
||
for (cur_block = block; cur_block; cur_block = cur_block->next)
|
||
num_recs++;
|
||
|
||
rec_size = num_recs * 8;
|
||
bfd_set_section_size (stdoutput, sec, rec_size);
|
||
|
||
/* In order to make this work with the assembler, we have to
|
||
build some frags and then build the "fixups" for it. It
|
||
would be easier to just set the contents then set the
|
||
arlents. */
|
||
|
||
if (num_recs)
|
||
{
|
||
/* Allocate a fragment and leak it. */
|
||
fragS *fragP;
|
||
size_t frag_size;
|
||
fixS *fixes;
|
||
frchainS *frchainP;
|
||
size_t i;
|
||
char *frag_data;
|
||
|
||
frag_size = sizeof (fragS) + rec_size;
|
||
fragP = (fragS *) xmalloc (frag_size);
|
||
|
||
memset (fragP, 0, frag_size);
|
||
fragP->fr_address = 0;
|
||
fragP->fr_next = NULL;
|
||
fragP->fr_fix = rec_size;
|
||
fragP->fr_var = 0;
|
||
fragP->fr_type = rs_fill;
|
||
/* the rest are zeros */
|
||
|
||
frchainP = seginfo->frchainP;
|
||
frchainP->frch_root = fragP;
|
||
frchainP->frch_last = fragP;
|
||
|
||
fixes = (fixS *) xmalloc (sizeof (fixS) * num_recs);
|
||
memset (fixes, 0, sizeof (fixS) * num_recs);
|
||
|
||
seginfo->fix_root = fixes;
|
||
seginfo->fix_tail = &fixes[num_recs - 1];
|
||
cur_block = block;
|
||
frag_data = &fragP->fr_literal[0];
|
||
for (i = 0; i < num_recs; i++)
|
||
{
|
||
fixS *fix = &fixes[i];
|
||
assert (cur_block);
|
||
|
||
/* Write the fixup. */
|
||
if (i != num_recs - 1)
|
||
fix->fx_next = &fixes[i + 1];
|
||
else
|
||
fix->fx_next = NULL;
|
||
fix->fx_size = 4;
|
||
fix->fx_done = 0;
|
||
fix->fx_frag = fragP;
|
||
fix->fx_where = i * 8;
|
||
fix->fx_addsy = section_symbol (cur_block->sec);
|
||
fix->fx_offset = cur_block->offset;
|
||
fix->fx_r_type = BFD_RELOC_32;
|
||
fix->fx_file = "Internal Assembly";
|
||
fix->fx_line = 0;
|
||
|
||
/* Write the length. */
|
||
md_number_to_chars (&frag_data[4 + 8 * i],
|
||
cur_block->size, 4);
|
||
cur_block = cur_block->next;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
segment_info_type *
|
||
retrieve_segment_info (seg)
|
||
segT seg;
|
||
{
|
||
segment_info_type *seginfo;
|
||
seginfo = (segment_info_type *) bfd_get_section_userdata (stdoutput, seg);
|
||
if (!seginfo)
|
||
{
|
||
frchainS *frchainP;
|
||
|
||
seginfo = (segment_info_type *) xmalloc (sizeof (*seginfo));
|
||
memset ((PTR) seginfo, 0, sizeof (*seginfo));
|
||
seginfo->fix_root = NULL;
|
||
seginfo->fix_tail = NULL;
|
||
seginfo->bfd_section = seg;
|
||
seginfo->sym = 0;
|
||
/* We will not be dealing with these, only our special ones. */
|
||
#if 0
|
||
if (seg == bfd_abs_section_ptr)
|
||
abs_seg_info = seginfo;
|
||
else if (seg == bfd_und_section_ptr)
|
||
und_seg_info = seginfo;
|
||
else
|
||
#endif
|
||
bfd_set_section_userdata (stdoutput, seg, (PTR) seginfo);
|
||
#if 0
|
||
seg_fix_rootP = &segment_info[seg].fix_root;
|
||
seg_fix_tailP = &segment_info[seg].fix_tail;
|
||
#endif
|
||
|
||
frchainP = (frchainS *) xmalloc (sizeof (frchainS));
|
||
frchainP->frch_root = NULL;
|
||
frchainP->frch_last = NULL;
|
||
frchainP->frch_next = NULL;
|
||
frchainP->frch_seg = seg;
|
||
frchainP->frch_subseg = 0;
|
||
frchainP->fix_root = NULL;
|
||
frchainP->fix_tail = NULL;
|
||
/* Do not init the objstack. */
|
||
/* obstack_begin (&frchainP->frch_obstack, chunksize); */
|
||
/* frchainP->frch_frag_now = fragP; */
|
||
frchainP->frch_frag_now = NULL;
|
||
|
||
seginfo->frchainP = frchainP;
|
||
}
|
||
|
||
return seginfo;
|
||
}
|
||
|
||
|
||
segT
|
||
retrieve_xtensa_section (sec_name)
|
||
char *sec_name;
|
||
{
|
||
bfd *abfd = stdoutput;
|
||
flagword flags, out_flags, link_once_flags;
|
||
segT s;
|
||
|
||
flags = bfd_get_section_flags (abfd, now_seg);
|
||
link_once_flags = (flags & SEC_LINK_ONCE);
|
||
if (link_once_flags)
|
||
link_once_flags |= (flags & SEC_LINK_DUPLICATES);
|
||
out_flags = (SEC_RELOC | SEC_HAS_CONTENTS | SEC_READONLY | link_once_flags);
|
||
|
||
s = bfd_make_section_old_way (abfd, sec_name);
|
||
if (s == NULL)
|
||
as_bad (_("could not create section %s"), sec_name);
|
||
if (!bfd_set_section_flags (abfd, s, out_flags))
|
||
as_bad (_("invalid flag combination on section %s"), sec_name);
|
||
|
||
return s;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
section_has_property (sec, property_function)
|
||
segT sec;
|
||
frag_predicate property_function;
|
||
{
|
||
segment_info_type *seginfo = seg_info (sec);
|
||
fragS *fragP;
|
||
|
||
if (seginfo && seginfo->frchainP)
|
||
{
|
||
for (fragP = seginfo->frchainP->frch_root; fragP; fragP = fragP->fr_next)
|
||
{
|
||
if (property_function (fragP)
|
||
&& (fragP->fr_type != rs_fill || fragP->fr_fix != 0))
|
||
return TRUE;
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Two types of block sections exist right now: literal and insns. */
|
||
|
||
void
|
||
add_xt_block_frags (sec, xt_block_sec, xt_block, property_function)
|
||
segT sec;
|
||
segT xt_block_sec;
|
||
xtensa_block_info **xt_block;
|
||
frag_predicate property_function;
|
||
{
|
||
segment_info_type *seg_info;
|
||
segment_info_type *xt_seg_info;
|
||
bfd_vma seg_offset;
|
||
fragS *fragP;
|
||
|
||
xt_seg_info = retrieve_segment_info (xt_block_sec);
|
||
seg_info = retrieve_segment_info (sec);
|
||
|
||
/* Build it if needed. */
|
||
while (*xt_block != NULL)
|
||
xt_block = &(*xt_block)->next;
|
||
/* We are either at NULL at the beginning or at the end. */
|
||
|
||
/* Walk through the frags. */
|
||
seg_offset = 0;
|
||
|
||
if (seg_info->frchainP)
|
||
{
|
||
for (fragP = seg_info->frchainP->frch_root;
|
||
fragP;
|
||
fragP = fragP->fr_next)
|
||
{
|
||
if (property_function (fragP)
|
||
&& (fragP->fr_type != rs_fill || fragP->fr_fix != 0))
|
||
{
|
||
if (*xt_block != NULL)
|
||
{
|
||
if ((*xt_block)->offset + (*xt_block)->size
|
||
== fragP->fr_address)
|
||
(*xt_block)->size += fragP->fr_fix;
|
||
else
|
||
xt_block = &((*xt_block)->next);
|
||
}
|
||
if (*xt_block == NULL)
|
||
{
|
||
xtensa_block_info *new_block = (xtensa_block_info *)
|
||
xmalloc (sizeof (xtensa_block_info));
|
||
new_block->sec = sec;
|
||
new_block->offset = fragP->fr_address;
|
||
new_block->size = fragP->fr_fix;
|
||
new_block->next = NULL;
|
||
*xt_block = new_block;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
/* Instruction Stack Functions (from "xtensa-istack.h"). */
|
||
|
||
void
|
||
istack_init (stack)
|
||
IStack *stack;
|
||
{
|
||
memset (stack, 0, sizeof (IStack));
|
||
stack->ninsn = 0;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
istack_empty (stack)
|
||
IStack *stack;
|
||
{
|
||
return (stack->ninsn == 0);
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
istack_full (stack)
|
||
IStack *stack;
|
||
{
|
||
return (stack->ninsn == MAX_ISTACK);
|
||
}
|
||
|
||
|
||
/* Return a pointer to the top IStack entry.
|
||
It is an error to call this if istack_empty () is true. */
|
||
|
||
TInsn *
|
||
istack_top (stack)
|
||
IStack *stack;
|
||
{
|
||
int rec = stack->ninsn - 1;
|
||
assert (!istack_empty (stack));
|
||
return &stack->insn[rec];
|
||
}
|
||
|
||
|
||
/* Add a new TInsn to an IStack.
|
||
It is an error to call this if istack_full () is true. */
|
||
|
||
void
|
||
istack_push (stack, insn)
|
||
IStack *stack;
|
||
TInsn *insn;
|
||
{
|
||
int rec = stack->ninsn;
|
||
assert (!istack_full (stack));
|
||
tinsn_copy (&stack->insn[rec], insn);
|
||
stack->ninsn++;
|
||
}
|
||
|
||
|
||
/* Clear space for the next TInsn on the IStack and return a pointer
|
||
to it. It is an error to call this if istack_full () is true. */
|
||
|
||
TInsn *
|
||
istack_push_space (stack)
|
||
IStack *stack;
|
||
{
|
||
int rec = stack->ninsn;
|
||
TInsn *insn;
|
||
assert (!istack_full (stack));
|
||
insn = &stack->insn[rec];
|
||
memset (insn, 0, sizeof (TInsn));
|
||
stack->ninsn++;
|
||
return insn;
|
||
}
|
||
|
||
|
||
/* Remove the last pushed instruction. It is an error to call this if
|
||
istack_empty () returns true. */
|
||
|
||
void
|
||
istack_pop (stack)
|
||
IStack *stack;
|
||
{
|
||
int rec = stack->ninsn - 1;
|
||
assert (!istack_empty (stack));
|
||
stack->ninsn--;
|
||
memset (&stack->insn[rec], 0, sizeof (TInsn));
|
||
}
|
||
|
||
|
||
/* TInsn functions. */
|
||
|
||
void
|
||
tinsn_init (dst)
|
||
TInsn *dst;
|
||
{
|
||
memset (dst, 0, sizeof (TInsn));
|
||
}
|
||
|
||
|
||
void
|
||
tinsn_copy (dst, src)
|
||
TInsn *dst;
|
||
const TInsn *src;
|
||
{
|
||
tinsn_init (dst);
|
||
memcpy (dst, src, sizeof (TInsn));
|
||
}
|
||
|
||
|
||
/* Get the ``num''th token of the TInsn.
|
||
It is illegal to call this if num > insn->ntoks. */
|
||
|
||
expressionS *
|
||
tinsn_get_tok (insn, num)
|
||
TInsn *insn;
|
||
int num;
|
||
{
|
||
assert (num < insn->ntok);
|
||
return &insn->tok[num];
|
||
}
|
||
|
||
|
||
/* Return true if ANY of the operands in the insn are symbolic. */
|
||
|
||
static bfd_boolean
|
||
tinsn_has_symbolic_operands (insn)
|
||
const TInsn *insn;
|
||
{
|
||
int i;
|
||
int n = insn->ntok;
|
||
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
|
||
for (i = 0; i < n; ++i)
|
||
{
|
||
switch (insn->tok[i].X_op)
|
||
{
|
||
case O_register:
|
||
case O_constant:
|
||
break;
|
||
default:
|
||
return TRUE;
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
tinsn_has_invalid_symbolic_operands (insn)
|
||
const TInsn *insn;
|
||
{
|
||
int i;
|
||
int n = insn->ntok;
|
||
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
|
||
for (i = 0; i < n; ++i)
|
||
{
|
||
switch (insn->tok[i].X_op)
|
||
{
|
||
case O_register:
|
||
case O_constant:
|
||
break;
|
||
default:
|
||
if (i == get_relaxable_immed (insn->opcode))
|
||
break;
|
||
as_bad (_("invalid symbolic operand %d on '%s'"),
|
||
i, xtensa_opcode_name (xtensa_default_isa, insn->opcode));
|
||
return TRUE;
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* For assembly code with complex expressions (e.g. subtraction),
|
||
we have to build them in the literal pool so that
|
||
their results are calculated correctly after relaxation.
|
||
The relaxation only handles expressions that
|
||
boil down to SYMBOL + OFFSET. */
|
||
|
||
static bfd_boolean
|
||
tinsn_has_complex_operands (insn)
|
||
const TInsn *insn;
|
||
{
|
||
int i;
|
||
int n = insn->ntok;
|
||
assert (insn->insn_type == ITYPE_INSN);
|
||
for (i = 0; i < n; ++i)
|
||
{
|
||
switch (insn->tok[i].X_op)
|
||
{
|
||
case O_register:
|
||
case O_constant:
|
||
case O_symbol:
|
||
break;
|
||
default:
|
||
return TRUE;
|
||
}
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Convert the constant operands in the t_insn to insnbuf.
|
||
Return true if there is a symbol in the immediate field.
|
||
|
||
Before this is called,
|
||
1) the number of operands are correct
|
||
2) the t_insn is a ITYPE_INSN
|
||
3) ONLY the relaxable_ is built
|
||
4) All operands are O_constant, O_symbol. All constants fit
|
||
The return value tells whether there are any remaining O_symbols. */
|
||
|
||
static bfd_boolean
|
||
tinsn_to_insnbuf (t_insn, insnbuf)
|
||
TInsn *t_insn;
|
||
xtensa_insnbuf insnbuf;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
xtensa_opcode opcode = t_insn->opcode;
|
||
bfd_boolean has_fixup = FALSE;
|
||
int noperands = xtensa_num_operands (isa, opcode);
|
||
int i;
|
||
uint32 opnd_value;
|
||
char *file_name;
|
||
int line;
|
||
|
||
assert (t_insn->insn_type == ITYPE_INSN);
|
||
if (noperands != t_insn->ntok)
|
||
as_fatal (_("operand number mismatch"));
|
||
|
||
xtensa_encode_insn (isa, opcode, insnbuf);
|
||
|
||
for (i = 0; i < noperands; ++i)
|
||
{
|
||
expressionS *expr = &t_insn->tok[i];
|
||
xtensa_operand operand = xtensa_get_operand (isa, opcode, i);
|
||
switch (expr->X_op)
|
||
{
|
||
case O_register:
|
||
/* The register number has already been checked in
|
||
expression_maybe_register, so we don't need to check here. */
|
||
opnd_value = expr->X_add_number;
|
||
(void) xtensa_operand_encode (operand, &opnd_value);
|
||
xtensa_operand_set_field (operand, insnbuf, opnd_value);
|
||
break;
|
||
|
||
case O_constant:
|
||
as_where (&file_name, &line);
|
||
/* It is a constant and we called this function,
|
||
then we have to try to fit it. */
|
||
xtensa_insnbuf_set_operand (insnbuf, opcode, operand,
|
||
expr->X_add_number, file_name, line);
|
||
break;
|
||
|
||
case O_symbol:
|
||
default:
|
||
has_fixup = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
return has_fixup;
|
||
}
|
||
|
||
|
||
/* Check the instruction arguments. Return true on failure. */
|
||
|
||
bfd_boolean
|
||
tinsn_check_arguments (insn)
|
||
const TInsn *insn;
|
||
{
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
xtensa_opcode opcode = insn->opcode;
|
||
|
||
if (opcode == XTENSA_UNDEFINED)
|
||
{
|
||
as_bad (_("invalid opcode"));
|
||
return TRUE;
|
||
}
|
||
|
||
if (xtensa_num_operands (isa, opcode) > insn->ntok)
|
||
{
|
||
as_bad (_("too few operands"));
|
||
return TRUE;
|
||
}
|
||
|
||
if (xtensa_num_operands (isa, opcode) < insn->ntok)
|
||
{
|
||
as_bad (_("too many operands"));
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
|
||
/* Load an instruction from its encoded form. */
|
||
|
||
static void
|
||
tinsn_from_chars (t_insn, f)
|
||
TInsn *t_insn;
|
||
char *f;
|
||
{
|
||
static xtensa_insnbuf insnbuf = NULL;
|
||
int i;
|
||
xtensa_opcode opcode;
|
||
xtensa_isa isa = xtensa_default_isa;
|
||
|
||
if (!insnbuf)
|
||
insnbuf = xtensa_insnbuf_alloc (isa);
|
||
|
||
xtensa_insnbuf_from_chars (isa, insnbuf, f);
|
||
opcode = xtensa_decode_insn (isa, insnbuf);
|
||
|
||
/* Find the immed. */
|
||
tinsn_init (t_insn);
|
||
t_insn->insn_type = ITYPE_INSN;
|
||
t_insn->is_specific_opcode = FALSE; /* Must not be specific. */
|
||
t_insn->opcode = opcode;
|
||
t_insn->ntok = xtensa_num_operands (isa, opcode);
|
||
for (i = 0; i < t_insn->ntok; i++)
|
||
{
|
||
set_expr_const (&t_insn->tok[i],
|
||
xtensa_insnbuf_get_operand (insnbuf, opcode, i));
|
||
}
|
||
}
|
||
|
||
|
||
/* Read the value of the relaxable immed from the fr_symbol and fr_offset. */
|
||
|
||
static void
|
||
tinsn_immed_from_frag (t_insn, fragP)
|
||
TInsn *t_insn;
|
||
fragS *fragP;
|
||
{
|
||
xtensa_opcode opcode = t_insn->opcode;
|
||
int opnum;
|
||
|
||
if (fragP->fr_symbol)
|
||
{
|
||
opnum = get_relaxable_immed (opcode);
|
||
set_expr_symbol_offset (&t_insn->tok[opnum],
|
||
fragP->fr_symbol, fragP->fr_offset);
|
||
}
|
||
}
|
||
|
||
|
||
static int
|
||
get_num_stack_text_bytes (istack)
|
||
IStack *istack;
|
||
{
|
||
int i;
|
||
int text_bytes = 0;
|
||
|
||
for (i = 0; i < istack->ninsn; i++)
|
||
{
|
||
TInsn *t_insn = &istack->insn[i];
|
||
if (t_insn->insn_type == ITYPE_INSN)
|
||
text_bytes += xg_get_insn_size (t_insn);
|
||
}
|
||
return text_bytes;
|
||
}
|
||
|
||
|
||
static int
|
||
get_num_stack_literal_bytes (istack)
|
||
IStack *istack;
|
||
{
|
||
int i;
|
||
int lit_bytes = 0;
|
||
|
||
for (i = 0; i < istack->ninsn; i++)
|
||
{
|
||
TInsn *t_insn = &istack->insn[i];
|
||
|
||
if (t_insn->insn_type == ITYPE_LITERAL && t_insn->ntok == 1)
|
||
lit_bytes += 4;
|
||
}
|
||
return lit_bytes;
|
||
}
|
||
|
||
|
||
/* Expression utilities. */
|
||
|
||
/* Return true if the expression is an integer constant. */
|
||
|
||
bfd_boolean
|
||
expr_is_const (s)
|
||
const expressionS *s;
|
||
{
|
||
return (s->X_op == O_constant);
|
||
}
|
||
|
||
|
||
/* Get the expression constant.
|
||
Calling this is illegal if expr_is_const () returns true. */
|
||
|
||
offsetT
|
||
get_expr_const (s)
|
||
const expressionS *s;
|
||
{
|
||
assert (expr_is_const (s));
|
||
return s->X_add_number;
|
||
}
|
||
|
||
|
||
/* Set the expression to a constant value. */
|
||
|
||
void
|
||
set_expr_const (s, val)
|
||
expressionS *s;
|
||
offsetT val;
|
||
{
|
||
s->X_op = O_constant;
|
||
s->X_add_number = val;
|
||
s->X_add_symbol = NULL;
|
||
s->X_op_symbol = NULL;
|
||
}
|
||
|
||
|
||
/* Set the expression to a symbol + constant offset. */
|
||
|
||
void
|
||
set_expr_symbol_offset (s, sym, offset)
|
||
expressionS *s;
|
||
symbolS *sym;
|
||
offsetT offset;
|
||
{
|
||
s->X_op = O_symbol;
|
||
s->X_add_symbol = sym;
|
||
s->X_op_symbol = NULL; /* unused */
|
||
s->X_add_number = offset;
|
||
}
|
||
|
||
|
||
bfd_boolean
|
||
expr_is_equal (s1, s2)
|
||
expressionS *s1;
|
||
expressionS *s2;
|
||
{
|
||
if (s1->X_op != s2->X_op)
|
||
return FALSE;
|
||
if (s1->X_add_symbol != s2->X_add_symbol)
|
||
return FALSE;
|
||
if (s1->X_op_symbol != s2->X_op_symbol)
|
||
return FALSE;
|
||
if (s1->X_add_number != s2->X_add_number)
|
||
return FALSE;
|
||
return TRUE;
|
||
}
|
||
|
||
|
||
static void
|
||
copy_expr (dst, src)
|
||
expressionS *dst;
|
||
const expressionS *src;
|
||
{
|
||
memcpy (dst, src, sizeof (expressionS));
|
||
}
|
||
|
||
|
||
/* Support for Tensilica's "--rename-section" option. */
|
||
|
||
#ifdef XTENSA_SECTION_RENAME
|
||
|
||
struct rename_section_struct
|
||
{
|
||
char *old_name;
|
||
char *new_name;
|
||
struct rename_section_struct *next;
|
||
};
|
||
|
||
static struct rename_section_struct *section_rename;
|
||
|
||
|
||
/* Parse the string oldname=new_name:oldname2=new_name2
|
||
and call add_section_rename. */
|
||
|
||
void
|
||
build_section_rename (arg)
|
||
const char *arg;
|
||
{
|
||
char *this_arg = NULL;
|
||
char *next_arg = NULL;
|
||
|
||
for (this_arg = strdup (arg); this_arg != NULL; this_arg = next_arg)
|
||
{
|
||
if (this_arg)
|
||
{
|
||
next_arg = strchr (this_arg, ':');
|
||
if (next_arg)
|
||
{
|
||
*next_arg = '\0';
|
||
next_arg++;
|
||
}
|
||
}
|
||
{
|
||
char *old_name = this_arg;
|
||
char *new_name = strchr (this_arg, '=');
|
||
|
||
if (*old_name == '\0')
|
||
{
|
||
as_warn (_("ignoring extra '-rename-section' delimiter ':'"));
|
||
continue;
|
||
}
|
||
if (!new_name || new_name[1] == '\0')
|
||
{
|
||
as_warn (_("ignoring invalid '-rename-section' "
|
||
"specification: '%s'"), old_name);
|
||
continue;
|
||
}
|
||
*new_name = '\0';
|
||
new_name++;
|
||
add_section_rename (old_name, new_name);
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
static void
|
||
add_section_rename (old_name, new_name)
|
||
char *old_name;
|
||
char *new_name;
|
||
{
|
||
struct rename_section_struct *r = section_rename;
|
||
|
||
/* Check for invalid section renaming. */
|
||
for (r = section_rename; r != NULL; r = r->next)
|
||
{
|
||
if (strcmp (r->old_name, old_name) == 0)
|
||
as_bad (_("section %s renamed multiple times"), old_name);
|
||
if (strcmp (r->new_name, new_name) == 0)
|
||
as_bad (_("multiple sections remapped to output section %s"),
|
||
new_name);
|
||
}
|
||
|
||
/* Now add it. */
|
||
r = (struct rename_section_struct *)
|
||
xmalloc (sizeof (struct rename_section_struct));
|
||
r->old_name = strdup (old_name);
|
||
r->new_name = strdup (new_name);
|
||
r->next = section_rename;
|
||
section_rename = r;
|
||
}
|
||
|
||
|
||
const char *
|
||
xtensa_section_rename (name)
|
||
const char *name;
|
||
{
|
||
struct rename_section_struct *r = section_rename;
|
||
|
||
for (r = section_rename; r != NULL; r = r->next)
|
||
if (strcmp (r->old_name, name) == 0)
|
||
return r->new_name;
|
||
|
||
return name;
|
||
}
|
||
|
||
#endif /* XTENSA_SECTION_RENAME */
|