1 /* Shared general utility routines for GDB, the GNU debugger.
3 Copyright (C) 1986-2016 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 "host-defs.h"
24 /* The xmalloc() (libiberty.h) family of memory management routines.
26 These are like the ISO-C malloc() family except that they implement
27 consistent semantics and guard against typical memory management
30 /* NOTE: These are declared using PTR to ensure consistency with
31 "libiberty.h". xfree() is GDB local. */
38 /* See libiberty/xmalloc.c. This function need's to match that's
39 semantics. It never returns NULL. */
43 val
= malloc (size
); /* ARI: malloc */
45 malloc_failure (size
);
51 xrealloc (PTR ptr
, size_t size
) /* ARI: PTR */
55 /* See libiberty/xmalloc.c. This function need's to match that's
56 semantics. It never returns NULL. */
61 val
= realloc (ptr
, size
); /* ARI: realloc */
63 val
= malloc (size
); /* ARI: malloc */
65 malloc_failure (size
);
71 xcalloc (size_t number
, size_t size
)
75 /* See libiberty/xmalloc.c. This function need's to match that's
76 semantics. It never returns NULL. */
77 if (number
== 0 || size
== 0)
83 mem
= calloc (number
, size
); /* ARI: xcalloc */
85 malloc_failure (number
* size
);
93 return xcalloc (1, size
);
100 free (ptr
); /* ARI: free */
104 xmalloc_failed (size_t size
)
106 malloc_failure (size
);
109 /* Like asprintf/vasprintf but get an internal_error if the call
113 xstrprintf (const char *format
, ...)
118 va_start (args
, format
);
119 ret
= xstrvprintf (format
, args
);
125 xstrvprintf (const char *format
, va_list ap
)
128 int status
= vasprintf (&ret
, format
, ap
);
130 /* NULL is returned when there was a memory allocation problem, or
131 any other error (for instance, a bad format string). A negative
132 status (the printed length) with a non-NULL buffer should never
133 happen, but just to be sure. */
134 if (ret
== NULL
|| status
< 0)
135 internal_error (__FILE__
, __LINE__
, _("vasprintf call failed"));
140 xsnprintf (char *str
, size_t size
, const char *format
, ...)
145 va_start (args
, format
);
146 ret
= vsnprintf (str
, size
, format
, args
);
147 gdb_assert (ret
< size
);
154 savestring (const char *ptr
, size_t len
)
156 char *p
= (char *) xmalloc (len
+ 1);
158 memcpy (p
, ptr
, len
);
163 /* The bit offset of the highest byte in a ULONGEST, for overflow
166 #define HIGH_BYTE_POSN ((sizeof (ULONGEST) - 1) * HOST_CHAR_BIT)
168 /* True (non-zero) iff DIGIT is a valid digit in radix BASE,
169 where 2 <= BASE <= 36. */
172 is_digit_in_base (unsigned char digit
, int base
)
174 if (!isalnum (digit
))
177 return (isdigit (digit
) && digit
< base
+ '0');
179 return (isdigit (digit
) || tolower (digit
) < base
- 10 + 'a');
183 digit_to_int (unsigned char c
)
188 return tolower (c
) - 'a' + 10;
191 /* As for strtoul, but for ULONGEST results. */
194 strtoulst (const char *num
, const char **trailer
, int base
)
196 unsigned int high_part
;
201 /* Skip leading whitespace. */
202 while (isspace (num
[i
]))
205 /* Handle prefixes. */
208 else if (num
[i
] == '-')
214 if (base
== 0 || base
== 16)
216 if (num
[i
] == '0' && (num
[i
+ 1] == 'x' || num
[i
+ 1] == 'X'))
224 if (base
== 0 && num
[i
] == '0')
230 if (base
< 2 || base
> 36)
236 result
= high_part
= 0;
237 for (; is_digit_in_base (num
[i
], base
); i
+= 1)
239 result
= result
* base
+ digit_to_int (num
[i
]);
240 high_part
= high_part
* base
+ (unsigned int) (result
>> HIGH_BYTE_POSN
);
241 result
&= ((ULONGEST
) 1 << HIGH_BYTE_POSN
) - 1;
242 if (high_part
> 0xff)
245 result
= ~ (ULONGEST
) 0;
255 result
= result
+ ((ULONGEST
) high_part
<< HIGH_BYTE_POSN
);
262 /* See documentation in common-utils.h. */
265 skip_spaces (char *chp
)
269 while (*chp
&& isspace (*chp
))
274 /* A const-correct version of the above. */
277 skip_spaces_const (const char *chp
)
281 while (*chp
&& isspace (*chp
))
286 /* See documentation in common-utils.h. */
289 skip_to_space_const (const char *chp
)
293 while (*chp
&& !isspace (*chp
))
This page took 0.040144 seconds and 4 git commands to generate.