Daily bump.
[official-gcc.git] / gcc / dbgcnt.c
blobddb0e8e76d9b429ab08aa04640133aa09fa081fb
1 /* Debug counter for debugging support
2 Copyright (C) 2006-2018 Free Software Foundation, Inc.
4 This file is part of GCC.
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.
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.
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/>.
20 See dbgcnt.def for usage information. */
22 #include "config.h"
23 #include "system.h"
24 #include "coretypes.h"
25 #include "diagnostic-core.h"
26 #include "dumpfile.h"
28 #include "dbgcnt.h"
30 struct string2counter_map {
31 const char *name;
32 enum debug_counter counter;
35 #define DEBUG_COUNTER(a) { #a , a },
37 static struct string2counter_map map[debug_counter_number_of_counters] =
39 #include "dbgcnt.def"
41 #undef DEBUG_COUNTER
43 #define DEBUG_COUNTER(a) UINT_MAX,
44 static unsigned int limit_high[debug_counter_number_of_counters] =
46 #include "dbgcnt.def"
48 #undef DEBUG_COUNTER
50 static unsigned int limit_low[debug_counter_number_of_counters];
52 static unsigned int count[debug_counter_number_of_counters];
54 bool
55 dbg_cnt_is_enabled (enum debug_counter index)
57 unsigned v = count[index];
58 return v > limit_low[index] && v <= limit_high[index];
61 bool
62 dbg_cnt (enum debug_counter index)
64 count[index]++;
66 if (dump_file)
68 /* Do not print the info for default lower limit. */
69 if (count[index] == limit_low[index] && limit_low[index] > 0)
70 fprintf (dump_file, "***dbgcnt: lower limit %d reached for %s.***\n",
71 limit_low[index], map[index].name);
72 else if (count[index] == limit_high[index])
73 fprintf (dump_file, "***dbgcnt: upper limit %d reached for %s.***\n",
74 limit_high[index], map[index].name);
77 return dbg_cnt_is_enabled (index);
80 static void
81 dbg_cnt_set_limit_by_index (enum debug_counter index, int low, int high)
83 limit_low[index] = low;
84 limit_high[index] = high;
86 fprintf (stderr, "dbg_cnt '%s' set to %d-%d\n", map[index].name, low, high);
89 static bool
90 dbg_cnt_set_limit_by_name (const char *name, int low, int high)
92 if (high < low)
94 error ("-fdbg-cnt=%s:%d:%d has smaller upper limit than the lower",
95 name, low, high);
96 return false;
99 if (low < 0)
101 error ("Lower limit %d of -fdbg-cnt=%s must be a non-negative number", low,
102 name);
103 return false;
106 if (high < 0)
108 error ("Upper limit %d of -fdbg-cnt=%s must be a non-negative number", high,
109 name);
110 return false;
113 int i;
114 for (i = debug_counter_number_of_counters - 1; i >= 0; i--)
115 if (strcmp (map[i].name, name) == 0)
116 break;
118 if (i < 0)
119 return false;
121 dbg_cnt_set_limit_by_index ((enum debug_counter) i, low, high);
122 return true;
126 /* Process a single "name:value" pair.
127 Returns NULL if there's no valid pair is found.
128 Otherwise returns a pointer to the end of the pair. */
130 static bool
131 dbg_cnt_process_single_pair (const char *arg)
133 char *str = xstrdup (arg);
134 char *name = strtok (str, ":");
135 char *value1 = strtok (NULL, ":");
136 char *value2 = strtok (NULL, ":");
138 int high, low;
140 if (value1 == NULL)
141 return NULL;
143 if (value2 == NULL)
145 low = 0;
146 high = strtol (value1, NULL, 10);
148 else
150 low = strtol (value1, NULL, 10);
151 high = strtol (value2, NULL, 10);
154 return dbg_cnt_set_limit_by_name (name, low, high);
157 void
158 dbg_cnt_process_opt (const char *arg)
160 char *str = xstrdup (arg);
161 const char *next = strtok (str, ",");
162 unsigned int start = 0;
164 do {
165 if (!dbg_cnt_process_single_pair (arg))
166 break;
167 start += strlen (arg) + 1;
168 next = strtok (NULL, ",");
169 } while (next != NULL);
171 if (next != NULL)
173 char *buffer = XALLOCAVEC (char, start + 2);
174 sprintf (buffer, "%*c", start + 1, '^');
175 error ("cannot find a valid counter:value pair:");
176 error ("-fdbg-cnt=%s", next);
177 error (" %s", buffer);
181 /* Print name, limit and count of all counters. */
183 void
184 dbg_cnt_list_all_counters (void)
186 int i;
187 printf (" %-32s %-11s %-12s\n", "counter name", "low limit",
188 "high limit");
189 printf ("-----------------------------------------------------------------\n");
190 for (i = 0; i < debug_counter_number_of_counters; i++)
191 printf (" %-30s %11u %12u\n",
192 map[i].name, limit_low[map[i].counter], limit_high[map[i].counter]);
193 printf ("\n");