forked from KolibriOS/kolibrios
127 lines
2.7 KiB
C
127 lines
2.7 KiB
C
/* Copyright (C) 2000, 2002 Free Software Foundation, Inc.
|
|
This file is part of the GNU C Library.
|
|
Contributed by Ulrich Drepper <drepper@redhat.com>.
|
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Lesser General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2.1 of the License, or (at your option) any later version.
|
|
|
|
The GNU C Library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with the GNU C Library; if not, write to the Free
|
|
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
|
02111-1307 USA. */
|
|
|
|
#include <errno.h>
|
|
#include <error.h>
|
|
#include <limits.h>
|
|
#include <malloc.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
|
|
|
|
/* Number of samples per size. */
|
|
#define N 50000
|
|
|
|
|
|
static void
|
|
fixed_test (int size)
|
|
{
|
|
char *ptrs[N];
|
|
int i;
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
int j;
|
|
|
|
ptrs[i] = (char *) calloc (1, size);
|
|
|
|
if (ptrs[i] == NULL)
|
|
break;
|
|
|
|
for (j = 0; j < size; ++j)
|
|
{
|
|
if (ptrs[i][j] != '\0')
|
|
error (EXIT_FAILURE, 0,
|
|
"byte not cleared (size %d, element %d, byte %d)",
|
|
size, i, j);
|
|
ptrs[i][j] = '\xff';
|
|
}
|
|
}
|
|
|
|
while (i-- > 0)
|
|
free (ptrs[i]);
|
|
}
|
|
|
|
|
|
static void
|
|
random_test (void)
|
|
{
|
|
char *ptrs[N];
|
|
int i;
|
|
|
|
for (i = 0; i < N; ++i)
|
|
{
|
|
int j;
|
|
int n = 1 + random () % 10;
|
|
int elem = 1 + random () % 100;
|
|
int size = n * elem;
|
|
|
|
ptrs[i] = (char *) calloc (n, elem);
|
|
|
|
if (ptrs[i] == NULL)
|
|
break;
|
|
|
|
for (j = 0; j < size; ++j)
|
|
{
|
|
if (ptrs[i][j] != '\0')
|
|
error (EXIT_FAILURE, 0,
|
|
"byte not cleared (size %d, element %d, byte %d)",
|
|
size, i, j);
|
|
ptrs[i][j] = '\xff';
|
|
}
|
|
}
|
|
|
|
while (i-- > 0)
|
|
free (ptrs[i]);
|
|
}
|
|
|
|
|
|
static void
|
|
null_test (void)
|
|
{
|
|
/* If the size is 0 the result is implementation defined. Just make
|
|
sure the program doesn't crash. */
|
|
calloc (0, 0);
|
|
calloc (0, UINT_MAX);
|
|
calloc (UINT_MAX, 0);
|
|
calloc (0, ~((size_t) 0));
|
|
calloc (~((size_t) 0), 0);
|
|
}
|
|
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
/* We are allocating blocks with `calloc' and check whether every
|
|
block is completely cleared. We first try this for some fixed
|
|
times and then with random size. */
|
|
fixed_test (15);
|
|
fixed_test (5);
|
|
fixed_test (17);
|
|
fixed_test (6);
|
|
fixed_test (31);
|
|
fixed_test (96);
|
|
|
|
random_test ();
|
|
|
|
null_test ();
|
|
|
|
return 0;
|
|
}
|