var/da/makedepf90-2.8.8/xmalloc.c

   1 /*
   2  * Copyright (C) 2000-2005 Erik Edelmann <Erik.Edelmann@iki.fi>
   3  *
   4  *     This program is free software;  you  can  redistribute  it
   5  *     and/or modify it under the terms of the GNU General Public
   6  *     License version 2 as published  by  the  Free  Software
   7  *     Foundation.
   8  *
   9  *     This program is distributed in the hope that  it  will  be
  10  *     useful, but WITHOUT ANY WARRANTY; without even the implied
  11  *     warranty of MERCHANTABILITY or FITNESS  FOR  A  PARTICULAR
  12  *     PURPOSE.   See  the  GNU  General  Public License for more
  13  *     details.
  14  *
  15  *     You should have received a copy of the GNU General  Public
  16  *     License along with this program; if not, write to the Free
  17  *     Software Foundation, Inc., 59  Temple  Place,  Suite  330,
  18  *     Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <stdlib.h>
  22 #include <string.h>
  23 #include <assert.h>
  24 #include "errormesg.h"
  25 #include "xmalloc.h"
  26
  27 void *xmalloc (size_t bytes)
  28 {
  29     void *new;
  30
  31     new = malloc (bytes);
  32     if (!new)  fatal_error ("memory allocation error");
  33
  34     return new;
  35 }
  36
  37
  38 void *xrealloc(void *ptr, size_t size)
  39 {
  40     void *new;
  41
  42     new = realloc(ptr, size);
  43     if (!new)  fatal_error ("memory allocation error");
  44
  45     return new;
  46 }
  47
  48
  49 char *xstrdup (const char *str)
  50 {
  51     char *new;
  52
  53     new = (char *) xmalloc ((strlen(str) + 1)*sizeof(char));
  54     strcpy(new, str);
  55
  56     return new;
  57 }
  58
  59
  60 char *xstrndup (const char *str, size_t maxl)
  61 {
  62     char *new;
  63
  64     assert (maxl >= 0);
  65
  66     new = (char *) xmalloc ((maxl + 1)*sizeof(char));
  67     strncpy (new, str, maxl);
  68     new[maxl] = '\0';
  69
  70     return new;
  71 }