diff options
| -rw-r--r-- | gas/ChangeLog | 12 | ||||
| -rw-r--r-- | gas/config/tc-hppa.c | 258 |
2 files changed, 141 insertions, 129 deletions
diff --git a/gas/ChangeLog b/gas/ChangeLog index 09b0ba2..59646dd 100644 --- a/gas/ChangeLog +++ b/gas/ChangeLog @@ -1,3 +1,13 @@ +Tue Nov 16 20:38:21 1993 Jeffrey A. Law (law@snake.cs.utah.edu) + + * config/tc-hppa.c (pa_ip): Fix thinko in 21bit range check. + +Sat Nov 13 18:22:48 1993 Steve Chamberlain (sac@jonny.cygnus.com) + + * config/tc-sh.c (md_apply_fix): Cope with IMM16 type too. + * config/tc-z8k.c (build_bytes, md_apply_fix): Understand nDISP7 + relocs. + Fri Nov 12 16:51:47 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * config/tc-hppa.[ch]: Fix assorted trivial indention problems. @@ -8,7 +18,7 @@ Fri Nov 12 15:26:21 1993 Ken Raeburn (raeburn@cygnus.com) * Makefile.in (VERSION): Updated following 2.2 release. -Fri Nov 12 14:52:17 1993 Jeffrey A. Law (law@snake.cs.utah.edu +Fri Nov 12 14:52:17 1993 Jeffrey A. Law (law@snake.cs.utah.edu) * config/tc-hppa.c (hppa_fix_struct): Use a real type for the field selector, rather than an int. All uses of field selectors diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c index 606d778..7c38e06 100644 --- a/gas/config/tc-hppa.c +++ b/gas/config/tc-hppa.c @@ -184,17 +184,18 @@ fp_operand_format; 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. */ @@ -315,7 +316,7 @@ struct subspace_dictionary_chain 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. */ @@ -408,7 +409,7 @@ label_symbol_struct; struct default_subspace_dict { - /* Name of the subspace. */ + /* Name of the subspace. */ char *name; /* FIXME. Is this still needed? */ @@ -489,7 +490,7 @@ struct default_space_dict /* 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; @@ -504,31 +505,31 @@ struct hppa_fix_struct /* 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. */ @@ -579,18 +580,18 @@ static void pa_spnum PARAMS ((int)); 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, @@ -599,8 +600,8 @@ static ssd_chain_struct *update_subspace PARAMS ((sd_chain_struct *, 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 *)); @@ -622,7 +623,7 @@ static int log2 PARAMS ((int)); 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. */ @@ -642,13 +643,14 @@ static struct call_info *call_info_root; 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; @@ -1057,7 +1059,7 @@ static const struct pd_reg pre_defined_registers[] = /* 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}, @@ -1213,7 +1215,7 @@ static struct default_space_dict pa_def_spaces[] = break; \ } \ } - + #define is_DP_relative(exp) \ ((exp).X_op == O_subtract \ && strcmp((exp).X_op_symbol->bsym->name, "$global$") == 0) @@ -1329,7 +1331,7 @@ fix_new_hppa (frag, where, size, add_symbol, offset, exp, pcrel, 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); @@ -1345,8 +1347,8 @@ fix_new_hppa (frag, where, size, add_symbol, offset, exp, pcrel, 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 @@ -1431,7 +1433,7 @@ md_begin () 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); @@ -1439,7 +1441,7 @@ md_begin () } 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", @@ -1644,7 +1646,7 @@ pa_ip (str) 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. */ @@ -2173,7 +2175,7 @@ pa_ip (str) 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); } @@ -2231,7 +2233,7 @@ pa_ip (str) 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")) { @@ -2251,7 +2253,7 @@ pa_ip (str) 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 { @@ -2271,12 +2273,12 @@ pa_ip (str) 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) { @@ -2290,8 +2292,8 @@ pa_ip (str) 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 { @@ -2677,7 +2679,7 @@ tc_gen_reloc (section, fixp) { 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; @@ -2848,16 +2850,16 @@ tc_gen_reloc (section, fixp) 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) { @@ -2974,7 +2976,7 @@ md_estimate_size_before_relax (fragP, segment) 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; @@ -3038,7 +3040,7 @@ md_apply_fix_1 (fixP, val) 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 @@ -3095,7 +3097,7 @@ md_apply_fix_1 (fixP, val) 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); @@ -3110,7 +3112,7 @@ md_apply_fix_1 (fixP, val) /* 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 @@ -3464,7 +3466,7 @@ need_89_opcode (insn, result) /* 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; @@ -3492,7 +3494,7 @@ pa_parse_fp_cmp_cond (s) /* Parse an FP operand format completer returning the completer type. */ - + static fp_operand_format pa_parse_fp_format (s) char **s; @@ -3558,7 +3560,7 @@ pa_chk_field_selector (str) 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) @@ -3574,7 +3576,7 @@ 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; @@ -4074,7 +4076,7 @@ pa_block (z) /* 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); @@ -4178,7 +4180,7 @@ is_same_frag (frag1, frag2) 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; @@ -4315,7 +4317,7 @@ pa_callinfo (unused) 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; } @@ -4384,7 +4386,7 @@ pa_callinfo (unused) 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; @@ -4392,7 +4394,7 @@ pa_callinfo (unused) 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; @@ -4467,9 +4469,9 @@ pa_comm (unused) 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) @@ -4532,12 +4534,12 @@ pa_end (unused) 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; } @@ -4575,11 +4577,11 @@ pa_entry (unused) 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 @@ -4647,7 +4649,7 @@ process_exit () /* 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); @@ -4780,11 +4782,11 @@ pa_type_args (symbolP, is_export) { 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) @@ -4923,9 +4925,9 @@ pa_import (unused) 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; @@ -4975,7 +4977,7 @@ static void pa_leave (unused) int unused; { - abort(); + abort (); } /* Handle a .ORIGIN pseudo-op. */ @@ -5198,7 +5200,7 @@ pa_parse_space_stmt (space_name, create_flag) { as_bad ("Invalid .SPACE argument"); *input_line_pointer = c; - if (! is_end_of_statement ()) + if (!is_end_of_statement ()) input_line_pointer++; } } @@ -5208,7 +5210,7 @@ pa_parse_space_stmt (space_name, create_flag) 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 @@ -5404,7 +5406,7 @@ pa_space (unused) return; } -/* Switch to a new space. (I think). FIXME. */ +/* Switch to a new space. (I think). FIXME. */ static void pa_spnum (unused) @@ -5495,7 +5497,7 @@ pa_subspace (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); @@ -5604,7 +5606,7 @@ pa_subspace (unused) } /* 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) @@ -5622,23 +5624,23 @@ pa_subspace (unused) 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. */ @@ -5650,7 +5652,7 @@ pa_subspace (unused) /* 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) @@ -5658,14 +5660,14 @@ pa_subspace (unused) 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; @@ -5678,7 +5680,7 @@ pa_subspace (unused) /* Create default space and subspace dictionaries. */ -static void +static void pa_spaces_begin () { int i; @@ -5695,7 +5697,7 @@ pa_spaces_begin () 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, @@ -5714,7 +5716,7 @@ pa_spaces_begin () 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; @@ -5725,35 +5727,35 @@ pa_spaces_begin () 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); @@ -5968,7 +5970,7 @@ create_new_subspace (space, name, loadable, code_only, common, } #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 @@ -6015,7 +6017,7 @@ update_subspace (space, name, loadable, code_only, common, dup_common, sort, 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 @@ -6080,7 +6082,7 @@ static ssd_chain_struct * 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. */ @@ -6324,7 +6326,7 @@ pa_desc (unused) } /* Like float_cons, but we need to undefine our label. */ - + static void pa_float_cons (float_type) int float_type; @@ -6384,7 +6386,7 @@ pa_text (unused) use it in a relocation -- yuk. */ int -hppa_fix_adjustable (fixp) +hppa_fix_adjustable (fixp) fixS *fixp; { struct hppa_fix_struct *hppa_fix; @@ -6394,13 +6396,13 @@ hppa_fix_adjustable (fixp) 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; @@ -6555,7 +6557,7 @@ pa_build_symextn_section () 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); @@ -6588,10 +6590,10 @@ elf_hppa_final_processing () 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 |