1999-05-03 07:29:11 +00:00
|
|
|
|
/* frags.c - manage frags -
|
2015-01-01 14:15:26 +00:00
|
|
|
|
Copyright (C) 1987-2015 Free Software Foundation, Inc.
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
This file is part of GAS, the GNU Assembler.
|
|
|
|
|
|
|
|
|
|
GAS is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-03 11:01:12 +00:00
|
|
|
|
the Free Software Foundation; either version 3, or (at your option)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GAS is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with GAS; see the file COPYING. If not, write to the Free
|
2005-05-05 09:13:19 +00:00
|
|
|
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
|
|
|
|
02110-1301, USA. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
#include "as.h"
|
|
|
|
|
#include "subsegs.h"
|
|
|
|
|
#include "obstack.h"
|
|
|
|
|
|
|
|
|
|
extern fragS zero_address_frag;
|
2011-10-12 21:07:07 +00:00
|
|
|
|
extern fragS predefined_address_frag;
|
2014-03-21 11:53:42 +00:00
|
|
|
|
|
|
|
|
|
static int totalfrags;
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
get_frag_count (void)
|
|
|
|
|
{
|
|
|
|
|
return totalfrags;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
|
clear_frag_count (void)
|
|
|
|
|
{
|
|
|
|
|
totalfrags = 0;
|
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
/* Initialization for frag routines. */
|
2000-08-31 18:36:18 +00:00
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
|
void
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_init (void)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
zero_address_frag.fr_type = rs_fill;
|
2011-10-12 21:07:07 +00:00
|
|
|
|
predefined_address_frag.fr_type = rs_fill;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
}
|
|
|
|
|
|
2003-07-15 01:33:54 +00:00
|
|
|
|
/* Check that we're not trying to assemble into a section that can't
|
|
|
|
|
allocate frags (currently, this is only possible in the absolute
|
|
|
|
|
section), or into an mri common. */
|
|
|
|
|
|
|
|
|
|
static void
|
|
|
|
|
frag_alloc_check (const struct obstack *ob)
|
|
|
|
|
{
|
|
|
|
|
if (ob->chunk_size == 0)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("attempt to allocate data in absolute section"));
|
|
|
|
|
subseg_set (text_section, 0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (mri_common_symbol != NULL)
|
|
|
|
|
{
|
|
|
|
|
as_bad (_("attempt to allocate data in common section"));
|
|
|
|
|
mri_common_symbol = NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
|
/* Allocate a frag on the specified obstack.
|
|
|
|
|
Call this routine from everywhere else, so that all the weird alignment
|
|
|
|
|
hackery can be done in just one place. */
|
2000-08-31 18:36:18 +00:00
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
|
fragS *
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_alloc (struct obstack *ob)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
fragS *ptr;
|
|
|
|
|
int oalign;
|
|
|
|
|
|
|
|
|
|
(void) obstack_alloc (ob, 0);
|
|
|
|
|
oalign = obstack_alignment_mask (ob);
|
|
|
|
|
obstack_alignment_mask (ob) = 0;
|
2009-09-11 15:27:38 +00:00
|
|
|
|
ptr = (fragS *) obstack_alloc (ob, SIZEOF_STRUCT_FRAG);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
obstack_alignment_mask (ob) = oalign;
|
|
|
|
|
memset (ptr, 0, SIZEOF_STRUCT_FRAG);
|
2014-03-21 11:53:42 +00:00
|
|
|
|
totalfrags++;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
return ptr;
|
|
|
|
|
}
|
|
|
|
|
|
2011-07-27 06:54:12 +00:00
|
|
|
|
/* Try to augment current frag by nchars chars.
|
2000-08-31 18:36:18 +00:00
|
|
|
|
If there is no room, close of the current frag with a ".fill 0"
|
2011-07-27 06:54:12 +00:00
|
|
|
|
and begin a new frag. Unless the new frag has nchars chars available
|
|
|
|
|
do not return. Do not set up any fields of *now_frag. */
|
2000-08-31 18:36:18 +00:00
|
|
|
|
|
|
|
|
|
void
|
2014-07-26 11:30:50 +00:00
|
|
|
|
frag_grow (size_t nchars)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
if (obstack_room (&frchain_now->frch_obstack) < nchars)
|
|
|
|
|
{
|
2014-07-26 11:30:50 +00:00
|
|
|
|
size_t oldc;
|
|
|
|
|
size_t newc;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
2005-05-10 15:10:08 +00:00
|
|
|
|
/* Try to allocate a bit more than needed right now. But don't do
|
|
|
|
|
this if we would waste too much memory. Especially necessary
|
2011-08-01 08:05:49 +00:00
|
|
|
|
for extremely big (like 2GB initialized) frags. */
|
2005-05-10 15:10:08 +00:00
|
|
|
|
if (nchars < 0x10000)
|
2011-08-01 08:05:49 +00:00
|
|
|
|
newc = 2 * nchars;
|
2005-05-10 15:10:08 +00:00
|
|
|
|
else
|
2011-08-01 08:05:49 +00:00
|
|
|
|
newc = nchars + 0x10000;
|
|
|
|
|
newc += SIZEOF_STRUCT_FRAG;
|
|
|
|
|
|
|
|
|
|
/* Check for possible overflow. */
|
2014-07-26 11:30:50 +00:00
|
|
|
|
if (newc < nchars)
|
|
|
|
|
as_fatal (_("can't extend frag %lu chars"), (unsigned long) nchars);
|
2011-08-01 08:05:49 +00:00
|
|
|
|
|
2012-08-03 22:23:44 +00:00
|
|
|
|
/* Force to allocate at least NEWC bytes, but not less than the
|
|
|
|
|
default. */
|
2011-08-01 08:05:49 +00:00
|
|
|
|
oldc = obstack_chunk_size (&frchain_now->frch_obstack);
|
2012-08-03 22:23:44 +00:00
|
|
|
|
if (newc > oldc)
|
|
|
|
|
obstack_chunk_size (&frchain_now->frch_obstack) = newc;
|
2011-08-01 08:05:49 +00:00
|
|
|
|
|
|
|
|
|
while (obstack_room (&frchain_now->frch_obstack) < nchars)
|
|
|
|
|
{
|
|
|
|
|
/* Not enough room in this frag. Close it and start a new one.
|
|
|
|
|
This must be done in a loop because the created frag may not
|
|
|
|
|
be big enough if the current obstack chunk is used. */
|
|
|
|
|
frag_wane (frag_now);
|
|
|
|
|
frag_new (0);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Restore the old chunk size. */
|
|
|
|
|
obstack_chunk_size (&frchain_now->frch_obstack) = oldc;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
/* Call this to close off a completed frag, and start up a new (empty)
|
|
|
|
|
frag, in the same subsegment as the old frag.
|
|
|
|
|
[frchain_now remains the same but frag_now is updated.]
|
|
|
|
|
Because this calculates the correct value of fr_fix by
|
|
|
|
|
looking at the obstack 'frags', it needs to know how many
|
|
|
|
|
characters at the end of the old frag belong to the maximal
|
|
|
|
|
variable part; The rest must belong to fr_fix.
|
|
|
|
|
It doesn't actually set up the old frag's fr_var. You may have
|
|
|
|
|
set fr_var == 1, but allocated 10 chars to the end of the frag;
|
|
|
|
|
In this case you pass old_frags_var_max_size == 10.
|
|
|
|
|
In fact, you may use fr_var for something totally unrelated to the
|
|
|
|
|
size of the variable part of the frag; None of the generic frag
|
|
|
|
|
handling code makes use of fr_var.
|
|
|
|
|
|
|
|
|
|
Make a new frag, initialising some components. Link new frag at end
|
|
|
|
|
of frchain_now. */
|
|
|
|
|
|
|
|
|
|
void
|
2014-07-26 11:30:50 +00:00
|
|
|
|
frag_new (size_t old_frags_var_max_size
|
2003-11-22 16:03:03 +00:00
|
|
|
|
/* Number of chars (already allocated on obstack frags) in
|
|
|
|
|
variable_length part of frag. */)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
fragS *former_last_fragP;
|
|
|
|
|
frchainS *frchP;
|
|
|
|
|
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 17:56:02 +00:00
|
|
|
|
gas_assert (frchain_now->frch_last == frag_now);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
/* Fix up old frag's fr_fix. */
|
2000-02-03 18:20:23 +00:00
|
|
|
|
frag_now->fr_fix = frag_now_fix_octets () - old_frags_var_max_size;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
/* Make sure its type is valid. */
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 17:56:02 +00:00
|
|
|
|
gas_assert (frag_now->fr_type != 0);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
/* This will align the obstack so the next struct we allocate on it
|
2000-08-31 18:36:18 +00:00
|
|
|
|
will begin at a correct boundary. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
obstack_finish (&frchain_now->frch_obstack);
|
|
|
|
|
frchP = frchain_now;
|
|
|
|
|
know (frchP);
|
|
|
|
|
former_last_fragP = frchP->frch_last;
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 17:56:02 +00:00
|
|
|
|
gas_assert (former_last_fragP != 0);
|
|
|
|
|
gas_assert (former_last_fragP == frag_now);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
frag_now = frag_alloc (&frchP->frch_obstack);
|
|
|
|
|
|
|
|
|
|
as_where (&frag_now->fr_file, &frag_now->fr_line);
|
|
|
|
|
|
|
|
|
|
/* Generally, frag_now->points to an address rounded up to next
|
|
|
|
|
alignment. However, characters will add to obstack frags
|
|
|
|
|
IMMEDIATELY after the struct frag, even if they are not starting
|
2000-08-31 18:36:18 +00:00
|
|
|
|
at an alignment address. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
former_last_fragP->fr_next = frag_now;
|
|
|
|
|
frchP->frch_last = frag_now;
|
|
|
|
|
|
|
|
|
|
#ifndef NO_LISTING
|
|
|
|
|
{
|
|
|
|
|
extern struct list_info_struct *listing_tail;
|
|
|
|
|
frag_now->line = listing_tail;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
* gas/app, gas/as.c, gas/as.h, gas/atof-generic.c, gas/cgen.c,
gas/config/atof-ieee.c, gas/config/obj-aout.c,
gas/config/obj-coff.c, gas/config/obj-ecoff.c,
gas/config/obj-elf.c, gas/config/obj-som.c, gas/config/tc-alpha.c,
gas/config/tc-arc.c, gas/config/tc-arm.c, gas/config/tc-cr16.c,
gas/config/tc-cris.c, gas/config/tc-crx.c, gas/config/tc-d30v.c,
gas/config/tc-dlx.c, gas/config/tc-hppa.c, gas/config/tc-i370.c,
gas/config/tc-i386-intel.c, gas/config/tc-i386.c,
gas/config/tc-i860.c, gas/config/tc-i960.c, gas/config/tc-ia64.c,
gas/config/tc-iq2000.c, gas/config/tc-m32c.c,
gas/config/tc-m32r.c, gas/config/tc-m68hc11.c,
gas/config/tc-m68k.c, gas/config/tc-maxq.c, gas/config/tc-mcore.c,
gas/config/tc-mep.c, gas/config/tc-mips.c, gas/config/tc-mmix.c,
gas/config/tc-mn10300.c, gas/config/tc-moxie.c,
gas/config/tc-ns32k.c, gas/config/tc-pj.c, gas/config/tc-ppc.c,
gas/config/tc-s390.c, gas/config/tc-score.c,
gas/config/tc-score7.c, gas/config/tc-sh.c, gas/config/tc-sparc.c,
gas/config/tc-spu.c, gas/config/tc-tic30.c, gas/config/tc-vax.c,
gas/config/tc-xtensa.c, gas/config/xtensa-relax.c,
gas/dw2gencfi.c, gas/dwarf2dbg.c, gas/ehopt.c, gas/expr.c,
gas/frags.c, gas/input-file.c, gas/read.c, gas/sb.c,
gas/subsegs.c, gas/symbols.c, gas/write.c: Change the name of the
gas macro `assert' to `gas_assert'.
2009-06-22 17:56:02 +00:00
|
|
|
|
gas_assert (frchain_now->frch_last == frag_now);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
frag_now->fr_next = NULL;
|
2000-08-31 18:36:18 +00:00
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
/* Start a new frag unless we have n more chars of room in the current frag.
|
|
|
|
|
Close off the old frag with a .fill 0.
|
|
|
|
|
|
|
|
|
|
Return the address of the 1st char to write into. Advance
|
|
|
|
|
frag_now_growth past the new chars. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
char *
|
2014-07-26 11:30:50 +00:00
|
|
|
|
frag_more (size_t nchars)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
Don't use register keyword
* expr.c (expr_symbol_where): Don't use register keyword.
* app.c (app_push, app_pop, do_scrub_chars): Likewise.
* ecoff.c (add_string, add_ecoff_symbol, add_aux_sym_symint,
add_aux_sym_rndx, add_aux_sym_tir, add_procedure, add_file,
ecoff_build_lineno, ecoff_setup_ext, allocate_cluster.
allocate_scope, allocate_vlinks, allocate_shash,
allocate_thash, allocate_tag, allocate_forward, allocate_thead,
allocate_lineno_list): Likewise.
* frags.c (frag_more, frag_var, frag_variant, frag_wane): Likewise.
* input-file.c (input_file_push, input_file_pop): Likewise.
* input-scrub.c (input_scrub_push, input_scrub_next_buffer): Likewise.
* subsegs.c (subseg_change): Likewise.
* symbols.c (colon, symbol_table_insert, symbol_find_or_make)
(dollar_label_name, fb_label_name): Likewise.
* write.c (relax_align): Likewise.
* config/tc-alpha.c (s_alpha_pdesc): Likewise.
* config/tc-bfin.c (bfin_s_bss): Likewise.
* config/tc-i860.c (md_estimate_size_before_relax): Likewise.
* config/tc-m68hc11.c (md_convert_frag): Likewise.
* config/tc-m68k.c (m68k_ip, crack_operand): Likewise.
(md_convert_frag_1, s_even): Likewise.
* config/tc-mips.c (mips_clear_insn_labels): Likewise.
* config/tc-mn10200.c (md_begin): Likewise.
* config/tc-s390.c (s390_setup_opcodes, md_begin): Likewise.
* config/tc-sh.c (sh_elf_cons): Likewise.
* config/tc-tic4x.c (tic4x_cons, tic4x_stringer): Likewise.
* config/m68k-parse.y (m68k_reg_parse): Likewise. Convert from K&R.
(yylex, m68k_ip_op, yyerror): Convert from K&R.
2014-11-04 05:01:09 +00:00
|
|
|
|
char *retval;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
2003-07-15 01:33:54 +00:00
|
|
|
|
frag_alloc_check (&frchain_now->frch_obstack);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
frag_grow (nchars);
|
|
|
|
|
retval = obstack_next_free (&frchain_now->frch_obstack);
|
|
|
|
|
obstack_blank_fast (&frchain_now->frch_obstack, nchars);
|
Don't use register keyword
* expr.c (expr_symbol_where): Don't use register keyword.
* app.c (app_push, app_pop, do_scrub_chars): Likewise.
* ecoff.c (add_string, add_ecoff_symbol, add_aux_sym_symint,
add_aux_sym_rndx, add_aux_sym_tir, add_procedure, add_file,
ecoff_build_lineno, ecoff_setup_ext, allocate_cluster.
allocate_scope, allocate_vlinks, allocate_shash,
allocate_thash, allocate_tag, allocate_forward, allocate_thead,
allocate_lineno_list): Likewise.
* frags.c (frag_more, frag_var, frag_variant, frag_wane): Likewise.
* input-file.c (input_file_push, input_file_pop): Likewise.
* input-scrub.c (input_scrub_push, input_scrub_next_buffer): Likewise.
* subsegs.c (subseg_change): Likewise.
* symbols.c (colon, symbol_table_insert, symbol_find_or_make)
(dollar_label_name, fb_label_name): Likewise.
* write.c (relax_align): Likewise.
* config/tc-alpha.c (s_alpha_pdesc): Likewise.
* config/tc-bfin.c (bfin_s_bss): Likewise.
* config/tc-i860.c (md_estimate_size_before_relax): Likewise.
* config/tc-m68hc11.c (md_convert_frag): Likewise.
* config/tc-m68k.c (m68k_ip, crack_operand): Likewise.
(md_convert_frag_1, s_even): Likewise.
* config/tc-mips.c (mips_clear_insn_labels): Likewise.
* config/tc-mn10200.c (md_begin): Likewise.
* config/tc-s390.c (s390_setup_opcodes, md_begin): Likewise.
* config/tc-sh.c (sh_elf_cons): Likewise.
* config/tc-tic4x.c (tic4x_cons, tic4x_stringer): Likewise.
* config/m68k-parse.y (m68k_reg_parse): Likewise. Convert from K&R.
(yylex, m68k_ip_op, yyerror): Convert from K&R.
2014-11-04 05:01:09 +00:00
|
|
|
|
return retval;
|
2000-08-31 18:36:18 +00:00
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
2011-07-29 07:34:14 +00:00
|
|
|
|
/* Close the current frag, setting its fields for a relaxable frag. Start a
|
|
|
|
|
new frag. */
|
2000-08-31 18:36:18 +00:00
|
|
|
|
|
2011-07-29 07:34:14 +00:00
|
|
|
|
static void
|
2014-07-26 11:30:50 +00:00
|
|
|
|
frag_var_init (relax_stateT type, size_t max_chars, size_t var,
|
|
|
|
|
relax_substateT subtype, symbolS *symbol, offsetT offset,
|
2011-07-29 07:34:14 +00:00
|
|
|
|
char *opcode)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
frag_now->fr_var = var;
|
|
|
|
|
frag_now->fr_type = type;
|
|
|
|
|
frag_now->fr_subtype = subtype;
|
|
|
|
|
frag_now->fr_symbol = symbol;
|
|
|
|
|
frag_now->fr_offset = offset;
|
|
|
|
|
frag_now->fr_opcode = opcode;
|
|
|
|
|
#ifdef USING_CGEN
|
|
|
|
|
frag_now->fr_cgen.insn = 0;
|
|
|
|
|
frag_now->fr_cgen.opindex = 0;
|
|
|
|
|
frag_now->fr_cgen.opinfo = 0;
|
|
|
|
|
#endif
|
|
|
|
|
#ifdef TC_FRAG_INIT
|
|
|
|
|
TC_FRAG_INIT (frag_now);
|
|
|
|
|
#endif
|
|
|
|
|
as_where (&frag_now->fr_file, &frag_now->fr_line);
|
2011-07-29 07:34:14 +00:00
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
|
frag_new (max_chars);
|
2011-07-29 07:34:14 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Start a new frag unless we have max_chars more chars of room in the
|
|
|
|
|
current frag. Close off the old frag with a .fill 0.
|
|
|
|
|
|
|
|
|
|
Set up a machine_dependent relaxable frag, then start a new frag.
|
|
|
|
|
Return the address of the 1st char of the var part of the old frag
|
|
|
|
|
to write into. */
|
|
|
|
|
|
|
|
|
|
char *
|
2014-07-26 11:30:50 +00:00
|
|
|
|
frag_var (relax_stateT type, size_t max_chars, size_t var,
|
|
|
|
|
relax_substateT subtype, symbolS *symbol, offsetT offset,
|
|
|
|
|
char *opcode)
|
2011-07-29 07:34:14 +00:00
|
|
|
|
{
|
Don't use register keyword
* expr.c (expr_symbol_where): Don't use register keyword.
* app.c (app_push, app_pop, do_scrub_chars): Likewise.
* ecoff.c (add_string, add_ecoff_symbol, add_aux_sym_symint,
add_aux_sym_rndx, add_aux_sym_tir, add_procedure, add_file,
ecoff_build_lineno, ecoff_setup_ext, allocate_cluster.
allocate_scope, allocate_vlinks, allocate_shash,
allocate_thash, allocate_tag, allocate_forward, allocate_thead,
allocate_lineno_list): Likewise.
* frags.c (frag_more, frag_var, frag_variant, frag_wane): Likewise.
* input-file.c (input_file_push, input_file_pop): Likewise.
* input-scrub.c (input_scrub_push, input_scrub_next_buffer): Likewise.
* subsegs.c (subseg_change): Likewise.
* symbols.c (colon, symbol_table_insert, symbol_find_or_make)
(dollar_label_name, fb_label_name): Likewise.
* write.c (relax_align): Likewise.
* config/tc-alpha.c (s_alpha_pdesc): Likewise.
* config/tc-bfin.c (bfin_s_bss): Likewise.
* config/tc-i860.c (md_estimate_size_before_relax): Likewise.
* config/tc-m68hc11.c (md_convert_frag): Likewise.
* config/tc-m68k.c (m68k_ip, crack_operand): Likewise.
(md_convert_frag_1, s_even): Likewise.
* config/tc-mips.c (mips_clear_insn_labels): Likewise.
* config/tc-mn10200.c (md_begin): Likewise.
* config/tc-s390.c (s390_setup_opcodes, md_begin): Likewise.
* config/tc-sh.c (sh_elf_cons): Likewise.
* config/tc-tic4x.c (tic4x_cons, tic4x_stringer): Likewise.
* config/m68k-parse.y (m68k_reg_parse): Likewise. Convert from K&R.
(yylex, m68k_ip_op, yyerror): Convert from K&R.
2014-11-04 05:01:09 +00:00
|
|
|
|
char *retval;
|
2011-07-29 07:34:14 +00:00
|
|
|
|
|
|
|
|
|
frag_grow (max_chars);
|
|
|
|
|
retval = obstack_next_free (&frchain_now->frch_obstack);
|
|
|
|
|
obstack_blank_fast (&frchain_now->frch_obstack, max_chars);
|
|
|
|
|
frag_var_init (type, max_chars, var, subtype, symbol, offset, opcode);
|
|
|
|
|
return retval;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
}
|
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
/* OVE: This variant of frag_var assumes that space for the tail has been
|
|
|
|
|
allocated by caller.
|
|
|
|
|
No call to frag_grow is done. */
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
char *
|
2014-07-26 11:30:50 +00:00
|
|
|
|
frag_variant (relax_stateT type, size_t max_chars, size_t var,
|
2003-11-22 16:03:03 +00:00
|
|
|
|
relax_substateT subtype, symbolS *symbol, offsetT offset,
|
|
|
|
|
char *opcode)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
Don't use register keyword
* expr.c (expr_symbol_where): Don't use register keyword.
* app.c (app_push, app_pop, do_scrub_chars): Likewise.
* ecoff.c (add_string, add_ecoff_symbol, add_aux_sym_symint,
add_aux_sym_rndx, add_aux_sym_tir, add_procedure, add_file,
ecoff_build_lineno, ecoff_setup_ext, allocate_cluster.
allocate_scope, allocate_vlinks, allocate_shash,
allocate_thash, allocate_tag, allocate_forward, allocate_thead,
allocate_lineno_list): Likewise.
* frags.c (frag_more, frag_var, frag_variant, frag_wane): Likewise.
* input-file.c (input_file_push, input_file_pop): Likewise.
* input-scrub.c (input_scrub_push, input_scrub_next_buffer): Likewise.
* subsegs.c (subseg_change): Likewise.
* symbols.c (colon, symbol_table_insert, symbol_find_or_make)
(dollar_label_name, fb_label_name): Likewise.
* write.c (relax_align): Likewise.
* config/tc-alpha.c (s_alpha_pdesc): Likewise.
* config/tc-bfin.c (bfin_s_bss): Likewise.
* config/tc-i860.c (md_estimate_size_before_relax): Likewise.
* config/tc-m68hc11.c (md_convert_frag): Likewise.
* config/tc-m68k.c (m68k_ip, crack_operand): Likewise.
(md_convert_frag_1, s_even): Likewise.
* config/tc-mips.c (mips_clear_insn_labels): Likewise.
* config/tc-mn10200.c (md_begin): Likewise.
* config/tc-s390.c (s390_setup_opcodes, md_begin): Likewise.
* config/tc-sh.c (sh_elf_cons): Likewise.
* config/tc-tic4x.c (tic4x_cons, tic4x_stringer): Likewise.
* config/m68k-parse.y (m68k_reg_parse): Likewise. Convert from K&R.
(yylex, m68k_ip_op, yyerror): Convert from K&R.
2014-11-04 05:01:09 +00:00
|
|
|
|
char *retval;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
|
|
|
|
retval = obstack_next_free (&frchain_now->frch_obstack);
|
2011-07-29 07:34:14 +00:00
|
|
|
|
frag_var_init (type, max_chars, var, subtype, symbol, offset, opcode);
|
|
|
|
|
|
|
|
|
|
return retval;
|
2000-08-31 18:36:18 +00:00
|
|
|
|
}
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
/* Reduce the variable end of a frag to a harmless state. */
|
|
|
|
|
|
|
|
|
|
void
|
Don't use register keyword
* expr.c (expr_symbol_where): Don't use register keyword.
* app.c (app_push, app_pop, do_scrub_chars): Likewise.
* ecoff.c (add_string, add_ecoff_symbol, add_aux_sym_symint,
add_aux_sym_rndx, add_aux_sym_tir, add_procedure, add_file,
ecoff_build_lineno, ecoff_setup_ext, allocate_cluster.
allocate_scope, allocate_vlinks, allocate_shash,
allocate_thash, allocate_tag, allocate_forward, allocate_thead,
allocate_lineno_list): Likewise.
* frags.c (frag_more, frag_var, frag_variant, frag_wane): Likewise.
* input-file.c (input_file_push, input_file_pop): Likewise.
* input-scrub.c (input_scrub_push, input_scrub_next_buffer): Likewise.
* subsegs.c (subseg_change): Likewise.
* symbols.c (colon, symbol_table_insert, symbol_find_or_make)
(dollar_label_name, fb_label_name): Likewise.
* write.c (relax_align): Likewise.
* config/tc-alpha.c (s_alpha_pdesc): Likewise.
* config/tc-bfin.c (bfin_s_bss): Likewise.
* config/tc-i860.c (md_estimate_size_before_relax): Likewise.
* config/tc-m68hc11.c (md_convert_frag): Likewise.
* config/tc-m68k.c (m68k_ip, crack_operand): Likewise.
(md_convert_frag_1, s_even): Likewise.
* config/tc-mips.c (mips_clear_insn_labels): Likewise.
* config/tc-mn10200.c (md_begin): Likewise.
* config/tc-s390.c (s390_setup_opcodes, md_begin): Likewise.
* config/tc-sh.c (sh_elf_cons): Likewise.
* config/tc-tic4x.c (tic4x_cons, tic4x_stringer): Likewise.
* config/m68k-parse.y (m68k_reg_parse): Likewise. Convert from K&R.
(yylex, m68k_ip_op, yyerror): Convert from K&R.
2014-11-04 05:01:09 +00:00
|
|
|
|
frag_wane (fragS *fragP)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
fragP->fr_type = rs_fill;
|
|
|
|
|
fragP->fr_offset = 0;
|
|
|
|
|
fragP->fr_var = 0;
|
2004-01-23 12:52:20 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return the number of bytes by which the current frag can be grown. */
|
|
|
|
|
|
2014-07-26 11:30:50 +00:00
|
|
|
|
size_t
|
2004-01-23 12:52:20 +00:00
|
|
|
|
frag_room (void)
|
|
|
|
|
{
|
|
|
|
|
return obstack_room (&frchain_now->frch_obstack);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make an alignment frag. The size of this frag will be adjusted to
|
|
|
|
|
force the next frag to have the appropriate alignment. ALIGNMENT
|
|
|
|
|
is the power of two to which to align. FILL_CHARACTER is the
|
|
|
|
|
character to use to fill in any bytes which are skipped. MAX is
|
|
|
|
|
the maximum number of characters to skip when doing the alignment,
|
|
|
|
|
or 0 if there is no maximum. */
|
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
void
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_align (int alignment, int fill_character, int max)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
if (now_seg == absolute_section)
|
|
|
|
|
{
|
|
|
|
|
addressT new_off;
|
2000-07-22 04:23:48 +00:00
|
|
|
|
addressT mask;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
mask = (~(addressT) 0) << alignment;
|
|
|
|
|
new_off = (abs_section_offset + ~mask) & mask;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
if (max == 0 || new_off - abs_section_offset <= (addressT) max)
|
|
|
|
|
abs_section_offset = new_off;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_align, 1, 1, (relax_substateT) max,
|
|
|
|
|
(symbolS *) 0, (offsetT) alignment, (char *) 0);
|
|
|
|
|
*p = fill_character;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Make an alignment frag like frag_align, but fill with a repeating
|
|
|
|
|
pattern rather than a single byte. ALIGNMENT is the power of two
|
|
|
|
|
to which to align. FILL_PATTERN is the fill pattern to repeat in
|
|
|
|
|
the bytes which are skipped. N_FILL is the number of bytes in
|
|
|
|
|
FILL_PATTERN. MAX is the maximum number of characters to skip when
|
|
|
|
|
doing the alignment, or 0 if there is no maximum. */
|
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
void
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_align_pattern (int alignment, const char *fill_pattern,
|
2014-07-26 11:30:50 +00:00
|
|
|
|
size_t n_fill, int max)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_align, n_fill, n_fill, (relax_substateT) max,
|
|
|
|
|
(symbolS *) 0, (offsetT) alignment, (char *) 0);
|
|
|
|
|
memcpy (p, fill_pattern, n_fill);
|
|
|
|
|
}
|
|
|
|
|
|
2000-12-28 10:07:56 +00:00
|
|
|
|
/* The NOP_OPCODE is for the alignment fill value. Fill it with a nop
|
|
|
|
|
instruction so that the disassembler does not choke on it. */
|
|
|
|
|
#ifndef NOP_OPCODE
|
|
|
|
|
#define NOP_OPCODE 0x00
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* Use this to restrict the amount of memory allocated for representing
|
|
|
|
|
the alignment code. Needs to be large enough to hold any fixed sized
|
|
|
|
|
prologue plus the replicating portion. */
|
|
|
|
|
#ifndef MAX_MEM_FOR_RS_ALIGN_CODE
|
|
|
|
|
/* Assume that if HANDLE_ALIGN is not defined then no special action
|
|
|
|
|
is required to code fill, which means that we get just repeat the
|
|
|
|
|
one NOP_OPCODE byte. */
|
|
|
|
|
# ifndef HANDLE_ALIGN
|
|
|
|
|
# define MAX_MEM_FOR_RS_ALIGN_CODE 1
|
|
|
|
|
# else
|
|
|
|
|
# define MAX_MEM_FOR_RS_ALIGN_CODE ((1 << alignment) - 1)
|
|
|
|
|
# endif
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
void
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_align_code (int alignment, int max)
|
2000-12-28 10:07:56 +00:00
|
|
|
|
{
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
p = frag_var (rs_align_code, MAX_MEM_FOR_RS_ALIGN_CODE, 1,
|
|
|
|
|
(relax_substateT) max, (symbolS *) 0,
|
|
|
|
|
(offsetT) alignment, (char *) 0);
|
|
|
|
|
*p = NOP_OPCODE;
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 07:29:11 +00:00
|
|
|
|
addressT
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_now_fix_octets (void)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
|
|
|
|
if (now_seg == absolute_section)
|
|
|
|
|
return abs_section_offset;
|
2000-02-03 18:20:23 +00:00
|
|
|
|
|
2000-08-31 18:36:18 +00:00
|
|
|
|
return ((char *) obstack_next_free (&frchain_now->frch_obstack)
|
|
|
|
|
- frag_now->fr_literal);
|
2000-02-03 18:20:23 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
addressT
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_now_fix (void)
|
2000-02-03 18:20:23 +00:00
|
|
|
|
{
|
2000-08-31 18:36:18 +00:00
|
|
|
|
return frag_now_fix_octets () / OCTETS_PER_BYTE;
|
1999-05-03 07:29:11 +00:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2003-11-22 16:03:03 +00:00
|
|
|
|
frag_append_1_char (int datum)
|
1999-05-03 07:29:11 +00:00
|
|
|
|
{
|
2003-07-15 01:33:54 +00:00
|
|
|
|
frag_alloc_check (&frchain_now->frch_obstack);
|
1999-05-03 07:29:11 +00:00
|
|
|
|
if (obstack_room (&frchain_now->frch_obstack) <= 1)
|
|
|
|
|
{
|
|
|
|
|
frag_wane (frag_now);
|
|
|
|
|
frag_new (0);
|
|
|
|
|
}
|
|
|
|
|
obstack_1grow (&frchain_now->frch_obstack, datum);
|
|
|
|
|
}
|
2006-04-04 08:04:57 +00:00
|
|
|
|
|
|
|
|
|
/* Return TRUE if FRAG1 and FRAG2 have a fixed relationship between
|
|
|
|
|
their start addresses. Set OFFSET to the difference in address
|
|
|
|
|
not already accounted for in the frag FR_ADDRESS. */
|
|
|
|
|
|
|
|
|
|
bfd_boolean
|
2012-06-30 00:27:31 +00:00
|
|
|
|
frag_offset_fixed_p (const fragS *frag1, const fragS *frag2, offsetT *offset)
|
2006-04-04 08:04:57 +00:00
|
|
|
|
{
|
2006-04-18 09:58:26 +00:00
|
|
|
|
const fragS *frag;
|
2012-06-30 00:27:31 +00:00
|
|
|
|
offsetT off;
|
2006-04-04 08:04:57 +00:00
|
|
|
|
|
|
|
|
|
/* Start with offset initialised to difference between the two frags.
|
|
|
|
|
Prior to assigning frag addresses this will be zero. */
|
|
|
|
|
off = frag1->fr_address - frag2->fr_address;
|
|
|
|
|
if (frag1 == frag2)
|
|
|
|
|
{
|
|
|
|
|
*offset = off;
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Maybe frag2 is after frag1. */
|
|
|
|
|
frag = frag1;
|
|
|
|
|
while (frag->fr_type == rs_fill)
|
|
|
|
|
{
|
|
|
|
|
off += frag->fr_fix + frag->fr_offset * frag->fr_var;
|
|
|
|
|
frag = frag->fr_next;
|
|
|
|
|
if (frag == NULL)
|
|
|
|
|
break;
|
|
|
|
|
if (frag == frag2)
|
|
|
|
|
{
|
|
|
|
|
*offset = off;
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Maybe frag1 is after frag2. */
|
2006-04-06 04:38:33 +00:00
|
|
|
|
off = frag1->fr_address - frag2->fr_address;
|
2006-04-04 08:04:57 +00:00
|
|
|
|
frag = frag2;
|
|
|
|
|
while (frag->fr_type == rs_fill)
|
|
|
|
|
{
|
|
|
|
|
off -= frag->fr_fix + frag->fr_offset * frag->fr_var;
|
|
|
|
|
frag = frag->fr_next;
|
|
|
|
|
if (frag == NULL)
|
|
|
|
|
break;
|
|
|
|
|
if (frag == frag1)
|
|
|
|
|
{
|
|
|
|
|
*offset = off;
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|