gdb - Local mods (compile)
[dragonfly.git] / contrib / gcc-5.0 / gcc / rtlhash.c
1 /* RTL hash functions.
2    Copyright (C) 1987-2015 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 "ggc.h"
25 #include "rtl.h"
26 #include "rtlhash.h"
27
28 namespace inchash
29 {
30
31 /* Iteratively hash rtx X into HSTATE.  */
32
33 void
34 add_rtx (const_rtx x, hash &hstate)
35 {
36   enum rtx_code code;
37   machine_mode mode;
38   int i, j;
39   const char *fmt;
40
41   if (x == NULL_RTX)
42     return;
43   code = GET_CODE (x);
44   hstate.add_object (code);
45   mode = GET_MODE (x);
46   hstate.add_object (mode);
47   switch (code)
48     {
49     case REG:
50       hstate.add_int (REGNO (x));
51       return;
52     case CONST_INT:
53       hstate.add_object (INTVAL (x));
54       return;
55     case CONST_WIDE_INT:
56       for (i = 0; i < CONST_WIDE_INT_NUNITS (x); i++)
57         hstate.add_object (CONST_WIDE_INT_ELT (x, i));
58       return;
59     case SYMBOL_REF:
60       if (XSTR (x, 0))
61         hstate.add (XSTR (x, 0), strlen (XSTR (x, 0)) + 1);
62       return;
63     case LABEL_REF:
64     case DEBUG_EXPR:
65     case VALUE:
66     case SCRATCH:
67     case CONST_DOUBLE:
68     case CONST_FIXED:
69     case DEBUG_IMPLICIT_PTR:
70     case DEBUG_PARAMETER_REF:
71       return;
72     default:
73       break;
74     }
75
76   fmt = GET_RTX_FORMAT (code);
77   for (i = GET_RTX_LENGTH (code) - 1; i >= 0; i--)
78     switch (fmt[i])
79       {
80       case 'w':
81         hstate.add_object (XWINT (x, i));
82         break;
83       case 'n':
84       case 'i':
85         hstate.add_object (XINT (x, i));
86         break;
87       case 'V':
88       case 'E':
89         j = XVECLEN (x, i);
90         hstate.add_int (j);
91         for (j = 0; j < XVECLEN (x, i); j++)
92           inchash::add_rtx (XVECEXP (x, i, j), hstate);
93         break;
94       case 'e':
95         inchash::add_rtx (XEXP (x, i), hstate);
96         break;
97       case 'S':
98       case 's':
99         if (XSTR (x, i))
100           hstate.add (XSTR (x, 0), strlen (XSTR (x, 0)) + 1);
101         break;
102       default:
103         break;
104       }
105 }
106
107 }