pto_name.c
[libfirm] / ir / adt / xmalloc.c
1 /*
2  * Project:     libFIRM
3  * File name:   ir/adt/xmalloc.c
4  * Purpose:     Xmalloc --- never failing wrappers for malloc() & friends.
5  * Author:      Markus Armbruster
6  * Modified by:
7  * Created:     1999 by getting from fiasco
8  * CVS-ID:      $Id$
9  * Copyright:   (c) 1995, 1996 Markus Armbruster
10  * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
11  */
12
13 /* @@@ ToDo: replace this file with the one from liberty.
14    [reimplement xstrdup, ... ] */
15
16 #ifdef HAVE_CONFIG_H
17 # include "config.h"
18 #endif
19
20 #ifdef HAVE_ALLOCA_H
21 #include <alloca.h>
22 #endif
23 #ifdef HAVE_MALLOC_H
24 #include <malloc.h>
25 #endif
26 #ifdef HAVE_STRING_H
27 #include <string.h>
28 #endif
29
30 #include <stdlib.h>
31
32 #include "xmalloc.h"
33 #include "panic.h"
34
35 void *
36 xmalloc(size_t size) {
37   void *res = malloc (size);
38
39   if (!res) xnomem();
40
41   memset(res, 0x00, size);
42
43   return res;
44 }
45
46
47 void *
48 xrealloc(void *ptr, size_t size) {
49   /* ANSI blesses realloc (0, x) but SunOS chokes on it */
50   void *res = ptr ? realloc (ptr, size) : malloc (size);
51
52   if (!res) xnomem ();
53
54   return res;
55 }
56
57
58 char *
59 xstrdup(const char *str) {
60   size_t len = strlen (str) + 1;
61   return memcpy ((xmalloc) (len), str, len);
62 }
63
64
65 void
66 xnomem(void) {
67   panic("out of memory");
68 }