1/* Test for string function add boundaries of usable memory.
2 Copyright (C) 1996-2022 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
18
19#define _GNU_SOURCE 1
20
21/* Make sure we don't test the optimized inline functions if we want to
22 test the real implementation. */
23#undef __USE_STRING_INLINES
24
25#include <errno.h>
26#include <stdio.h>
27#include <string.h>
28#include <unistd.h>
29#include <sys/mman.h>
30#include <sys/param.h>
31
32#ifndef CHAR
33# define L(c) c
34# define CHAR char
35# define MEMSET memset
36# define STRLEN strlen
37# define STRNLEN strnlen
38# define STRCHR strchr
39# define STRRCHR strrchr
40# define STRCPY strcpy
41# define STRNCPY strncpy
42# define MEMCMP memcmp
43# define STPCPY stpcpy
44# define STPNCPY stpncpy
45# define MEMCPY memcpy
46# define MEMPCPY mempcpy
47# define MEMCHR memchr
48# define STRCMP strcmp
49# define STRNCMP strncmp
50#endif
51
52
53#define STRINGIFY(s) STRINGIFY2 (s)
54#define STRINGIFY2(s) #s
55
56
57int
58do_test (void)
59{
60 size_t size = sysconf (_SC_PAGESIZE);
61 size_t nchars = size / sizeof (CHAR);
62 CHAR *adr;
63 CHAR *dest;
64 int result = 0;
65
66 adr = (CHAR *) mmap (NULL, len: 3 * size, PROT_READ | PROT_WRITE,
67 MAP_PRIVATE | MAP_ANON, fd: -1, offset: 0);
68 dest = (CHAR *) mmap (NULL, len: 3 * size, PROT_READ | PROT_WRITE,
69 MAP_PRIVATE | MAP_ANON, fd: -1, offset: 0);
70 if (adr == MAP_FAILED || dest == MAP_FAILED)
71 {
72 if (errno == ENOSYS)
73 puts (s: "No test, mmap not available.");
74 else
75 {
76 printf (format: "mmap failed: %m");
77 result = 1;
78 }
79 }
80 else
81 {
82 size_t inner, middle, outer, nchars64, max128;
83
84 if (nchars > 64)
85 nchars64 = nchars - 64;
86 else
87 nchars64 = 0;
88
89 if (nchars > 128)
90 max128 = nchars - 128;
91 else
92 max128 = 0;
93
94 mprotect (addr: adr, len: size, PROT_NONE);
95 mprotect (addr: adr + 2 * nchars, len: size, PROT_NONE);
96 adr += nchars;
97
98 mprotect (addr: dest, len: size, PROT_NONE);
99 mprotect (addr: dest + 2 * nchars, len: size, PROT_NONE);
100 dest += nchars;
101
102 MEMSET (adr, L('T'), nchars);
103
104 /* strlen/wcslen test */
105 for (outer = nchars - 1; outer >= max128; --outer)
106 {
107 for (inner = MAX (outer, nchars64); inner < nchars; ++inner)
108 {
109 adr[inner] = L('\0');
110
111 if (STRLEN (&adr[outer]) != (size_t) (inner - outer))
112 {
113 printf (format: "%s flunked for outer = %zu, inner = %zu\n",
114 STRINGIFY (STRLEN), outer, inner);
115 result = 1;
116 }
117
118 adr[inner] = L('T');
119 }
120 if (outer == 0)
121 break;
122 }
123
124 /* strnlen/wcsnlen test */
125 for (outer = nchars; outer >= max128; --outer)
126 {
127 for (inner = MAX (outer, nchars64); inner < nchars; ++inner)
128 {
129 adr[inner] = L('\0');
130
131 if (STRNLEN (&adr[outer], inner - outer + 1)
132 != (size_t) (inner - outer))
133 {
134 printf (format: "%s flunked for outer = %zu, inner = %zu\n",
135 STRINGIFY (STRNLEN), outer, inner);
136 result = 1;
137 }
138
139 adr[inner] = L('T');
140 }
141 if (outer == 0)
142 break;
143 }
144 for (outer = nchars; outer >= max128; --outer)
145 {
146 for (inner = MAX (outer, nchars64); inner <= nchars; ++inner)
147 {
148 if (STRNLEN (&adr[outer], inner - outer)
149 != (size_t) (inner - outer))
150 {
151 printf (format: "%s flunked bounded for outer = %zu, inner = %zu\n",
152 STRINGIFY (STRNLEN), outer, inner);
153 result = 1;
154 }
155 }
156 if (outer == 0)
157 break;
158 }
159
160 /* strchr/wcschr test */
161 for (outer = nchars - 1; outer >= max128; --outer)
162 {
163 for (middle = MAX (outer, nchars64); middle < nchars; ++middle)
164 {
165 for (inner = middle; inner < nchars; ++inner)
166 {
167 adr[middle] = L('V');
168 adr[inner] = L('\0');
169
170 CHAR *cp = STRCHR (&adr[outer], L('V'));
171
172 if ((inner == middle && cp != NULL)
173 || (inner != middle
174 && (cp - &adr[outer]) != middle - outer))
175 {
176 printf (format: "%s flunked for outer = %zu, middle = %zu, "
177 "inner = %zu\n",
178 STRINGIFY (STRCHR), outer, middle, inner);
179 result = 1;
180 }
181
182 adr[inner] = L('T');
183 adr[middle] = L('T');
184 }
185 }
186 if (outer == 0)
187 break;
188 }
189
190 /* Special test. */
191 adr[nchars - 1] = L('\0');
192 if (STRCHR (&adr[nchars - 1], L('\n')) != NULL)
193 {
194 printf (format: "%s flunked test of empty string at end of page\n",
195 STRINGIFY (STRCHR));
196 result = 1;
197 }
198
199 /* strrchr/wcsrchr test */
200 for (outer = nchars - 1; outer >= max128; --outer)
201 {
202 for (middle = MAX (outer, nchars64); middle < nchars; ++middle)
203 {
204 for (inner = middle; inner < nchars; ++inner)
205 {
206 adr[middle] = L('V');
207 adr[inner] = L('\0');
208
209 CHAR *cp = STRRCHR (&adr[outer], L('V'));
210
211 if ((inner == middle && cp != NULL)
212 || (inner != middle
213 && (cp - &adr[outer]) != middle - outer))
214 {
215 printf (format: "%s flunked for outer = %zu, middle = %zu, "
216 "inner = %zu\n",
217 STRINGIFY (STRRCHR), outer, middle, inner);
218 result = 1;
219 }
220
221 adr[inner] = L('T');
222 adr[middle] = L('T');
223 }
224 }
225 if (outer == 0)
226 break;
227 }
228
229 /* memchr test */
230 for (outer = nchars - 1; outer >= max128; --outer)
231 {
232 for (middle = MAX (outer, nchars64); middle < nchars; ++middle)
233 {
234 adr[middle] = L('V');
235
236 CHAR *cp = MEMCHR (&adr[outer], L('V'), 3 * size);
237
238 if (cp - &adr[outer] != middle - outer)
239 {
240 printf (format: "%s flunked for outer = %zu, middle = %zu\n",
241 STRINGIFY (MEMCHR), outer, middle);
242 result = 1;
243 }
244
245 adr[middle] = L('T');
246 }
247 if (outer == 0)
248 break;
249 }
250 for (outer = nchars; outer >= max128; --outer)
251 {
252 CHAR *cp = MEMCHR (&adr[outer], L('V'), nchars - outer);
253
254 if (cp != NULL)
255 {
256 printf (format: "%s flunked for outer = %zu\n",
257 STRINGIFY (MEMCHR), outer);
258 result = 1;
259 }
260 if (outer == 0)
261 break;
262 }
263
264 /* These functions only exist for single-byte characters. */
265#ifndef WCSTEST
266 /* rawmemchr test */
267 for (outer = nchars - 1; outer >= max128; --outer)
268 {
269 for (middle = MAX (outer, nchars64); middle < nchars; ++middle)
270 {
271 adr[middle] = L('V');
272
273 CHAR *cp = rawmemchr (s: &adr[outer], L('V'));
274
275 if (cp - &adr[outer] != middle - outer)
276 {
277 printf (format: "%s flunked for outer = %zu, middle = %zu\n",
278 STRINGIFY (rawmemchr), outer, middle);
279 result = 1;
280 }
281
282 adr[middle] = L('T');
283 }
284 if (outer == 0)
285 break;
286 }
287
288 /* memrchr test */
289 for (outer = nchars - 1; outer >= max128; --outer)
290 {
291 for (middle = MAX (outer, nchars64); middle < nchars; ++middle)
292 {
293 adr[middle] = L('V');
294
295 CHAR *cp = memrchr (s: &adr[outer], L('V'), n: nchars - outer);
296
297 if (cp - &adr[outer] != middle - outer)
298 {
299 printf (format: "%s flunked for outer = %zu, middle = %zu\n",
300 STRINGIFY (memrchr), outer, middle);
301 result = 1;
302 }
303
304 adr[middle] = L('T');
305 }
306 if (outer == 0)
307 break;
308 }
309 for (outer = nchars; outer >= max128; --outer)
310 {
311 CHAR *cp = memrchr (s: &adr[outer], L('V'), n: nchars - outer);
312
313 if (cp != NULL)
314 {
315 printf (format: "%s flunked for outer = %zu\n",
316 STRINGIFY (memrchr), outer);
317 result = 1;
318 }
319 if (outer == 0)
320 break;
321 }
322#endif
323
324 /* strcpy/wcscpy test */
325 for (outer = nchars - 1; outer >= max128; --outer)
326 {
327 for (inner = MAX (outer, nchars64); inner < nchars; ++inner)
328 {
329 adr[inner] = L('\0');
330
331 if (STRCPY (dest, &adr[outer]) != dest
332 || STRLEN (dest) != (size_t) (inner - outer))
333 {
334 printf (format: "%s flunked for outer = %zu, inner = %zu\n",
335 STRINGIFY (STRCPY), outer, inner);
336 result = 1;
337 }
338
339 adr[inner] = L('T');
340 }
341 if (outer == 0)
342 break;
343 }
344
345 /* strcmp/wcscmp tests */
346 for (outer = 1; outer < 32; ++outer)
347 for (middle = 0; middle < 16; ++middle)
348 {
349 MEMSET (adr + middle, L('T'), 256);
350 adr[256] = L('\0');
351 MEMSET (dest + nchars - outer, L('T'), outer - 1);
352 dest[nchars - 1] = L('\0');
353
354 if (STRCMP (adr + middle, dest + nchars - outer) <= 0)
355 {
356 printf (format: "%s 1 flunked for outer = %zu, middle = %zu\n",
357 STRINGIFY (STRCMP), outer, middle);
358 result = 1;
359 }
360
361 if (STRCMP (dest + nchars - outer, adr + middle) >= 0)
362 {
363 printf (format: "%s 2 flunked for outer = %zu, middle = %zu\n",
364 STRINGIFY (STRCMP), outer, middle);
365 result = 1;
366 }
367 }
368
369 /* strncmp/wcsncmp tests */
370 for (outer = 1; outer < 32; ++outer)
371 for (middle = 0; middle < 16; ++middle)
372 {
373 MEMSET (adr + middle, L('T'), 256);
374 adr[256] = L('\0');
375 MEMSET (dest + nchars - outer, L('T'), outer - 1);
376 dest[nchars - 1] = L('U');
377
378 for (inner = 0; inner < outer; ++inner)
379 {
380 if (STRNCMP (adr + middle, dest + nchars - outer, inner) != 0)
381 {
382 printf (format: "%s 1 flunked for outer = %zu, middle = %zu, "
383 "inner = %zu\n",
384 STRINGIFY (STRNCMP), outer, middle, inner);
385 result = 1;
386 }
387
388 if (STRNCMP (dest + nchars - outer, adr + middle, inner) != 0)
389 {
390 printf (format: "%s 2 flunked for outer = %zu, middle = %zu, "
391 "inner = %zu\n",
392 STRINGIFY (STRNCMP), outer, middle, inner);
393 result = 1;
394 }
395 }
396
397 if (STRNCMP (adr + middle, dest + nchars - outer, outer) >= 0)
398 {
399 printf (format: "%s 1 flunked for outer = %zu, middle = %zu, full\n",
400 STRINGIFY (STRNCMP), outer, middle);
401 result = 1;
402 }
403
404 if (STRNCMP (dest + nchars - outer, adr + middle, outer) <= 0)
405 {
406 printf (format: "%s 2 flunked for outer = %zu, middle = %zu, full\n",
407 STRINGIFY (STRNCMP), outer, middle);
408 result = 1;
409 }
410 }
411
412 /* strncpy/wcsncpy tests */
413 adr[nchars - 1] = L('T');
414 for (outer = nchars; outer >= max128; --outer)
415 {
416 size_t len;
417
418 for (len = 0; len < nchars - outer; ++len)
419 {
420 if (STRNCPY (dest, &adr[outer], len) != dest
421 || MEMCMP (dest, &adr[outer], len) != 0)
422 {
423 printf (format: "outer %s flunked for outer = %zu, len = %zu\n",
424 STRINGIFY (STRNCPY), outer, len);
425 result = 1;
426 }
427 }
428 if (outer == 0)
429 break;
430 }
431 adr[nchars - 1] = L('\0');
432
433 for (outer = nchars - 1; outer >= max128; --outer)
434 {
435 for (inner = MAX (outer, nchars64); inner < nchars; ++inner)
436 {
437 size_t len;
438
439 adr[inner] = L('\0');
440
441 for (len = 0; len < nchars - outer + 64; ++len)
442 {
443 if (STRNCPY (dest, &adr[outer], len) != dest
444 || MEMCMP (dest, &adr[outer],
445 MIN (inner - outer, len)) != 0
446 || (inner - outer < len
447 && STRLEN (dest) != (inner - outer)))
448 {
449 printf (format: "%s flunked for outer = %zu, inner = %zu, "
450 "len = %zu\n",
451 STRINGIFY (STRNCPY), outer, inner, len);
452 result = 1;
453 }
454 if (STRNCPY (dest + 1, &adr[outer], len) != dest + 1
455 || MEMCMP (dest + 1, &adr[outer],
456 MIN (inner - outer, len)) != 0
457 || (inner - outer < len
458 && STRLEN (dest + 1) != (inner - outer)))
459 {
460 printf (format: "%s+1 flunked for outer = %zu, inner = %zu, "
461 "len = %zu\n",
462 STRINGIFY (STRNCPY), outer, inner, len);
463 result = 1;
464 }
465 }
466
467 adr[inner] = L('T');
468 }
469 if (outer == 0)
470 break;
471 }
472
473 /* stpcpy/wcpcpy test */
474 for (outer = nchars - 1; outer >= max128; --outer)
475 {
476 for (inner = MAX (outer, nchars64); inner < nchars; ++inner)
477 {
478 adr[inner] = L('\0');
479
480 if ((STPCPY (dest, &adr[outer]) - dest) != inner - outer)
481 {
482 printf (format: "%s flunked for outer = %zu, inner = %zu\n",
483 STRINGIFY (STPCPY), outer, inner);
484 result = 1;
485 }
486
487 adr[inner] = L('T');
488 }
489 if (outer == 0)
490 break;
491 }
492
493 /* stpncpy/wcpncpy test */
494 adr[nchars - 1] = L('T');
495 for (outer = nchars; outer >= max128; --outer)
496 {
497 size_t len;
498
499 for (len = 0; len < nchars - outer; ++len)
500 {
501 if (STPNCPY (dest: dest, src: &adr[outer], n: len) != dest + len
502 || MEMCMP (dest, &adr[outer], len) != 0)
503 {
504 printf (format: "outer %s flunked for outer = %zu, len = %zu\n",
505 STRINGIFY (STPNCPY), outer, len);
506 result = 1;
507 }
508 }
509 if (outer == 0)
510 break;
511 }
512 adr[nchars - 1] = L('\0');
513
514 for (outer = nchars - 1; outer >= max128; --outer)
515 {
516 for (middle = MAX (outer, nchars64); middle < nchars; ++middle)
517 {
518 adr[middle] = L('\0');
519
520 for (inner = 0; inner < nchars - outer; ++ inner)
521 {
522 if ((STPNCPY (dest: dest, src: &adr[outer], n: inner) - dest)
523 != MIN (inner, middle - outer))
524 {
525 printf (format: "%s flunked for outer = %zu, middle = %zu, "
526 "inner = %zu\n",
527 STRINGIFY (STPNCPY), outer, middle, inner);
528 result = 1;
529 }
530 }
531
532 adr[middle] = L('T');
533 }
534 if (outer == 0)
535 break;
536 }
537
538 /* memcpy/wmemcpy test */
539 for (outer = nchars; outer >= max128; --outer)
540 {
541 for (inner = 0; inner < nchars - outer; ++inner)
542 if (MEMCPY (dest, &adr[outer], inner) != dest)
543 {
544 printf (format: "%s flunked for outer = %zu, inner = %zu\n",
545 STRINGIFY (MEMCPY), outer, inner);
546 result = 1;
547 }
548 if (outer == 0)
549 break;
550 }
551
552 /* mempcpy/wmempcpy test */
553 for (outer = nchars; outer >= max128; --outer)
554 {
555 for (inner = 0; inner < nchars - outer; ++inner)
556 if (MEMPCPY (dest, &adr[outer], inner) != dest + inner)
557 {
558 printf (format: "%s flunked for outer = %zu, inner = %zu\n",
559 STRINGIFY (MEMPCPY), outer, inner);
560 result = 1;
561 }
562 if (outer == 0)
563 break;
564 }
565
566 /* This function only exists for single-byte characters. */
567#ifndef WCSTEST
568 /* memccpy test */
569 memset (adr, '\0', nchars);
570 for (outer = nchars; outer >= max128; --outer)
571 {
572 for (inner = 0; inner < nchars - outer; ++inner)
573 if (memccpy (dest: dest, src: &adr[outer], L('\1'), n: inner) != NULL)
574 {
575 printf (format: "memccpy flunked full copy for outer = %zu, inner = %zu\n",
576 outer, inner);
577 result = 1;
578 }
579 if (outer == 0)
580 break;
581 }
582 for (outer = nchars - 1; outer >= max128; --outer)
583 {
584 for (middle = 0; middle < nchars - outer; ++middle)
585 {
586 memset (dest, L('\2'), middle + 1);
587 for (inner = 0; inner < middle; ++inner)
588 {
589 adr[outer + inner] = L('\1');
590
591 if (memccpy (dest: dest, src: &adr[outer], c: '\1', n: middle + 128)
592 != dest + inner + 1)
593 {
594 printf (format: "\
595 memccpy flunked partial copy for outer = %zu, middle = %zu, inner = %zu\n",
596 outer, middle, inner);
597 result = 1;
598 }
599 else if (dest[inner + 1] != L('\2'))
600 {
601 printf (format: "\
602 memccpy copied too much for outer = %zu, middle = %zu, inner = %zu\n",
603 outer, middle, inner);
604 result = 1;
605 }
606 adr[outer + inner] = L('\0');
607 }
608 }
609 if (outer == 0)
610 break;
611 }
612#endif
613 }
614
615 return result;
616}
617
618#include <support/test-driver.c>
619

source code of glibc/string/stratcliff.c