1 /* ----------------------------------------------------------------------- *
3 * Copyright 1996-2019 The NASM Authors - All Rights Reserved
4 * See the file AUTHORS included with the NASM distribution for
5 * the specific copyright holders.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following
11 * * Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * * Redistributions in binary form must reproduce the above
14 * copyright notice, this list of conditions and the following
15 * disclaimer in the documentation and/or other materials provided
16 * with the distribution.
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
19 * CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
20 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
21 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
23 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
25 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
26 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
29 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
30 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 * ----------------------------------------------------------------------- */
35 * nasmlib.c library routines for the Netwide Assembler
43 size_t _nasm_last_string_size
;
45 fatal_func
nasm_alloc_failed(void)
47 nasm_critical("out of memory!");
50 void *nasm_malloc(size_t size
)
67 void *nasm_calloc(size_t nelem
, size_t size
)
72 p
= calloc(nelem
, size
);
75 if (!nelem
|| !size
) {
85 void *nasm_zalloc(size_t size
)
87 return nasm_calloc(size
, 1);
91 * Unlike the system realloc, we do *not* allow size == 0 to be
92 * the equivalent to free(); we guarantee returning a non-NULL pointer.
94 * The check for calling malloc() is theoretically redundant, but be
95 * paranoid about the system library...
97 void *nasm_realloc(void *q
, size_t size
)
101 q
= q
? realloc(q
, size
) : malloc(size
);
102 return validate_ptr(q
);
105 void nasm_free(void *q
)
111 char *nasm_strdup(const char *s
)
114 const size_t size
= strlen(s
) + 1;
116 _nasm_last_string_size
= size
;
117 p
= nasm_malloc(size
);
118 return memcpy(p
, s
, size
);
121 char *nasm_strndup(const char *s
, size_t len
)
125 len
= strnlen(s
, len
);
126 _nasm_last_string_size
= len
+ 1;
127 p
= nasm_malloc(len
+1);
129 return memcpy(p
, s
, len
);
132 char *nasm_strcat(const char *one
, const char *two
)
135 const size_t l1
= strlen(one
);
136 const size_t s2
= strlen(two
) + 1;
138 _nasm_last_string_size
= l1
+ s2
;
139 rslt
= nasm_malloc(l1
+ s2
);
140 memcpy(rslt
, one
, l1
);
141 memcpy(rslt
+ l1
, two
, s2
);
145 char *nasm_strcatn(const char *str1
, ...)
148 char *rslt
; /* Output buffer */
149 size_t s
; /* Total buffer size */
150 size_t n
; /* Number of arguments */
151 size_t *ltbl
; /* Table of lengths */
152 size_t l
, *lp
; /* Length for current argument */
153 const char *p
; /* Currently examined argument */
154 char *q
; /* Output pointer */
156 n
= 0; /* No strings encountered yet */
161 p
= va_arg(ap
, const char *);
165 ltbl
= nasm_malloc(n
* sizeof(size_t));
167 s
= 1; /* Space for final NULL */
172 *lp
++ = l
= strlen(p
);
174 p
= va_arg(ap
, const char *);
178 _nasm_last_string_size
= s
;
180 q
= rslt
= nasm_malloc(s
);
189 p
= va_arg(ap
, const char *);