espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-27 22:48:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

* config/tc-hppa.c (is_complex): New macro.

Browse Source 
(cons_fix_new_hppa): "Handle" complex expressions.
This commit is contained in:
Jeff Law
1994-07-05 00:37:14 +00:00
parent 51684caad1
commit 655f3ef4af
2 changed files with 24 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
gas/ChangeLog
View File

@ -1,3 +1,13 @@
Mon Jul 4 18:29:43 1994 Jeff Law (law@snake.cs.utah.edu)
* config/tc-hppa.c (is_complex): New macro.
(cons_fix_new_hppa): "Handle" complex expressions.
Fri Jul 1 00:48:12 1994 Ian Lance Taylor (ian@tweedledumb.cygnus.com)
* config/obj-coff.c (write_object_file): Set s_align field from
section_alignment array.
Thu Jun 30 15:05:28 1994 Ken Raeburn (raeburn@cujo.cygnus.com) Thu Jun 30 15:05:28 1994 Ken Raeburn (raeburn@cujo.cygnus.com)
* write.c (write_object_file): Use bfd_com_section_ptr. * write.c (write_object_file): Use bfd_com_section_ptr.

20
gas/config/tc-hppa.c
View File

@ -1092,6 +1092,12 @@ static struct default_space_dict pa_def_spaces[] =
((exp).X_op == O_subtract \ ((exp).X_op == O_subtract \
&& strcmp((exp).X_op_symbol->bsym->name, "$PIC_pcrel$0") == 0) && strcmp((exp).X_op_symbol->bsym->name, "$PIC_pcrel$0") == 0)
/* We need some complex handling for stabs (sym1 - sym2). Luckily, we'll
always be able to reduce the expression to a constant, so we don't
need real complex handling yet. */
#define is_complex(exp) \
((exp).X_op != O_constant && (exp).X_op != O_symbol)
/* Actual functions to implement the PA specific code for the assembler. */ /* Actual functions to implement the PA specific code for the assembler. */
/* Returns a pointer to the label_symbol_struct for the current space. /* Returns a pointer to the label_symbol_struct for the current space.
@ -1251,8 +1257,12 @@ cons_fix_new_hppa (frag, where, size, exp)
{ {
unsigned int rel_type; unsigned int rel_type;
/* Get a base relocation type. We use NONE for complex as it should
always be reducable to a constant in the cases we generate. */
if (is_DP_relative (*exp)) if (is_DP_relative (*exp))
rel_type = R_HPPA_GOTOFF; rel_type = R_HPPA_GOTOFF;
else if (is_complex (*exp))
rel_type = R_HPPA_NONE;
else else
rel_type = R_HPPA; rel_type = R_HPPA;
@ -2561,8 +2571,6 @@ tc_gen_reloc (section, fixp)
arelent *reloc; arelent *reloc;
struct hppa_fix_struct *hppa_fixp; struct hppa_fix_struct *hppa_fixp;
bfd_reloc_code_real_type code; bfd_reloc_code_real_type code;
static int unwind_reloc_fixp_cnt = 0;
static arelent *unwind_reloc_entryP = NULL;
static arelent *no_relocs = NULL; static arelent *no_relocs = NULL;
arelent **relocs; arelent **relocs;
bfd_reloc_code_real_type **codes; bfd_reloc_code_real_type **codes;
@ -4293,7 +4301,7 @@ pa_comm (unused)
{ {
if (S_GET_VALUE (symbol) != size) if (S_GET_VALUE (symbol) != size)
{ {
as_warn ("Length of .comm \"%s\" is already %d. Not changed.", as_warn ("Length of .comm \"%s\" is already %ld. Not changed.",
S_GET_NAME (symbol), S_GET_VALUE (symbol)); S_GET_NAME (symbol), S_GET_VALUE (symbol));
return; return;
} }
@ -4776,8 +4784,6 @@ pa_proc (unused)
int unused; int unused;
{ {
struct call_info *call_info; struct call_info *call_info;
segT seg;
if (within_procedure) if (within_procedure)
as_fatal ("Nested procedures"); as_fatal ("Nested procedures");
@ -4794,6 +4800,8 @@ pa_proc (unused)
using space/subspace aliases. */ using space/subspace aliases. */
if (!USE_ALIASES && call_info_root != NULL) if (!USE_ALIASES && call_info_root != NULL)
{ {
segT seg;
/* Force creation of a new $CODE$ subspace; inherit attributes from /* Force creation of a new $CODE$ subspace; inherit attributes from
the first $CODE$ subspace. */ the first $CODE$ subspace. */
seg = subseg_force_new ("$CODE$", 0); seg = subseg_force_new ("$CODE$", 0);
@ -5155,7 +5163,7 @@ pa_space (unused)
save_s = input_line_pointer; save_s = input_line_pointer;
if ((temp = pa_parse_number (&input_line_pointer, 0)) >= 0) if ((temp = pa_parse_number (&input_line_pointer, 0)) >= 0)
{ {
if (sd_chain = pa_find_space_by_number (temp)) if ((sd_chain = pa_find_space_by_number (temp)))
{ {
current_space = sd_chain; current_space = sd_chain;