1 /* tc-or1k.c -- Assembler for the OpenRISC family.
2 Copyright (C) 2001-2019 Free Software Foundation, Inc.
3 Contributed for OR32 by Johan Rydberg, jrydberg@opencores.org
5 This file is part of GAS, the GNU Assembler.
7 GAS is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GAS is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, see <http://www.gnu.org/licenses/> */
20 #include "safe-ctype.h"
23 #include "opcodes/or1k-desc.h"
24 #include "opcodes/or1k-opc.h"
27 #include "dw2gencfi.h"
29 /* Structure to hold all of the different components describing
30 an individual instruction. */
34 const CGEN_INSN
* insn
;
35 const CGEN_INSN
* orig_insn
;
38 CGEN_INSN_INT buffer
[1];
39 #define INSN_VALUE(buf) (*(buf))
41 unsigned char buffer
[CGEN_MAX_INSN_SIZE
];
42 #define INSN_VALUE(buf) (buf)
47 fixS
* fixups
[GAS_CGEN_MAX_FIXUPS
];
48 int indices
[MAX_OPERAND_INSTANCES
];
52 const char comment_chars
[] = "#";
53 const char line_comment_chars
[] = "#";
54 const char line_separator_chars
[] = ";";
55 const char EXP_CHARS
[] = "eE";
56 const char FLT_CHARS
[] = "dD";
58 #define OR1K_SHORTOPTS "m:"
59 const char * md_shortopts
= OR1K_SHORTOPTS
;
61 struct option md_longopts
[] =
63 {NULL
, no_argument
, NULL
, 0}
65 size_t md_longopts_size
= sizeof (md_longopts
);
67 unsigned long or1k_machine
= 0; /* default */
70 md_parse_option (int c ATTRIBUTE_UNUSED
, const char * arg ATTRIBUTE_UNUSED
)
76 md_show_usage (FILE * stream ATTRIBUTE_UNUSED
)
81 ignore_pseudo (int val ATTRIBUTE_UNUSED
)
83 discard_rest_of_line ();
86 static bfd_boolean nodelay
= FALSE
;
88 s_nodelay (int val ATTRIBUTE_UNUSED
)
93 const char or1k_comment_chars
[] = ";#";
95 /* The target specific pseudo-ops which we support. */
96 const pseudo_typeS md_pseudo_table
[] =
98 { "align", s_align_bytes
, 0 },
100 { "proc", ignore_pseudo
, 0 },
101 { "endproc", ignore_pseudo
, 0 },
102 { "nodelay", s_nodelay
, 0 },
110 /* Initialize the `cgen' interface. */
112 /* Set the machine number and endian. */
113 gas_cgen_cpu_desc
= or1k_cgen_cpu_open (CGEN_CPU_OPEN_MACHS
, 0,
114 CGEN_CPU_OPEN_ENDIAN
,
117 or1k_cgen_init_asm (gas_cgen_cpu_desc
);
119 /* This is a callback from cgen to gas to parse operands. */
120 cgen_set_parse_operand_fn (gas_cgen_cpu_desc
, gas_cgen_parse_operand
);
124 md_assemble (char * str
)
126 static int last_insn_had_delay_slot
= 0;
130 /* Initialize GAS's cgen interface for a new instruction. */
131 gas_cgen_init_parse ();
133 insn
.insn
= or1k_cgen_assemble_insn
134 (gas_cgen_cpu_desc
, str
, & insn
.fields
, insn
.buffer
, & errmsg
);
138 as_bad ("%s", errmsg
);
142 /* Doesn't really matter what we pass for RELAX_P here. */
143 gas_cgen_finish_insn (insn
.insn
, insn
.buffer
,
144 CGEN_FIELDS_BITSIZE (& insn
.fields
), 1, NULL
);
146 last_insn_had_delay_slot
147 = CGEN_INSN_ATTR_VALUE (insn
.insn
, CGEN_INSN_DELAY_SLOT
);
148 (void) last_insn_had_delay_slot
;
152 /* The syntax in the manual says constants begin with '#'.
153 We just ignore it. */
156 md_operand (expressionS
* expressionP
)
158 if (* input_line_pointer
== '#')
160 input_line_pointer
++;
161 expression (expressionP
);
166 md_section_align (segT segment
, valueT size
)
168 int align
= bfd_get_section_alignment (stdoutput
, segment
);
169 return ((size
+ (1 << align
) - 1) & -(1 << align
));
173 md_undefined_symbol (char * name ATTRIBUTE_UNUSED
)
179 /* Interface to relax_segment. */
181 const relax_typeS md_relax_table
[] =
184 1) most positive reach of this state,
185 2) most negative reach of this state,
186 3) how many bytes this mode will add to the size of the current frag
187 4) which index into the table to try if we can't fit into this one. */
189 /* The first entry must be unused because an `rlx_more' value of zero ends
193 /* The displacement used by GAS is from the end of the 4 byte insn,
194 so we subtract 4 from the following. */
195 {(((1 << 25) - 1) << 2) - 4, -(1 << 25) - 4, 0, 0},
199 md_estimate_size_before_relax (fragS
* fragP
, segT segment ATTRIBUTE_UNUSED
)
201 return md_relax_table
[fragP
->fr_subtype
].rlx_length
;
204 /* *fragP has been relaxed to its final size, and now needs to have
205 the bytes inside it modified to conform to the new size.
207 Called after relaxation is finished.
208 fragP->fr_type == rs_machine_dependent.
209 fragP->fr_subtype is the subtype of what the address relaxed to. */
212 md_convert_frag (bfd
* abfd ATTRIBUTE_UNUSED
,
213 segT sec ATTRIBUTE_UNUSED
,
214 fragS
* fragP ATTRIBUTE_UNUSED
)
220 /* Functions concerning relocs. */
222 /* The location from which a PC relative jump should be calculated,
223 given a PC relative reloc. */
226 md_pcrel_from_section (fixS
* fixP
, segT sec
)
228 if (fixP
->fx_addsy
!= (symbolS
*) NULL
229 && (! S_IS_DEFINED (fixP
->fx_addsy
)
230 || (S_GET_SEGMENT (fixP
->fx_addsy
) != sec
)
231 || S_IS_EXTERNAL (fixP
->fx_addsy
)
232 || S_IS_WEAK (fixP
->fx_addsy
)))
234 /* The symbol is undefined (or is defined but not in this section).
235 Let the linker figure it out. */
239 return fixP
->fx_frag
->fr_address
+ fixP
->fx_where
;
243 /* Return the bfd reloc type for OPERAND of INSN at fixup FIXP.
244 Returns BFD_RELOC_NONE if no reloc type can be found.
245 *FIXP may be modified if desired. */
247 bfd_reloc_code_real_type
248 md_cgen_lookup_reloc (const CGEN_INSN
* insn ATTRIBUTE_UNUSED
,
249 const CGEN_OPERAND
* operand
,
252 if (fixP
->fx_cgen
.opinfo
)
253 return fixP
->fx_cgen
.opinfo
;
255 switch (operand
->type
)
257 case OR1K_OPERAND_DISP26
:
259 return BFD_RELOC_OR1K_REL_26
;
261 default: /* avoid -Wall warning */
262 return BFD_RELOC_NONE
;
266 /* Write a value out to the object file, using the appropriate endianness. */
269 md_number_to_chars (char * buf
, valueT val
, int n
)
271 number_to_chars_bigendian (buf
, val
, n
);
274 /* Turn a string in input_line_pointer into a floating point constant of type
275 type, and store the appropriate bytes in *litP. The number of LITTLENUMS
276 emitted is stored in *sizeP . An error message is returned, or NULL on OK. */
278 /* Equal to MAX_PRECISION in atof-ieee.c. */
279 #define MAX_LITTLENUMS 6
282 md_atof (int type
, char * litP
, int * sizeP
)
284 return ieee_md_atof (type
, litP
, sizeP
, TRUE
);
288 or1k_fix_adjustable (fixS
* fixP
)
290 /* We need the symbol name for the VTABLE entries. */
291 if (fixP
->fx_r_type
== BFD_RELOC_VTABLE_INHERIT
292 || fixP
->fx_r_type
== BFD_RELOC_VTABLE_ENTRY
)
298 #define GOT_NAME "_GLOBAL_OFFSET_TABLE_"
301 tc_gen_reloc (asection
* section
, fixS
* fixp
)
304 bfd_reloc_code_real_type code
;
306 reloc
= XNEW (arelent
);
308 reloc
->sym_ptr_ptr
= XNEW (asymbol
*);
309 *reloc
->sym_ptr_ptr
= symbol_get_bfdsym (fixp
->fx_addsy
);
310 reloc
->address
= fixp
->fx_frag
->fr_address
+ fixp
->fx_where
;
314 if (section
->use_rela_p
)
315 fixp
->fx_offset
-= md_pcrel_from_section (fixp
, section
);
317 fixp
->fx_offset
= reloc
->address
;
319 reloc
->addend
= fixp
->fx_offset
;
321 code
= fixp
->fx_r_type
;
326 code
= BFD_RELOC_16_PCREL
;
331 code
= BFD_RELOC_32_PCREL
;
336 code
= BFD_RELOC_64_PCREL
;
343 reloc
->howto
= bfd_reloc_type_lookup (stdoutput
, code
);
344 if (reloc
->howto
== NULL
)
346 as_bad_where (fixp
->fx_file
, fixp
->fx_line
,
348 ("cannot represent %s relocation in this object file format"),
349 bfd_get_reloc_code_name (code
));
357 or1k_apply_fix (struct fix
*f
, valueT
*t
, segT s
)
359 gas_cgen_md_apply_fix (f
, t
, s
);
361 switch (f
->fx_r_type
)
363 case BFD_RELOC_OR1K_TLS_GD_HI16
:
364 case BFD_RELOC_OR1K_TLS_GD_LO16
:
365 case BFD_RELOC_OR1K_TLS_GD_PG21
:
366 case BFD_RELOC_OR1K_TLS_GD_LO13
:
367 case BFD_RELOC_OR1K_TLS_LDM_HI16
:
368 case BFD_RELOC_OR1K_TLS_LDM_LO16
:
369 case BFD_RELOC_OR1K_TLS_LDM_PG21
:
370 case BFD_RELOC_OR1K_TLS_LDM_LO13
:
371 case BFD_RELOC_OR1K_TLS_LDO_HI16
:
372 case BFD_RELOC_OR1K_TLS_LDO_LO16
:
373 case BFD_RELOC_OR1K_TLS_IE_HI16
:
374 case BFD_RELOC_OR1K_TLS_IE_LO16
:
375 case BFD_RELOC_OR1K_TLS_IE_PG21
:
376 case BFD_RELOC_OR1K_TLS_IE_LO13
:
377 case BFD_RELOC_OR1K_TLS_LE_HI16
:
378 case BFD_RELOC_OR1K_TLS_LE_LO16
:
379 S_SET_THREAD_LOCAL (f
->fx_addsy
);
387 or1k_elf_final_processing (void)
390 elf_elfheader (stdoutput
)->e_flags
|= EF_OR1K_NODELAY
;
393 /* Standard calling conventions leave the CFA at SP on entry. */
396 or1k_cfi_frame_initial_instructions (void)
398 cfi_add_CFA_def_cfa_register (1);