Define _itoa for 32-bit machines with HP timing.
[kopensolaris-gnu/glibc.git] / elf / dl-minimal.c
1 /* Minimal replacements for basic facilities used in the dynamic linker.
2    Copyright (C) 1995,96,97,98,2000,2001,2002 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, write to the Free
17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18    02111-1307 USA.  */
19
20 #include <errno.h>
21 #include <limits.h>
22 #include <string.h>
23 #include <unistd.h>
24 #include <sys/types.h>
25 #include <sys/mman.h>
26 #include <ldsodefs.h>
27 #include <stdio-common/_itoa.h>
28
29 #include <assert.h>
30
31 /* Minimal `malloc' allocator for use while loading shared libraries.
32    No block is ever freed.  */
33
34 static void *alloc_ptr, *alloc_end, *alloc_last_block;
35
36 /* Declarations of global functions.  */
37 extern void weak_function free (void *ptr);
38 extern void * weak_function realloc (void *ptr, size_t n);
39 extern unsigned long int weak_function __strtoul_internal
40 (const char *nptr, char **endptr, int base, int group);
41 extern unsigned long int weak_function strtoul (const char *nptr,
42                                                 char **endptr, int base);
43
44
45 void * weak_function
46 malloc (size_t n)
47 {
48 #ifdef MAP_ANON
49 #define _dl_zerofd (-1)
50 #else
51   extern int _dl_zerofd;
52
53   if (_dl_zerofd == -1)
54     _dl_zerofd = _dl_sysdep_open_zero_fill ();
55 #define MAP_ANON 0
56 #endif
57
58   if (alloc_end == 0)
59     {
60       /* Consume any unused space in the last page of our data segment.  */
61       extern int _end;
62       alloc_ptr = &_end;
63       alloc_end = (void *) 0 + (((alloc_ptr - (void *) 0)
64                                  + GL(dl_pagesize) - 1)
65                                 & ~(GL(dl_pagesize) - 1));
66     }
67
68   /* Make sure the allocation pointer is ideally aligned.  */
69   alloc_ptr = (void *) 0 + (((alloc_ptr - (void *) 0) + sizeof (double) - 1)
70                             & ~(sizeof (double) - 1));
71
72   if (alloc_ptr + n >= alloc_end)
73     {
74       /* Insufficient space left; allocate another page.  */
75       caddr_t page;
76       size_t nup = (n + GL(dl_pagesize) - 1) & ~(GL(dl_pagesize) - 1);
77       page = __mmap (0, nup, PROT_READ|PROT_WRITE,
78                      MAP_ANON|MAP_PRIVATE, _dl_zerofd, 0);
79       assert (page != MAP_FAILED);
80       if (page != alloc_end)
81         alloc_ptr = page;
82       alloc_end = page + nup;
83     }
84
85   alloc_last_block = (void *) alloc_ptr;
86   alloc_ptr += n;
87   return alloc_last_block;
88 }
89
90 /* We use this function occasionally since the real implementation may
91    be optimized when it can assume the memory it returns already is
92    set to NUL.  */
93 void * weak_function
94 calloc (size_t nmemb, size_t size)
95 {
96   size_t total = nmemb * size;
97   void *result = malloc (total);
98   return memset (result, '\0', total);
99 }
100
101 /* This will rarely be called.  */
102 void weak_function
103 free (void *ptr)
104 {
105   /* We can free only the last block allocated.  */
106   if (ptr == alloc_last_block)
107     alloc_ptr = alloc_last_block;
108 }
109
110 /* This is only called with the most recent block returned by malloc.  */
111 void * weak_function
112 realloc (void *ptr, size_t n)
113 {
114   void *new;
115   if (ptr == NULL)
116     return malloc (n);
117   assert (ptr == alloc_last_block);
118   alloc_ptr = alloc_last_block;
119   new = malloc (n);
120   assert (new == ptr);
121   return new;
122 }
123 \f
124 /* Avoid signal frobnication in setjmp/longjmp.  Keeps things smaller.  */
125
126 #include <setjmp.h>
127
128 int weak_function
129 __sigjmp_save (sigjmp_buf env, int savemask __attribute__ ((unused)))
130 {
131   env[0].__mask_was_saved = 0;
132   return 0;
133 }
134
135 void weak_function
136 longjmp (jmp_buf env, int val)
137 {
138   __longjmp (env[0].__jmpbuf, val);
139 }
140 \f
141 /* Define our own version of the internal function used by strerror.  We
142    only provide the messages for some common errors.  This avoids pulling
143    in the whole error list.  */
144
145 char * weak_function
146 __strerror_r (int errnum, char *buf, size_t buflen)
147 {
148   char *msg;
149
150   switch (errnum)
151     {
152     case ENOMEM:
153       msg = (char *) "Cannot allocate memory";
154       break;
155     case EINVAL:
156       msg = (char *) "Invalid argument";
157       break;
158     case ENOENT:
159       msg = (char *) "No such file or directory";
160       break;
161     case EPERM:
162       msg = (char *) "Operation not permitted";
163       break;
164     case EIO:
165       msg = (char *) "Input/output error";
166       break;
167     case EACCES:
168       msg = (char *) "Permission denied";
169       break;
170     default:
171       /* No need to check buffer size, all calls in the dynamic linker
172          provide enough space.  */
173       buf[buflen - 1] = '\0';
174       msg = _itoa_word (errnum, buf + buflen - 1, 10, 0);
175       msg = memcpy (msg - (sizeof ("Error ") - 1), "Error ",
176                     sizeof ("Error ") - 1);
177       break;
178     }
179
180   return msg;
181 }
182 \f
183 #ifndef NDEBUG
184
185 /* Define (weakly) our own assert failure function which doesn't use stdio.
186    If we are linked into the user program (-ldl), the normal __assert_fail
187    defn can override this one.  */
188
189 void weak_function
190 __assert_fail (const char *assertion,
191                const char *file, unsigned int line, const char *function)
192 {
193   _dl_fatal_printf ("\
194 Inconsistency detected by ld.so: %s: %u: %s%sAssertion `%s' failed!\n",
195                     file, line, function ?: "", function ? ": " : "",
196                     assertion);
197
198 }
199
200 void weak_function
201 __assert_perror_fail (int errnum,
202                       const char *file, unsigned int line,
203                       const char *function)
204 {
205   char errbuf[64];
206   _dl_fatal_printf ("\
207 Inconsistency detected by ld.so: %s: %u: %s%sUnexpected error: %s\n",
208                     file, line, function ?: "", function ? ": " : "",
209                     __strerror_r (errnum, errbuf, sizeof (errbuf)));
210 }
211
212 #endif
213
214 unsigned long int weak_function
215 __strtoul_internal (const char *nptr, char **endptr, int base, int group)
216 {
217   unsigned long int result = 0;
218   long int sign = 1;
219
220   while (*nptr == ' ' || *nptr == '\t')
221     ++nptr;
222
223   if (*nptr == '-')
224     {
225       sign = -1;
226       ++nptr;
227     }
228   else if (*nptr == '+')
229     ++nptr;
230
231   if (*nptr < '0' || *nptr > '9')
232     {
233       if (endptr != NULL)
234         *endptr = (char *) nptr;
235       return 0UL;
236     }
237
238   assert (base == 0);
239   base = 10;
240   if (*nptr == '0')
241     {
242       if (nptr[1] == 'x' || nptr[1] == 'X')
243         {
244           base = 16;
245           nptr += 2;
246         }
247       else
248         base = 8;
249     }
250
251   while (*nptr >= '0' && *nptr <= '9')
252     {
253       unsigned long int digval = *nptr - '0';
254       if (result > LONG_MAX / 10
255           || (result == ULONG_MAX / 10 && digval > ULONG_MAX % 10))
256         {
257           errno = ERANGE;
258           if (endptr != NULL)
259             *endptr = (char *) nptr;
260           return ULONG_MAX;
261         }
262       result *= base;
263       result += digval;
264       ++nptr;
265     }
266
267   if (endptr != NULL)
268     *endptr = (char *) nptr;
269   return result * sign;
270 }
271
272
273 #if HP_TIMING_AVAIL && ULONG_MAX <= 4294967295UL
274 /* We need this function to print the cycle count.  On 64-bit machines the
275    _itoa_word function should be used.  */
276 char *
277 _itoa (value, buflim, base, upper_case)
278      unsigned long long int value;
279      char *buflim;
280      unsigned int base;
281      int upper_case;
282 {
283   char *bp = buflim;
284
285   assert (base == 10);
286
287   do
288     *--bp = '0' + value % 10;
289   while ((value /= 10) != 0);
290
291   return bp;
292 }
293 #endif