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 "function.h"
  42 #include "memmodel.h"
  43 #include "emit-rtl.h"
  44
  45 #if CHECKING_P
  46
  47 namespace selftest {
  48
  49 /* Verify that PAT is printed as EXPECTED.  Helper function for
  50    selftests.  */
  51
  52 static void
  53 verify_print_pattern (const char *expected, rtx pat)
  54 {
  55   pretty_printer pp;
  56   print_pattern (&pp, pat, 1);
  57   ASSERT_STREQ (expected, pp_formatted_text (&pp));
  58 }
  59
  60 /* Verify that X is dumped as EXPECTED_DUMP, using compact mode.
  61    Use LOC as the effective location when reporting errors.  */
  62
  63 static void
  64 assert_rtl_dump_eq (const location &loc, const char *expected_dump, rtx x)
  65 {
  66   named_temp_file tmp_out (".rtl");
  67   FILE *outfile = fopen (tmp_out.get_filename (), "w");
  68   rtx_writer w (outfile, 0, false, true);
  69   w.print_rtl (x);
  70   fclose (outfile);
  71
  72   char *dump = read_file (SELFTEST_LOCATION, tmp_out.get_filename ());
  73   ASSERT_STREQ_AT (loc, expected_dump, dump);
  74   free (dump);
  75 }
  76
  77 /* Verify that RTX is dumped as EXPECTED_DUMP, using compact mode.  */
  78
  79 #define ASSERT_RTL_DUMP_EQ(EXPECTED_DUMP, RTX) \
  80   assert_rtl_dump_eq (SELFTEST_LOCATION, (EXPECTED_DUMP), (RTX))
  81
  82 /* Verify that regs are dumped as expected (in compact mode).  */
  83
  84 static void
  85 test_dumping_regs ()
  86 {
  87   /* Dumps of hard regs contain a target-specific name, so we don't test
  88      it here.  */
  89
  90   /* Test dumping of virtual regs.  The various virtual regs are inited as
  91      Pmode, so this is target-specific.  The tests below assume DImode, so
  92      only run the tests for targets where Pmode is DImode.  */
  93   if (Pmode == DImode)
  94     {
  95       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-incoming-args)",
  96                           virtual_incoming_args_rtx);
  97       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-stack-vars)",
  98                           virtual_stack_vars_rtx);
  99       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-stack-dynamic)",
 100                           virtual_stack_dynamic_rtx);
 101       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-outgoing-args)",
 102                           virtual_outgoing_args_rtx);
 103       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-cfa)",
 104                           virtual_cfa_rtx);
 105       ASSERT_RTL_DUMP_EQ ("(reg:DI virtual-preferred-stack-boundary)",
 106                           virtual_preferred_stack_boundary_rtx);
 107     }
 108
 109   /* Test dumping of non-virtual pseudos.  */
 110   ASSERT_RTL_DUMP_EQ ("(reg:SI %0)",
 111     gen_raw_REG (SImode, LAST_VIRTUAL_REGISTER + 1));
 112   ASSERT_RTL_DUMP_EQ ("(reg:SI %1)",
 113     gen_raw_REG (SImode, LAST_VIRTUAL_REGISTER + 2));
 114 }
 115
 116 /* Verify that insns are dumped as expected (in compact mode).  */
 117
 118 static void
 119 test_dumping_insns ()
 120 {
 121   /* Barriers.  */
 122   rtx_barrier *barrier = as_a <rtx_barrier *> (rtx_alloc (BARRIER));
 123   SET_NEXT_INSN (barrier) = NULL;
 124   ASSERT_RTL_DUMP_EQ ("(cbarrier)\n", barrier);
 125
 126   /* Labels.  */
 127   rtx_insn *label = gen_label_rtx ();
 128   CODE_LABEL_NUMBER (label) = 42;
 129   ASSERT_RTL_DUMP_EQ ("(clabel 0 42 \"\")\n", label);
 130
 131   LABEL_NAME (label)= "some_label";
 132   ASSERT_RTL_DUMP_EQ ("(clabel 0 42 (\"some_label\"))\n", label);
 133 }
 134
 135 /* Unit testing of "single_set".  */
 136
 137 static void
 138 test_single_set ()
 139 {
 140   /* A label is not a SET.  */
 141   ASSERT_EQ (NULL_RTX, single_set (gen_label_rtx ()));
 142
 143   /* An unconditional jump insn is a single SET.  */
 144   rtx set_pc = gen_rtx_SET (pc_rtx,
 145                             gen_rtx_LABEL_REF (VOIDmode,
 146                                                gen_label_rtx ()));
 147   rtx_insn *jump_insn = emit_jump_insn (set_pc);
 148   ASSERT_EQ (set_pc, single_set (jump_insn));
 149
 150   /* etc */
 151 }
 152
 153 /* Construct an unconditional jump to a label, and verify that
 154    various properties of it are sane.  */
 155
 156 static void
 157 test_uncond_jump ()
 158 {
 159   rtx_insn *label = gen_label_rtx ();
 160   rtx jump_pat = gen_rtx_SET (pc_rtx,
 161                               gen_rtx_LABEL_REF (VOIDmode,
 162                                                  label));
 163   ASSERT_EQ (SET, jump_pat->code);
 164   ASSERT_EQ (LABEL_REF, SET_SRC (jump_pat)->code);
 165   ASSERT_EQ (label, label_ref_label (SET_SRC (jump_pat)));
 166   ASSERT_EQ (PC, SET_DEST (jump_pat)->code);
 167
 168   verify_print_pattern ("pc=L0", jump_pat);
 169
 170   ASSERT_RTL_DUMP_EQ ("(set (pc)\n"
 171                       "    (label_ref 0))",
 172                       jump_pat);
 173
 174   rtx_insn *jump_insn = emit_jump_insn (jump_pat);
 175   ASSERT_FALSE (any_condjump_p (jump_insn));
 176   ASSERT_TRUE (any_uncondjump_p (jump_insn));
 177   ASSERT_TRUE (pc_set (jump_insn));
 178   ASSERT_TRUE (simplejump_p (jump_insn));
 179   ASSERT_TRUE (onlyjump_p (jump_insn));
 180   ASSERT_TRUE (control_flow_insn_p (jump_insn));
 181
 182   ASSERT_RTL_DUMP_EQ ("(cjump_insn (set (pc)\n"
 183                       "        (label_ref 0))\n"
 184                       "     (nil))\n",
 185                       jump_insn);
 186 }
 187
 188 /* Run all of the selftests within this file.  */
 189
 190 void
 191 rtl_tests_c_tests ()
 192 {
 193   test_dumping_regs ();
 194   test_dumping_insns ();
 195   test_single_set ();
 196   test_uncond_jump ();
 197
 198   /* Purge state.  */
 199   set_first_insn (NULL);
 200   set_last_insn (NULL);
 201 }
 202
 203 } // namespace selftest
 204 #endif /* #if CHECKING_P */