Commit | Line | Data |
---|---|---|
01fd3ea5 TT |
1 | /* Cell-based print utility routines for GDB, the GNU debugger. |
2 | ||
3 | Copyright (C) 1986-2014 Free Software Foundation, Inc. | |
4 | ||
5 | This file is part of GDB. | |
6 | ||
7 | This program is free software; you can redistribute it and/or modify | |
8 | it under the terms of the GNU General Public License as published by | |
9 | the Free Software Foundation; either version 3 of the License, or | |
10 | (at your option) any later version. | |
11 | ||
12 | This program is distributed in the hope that it will be useful, | |
13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | GNU General Public License for more details. | |
16 | ||
17 | You should have received a copy of the GNU General Public License | |
18 | along with this program. If not, see <http://www.gnu.org/licenses/>. */ | |
19 | ||
20 | #ifdef GDBSERVER | |
21 | #include "server.h" | |
22 | #else | |
23 | #include "defs.h" | |
24 | #endif | |
25 | ||
26 | #include "print-utils.h" | |
27 | ||
28 | #include <string.h> | |
29 | #include <stdint.h> | |
30 | ||
31 | /* Temporary storage using circular buffer. */ | |
32 | ||
33 | #define NUMCELLS 16 | |
34 | #define CELLSIZE 50 | |
35 | ||
36 | /* Return the next entry in the circular buffer. */ | |
37 | ||
38 | static char * | |
39 | get_cell (void) | |
40 | { | |
41 | static char buf[NUMCELLS][CELLSIZE]; | |
42 | static int cell = 0; | |
43 | ||
44 | if (++cell >= NUMCELLS) | |
45 | cell = 0; | |
46 | return buf[cell]; | |
47 | } | |
48 | ||
49 | static char * | |
50 | decimal2str (char *sign, ULONGEST addr, int width) | |
51 | { | |
52 | /* Steal code from valprint.c:print_decimal(). Should this worry | |
53 | about the real size of addr as the above does? */ | |
54 | unsigned long temp[3]; | |
55 | char *str = get_cell (); | |
56 | int i = 0; | |
57 | ||
58 | do | |
59 | { | |
60 | temp[i] = addr % (1000 * 1000 * 1000); | |
61 | addr /= (1000 * 1000 * 1000); | |
62 | i++; | |
63 | width -= 9; | |
64 | } | |
65 | while (addr != 0 && i < (sizeof (temp) / sizeof (temp[0]))); | |
66 | ||
67 | width += 9; | |
68 | if (width < 0) | |
69 | width = 0; | |
70 | ||
71 | switch (i) | |
72 | { | |
73 | case 1: | |
74 | xsnprintf (str, CELLSIZE, "%s%0*lu", sign, width, temp[0]); | |
75 | break; | |
76 | case 2: | |
77 | xsnprintf (str, CELLSIZE, "%s%0*lu%09lu", sign, width, | |
78 | temp[1], temp[0]); | |
79 | break; | |
80 | case 3: | |
81 | xsnprintf (str, CELLSIZE, "%s%0*lu%09lu%09lu", sign, width, | |
82 | temp[2], temp[1], temp[0]); | |
83 | break; | |
84 | default: | |
85 | internal_error (__FILE__, __LINE__, | |
86 | _("failed internal consistency check")); | |
87 | } | |
88 | ||
89 | return str; | |
90 | } | |
91 | ||
92 | static char * | |
93 | octal2str (ULONGEST addr, int width) | |
94 | { | |
95 | unsigned long temp[3]; | |
96 | char *str = get_cell (); | |
97 | int i = 0; | |
98 | ||
99 | do | |
100 | { | |
101 | temp[i] = addr % (0100000 * 0100000); | |
102 | addr /= (0100000 * 0100000); | |
103 | i++; | |
104 | width -= 10; | |
105 | } | |
106 | while (addr != 0 && i < (sizeof (temp) / sizeof (temp[0]))); | |
107 | ||
108 | width += 10; | |
109 | if (width < 0) | |
110 | width = 0; | |
111 | ||
112 | switch (i) | |
113 | { | |
114 | case 1: | |
115 | if (temp[0] == 0) | |
116 | xsnprintf (str, CELLSIZE, "%*o", width, 0); | |
117 | else | |
118 | xsnprintf (str, CELLSIZE, "0%0*lo", width, temp[0]); | |
119 | break; | |
120 | case 2: | |
121 | xsnprintf (str, CELLSIZE, "0%0*lo%010lo", width, temp[1], temp[0]); | |
122 | break; | |
123 | case 3: | |
124 | xsnprintf (str, CELLSIZE, "0%0*lo%010lo%010lo", width, | |
125 | temp[2], temp[1], temp[0]); | |
126 | break; | |
127 | default: | |
128 | internal_error (__FILE__, __LINE__, | |
129 | _("failed internal consistency check")); | |
130 | } | |
131 | ||
132 | return str; | |
133 | } | |
134 | ||
135 | /* See print-utils.h. */ | |
136 | ||
137 | char * | |
138 | pulongest (ULONGEST u) | |
139 | { | |
140 | return decimal2str ("", u, 0); | |
141 | } | |
142 | ||
143 | /* See print-utils.h. */ | |
144 | ||
145 | char * | |
146 | plongest (LONGEST l) | |
147 | { | |
148 | if (l < 0) | |
149 | return decimal2str ("-", -l, 0); | |
150 | else | |
151 | return decimal2str ("", l, 0); | |
152 | } | |
153 | ||
154 | /* Eliminate warning from compiler on 32-bit systems. */ | |
155 | static int thirty_two = 32; | |
156 | ||
157 | /* See print-utils.h. */ | |
158 | ||
159 | char * | |
160 | phex (ULONGEST l, int sizeof_l) | |
161 | { | |
162 | char *str; | |
163 | ||
164 | switch (sizeof_l) | |
165 | { | |
166 | case 8: | |
167 | str = get_cell (); | |
168 | xsnprintf (str, CELLSIZE, "%08lx%08lx", | |
169 | (unsigned long) (l >> thirty_two), | |
170 | (unsigned long) (l & 0xffffffff)); | |
171 | break; | |
172 | case 4: | |
173 | str = get_cell (); | |
174 | xsnprintf (str, CELLSIZE, "%08lx", (unsigned long) l); | |
175 | break; | |
176 | case 2: | |
177 | str = get_cell (); | |
178 | xsnprintf (str, CELLSIZE, "%04x", (unsigned short) (l & 0xffff)); | |
179 | break; | |
180 | default: | |
181 | str = phex (l, sizeof (l)); | |
182 | break; | |
183 | } | |
184 | ||
185 | return str; | |
186 | } | |
187 | ||
188 | /* See print-utils.h. */ | |
189 | ||
190 | char * | |
191 | phex_nz (ULONGEST l, int sizeof_l) | |
192 | { | |
193 | char *str; | |
194 | ||
195 | switch (sizeof_l) | |
196 | { | |
197 | case 8: | |
198 | { | |
199 | unsigned long high = (unsigned long) (l >> thirty_two); | |
200 | ||
201 | str = get_cell (); | |
202 | if (high == 0) | |
203 | xsnprintf (str, CELLSIZE, "%lx", | |
204 | (unsigned long) (l & 0xffffffff)); | |
205 | else | |
206 | xsnprintf (str, CELLSIZE, "%lx%08lx", high, | |
207 | (unsigned long) (l & 0xffffffff)); | |
208 | break; | |
209 | } | |
210 | case 4: | |
211 | str = get_cell (); | |
212 | xsnprintf (str, CELLSIZE, "%lx", (unsigned long) l); | |
213 | break; | |
214 | case 2: | |
215 | str = get_cell (); | |
216 | xsnprintf (str, CELLSIZE, "%x", (unsigned short) (l & 0xffff)); | |
217 | break; | |
218 | default: | |
219 | str = phex_nz (l, sizeof (l)); | |
220 | break; | |
221 | } | |
222 | ||
223 | return str; | |
224 | } | |
225 | ||
226 | /* See print-utils.h. */ | |
227 | ||
228 | char * | |
229 | hex_string (LONGEST num) | |
230 | { | |
231 | char *result = get_cell (); | |
232 | ||
233 | xsnprintf (result, CELLSIZE, "0x%s", phex_nz (num, sizeof (num))); | |
234 | return result; | |
235 | } | |
236 | ||
237 | /* See print-utils.h. */ | |
238 | ||
239 | char * | |
240 | hex_string_custom (LONGEST num, int width) | |
241 | { | |
242 | char *result = get_cell (); | |
243 | char *result_end = result + CELLSIZE - 1; | |
244 | const char *hex = phex_nz (num, sizeof (num)); | |
245 | int hex_len = strlen (hex); | |
246 | ||
247 | if (hex_len > width) | |
248 | width = hex_len; | |
249 | if (width + 2 >= CELLSIZE) | |
250 | internal_error (__FILE__, __LINE__, _("\ | |
251 | hex_string_custom: insufficient space to store result")); | |
252 | ||
253 | strcpy (result_end - width - 2, "0x"); | |
254 | memset (result_end - width, '0', width); | |
255 | strcpy (result_end - hex_len, hex); | |
256 | return result_end - width - 2; | |
257 | } | |
258 | ||
259 | /* See print-utils.h. */ | |
260 | ||
261 | char * | |
262 | int_string (LONGEST val, int radix, int is_signed, int width, | |
263 | int use_c_format) | |
264 | { | |
265 | switch (radix) | |
266 | { | |
267 | case 16: | |
268 | { | |
269 | char *result; | |
270 | ||
271 | if (width == 0) | |
272 | result = hex_string (val); | |
273 | else | |
274 | result = hex_string_custom (val, width); | |
275 | if (! use_c_format) | |
276 | result += 2; | |
277 | return result; | |
278 | } | |
279 | case 10: | |
280 | { | |
281 | if (is_signed && val < 0) | |
282 | return decimal2str ("-", -val, width); | |
283 | else | |
284 | return decimal2str ("", val, width); | |
285 | } | |
286 | case 8: | |
287 | { | |
288 | char *result = octal2str (val, width); | |
289 | ||
290 | if (use_c_format || val == 0) | |
291 | return result; | |
292 | else | |
293 | return result + 1; | |
294 | } | |
295 | default: | |
296 | internal_error (__FILE__, __LINE__, | |
297 | _("failed internal consistency check")); | |
298 | } | |
299 | } | |
300 | ||
301 | /* See print-utils.h. */ | |
302 | ||
303 | const char * | |
304 | core_addr_to_string (const CORE_ADDR addr) | |
305 | { | |
306 | char *str = get_cell (); | |
307 | ||
308 | strcpy (str, "0x"); | |
309 | strcat (str, phex (addr, sizeof (addr))); | |
310 | return str; | |
311 | } | |
312 | ||
313 | /* See print-utils.h. */ | |
314 | ||
315 | const char * | |
316 | core_addr_to_string_nz (const CORE_ADDR addr) | |
317 | { | |
318 | char *str = get_cell (); | |
319 | ||
320 | strcpy (str, "0x"); | |
321 | strcat (str, phex_nz (addr, sizeof (addr))); | |
322 | return str; | |
323 | } | |
324 | ||
325 | /* See print-utils.h. */ | |
326 | ||
327 | const char * | |
328 | host_address_to_string (const void *addr) | |
329 | { | |
330 | char *str = get_cell (); | |
331 | ||
332 | xsnprintf (str, CELLSIZE, "0x%s", phex_nz ((uintptr_t) addr, sizeof (addr))); | |
333 | return str; | |
334 | } |