FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* write.c (write_object_file): If tc_frob_file is defined, call it

Browse source 
just before calling obj_frob_file.
* config/tc-alpha.c (alpha_gp_value): Renamed from gp_value (refs changed), made
non-static.
(getExpression): Return void.
(select_gp_value): Abort if gp_value is non-zero.  Delete call to non-existent
bfd_set_gp_value.
(alpha_validate_fix): Function deleted.
(alpha_frob_symbol): Function deleted.
(alpha_local_label): Function deleted.
(alpha_frob_file): Renamed from alpha_end.
* config/tc-alpha.h (alpha_frob_symbol, alpha_validate_fix, alpha_local_label,
alpha_end): Declarations deleted.
(alpha_gp_value, alpha_frob_file): Declare.
(tc_frob_symbol, TC_VALIDATE_FIX, md_end): Macros deleted.
(LOCAL_LABEL): Move code here from tc-alpha.c:alpha_local_label.
(md_convert_frag): Simplified slightly.
(tc_frob_file): New macro.
This commit is contained in:
Ken Raeburn 1994-01-30 23:21:55 +00:00
parent a627df96dc
commit c79e67a3b7
2 changed files with 44 additions and 79 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

119
gas/config/tc-alpha.c
View file

@ -50,17 +50,6 @@
* 5-Oct-93 Alessandro Forin (af) at Carnegie-Mellon University * 5-Oct-93 Alessandro Forin (af) at Carnegie-Mellon University
* First Checkin * First Checkin
* *
* $Log$
* Revision 1.1 1994/01/28 01:36:53 raeburn
* New Alpha support files, based on files from CMU.
* Still to do:
* - fix floating-point handling
* - figure out if we can adapt to using ../opcodes/alpha-opc.h
* - gcc bootstrap testing
* - 32-bit mode support?
* - test cross-assembly
*
*
* Author: Alessandro Forin, Carnegie Mellon University * Author: Alessandro Forin, Carnegie Mellon University
* Date: Jan 1993 * Date: Jan 1993
*/ */
@ -85,7 +74,7 @@ static segT lita_sec, rdata, sdata;
static int at_ok = 1, macro_ok = 1; static int at_ok = 1, macro_ok = 1;
/* Keep track of global pointer. */ /* Keep track of global pointer. */
static valueT gp_value; valueT alpha_gp_value;
static symbolS *gp; static symbolS *gp;
/* We'll probably be using this relocation frequently, and we /* We'll probably be using this relocation frequently, and we
@ -104,6 +93,7 @@ extern PTR bfd_alloc_by_size_t ();
extern void s_globl (), s_long (), s_short (), s_space (), cons (), s_text (), extern void s_globl (), s_long (), s_short (), s_space (), cons (), s_text (),
s_data (), float_cons (); s_data (), float_cons ();
/* Static functions, needing forward declarations. */
static void s_mask (), s_base (), s_proc (), s_alpha_set (); static void s_mask (), s_base (), s_proc (), s_alpha_set ();
static void s_gprel32 (), s_rdata (), s_sdata (), s_alpha_comm (); static void s_gprel32 (), s_rdata (), s_sdata (), s_alpha_comm ();
static int alpha_ip (); static int alpha_ip ();
@ -210,7 +200,7 @@ struct alpha_it {
struct reloc_data reloc[MAX_RELOCS]; struct reloc_data reloc[MAX_RELOCS];
}; };
static int getExpression (char *str, struct alpha_it *insn); static void getExpression (char *str, struct alpha_it *insn);
static char *expr_end; static char *expr_end;
#define note_gpreg(R) (alpha_gprmask |= (1 << (R))) #define note_gpreg(R) (alpha_gprmask |= (1 << (R)))
@ -333,15 +323,6 @@ s_alpha_comm (ignore)
demand_empty_rest_of_line (); demand_empty_rest_of_line ();
} }
int
alpha_local_label (name)
const char *name;
{
if (name[0] == 'L' /* || name[0] == '$' */)
return 1;
return 0;
}
arelent * arelent *
tc_gen_reloc (sec, fixp) tc_gen_reloc (sec, fixp)
asection *sec; asection *sec;
@ -596,37 +577,36 @@ md_assemble (str)
static void static void
select_gp_value () select_gp_value ()
{ {
if (gp_value == 0) bfd_vma lita_vma, sdata_vma;
/* Must be first time through -- pick a GP to use for this file. */
{ if (alpha_gp_value != 0)
bfd_vma lita_vma, sdata_vma; abort ();
if (lita_sec)
lita_vma = bfd_get_section_vma (abfd, lita_sec); if (lita_sec)
else lita_vma = bfd_get_section_vma (abfd, lita_sec);
lita_vma = 0; else
lita_vma = 0;
#if 0 #if 0
if (sdata) if (sdata)
sdata_vma = bfd_get_section_vma (abfd, sdata); sdata_vma = bfd_get_section_vma (abfd, sdata);
else else
#endif #endif
sdata = 0; sdata = 0;
if (lita_vma == 0 if (lita_vma == 0
/* Who knows which order they'll get laid out in? */ /* Who knows which order they'll get laid out in? */
|| (sdata_vma != 0 && sdata_vma < lita_vma)) || (sdata_vma != 0 && sdata_vma < lita_vma))
gp_value = sdata_vma; alpha_gp_value = sdata_vma;
else else
gp_value = lita_vma; alpha_gp_value = lita_vma;
gp_value += GP_ADJUSTMENT; alpha_gp_value += GP_ADJUSTMENT;
S_SET_VALUE (gp, gp_value); S_SET_VALUE (gp, alpha_gp_value);
#ifdef DEBUG1 #ifdef DEBUG1
printf ("Chose GP value of %lx\n", gp_value); printf ("Chose GP value of %lx\n", alpha_gp_value);
#endif #endif
bfd_set_gp_value (stdoutput, gp_value);
}
} }
int int
@ -672,25 +652,6 @@ alpha_fix_adjustable (f)
return !alpha_force_relocation (f); return !alpha_force_relocation (f);
} }
int
alpha_validate_fix (fixp, seg)
fixS *fixp;
segT seg;
{
/* We must make sure we've got a good GP value if any relocations might
use it... */
if (gp_value == 0)
select_gp_value ();
return 0;
}
int
alpha_frob_symbol (s)
symbolS *s;
{
return 0;
}
unsigned long unsigned long
md_section_align (seg, size) md_section_align (seg, size)
segT seg; segT seg;
@ -804,7 +765,7 @@ load_expression (reg, insn)
return num_insns; return num_insns;
} }
static inline int static inline void
getExpression (str, this_insn) getExpression (str, this_insn)
char *str; char *str;
struct alpha_it *this_insn; struct alpha_it *this_insn;
@ -861,14 +822,12 @@ getExpression (str, this_insn)
/* XXX validate seg and exp, make sure they're reasonable */ /* XXX validate seg and exp, make sure they're reasonable */
expr_end = input_line_pointer; expr_end = input_line_pointer;
input_line_pointer = save_in; input_line_pointer = save_in;
return 0;
} }
/* Note that for now, this function is called recursively. Some of the /* Note that for now, this function is called recursively (by way of
macros defined as part of the assembly language are currently calling md_assemble again). Some of the macros defined as part of
rewritten as sequences of strings to be assembled. See, for example, the assembly language are currently rewritten as sequences of
the handling of "divq". strings to be assembled. See, for example, the handling of "divq".
For efficiency, this should be fixed someday. */ For efficiency, this should be fixed someday. */
static int static int
@ -1150,7 +1109,7 @@ alpha_ip (str, insns)
immediate: immediate:
if (*s == ' ') if (*s == ' ')
s++; s++;
(void) getExpression (s, &insns[0]); getExpression (s, &insns[0]);
s = expr_end; s = expr_end;
/* Handle overflow in certain instructions by converting /* Handle overflow in certain instructions by converting
to other instructions. */ to other instructions. */
@ -1220,7 +1179,7 @@ alpha_ip (str, insns)
if (*s == ' ') if (*s == ' ')
s++; s++;
(void) getExpression (s, &insns[0]); getExpression (s, &insns[0]);
s = expr_end; s = expr_end;
/* Must check for "lda ..,number" too */ /* Must check for "lda ..,number" too */
@ -1239,8 +1198,6 @@ alpha_ip (str, insns)
insns[1].reloc[0].code = BFD_RELOC_NONE; insns[1].reloc[0].code = BFD_RELOC_NONE;
sval = val; sval = val;
if (0)
fprintf (stderr, "val %lx sval %lx\n", val, sval);
if ((sval != val) && (val & 0x8000)) if ((sval != val) && (val & 0x8000))
{ {
val += 0x10000; val += 0x10000;
@ -1390,7 +1347,7 @@ alpha_ip (str, insns)
/* We still have to parse the function name */ /* We still have to parse the function name */
if (*s == ' ') if (*s == ' ')
s++; s++;
(void) getExpression (s, &insns[0]); getExpression (s, &insns[0]);
etmp = insns[0].reloc[0].exp; etmp = insns[0].reloc[0].exp;
s = expr_end; s = expr_end;
num_gen = load_expression (PV, &insns[0]); num_gen = load_expression (PV, &insns[0]);
@ -1558,6 +1515,7 @@ md_atof (type, litP, sizeP)
{ {
/* VAX floats */ /* VAX floats */
case 'G': case 'G':
/* VAX md_atof doesn't like "G" for some reason. */
type = 'g'; type = 'g';
case 'F': case 'F':
case 'D': case 'D':
@ -1874,7 +1832,7 @@ md_apply_fix (fixP, valueP)
case BFD_RELOC_GPREL32: case BFD_RELOC_GPREL32:
assert (fixP->fx_subsy == gp); assert (fixP->fx_subsy == gp);
value = - gp_value; /* huh? this works... */ value = - alpha_gp_value; /* huh? this works... */
fixP->fx_subsy = 0; fixP->fx_subsy = 0;
md_number_to_chars (p, value, 4); md_number_to_chars (p, value, 4);
break; break;
@ -1904,11 +1862,14 @@ md_apply_fix (fixP, valueP)
} }
void void
alpha_end () alpha_frob_file ()
{ {
/* This bit only works because tc_frob_file gets called before
obj_frob_file does. Sigh. */
select_gp_value ();
/* $zero and $f31 are read-only */ /* $zero and $f31 are read-only */
alpha_gprmask &= ~(1L << 31); alpha_gprmask &= ~1;
alpha_fprmask &= ~(1L << 31); alpha_fprmask &= ~1;
} }
/* The Alpha has support for some VAX floating point types, as well as for /* The Alpha has support for some VAX floating point types, as well as for

4
gas/write.c
View file

@ -1435,6 +1435,10 @@ write_object_file ()
} }
} }
#ifdef tc_frob_file
tc_frob_file ();
#endif
#ifdef obj_frob_file #ifdef obj_frob_file
/* If obj_frob_file changes the symbol value at this point, it is /* If obj_frob_file changes the symbol value at this point, it is
responsible for moving the changed value into symp->bsym->value responsible for moving the changed value into symp->bsym->value