1 /* Cell-based print utility routines for GDB, the GNU debugger.
3 Copyright (C) 1986-2022 Free Software Foundation, Inc.
5 This file is part of GDB.
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.
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.
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/>. */
20 #include "common-defs.h"
21 #include "print-utils.h"
22 /* Temporary storage using circular buffer. */
24 /* Number of cells in the circular buffer. */
27 /* Return the next entry in the circular buffer. */
32 static char buf[NUMCELLS][PRINT_CELL_SIZE];
35 if (++cell >= NUMCELLS)
41 decimal2str (const char *sign, ULONGEST addr, int width)
43 /* Steal code from valprint.c:print_decimal(). Should this worry
44 about the real size of addr as the above does? */
45 unsigned long temp[3];
46 char *str = get_print_cell ();
51 temp[i] = addr % (1000 * 1000 * 1000);
52 addr /= (1000 * 1000 * 1000);
56 while (addr != 0 && i < (sizeof (temp) / sizeof (temp[0])));
65 xsnprintf (str, PRINT_CELL_SIZE, "%s%0*lu", sign, width, temp[0]);
68 xsnprintf (str, PRINT_CELL_SIZE, "%s%0*lu%09lu", sign, width,
72 xsnprintf (str, PRINT_CELL_SIZE, "%s%0*lu%09lu%09lu", sign, width,
73 temp[2], temp[1], temp[0]);
76 internal_error (_("failed internal consistency check"));
83 octal2str (ULONGEST addr, int width)
85 unsigned long temp[3];
86 char *str = get_print_cell ();
91 temp[i] = addr % (0100000 * 0100000);
92 addr /= (0100000 * 0100000);
96 while (addr != 0 && i < (sizeof (temp) / sizeof (temp[0])));
106 xsnprintf (str, PRINT_CELL_SIZE, "%*o", width, 0);
108 xsnprintf (str, PRINT_CELL_SIZE, "0%0*lo", width, temp[0]);
111 xsnprintf (str, PRINT_CELL_SIZE, "0%0*lo%010lo", width, temp[1], temp[0]);
114 xsnprintf (str, PRINT_CELL_SIZE, "0%0*lo%010lo%010lo", width,
115 temp[2], temp[1], temp[0]);
118 internal_error (_("failed internal consistency check"));
124 /* See print-utils.h. */
127 pulongest (ULONGEST u)
129 return decimal2str ("", u, 0);
132 /* See print-utils.h. */
138 return decimal2str ("-", -l, 0);
140 return decimal2str ("", l, 0);
143 /* Eliminate warning from compiler on 32-bit systems. */
144 static int thirty_two = 32;
146 /* See print-utils.h. */
149 phex (ULONGEST l, int sizeof_l)
156 str = get_print_cell ();
157 xsnprintf (str, PRINT_CELL_SIZE, "%08lx%08lx",
158 (unsigned long) (l >> thirty_two),
159 (unsigned long) (l & 0xffffffff));
162 str = get_print_cell ();
163 xsnprintf (str, PRINT_CELL_SIZE, "%08lx", (unsigned long) l);
166 str = get_print_cell ();
167 xsnprintf (str, PRINT_CELL_SIZE, "%04x", (unsigned short) (l & 0xffff));
170 str = get_print_cell ();
171 xsnprintf (str, PRINT_CELL_SIZE, "%02x", (unsigned short) (l & 0xff));
174 str = phex (l, sizeof (l));
181 /* See print-utils.h. */
184 phex_nz (ULONGEST l, int sizeof_l)
192 unsigned long high = (unsigned long) (l >> thirty_two);
194 str = get_print_cell ();
196 xsnprintf (str, PRINT_CELL_SIZE, "%lx",
197 (unsigned long) (l & 0xffffffff));
199 xsnprintf (str, PRINT_CELL_SIZE, "%lx%08lx", high,
200 (unsigned long) (l & 0xffffffff));
204 str = get_print_cell ();
205 xsnprintf (str, PRINT_CELL_SIZE, "%lx", (unsigned long) l);
208 str = get_print_cell ();
209 xsnprintf (str, PRINT_CELL_SIZE, "%x", (unsigned short) (l & 0xffff));
212 str = get_print_cell ();
213 xsnprintf (str, PRINT_CELL_SIZE, "%x", (unsigned short) (l & 0xff));
216 str = phex_nz (l, sizeof (l));
223 /* See print-utils.h. */
226 hex_string (LONGEST num)
228 char *result = get_print_cell ();
230 xsnprintf (result, PRINT_CELL_SIZE, "0x%s", phex_nz (num, sizeof (num)));
234 /* See print-utils.h. */
237 hex_string_custom (LONGEST num, int width)
239 char *result = get_print_cell ();
240 char *result_end = result + PRINT_CELL_SIZE - 1;
241 const char *hex = phex_nz (num, sizeof (num));
242 int hex_len = strlen (hex);
246 if (width + 2 >= PRINT_CELL_SIZE)
248 hex_string_custom: insufficient space to store result"));
250 strcpy (result_end - width - 2, "0x");
251 memset (result_end - width, '0', width);
252 strcpy (result_end - hex_len, hex);
253 return result_end - width - 2;
256 /* See print-utils.h. */
259 int_string (LONGEST val, int radix, int is_signed, int width,
269 result = hex_string (val);
271 result = hex_string_custom (val, width);
278 if (is_signed && val < 0)
279 /* Cast to unsigned before negating, to prevent runtime error:
280 negation of -9223372036854775808 cannot be represented in type
281 'long int'; cast to an unsigned type to negate this value to
283 return decimal2str ("-", -(ULONGEST)val, width);
285 return decimal2str ("", val, width);
289 char *result = octal2str (val, width);
291 if (use_c_format || val == 0)
297 internal_error (_("failed internal consistency check"));
301 /* See print-utils.h. */
304 core_addr_to_string (const CORE_ADDR addr)
306 char *str = get_print_cell ();
309 strcat (str, phex (addr, sizeof (addr)));
313 /* See print-utils.h. */
316 core_addr_to_string_nz (const CORE_ADDR addr)
318 char *str = get_print_cell ();
321 strcat (str, phex_nz (addr, sizeof (addr)));
325 /* See print-utils.h. */
328 host_address_to_string_1 (const void *addr)
330 char *str = get_print_cell ();
332 xsnprintf (str, PRINT_CELL_SIZE, "0x%s",
333 phex_nz ((uintptr_t) addr, sizeof (addr)));