an EXPORT or IMPORT directive. Only SOM uses this formation
(ELF has no need for it). */
typedef enum
-{
- SYMBOL_TYPE_UNKNOWN,
- SYMBOL_TYPE_ABSOLUTE,
- SYMBOL_TYPE_CODE,
- SYMBOL_TYPE_DATA,
- SYMBOL_TYPE_ENTRY,
- SYMBOL_TYPE_MILLICODE,
- SYMBOL_TYPE_PLABEL,
- SYMBOL_TYPE_PRI_PROG,
- SYMBOL_TYPE_SEC_PROG,
-} pa_symbol_type;
+ {
+ SYMBOL_TYPE_UNKNOWN,
+ SYMBOL_TYPE_ABSOLUTE,
+ SYMBOL_TYPE_CODE,
+ SYMBOL_TYPE_DATA,
+ SYMBOL_TYPE_ENTRY,
+ SYMBOL_TYPE_MILLICODE,
+ SYMBOL_TYPE_PLABEL,
+ SYMBOL_TYPE_PRI_PROG,
+ SYMBOL_TYPE_SEC_PROG,
+ }
+pa_symbol_type;
/* This structure contains information needed to assemble
individual instructions. */
must be contained in unloadable spaces. */
unsigned char ssd_loadable;
- /* Nonzero if this subspace contains only code. */
+ /* Nonzero if this subspace contains only code. */
unsigned char ssd_code_only;
/* Starting offset of this subspace. */
struct default_subspace_dict
{
- /* Name of the subspace. */
+ /* Name of the subspace. */
char *name;
/* FIXME. Is this still needed? */
/* Extra information needed to perform fixups (relocations) on the PA. */
struct hppa_fix_struct
-{
+ {
/* The field selector. */
enum hppa_reloc_field_selector_type fx_r_field;
/* The unwind descriptor associated with this fixup. */
char fx_unwind[8];
-};
+ };
/* Structure to hold information about predefined registers. */
struct pd_reg
-{
- char *name;
- int value;
-};
+ {
+ char *name;
+ int value;
+ };
/* This structure defines the mapping from a FP condition string
to a condition number which can be recorded in an instruction. */
struct fp_cond_map
-{
- char *string;
- int cond;
-};
+ {
+ char *string;
+ int cond;
+ };
/* This structure defines a mapping from a field selector
string to a field selector type. */
struct selector_entry
-{
- char *prefix;
- int field_selector;
-};
+ {
+ char *prefix;
+ int field_selector;
+ };
/* Prototypes for functions local to tc-hppa.c. */
static void pa_subspace PARAMS ((int));
static void pa_param PARAMS ((int));
static void pa_undefine_label PARAMS ((void));
-static int need_89_opcode PARAMS ((struct pa_it *,
+static int need_89_opcode PARAMS ((struct pa_it *,
struct pa_89_fp_reg_struct *));
static int pa_parse_number PARAMS ((char **, struct pa_89_fp_reg_struct *));
static label_symbol_struct *pa_get_label PARAMS ((void));
static sd_chain_struct *create_new_space PARAMS ((char *, int, char,
char, char, char,
asection *, int));
-static ssd_chain_struct * create_new_subspace PARAMS ((sd_chain_struct *,
- char *, char, char,
- char, char, char,
- char, int, int, int,
- int, asection *));
+static ssd_chain_struct *create_new_subspace PARAMS ((sd_chain_struct *,
+ char *, char, char,
+ char, char, char,
+ char, int, int, int,
+ int, asection *));
static ssd_chain_struct *update_subspace PARAMS ((sd_chain_struct *,
char *, char, char, char,
char, char, char, int,
static sd_chain_struct *is_defined_space PARAMS ((char *));
static ssd_chain_struct *is_defined_subspace PARAMS ((char *));
static sd_chain_struct *pa_segment_to_space PARAMS ((asection *));
-static ssd_chain_struct * pa_subsegment_to_subspace PARAMS ((asection *,
- subsegT));
+static ssd_chain_struct *pa_subsegment_to_subspace PARAMS ((asection *,
+ subsegT));
static sd_chain_struct *pa_find_space_by_number PARAMS ((int));
static unsigned int pa_subspace_start PARAMS ((sd_chain_struct *, int));
static void pa_ip PARAMS ((char *));
static int pa_next_subseg PARAMS ((sd_chain_struct *));
static unsigned int pa_stringer_aux PARAMS ((char *));
static void pa_spaces_begin PARAMS ((void));
-
+
/* File and gloally scoped variable declarations. */
function labels. */
static struct call_info *last_call_info;
-/* The last call description (for actual calls). */
+/* The last call description (for actual calls). */
static struct call_desc last_call_desc;
/* Relaxation isn't supported for the PA yet. */
-const relax_typeS md_relax_table[] = {0};
+const relax_typeS md_relax_table[] =
+{0};
-/* Jumps are always the same size -- one instruction. */
+/* Jumps are always the same size -- one instruction. */
int md_short_jump_size = 4;
int md_long_jump_size = 4;
/* This table is sorted by order of the length of the string. This is
so we check for <> before we check for <. If we had a <> and checked
for < first, we would get a false match. */
-static const struct fp_cond_map fp_cond_map [] =
+static const struct fp_cond_map fp_cond_map[] =
{
{"false?", 0},
{"false", 1},
break; \
} \
}
-
+
#define is_DP_relative(exp) \
((exp).X_op == O_subtract \
&& strcmp((exp).X_op_symbol->bsym->name, "$global$") == 0)
fixS *new_fix;
struct hppa_fix_struct *hppa_fix = (struct hppa_fix_struct *)
- obstack_alloc (¬es, sizeof (struct hppa_fix_struct));
+ obstack_alloc (¬es, sizeof (struct hppa_fix_struct));
if (exp != NULL)
new_fix = fix_new_exp (frag, where, size, exp, pcrel, r_type);
bcopy (unwind_desc, hppa_fix->fx_unwind, 8);
/* If necessary call BFD backend function to attach the
- unwind bits to the target dependent parts of a BFD symbol.
- Yuk. */
+ unwind bits to the target dependent parts of a BFD symbol.
+ Yuk. */
#ifdef obj_attach_unwind_info
obj_attach_unwind_info (add_symbol->bsym, unwind_desc);
#endif
while (i < NUMOPCODES)
{
const char *name = pa_opcodes[i].name;
- retval = hash_insert (op_hash, name, (struct pa_opcode *)&pa_opcodes[i]);
+ retval = hash_insert (op_hash, name, (struct pa_opcode *) &pa_opcodes[i]);
if (retval != NULL && *retval != '\0')
{
as_fatal ("Internal error: can't hash `%s': %s\n", name, retval);
}
do
{
- if ((pa_opcodes[i].match & pa_opcodes[i].mask)
+ if ((pa_opcodes[i].match & pa_opcodes[i].mask)
!= pa_opcodes[i].match)
{
fprintf (stderr, "internal error: losing opcode: `%s' \"%s\"\n",
num = pa_get_absolute_expression (&the_insn, &s);
s = expr_end;
CHECK_FIELD (num, 15, -16, 0)
- low_sign_unext (num, 5, &num);
+ low_sign_unext (num, 5, &num);
INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
/* Handle an unsigned 5 bit immediate at 31. */
if (the_insn.exp.X_op == O_constant)
{
num = evaluate_absolute (&the_insn);
- CHECK_FIELD (num, 2097151, 0, 0);
+ CHECK_FIELD (num >> 11, 1048575, -1048576, 0);
dis_assemble_21 (num, &num);
INSERT_FIELD_AND_CONTINUE (opcode, num, 0);
}
get_expression (s);
s = expr_end;
the_insn.pcrel = 1;
- if (! the_insn.exp.X_add_symbol
+ if (!the_insn.exp.X_add_symbol
|| !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
"L$0\001"))
{
sign_unext (num >> 2, 17, &result);
dis_assemble_17 (result, &w1, &w2, &w);
INSERT_FIELD_AND_CONTINUE (opcode,
- ((w2 << 2) | (w1 << 16) | w), 0);
+ ((w2 << 2) | (w1 << 16) | w), 0);
}
else
{
get_expression (s);
s = expr_end;
the_insn.pcrel = 0;
- if (! the_insn.exp.X_add_symbol
+ if (!the_insn.exp.X_add_symbol
|| !strcmp (S_GET_NAME (the_insn.exp.X_add_symbol),
"L$0\001"))
{
unsigned int w2, w1, w, result;
-
+
num = evaluate_absolute (&the_insn);
if (num % 4)
{
sign_unext (num >> 2, 17, &result);
dis_assemble_17 (result, &w1, &w2, &w);
- INSERT_FIELD_AND_CONTINUE (opcode,
- ((w2 << 2) | (w1 << 16) | w), 0);
+ INSERT_FIELD_AND_CONTINUE (opcode,
+ ((w2 << 2) | (w1 << 16) | w), 0);
}
else
{
{
if (unwind_reloc_entryP == NULL)
{
- reloc = (arelent *) bfd_alloc_by_size_t (stdoutput,
+ reloc = (arelent *) bfd_alloc_by_size_t (stdoutput,
sizeof (arelent));
assert (reloc != 0);
unwind_reloc_entryP = reloc;
case R_HPPA_COMPLEX:
case R_HPPA_COMPLEX_PCREL_CALL:
case R_HPPA_COMPLEX_ABS_CALL:
- abort();
+ abort ();
break;
default:
assert (n_relocs == 1);
-
+
code = *codes[0];
-
+
reloc->sym_ptr_ptr = &fixp->fx_addsy->bsym;
reloc->howto = bfd_reloc_type_lookup (stdoutput, code);
- reloc->address = fixp->fx_frag->fr_address + fixp->fx_where ;
+ reloc->address = fixp->fx_frag->fr_address + fixp->fx_where;
switch (code)
{
return size;
}
-/* Parse machine dependent options. There are none on the PA. */
+/* Parse machine dependent options. There are none on the PA. */
int
md_parse_option (argP, cntP, vecP)
char **argP;
fmt = 0;
/* Remember this value for emit_reloc. FIXME, is this braindamage
- documented anywhere!?! */
+ documented anywhere!?! */
fixP->fx_addnumber = val;
/* Check if this is an undefined symbol. No relocation can
CHECK_FIELD (new_val, 8191, -8192, 0)
/* Mask off 11 bits to be changed. */
- sign_unext ((new_val - 8) >> 2, 12, &result);
+ sign_unext ((new_val - 8) >> 2, 12, &result);
bfd_put_32 (stdoutput,
bfd_get_32 (stdoutput, buf) & 0xffffe002,
buf);
/* Handle some of the opcodes with the 'W' operand type. */
case 17:
- /* If a long-call stub or argument relocation stub is
+ /* If a long-call stub or argument relocation stub is
needed, then we can not apply this relocation, instead
the linker must handle it. */
if (new_val > 262143 || new_val < -262144
/* Parse a condition for a fcmp instruction. Return the numerical
code associated with the condition. */
-
+
static int
pa_parse_fp_cmp_cond (s)
char **s;
/* Parse an FP operand format completer returning the completer
type. */
-
+
static fp_operand_format
pa_parse_fp_format (s)
char **s;
return selector;
}
-/* Mark (via expr_end) the end of an expression (I think). FIXME. */
+/* Mark (via expr_end) the end of an expression (I think). FIXME. */
static int
get_expression (str)
|| seg == undefined_section
|| SEG_NORMAL (seg)))
{
- as_warn ("Bad segment in expression.");
+ as_warn ("Bad segment in expression.");
expr_end = input_line_pointer;
input_line_pointer = save_in;
return 1;
/* Always fill with zeros, that's what the HP assembler does. */
temp_fill = 0;
- p = frag_var (rs_fill, (int) temp_size, (int) temp_size,
+ p = frag_var (rs_fill, (int) temp_size, (int) temp_size,
(relax_substateT) 0, (symbolS *) 0, 1, NULL);
bzero (p, temp_size);
attributes in CALL_INFO. This is not needed for SOM as using
R_ENTRY and R_EXIT relocations allow the linker to handle building
of the unwind spaces. */
-
+
static void
pa_build_unwind_subspace (call_info)
struct call_info *call_info;
temp = 0;
}
- /* callinfo is in bytes and unwind_desc is in 8 byte units. */
+ /* callinfo is in bytes and unwind_desc is in 8 byte units. */
last_call_info->ci_unwind.descriptor.frame_size = temp / 8;
}
last_call_info->ci_unwind.descriptor.save_sp = 1;
}
/* Is this an unwindable procedure. If so mark it so
- in the unwind descriptor. */
+ in the unwind descriptor. */
else if ((strncasecmp (name, "no_unwind", 9) == 0))
{
p = input_line_pointer;
last_call_info->ci_unwind.descriptor.cannot_unwind = 1;
}
/* Is this an interrupt routine. If so mark it in the
- unwind descriptor. */
+ unwind descriptor. */
else if ((strncasecmp (name, "hpux_int", 7) == 0))
{
p = input_line_pointer;
if (symbol)
{
/* It is incorrect to check S_IS_DEFINED at this point as
- the symbol will *always* be defined. FIXME. How to
- correctly determine when this label really as been
- defined before. */
+ the symbol will *always* be defined. FIXME. How to
+ correctly determine when this label really as been
+ defined before. */
if (S_GET_VALUE (symbol))
{
if (S_GET_VALUE (symbol) != size)
return;
}
-/* Process a .ENTER pseudo-op. This is not supported. */
+/* Process a .ENTER pseudo-op. This is not supported. */
static void
pa_enter (unused)
int unused;
{
- abort();
+ abort ();
return;
}
denote the entry and exit points. */
{
char *where = frag_more (0);
-
- fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
+
+ fix_new_hppa (frag_now, where - frag_now->fr_literal, 0,
last_call_info->start_symbol, (offsetT) 0, NULL,
0, R_HPPA_ENTRY, e_fsel, 0, 0,
- (char *)&last_call_info->ci_unwind.descriptor);
+ (char *) &last_call_info->ci_unwind.descriptor);
}
#endif
/* symbol value should be the offset of the
last instruction of the function */
symbolP = symbol_new (name, now_seg,
- (valueT) (obstack_next_free (&frags)
+ (valueT) (obstack_next_free (&frags)
- frag_now->fr_literal - 4),
frag_now);
{
input_line_pointer += 4;
/* IMPORTing/EXPORTing CODE types for functions is meaningless for SOM,
- instead one should be IMPORTing/EXPORTing ENTRY types.
+ instead one should be IMPORTing/EXPORTing ENTRY types.
- Complain if one tries to EXPORT a CODE type since that's never
- done. Both GCC and HP C still try to IMPORT CODE types, so
- silently fix them to be ENTRY types. */
+ Complain if one tries to EXPORT a CODE type since that's never
+ done. Both GCC and HP C still try to IMPORT CODE types, so
+ silently fix them to be ENTRY types. */
if (symbolP->bsym->flags & BSF_FUNCTION)
{
if (is_export)
else
{
/* Sigh. To be compatable with the HP assembler and to help
- poorly written assembly code, we assign a type based on
- the the current segment. Note only BSF_FUNCTION really
- matters, we do not need to set the full SYMBOL_TYPE_* info here. */
+ poorly written assembly code, we assign a type based on
+ the the current segment. Note only BSF_FUNCTION really
+ matters, we do not need to set the full SYMBOL_TYPE_* info here. */
if (now_seg == text_section)
symbol->bsym->flags |= BSF_FUNCTION;
pa_leave (unused)
int unused;
{
- abort();
+ abort ();
}
/* Handle a .ORIGIN pseudo-op. */
{
as_bad ("Invalid .SPACE argument");
*input_line_pointer = c;
- if (! is_end_of_statement ())
+ if (!is_end_of_statement ())
input_line_pointer++;
}
}
if (create_flag && seg == NULL)
seg = subseg_new (space_name, 0);
-
+
/* If create_flag is nonzero, then create the new space with
the attributes computed above. Else set the values in
an already existing space -- this can only happen for
return;
}
-/* Switch to a new space. (I think). FIXME. */
+/* Switch to a new space. (I think). FIXME. */
static void
pa_spnum (unused)
space = current_space;
ssd = is_defined_subspace (ss_name);
/* Allow user to override the builtin attributes of subspaces. But
- only allow the attributes to be changed once! */
+ only allow the attributes to be changed once! */
if (ssd && SUBSPACE_DEFINED (ssd))
{
subseg_set (ssd->ssd_seg, ssd->ssd_subseg);
}
/* Compute a reasonable set of BFD flags based on the information
- in the .subspace directive. */
+ in the .subspace directive. */
applicable = bfd_applicable_section_flags (stdoutput);
flags = 0;
if (loadable)
applicable &= flags;
/* If this is an existing subspace, then we want to use the
- segment already associated with the subspace.
+ segment already associated with the subspace.
- FIXME NOW! ELF BFD doesn't appear to be ready to deal with
- lots of sections. It might be a problem in the PA ELF
- code, I do not know yet. For now avoid creating anything
- but the "standard" sections for ELF. */
+ FIXME NOW! ELF BFD doesn't appear to be ready to deal with
+ lots of sections. It might be a problem in the PA ELF
+ code, I do not know yet. For now avoid creating anything
+ but the "standard" sections for ELF. */
if (ssd)
section = ssd->ssd_seg;
else if (alias)
section = subseg_new (alias, 0);
- else if (! alias && USE_ALIASES)
+ else if (!alias && USE_ALIASES)
{
as_warn ("Ignoring subspace decl due to ELF BFD bugs.");
demand_empty_rest_of_line ();
return;
}
- else
+ else
section = subseg_new (ss_name, 0);
/* Now set the flags. */
/* Set the starting offset for this section. */
bfd_set_section_vma (stdoutput, section,
pa_subspace_start (space, quadrant));
-
+
/* Now that all the flags are set, update an existing subspace,
or create a new one. */
if (ssd)
current_subspace = update_subspace (space, ss_name, loadable,
code_only, common, dup_common,
sort, zero, access, space_index,
- alignment, quadrant,
+ alignment, quadrant,
section);
else
current_subspace = create_new_subspace (space, ss_name, loadable,
code_only, common,
dup_common, zero, sort,
access, space_index,
- alignment, quadrant, section);
+ alignment, quadrant, section);
demand_empty_rest_of_line ();
current_subspace->ssd_seg = section;
/* Create default space and subspace dictionaries. */
-static void
+static void
pa_spaces_begin ()
{
int i;
if (pa_def_spaces[i].alias && USE_ALIASES)
name = pa_def_spaces[i].alias;
else
- name = pa_def_spaces[i].name;
+ name = pa_def_spaces[i].name;
pa_def_spaces[i].segment = subseg_new (name, 0);
create_new_space (pa_def_spaces[i].name, pa_def_spaces[i].spnum,
sd_chain_struct *space;
/* Pick the right name for the new section and pick the right
- subsegment number. */
+ subsegment number. */
if (pa_def_subspaces[i].alias && USE_ALIASES)
{
name = pa_def_subspaces[i].alias;
name = pa_def_subspaces[i].name;
subsegment = 0;
}
-
+
/* Create the new section. */
segment = subseg_new (name, subsegment);
/* For SOM we want to replace the standard .text, .data, and .bss
- sections with our own. */
- if (! strcmp (pa_def_subspaces[i].name, "$CODE$") && ! USE_ALIASES)
+ sections with our own. */
+ if (!strcmp (pa_def_subspaces[i].name, "$CODE$") && !USE_ALIASES)
{
text_section = segment;
applicable = bfd_applicable_section_flags (stdoutput);
bfd_set_section_flags (stdoutput, text_section,
- applicable & (SEC_ALLOC | SEC_LOAD
- | SEC_RELOC | SEC_CODE
- | SEC_READONLY
+ applicable & (SEC_ALLOC | SEC_LOAD
+ | SEC_RELOC | SEC_CODE
+ | SEC_READONLY
| SEC_HAS_CONTENTS));
}
- else if (! strcmp (pa_def_subspaces[i].name, "$DATA$") && ! USE_ALIASES)
+ else if (!strcmp (pa_def_subspaces[i].name, "$DATA$") && !USE_ALIASES)
{
data_section = segment;
applicable = bfd_applicable_section_flags (stdoutput);
bfd_set_section_flags (stdoutput, data_section,
- applicable & (SEC_ALLOC | SEC_LOAD
+ applicable & (SEC_ALLOC | SEC_LOAD
| SEC_RELOC
| SEC_HAS_CONTENTS));
-
-
+
+
}
- else if (! strcmp (pa_def_subspaces[i].name, "$BSS$") && ! USE_ALIASES)
+ else if (!strcmp (pa_def_subspaces[i].name, "$BSS$") && !USE_ALIASES)
{
bss_section = segment;
applicable = bfd_applicable_section_flags (stdoutput);
}
#ifdef obj_set_subsection_attributes
- obj_set_subsection_attributes (seg, space->sd_seg, access,
+ obj_set_subsection_attributes (seg, space->sd_seg, access,
sort, quadrant);
#endif
chain_entry = NULL;
#ifdef obj_set_subsection_attributes
- obj_set_subsection_attributes (section, space->sd_seg, access,
+ obj_set_subsection_attributes (section, space->sd_seg, access,
sort, quadrant);
#endif
is_defined_subspace (name)
char *name;
{
- sd_chain_struct*space_chain;
+ sd_chain_struct *space_chain;
ssd_chain_struct *subspace_chain;
/* Walk through each space. */
}
/* Like float_cons, but we need to undefine our label. */
-
+
static void
pa_float_cons (float_type)
int float_type;
use it in a relocation -- yuk. */
int
-hppa_fix_adjustable (fixp)
+hppa_fix_adjustable (fixp)
fixS *fixp;
{
struct hppa_fix_struct *hppa_fix;
if (fixp->fx_r_type == R_HPPA && hppa_fix->fx_r_format == 32)
return 0;
- if (fixp->fx_addsy == 0
+ if (fixp->fx_addsy == 0
|| (fixp->fx_addsy->bsym->flags & BSF_FUNCTION) == 0)
return 1;
return 0;
}
-
+
/* Now for some ELF specific code. FIXME. */
#ifdef OBJ_ELF
static symext_chainS *symext_rootP;
seg = subseg_new (".hppa_symextn", subseg);
bfd_set_section_flags (stdoutput,
seg,
- SEC_HAS_CONTENTS | SEC_READONLY
+ SEC_HAS_CONTENTS | SEC_READONLY
| SEC_ALLOC | SEC_LOAD);
subseg_set (save_seg, save_subseg);
call_info_pointer = call_info_pointer->ci_next)
{
elf_symbol_type *esym
- = (elf_symbol_type *) call_info_pointer->start_symbol->bsym;
+ = (elf_symbol_type *) call_info_pointer->start_symbol->bsym;
esym->internal_elf_sym.st_size =
S_GET_VALUE (call_info_pointer->end_symbol)
- - S_GET_VALUE (call_info_pointer->start_symbol) + 4;
+ - S_GET_VALUE (call_info_pointer->start_symbol) + 4;
}
}
#endif
projects / binutils-gdb.git / commitdiff