2016-09-29 21:01:41 +02:00
|
|
|
/* Print RTL functions for GCC.
|
2017-01-01 13:07:43 +01:00
|
|
|
Copyright (C) 2016-2017 Free Software Foundation, Inc.
|
2016-09-29 21:01:41 +02:00
|
|
|
|
|
|
|
This file is part of GCC.
|
|
|
|
|
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
|
|
|
the terms of the GNU General Public License as published by the Free
|
|
|
|
Software Foundation; either version 3, or (at your option) any later
|
|
|
|
version.
|
|
|
|
|
|
|
|
GCC 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 GCC; see the file COPYING3. If not see
|
|
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
#include "system.h"
|
|
|
|
#include "coretypes.h"
|
|
|
|
#include "tm.h"
|
|
|
|
#include "rtl.h"
|
|
|
|
#include "alias.h"
|
|
|
|
#include "tree.h"
|
|
|
|
#include "cfg.h"
|
|
|
|
#include "flags.h"
|
|
|
|
#include "predict.h"
|
|
|
|
#include "function.h"
|
|
|
|
#include "basic-block.h"
|
|
|
|
#include "print-rtl.h"
|
|
|
|
#include "langhooks.h"
|
Move MEMMODEL_* from coretypes.h to memmodel.h
2016-10-13 Thomas Preud'homme <thomas.preudhomme@arm.com>
gcc/
* coretypes.h: Move MEMMODEL_* macros and enum memmodel definition
into ...
* memmodel.h: This file.
* alias.c, asan.c, auto-inc-dec.c, bb-reorder.c, bt-load.c,
caller-save.c, calls.c, ccmp.c, cfgbuild.c, cfgcleanup.c,
cfgexpand.c, cfgloopanal.c, cfgrtl.c, cilk-common.c, combine.c,
combine-stack-adj.c, common/config/aarch64/aarch64-common.c,
common/config/arm/arm-common.c, common/config/bfin/bfin-common.c,
common/config/c6x/c6x-common.c, common/config/i386/i386-common.c,
common/config/ia64/ia64-common.c, common/config/nvptx/nvptx-common.c,
compare-elim.c, config/aarch64/aarch64-builtins.c,
config/aarch64/aarch64-c.c, config/aarch64/cortex-a57-fma-steering.c,
config/arc/arc.c, config/arc/arc-c.c, config/arm/arm-builtins.c,
config/arm/arm-c.c, config/avr/avr.c, config/avr/avr-c.c,
config/avr/avr-log.c, config/bfin/bfin.c, config/c6x/c6x.c,
config/cr16/cr16.c, config/cris/cris.c, config/darwin-c.c,
config/darwin.c, config/epiphany/epiphany.c,
config/epiphany/mode-switch-use.c,
config/epiphany/resolve-sw-modes.c, config/fr30/fr30.c,
config/frv/frv.c, config/ft32/ft32.c, config/h8300/h8300.c,
config/i386/i386-c.c, config/i386/winnt.c, config/iq2000/iq2000.c,
config/lm32/lm32.c, config/m32c/m32c.c, config/m32r/m32r.c,
config/m68k/m68k.c, config/mcore/mcore.c,
config/microblaze/microblaze.c, config/mmix/mmix.c,
config/mn10300/mn10300.c, config/moxie/moxie.c,
config/msp430/msp430.c, config/nds32/nds32-cost.c,
config/nds32/nds32-intrinsic.c, config/nds32/nds32-md-auxiliary.c,
config/nds32/nds32-memory-manipulation.c,
config/nds32/nds32-predicates.c, config/nds32/nds32.c,
config/nios2/nios2.c, config/nvptx/nvptx.c, config/pa/pa.c,
config/pdp11/pdp11.c, config/rl78/rl78.c, config/rs6000/rs6000-c.c,
config/rx/rx.c, config/s390/s390-c.c, config/s390/s390.c,
config/sh/sh.c, config/sh/sh-c.c, config/sh/sh-mem.cc,
config/sh/sh_treg_combine.cc, config/sol2.c, config/spu/spu.c,
config/stormy16/stormy16.c, config/tilegx/tilegx.c,
config/tilepro/tilepro.c, config/v850/v850.c, config/vax/vax.c,
config/visium/visium.c, config/vms/vms-c.c, config/xtensa/xtensa.c,
coverage.c, cppbuiltin.c, cprop.c, cse.c, cselib.c, dbxout.c, dce.c,
df-core.c, df-problems.c, df-scan.c, dojump.c, dse.c, dwarf2asm.c,
dwarf2cfi.c, dwarf2out.c, emit-rtl.c, except.c, explow.c, expmed.c,
expr.c, final.c, fold-const.c, function.c, fwprop.c, gcse.c,
ggc-page.c, haifa-sched.c, hsa-brig.c, hsa-gen.c, hw-doloop.c,
ifcvt.c, init-regs.c, internal-fn.c, ira-build.c, ira-color.c,
ira-conflicts.c, ira-costs.c, ira-emit.c, ira-lives.c, ira.c, jump.c,
loop-doloop.c, loop-invariant.c, loop-iv.c, loop-unroll.c,
lower-subreg.c, lra.c, lra-assigns.c, lra-coalesce.c,
lra-constraints.c, lra-eliminations.c, lra-lives.c, lra-remat.c,
lra-spills.c, mode-switching.c, modulo-sched.c, omp-low.c, passes.c,
postreload-gcse.c, postreload.c, predict.c, print-rtl-function.c,
recog.c, ree.c, reg-stack.c, regcprop.c, reginfo.c, regrename.c,
reload.c, reload1.c, reorg.c, resource.c, rtl-chkp.c, rtl-tests.c,
rtlanal.c, rtlhooks.c, sched-deps.c, sched-rgn.c, sdbout.c,
sel-sched-ir.c, sel-sched.c, shrink-wrap.c, simplify-rtx.c,
stack-ptr-mod.c, stmt.c, stor-layout.c, target-globals.c,
targhooks.c, toplev.c, tree-nested.c, tree-outof-ssa.c,
tree-profile.c, tree-ssa-coalesce.c, tree-ssa-ifcombine.c,
tree-ssa-loop-ivopts.c, tree-ssa-loop.c, tree-ssa-reassoc.c,
tree-ssa-sccvn.c, tree-vect-data-refs.c, ubsan.c, valtrack.c,
var-tracking.c, varasm.c: Include memmodel.h.
* genattrtab.c (write_header): Include memmodel.h in generated file.
* genautomata.c (main): Likewise.
* gengtype.c (open_base_files): Likewise.
* genopinit.c (main): Likewise.
* genconditions.c (write_header): Include memmodel.h earlier in
generated file.
* genemit.c (main): Likewise.
* genoutput.c (output_prologue): Likewise.
* genpeep.c (main): Likewise.
* genpreds.c (write_insn_preds_c): Likewise.
* genrecog.c (write_header): Likewise.
* Makefile.in (PLUGIN_HEADERS): Include memmodel.h
gcc/ada/
* gcc-interface/utils2.c: Include memmodel.h.
gcc/c-family/
* c-cppbuiltin.c: Include memmodel.h.
* c-opts.c: Likewise.
* c-pragma.c: Likewise.
* c-warn.c: Likewise.
gcc/c/
* c-typeck.c: Include memmodel.h.
gcc/cp/
* decl2.c: Include memmodel.h.
* rtti.c: Likewise.
gcc/fortran/
* trans-intrinsic.c: Include memmodel.h.
gcc/go/
* go-backend.c: Include memmodel.h.
libgcc/
* libgcov-profiler.c: Replace MEMMODEL_* macros by their __ATOMIC_*
equivalent.
* config/tilepro/atomic.c: Likewise and stop casting model to
enum memmodel.
From-SVN: r241121
2016-10-13 16:17:52 +02:00
|
|
|
#include "memmodel.h"
|
2016-09-29 21:01:41 +02:00
|
|
|
#include "emit-rtl.h"
|
2016-11-09 21:55:03 +01:00
|
|
|
#include "varasm.h"
|
2016-09-29 21:01:41 +02:00
|
|
|
|
2016-10-12 16:59:56 +02:00
|
|
|
/* Print an "(edge-from)" or "(edge-to)" directive describing E
|
|
|
|
to OUTFILE. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_edge (FILE *outfile, edge e, bool from)
|
|
|
|
{
|
|
|
|
fprintf (outfile, " (%s ", from ? "edge-from" : "edge-to");
|
|
|
|
basic_block bb = from ? e->src : e->dest;
|
|
|
|
gcc_assert (bb);
|
|
|
|
switch (bb->index)
|
|
|
|
{
|
|
|
|
case ENTRY_BLOCK:
|
|
|
|
fprintf (outfile, "entry");
|
|
|
|
break;
|
|
|
|
case EXIT_BLOCK:
|
|
|
|
fprintf (outfile, "exit");
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
fprintf (outfile, "%i", bb->index);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Express edge flags as a string with " | " separator.
|
|
|
|
e.g. (flags "FALLTHRU | DFS_BACK"). */
|
2016-10-14 22:22:23 +02:00
|
|
|
if (e->flags)
|
|
|
|
{
|
|
|
|
fprintf (outfile, " (flags \"");
|
|
|
|
bool seen_flag = false;
|
|
|
|
#define DEF_EDGE_FLAG(NAME,IDX) \
|
2016-10-12 16:59:56 +02:00
|
|
|
do { \
|
|
|
|
if (e->flags & EDGE_##NAME) \
|
|
|
|
{ \
|
|
|
|
if (seen_flag) \
|
|
|
|
fprintf (outfile, " | "); \
|
|
|
|
fprintf (outfile, "%s", (#NAME)); \
|
|
|
|
seen_flag = true; \
|
|
|
|
} \
|
|
|
|
} while (0);
|
|
|
|
#include "cfg-flags.def"
|
|
|
|
#undef DEF_EDGE_FLAG
|
|
|
|
|
2016-10-14 22:22:23 +02:00
|
|
|
fprintf (outfile, "\")");
|
|
|
|
}
|
|
|
|
|
|
|
|
fprintf (outfile, ")\n");
|
2016-10-12 16:59:56 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* If BB is non-NULL, print the start of a "(block)" directive for it
|
|
|
|
to OUTFILE, otherwise do nothing. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
begin_any_block (FILE *outfile, basic_block bb)
|
|
|
|
{
|
|
|
|
if (!bb)
|
|
|
|
return;
|
|
|
|
|
|
|
|
edge e;
|
|
|
|
edge_iterator ei;
|
|
|
|
|
|
|
|
fprintf (outfile, " (block %i\n", bb->index);
|
|
|
|
FOR_EACH_EDGE (e, ei, bb->preds)
|
|
|
|
print_edge (outfile, e, true);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* If BB is non-NULL, print the end of a "(block)" directive for it
|
|
|
|
to OUTFILE, otherwise do nothing. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
end_any_block (FILE *outfile, basic_block bb)
|
|
|
|
{
|
|
|
|
if (!bb)
|
|
|
|
return;
|
|
|
|
|
|
|
|
edge e;
|
|
|
|
edge_iterator ei;
|
|
|
|
|
|
|
|
FOR_EACH_EDGE (e, ei, bb->succs)
|
|
|
|
print_edge (outfile, e, false);
|
|
|
|
fprintf (outfile, " ) ;; block %i\n", bb->index);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Determine if INSN is of a kind that can have a basic block. */
|
|
|
|
|
|
|
|
static bool
|
|
|
|
can_have_basic_block_p (const rtx_insn *insn)
|
|
|
|
{
|
|
|
|
rtx_code code = GET_CODE (insn);
|
|
|
|
if (code == BARRIER)
|
|
|
|
return false;
|
|
|
|
gcc_assert (GET_RTX_FORMAT (code)[2] == 'B');
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2016-11-09 21:55:03 +01:00
|
|
|
/* Subroutine of print_param. Write the name of ARG, if any, to OUTFILE. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_any_param_name (FILE *outfile, tree arg)
|
|
|
|
{
|
|
|
|
if (DECL_NAME (arg))
|
|
|
|
fprintf (outfile, " \"%s\"", IDENTIFIER_POINTER (DECL_NAME (arg)));
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Print a "(param)" directive for ARG to OUTFILE. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
print_param (FILE *outfile, rtx_writer &w, tree arg)
|
|
|
|
{
|
|
|
|
fprintf (outfile, " (param");
|
|
|
|
print_any_param_name (outfile, arg);
|
|
|
|
fprintf (outfile, "\n");
|
|
|
|
|
|
|
|
/* Print the value of DECL_RTL (without lazy-evaluation). */
|
|
|
|
fprintf (outfile, " (DECL_RTL ");
|
|
|
|
w.print_rtx (DECL_RTL_IF_SET (arg));
|
|
|
|
w.finish_directive ();
|
|
|
|
|
|
|
|
/* Print DECL_INCOMING_RTL. */
|
|
|
|
fprintf (outfile, " (DECL_RTL_INCOMING ");
|
|
|
|
w.print_rtx (DECL_INCOMING_RTL (arg));
|
|
|
|
fprintf (outfile, ")");
|
|
|
|
|
|
|
|
w.finish_directive ();
|
|
|
|
}
|
|
|
|
|
2016-09-29 21:01:41 +02:00
|
|
|
/* Write FN to OUTFILE in a form suitable for parsing, with indentation
|
2016-10-12 16:59:56 +02:00
|
|
|
and comments to make the structure easy for a human to grok. Track
|
|
|
|
the basic blocks of insns in the chain, wrapping those that are within
|
|
|
|
blocks within "(block)" directives.
|
2016-09-29 21:01:41 +02:00
|
|
|
|
2016-10-13 15:17:59 +02:00
|
|
|
If COMPACT, then instructions are printed in a compact form:
|
|
|
|
- INSN_UIDs are omitted, except for jumps and CODE_LABELs,
|
|
|
|
- INSN_CODEs are omitted,
|
2016-10-14 22:22:23 +02:00
|
|
|
- register numbers are omitted for hard and virtual regs, and
|
|
|
|
non-virtual pseudos are offset relative to the first such reg, and
|
|
|
|
printed with a '%' sigil e.g. "%0" for (LAST_VIRTUAL_REGISTER + 1),
|
2016-10-13 15:17:59 +02:00
|
|
|
- insn names are prefixed with "c" (e.g. "cinsn", "cnote", etc)
|
|
|
|
|
|
|
|
Example output (with COMPACT==true):
|
2016-09-29 21:01:41 +02:00
|
|
|
|
2016-10-12 16:59:56 +02:00
|
|
|
(function "times_two"
|
2016-12-19 21:33:05 +01:00
|
|
|
(param "i"
|
|
|
|
(DECL_RTL (mem/c:SI (plus:DI (reg/f:DI virtual-stack-vars)
|
|
|
|
(const_int -4)) [1 i+0 S4 A32]))
|
|
|
|
(DECL_RTL_INCOMING (reg:SI di [ i ])))
|
2016-10-12 16:59:56 +02:00
|
|
|
(insn-chain
|
2016-12-19 21:33:05 +01:00
|
|
|
(cnote 1 NOTE_INSN_DELETED)
|
2016-10-12 16:59:56 +02:00
|
|
|
(block 2
|
|
|
|
(edge-from entry (flags "FALLTHRU"))
|
2016-12-19 21:33:05 +01:00
|
|
|
(cnote 4 [bb 2] NOTE_INSN_BASIC_BLOCK)
|
|
|
|
(cinsn 2 (set (mem/c:SI (plus:DI (reg/f:DI virtual-stack-vars)
|
2016-10-13 15:17:59 +02:00
|
|
|
(const_int -4)) [1 i+0 S4 A32])
|
2016-12-19 21:33:05 +01:00
|
|
|
(reg:SI di [ i ])) "t.c":2)
|
|
|
|
(cnote 3 NOTE_INSN_FUNCTION_BEG)
|
|
|
|
(cinsn 6 (set (reg:SI <2>)
|
2016-10-13 15:17:59 +02:00
|
|
|
(mem/c:SI (plus:DI (reg/f:DI virtual-stack-vars)
|
2016-12-19 21:33:05 +01:00
|
|
|
(const_int -4)) [1 i+0 S4 A32])) "t.c":3)
|
|
|
|
(cinsn 7 (parallel [
|
|
|
|
(set (reg:SI <0> [ _2 ])
|
|
|
|
(ashift:SI (reg:SI <2>)
|
2016-10-13 15:17:59 +02:00
|
|
|
(const_int 1)))
|
|
|
|
(clobber (reg:CC flags))
|
|
|
|
]) "t.c":3
|
2016-12-19 21:33:05 +01:00
|
|
|
(expr_list:REG_EQUAL (ashift:SI (mem/c:SI (plus:DI (reg/f:DI virtual-stack-vars)
|
2016-10-13 15:17:59 +02:00
|
|
|
(const_int -4)) [1 i+0 S4 A32])
|
2016-12-19 21:33:05 +01:00
|
|
|
(const_int 1))))
|
|
|
|
(cinsn 10 (set (reg:SI <1> [ <retval> ])
|
|
|
|
(reg:SI <0> [ _2 ])) "t.c":3)
|
|
|
|
(cinsn 14 (set (reg/i:SI ax)
|
|
|
|
(reg:SI <1> [ <retval> ])) "t.c":4)
|
|
|
|
(cinsn 15 (use (reg/i:SI ax)) "t.c":4)
|
2016-10-12 16:59:56 +02:00
|
|
|
(edge-to exit (flags "FALLTHRU"))
|
|
|
|
) ;; block 2
|
|
|
|
) ;; insn-chain
|
|
|
|
(crtl
|
|
|
|
(return_rtx
|
2016-10-13 15:17:59 +02:00
|
|
|
(reg/i:SI ax)
|
2016-10-12 16:59:56 +02:00
|
|
|
) ;; return_rtx
|
|
|
|
) ;; crtl
|
|
|
|
) ;; function "times_two"
|
2016-09-29 21:01:41 +02:00
|
|
|
*/
|
|
|
|
|
|
|
|
DEBUG_FUNCTION void
|
2016-10-13 15:17:59 +02:00
|
|
|
print_rtx_function (FILE *outfile, function *fn, bool compact)
|
2016-09-29 21:01:41 +02:00
|
|
|
{
|
2016-12-06 22:03:33 +01:00
|
|
|
rtx_reuse_manager r;
|
|
|
|
rtx_writer w (outfile, 0, false, compact, &r);
|
|
|
|
|
|
|
|
/* Support "reuse_rtx" in the dump. */
|
|
|
|
for (rtx_insn *insn = get_insns (); insn; insn = NEXT_INSN (insn))
|
|
|
|
r.preprocess (insn);
|
2016-10-13 15:17:59 +02:00
|
|
|
|
2016-09-29 21:01:41 +02:00
|
|
|
tree fdecl = fn->decl;
|
|
|
|
|
|
|
|
const char *dname = lang_hooks.decl_printable_name (fdecl, 2);
|
|
|
|
|
|
|
|
fprintf (outfile, "(function \"%s\"\n", dname);
|
|
|
|
|
2016-11-09 21:55:03 +01:00
|
|
|
/* Params. */
|
|
|
|
for (tree arg = DECL_ARGUMENTS (fdecl); arg; arg = DECL_CHAIN (arg))
|
|
|
|
print_param (outfile, w, arg);
|
|
|
|
|
2016-09-29 21:01:41 +02:00
|
|
|
/* The instruction chain. */
|
|
|
|
fprintf (outfile, " (insn-chain\n");
|
2016-10-12 16:59:56 +02:00
|
|
|
basic_block curr_bb = NULL;
|
2016-09-29 21:01:41 +02:00
|
|
|
for (rtx_insn *insn = get_insns (); insn; insn = NEXT_INSN (insn))
|
2016-10-12 16:59:56 +02:00
|
|
|
{
|
|
|
|
basic_block insn_bb;
|
|
|
|
if (can_have_basic_block_p (insn))
|
|
|
|
insn_bb = BLOCK_FOR_INSN (insn);
|
|
|
|
else
|
|
|
|
insn_bb = NULL;
|
|
|
|
if (curr_bb != insn_bb)
|
|
|
|
{
|
|
|
|
end_any_block (outfile, curr_bb);
|
|
|
|
curr_bb = insn_bb;
|
|
|
|
begin_any_block (outfile, curr_bb);
|
|
|
|
}
|
2016-10-26 18:51:53 +02:00
|
|
|
w.print_rtl_single_with_indent (insn, curr_bb ? 6 : 4);
|
2016-10-12 16:59:56 +02:00
|
|
|
}
|
|
|
|
end_any_block (outfile, curr_bb);
|
2016-09-29 21:01:41 +02:00
|
|
|
fprintf (outfile, " ) ;; insn-chain\n");
|
|
|
|
|
|
|
|
/* Additional RTL state. */
|
|
|
|
fprintf (outfile, " (crtl\n");
|
|
|
|
fprintf (outfile, " (return_rtx \n");
|
2016-10-26 18:51:53 +02:00
|
|
|
w.print_rtl_single_with_indent (crtl->return_rtx, 6);
|
2016-09-29 21:01:41 +02:00
|
|
|
fprintf (outfile, " ) ;; return_rtx\n");
|
|
|
|
fprintf (outfile, " ) ;; crtl\n");
|
|
|
|
|
|
|
|
fprintf (outfile, ") ;; function \"%s\"\n", dname);
|
|
|
|
}
|