Support strange mixed-endian double format used by ARM systems.
[kopensolaris-gnu/glibc.git] / string / testcopy.c
1 /* Copyright (C) 1990, 1991, 1992, 1997 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by Torbjorn Granlund (tege@sics.se).
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Library General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    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    Library General Public License for more details.
14
15    You should have received a copy of the GNU Library General Public
16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18    Boston, MA 02111-1307, USA.  */
19
20 #include <stdlib.h>
21 #include <stdio.h>
22 #include <string.h>
23 #include <malloc.h>
24
25 int
26 main (void)
27 {
28   char *mem, *memp;
29   char *rand_mem;
30   char *lo_around, *hi_around;
31   int size, max_size;
32   int src_off, dst_off;
33   int i;
34   int space_around = 10;
35
36   max_size = 256;
37
38   mem = malloc (max_size + 2 * max_size + 2 * space_around);
39   rand_mem = malloc (max_size);
40   lo_around = malloc (space_around);
41   hi_around = malloc (space_around);
42   memp = mem + space_around;
43
44   /* Fill RAND_MEM with random bytes, each non-zero.  */
45   for (i = 0; i < max_size; i++)
46     {
47       int x;
48       do
49         x = random ();
50       while (x == 0);
51       rand_mem[i] = x;
52     }
53
54   for (size = 0; size < max_size; size++)
55     {
56       printf("phase %d\n", size);
57       for (src_off = 0; src_off <= 16; src_off++)
58         {
59           for (dst_off = 0; dst_off <= 16; dst_off++)
60             {
61               /* Put zero around the intended destination, to check
62                  that it's not clobbered.  */
63               for (i = 1; i < space_around; i++)
64                 {
65                   memp[dst_off - i] = 0;
66                   memp[dst_off + size - 1 + i] = 0;
67                 }
68
69               /* Fill the source area with known contents.  */
70               for (i = 0; i < size; i++)
71                 memp[src_off + i] = rand_mem[i];
72
73               /* Remember the contents around the destination area.
74                  (It might not be what we wrote some lines above, since
75                  the src area and the dst area overlap.)  */
76               for (i = 1; i < space_around; i++)
77                 {
78                   lo_around[i] = memp[dst_off - i];
79                   hi_around[i] = memp[dst_off + size - 1 + i];
80                 }
81
82               memmove (memp + dst_off, memp + src_off, size);
83
84               /* Check that the destination area has the same
85                  contents we wrote to the source area.  */
86               for (i = 0; i < size; i++)
87                 {
88                   if (memp[dst_off + i] != rand_mem[i])
89                     abort ();
90                 }
91
92               /* Check that the area around the destination is not
93                  clobbered.  */
94               for (i = 1; i < space_around; i++)
95                 {
96                   if (memp[dst_off - i] != lo_around[i])
97                     abort ();
98                   if (memp[dst_off + size - 1 + i] != hi_around[i])
99                     abort ();
100                 }
101             }
102         }
103     }
104
105   puts ("Test succeeded.");
106
107   return 0;
108 }