gcc/rtl-tests.c

   1 /* Unit tests for RTL-handling.
   2    Copyright (C) 2015-2016 Free Software Foundation, Inc.
   3
   4 This file is part of GCC.
   5
   6 GCC is free software; you can redistribute it and/or modify it under
   7 the terms of the GNU General Public License as published by the Free
   8 Software Foundation; either version 3, or (at your option) any later
   9 version.
  10
  11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GCC; see the file COPYING3.  If not see
  18 <http://www.gnu.org/licenses/>.  */
  19
  20 #include "config.h"
  21 #include "system.h"
  22 #include "coretypes.h"
  23 #include "tm.h"
  24 #include "opts.h"
  25 #include "signop.h"
  26 #include "hash-set.h"
  27 #include "fixed-value.h"
  28 #include "alias.h"
  29 #include "flags.h"
  30 #include "symtab.h"
  31 #include "tree-core.h"
  32 #include "stor-layout.h"
  33 #include "tree.h"
  34 #include "stringpool.h"
  35 #include "stor-layout.h"
  36 #include "rtl.h"
  37 #include "pretty-print.h"
  38 #include "cfgbuild.h"
  39 #include "print-rtl.h"
  40 #include "selftest.h"
  41 #include "selftest-rtl.h"
  42 #include "function.h"
  43 #include "memmodel.h"
  44 #include "emit-rtl.h"
  45
  46 #if CHECKING_P
  47
  48 namespace selftest {
  49
  50 /* Verify that PAT is printed as EXPECTED.  Helper function for
  51    selftests.  */
  52
  53 static void
  54 verify_print_pattern (const char *expected, rtx pat)
  55 {
  56   pretty_printer pp;
  57   print_pattern (&pp, pat, 1);
  58   ASSERT_STREQ (expected, pp_formatted_text (&pp));
  59 }
  60
  61 /* Verify that X is dumped as EXPECTED_DUMP, using compact mode.
  62    Use LOC as the effective location when reporting errors.  */
  63
  64 void
  65 assert_rtl_dump_eq (const location &loc, const char *expected_dump, rtx x)
  66 {
  67   named_temp_file tmp_out (".rtl");
  68   FILE *outfile = fopen (tmp_out.get_filename (), "w");
  69   rtx_writer w (outfile, 0, false, true);
  70   w.print_rtl (x);
  71   fclose (outfile);
  72
  73   char *dump = read_file (SELFTEST_LOCATION, tmp_out.get_filename ());
  74   ASSERT_STREQ_AT (loc, expected_dump, dump);
  75   free (dump);
  76 }
  77
  78 /* Verify that regs are dumped as expected (in compact mode).  */
  79
  80 static void
  81 test_dumping_regs ()
  82 {
  83   /* Dumps of hard regs contain a target-specific name, so we don't test
  84      it here; this can be tested in target-specific selftests.  */
  85
  86   /* Test dumping of virtual regs.  The various virtual regs are inited as
  87      Pmode, so this is target-specific.  The tests below assume DImode, so
  88      only run the tests for targets where Pmode is DImode.  */
  89   if (Pmode == DImode)
  90     {
  91       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-incoming-args)",
  92                           virtual_incoming_args_rtx);
  93       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-stack-vars)",
  94                           virtual_stack_vars_rtx);
  95       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-stack-dynamic)",
  96                           virtual_stack_dynamic_rtx);
  97       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-outgoing-args)",
  98                           virtual_outgoing_args_rtx);
  99       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-cfa)",
 100                           virtual_cfa_rtx);
 101       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-preferred-stack-boundary)",
 102                           virtual_preferred_stack_boundary_rtx);
 103     }
 104
 105   /* Test dumping of non-virtual pseudos.  */
 106   ASSERT_RTL_DUMP_EQ ("(reg:SI %0)",
 107     gen_raw_REG (SImode, LAST_VIRTUAL_REGISTER + 1));
 108   ASSERT_RTL_DUMP_EQ ("(reg:SI %1)",
 109     gen_raw_REG (SImode, LAST_VIRTUAL_REGISTER + 2));
 110 }
 111
 112 /* Verify that insns are dumped as expected (in compact mode).  */
 113
 114 static void
 115 test_dumping_insns ()
 116 {
 117   /* Barriers.  */
 118   rtx_barrier *barrier = as_a <rtx_barrier *> (rtx_alloc (BARRIER));
 119   SET_NEXT_INSN (barrier) = NULL;
 120   ASSERT_RTL_DUMP_EQ ("(cbarrier 0)\n", barrier);
 121
 122   /* Labels.  */
 123   rtx_insn *label = gen_label_rtx ();
 124   CODE_LABEL_NUMBER (label) = 42;
 125   ASSERT_RTL_DUMP_EQ ("(clabel 0 42 \"\")\n", label);
 126
 127   LABEL_NAME (label)= "some_label";
 128   ASSERT_RTL_DUMP_EQ ("(clabel 0 42 (\"some_label\"))\n", label);
 129 }
 130
 131 /* Unit testing of "single_set".  */
 132
 133 static void
 134 test_single_set ()
 135 {
 136   /* A label is not a SET.  */
 137   ASSERT_EQ (NULL_RTX, single_set (gen_label_rtx ()));
 138
 139   /* An unconditional jump insn is a single SET.  */
 140   rtx set_pc = gen_rtx_SET (pc_rtx,
 141                             gen_rtx_LABEL_REF (VOIDmode,
 142                                                gen_label_rtx ()));
 143   rtx_insn *jump_insn = emit_jump_insn (set_pc);
 144   ASSERT_EQ (set_pc, single_set (jump_insn));
 145
 146   /* etc */
 147 }
 148
 149 /* Construct an unconditional jump to a label, and verify that
 150    various properties of it are sane.  */
 151
 152 static void
 153 test_uncond_jump ()
 154 {
 155   rtx_insn *label = gen_label_rtx ();
 156   rtx jump_pat = gen_rtx_SET (pc_rtx,
 157                               gen_rtx_LABEL_REF (VOIDmode,
 158                                                  label));
 159   ASSERT_EQ (SET, jump_pat->code);
 160   ASSERT_EQ (LABEL_REF, SET_SRC (jump_pat)->code);
 161   ASSERT_EQ (label, label_ref_label (SET_SRC (jump_pat)));
 162   ASSERT_EQ (PC, SET_DEST (jump_pat)->code);
 163
 164   verify_print_pattern ("pc=L0", jump_pat);
 165
 166   ASSERT_RTL_DUMP_EQ ("(set (pc)\n"
 167                       "    (label_ref 0))",
 168                       jump_pat);
 169
 170   rtx_insn *jump_insn = emit_jump_insn (jump_pat);
 171   ASSERT_FALSE (any_condjump_p (jump_insn));
 172   ASSERT_TRUE (any_uncondjump_p (jump_insn));
 173   ASSERT_TRUE (pc_set (jump_insn));
 174   ASSERT_TRUE (simplejump_p (jump_insn));
 175   ASSERT_TRUE (onlyjump_p (jump_insn));
 176   ASSERT_TRUE (control_flow_insn_p (jump_insn));
 177
 178   ASSERT_RTL_DUMP_EQ ("(cjump_insn 1 (set (pc)\n"
 179                       "        (label_ref 0))\n"
 180                       "     (nil))\n",
 181                       jump_insn);
 182 }
 183
 184 /* Run all of the selftests within this file.  */
 185
 186 void
 187 rtl_tests_c_tests ()
 188 {
 189   test_dumping_regs ();
 190   test_dumping_insns ();
 191   test_single_set ();
 192   test_uncond_jump ();
 193
 194   /* Purge state.  */
 195   set_first_insn (NULL);
 196   set_last_insn (NULL);
 197 }
 198
 199 } // namespace selftest
 200 #endif /* #if CHECKING_P */