diff options
Diffstat (limited to 'src/hyper/halloc.c')
-rw-r--r-- | src/hyper/halloc.c | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/src/hyper/halloc.c b/src/hyper/halloc.c new file mode 100644 index 00000000..2c923850 --- /dev/null +++ b/src/hyper/halloc.c @@ -0,0 +1,76 @@ +/* + Copyright (C) 1991-2002, The Numerical Algorithms Group Ltd. + All rights reserved. + Copyright (C) 2007-2008, Gabriel Dos Reis. + All rights reserved. + + Redistribution and use in source and binary forms, with or without + modification, are permitted provided that the following conditions are + met: + + - Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + - Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in + the documentation and/or other materials provided with the + distribution. + + - Neither the name of The Numerical Algorithms Group Ltd. nor the + names of its contributors may be used to endorse or promote products + derived from this software without specific prior written permission. + + THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS + IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED + TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A + PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER + OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, + EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, + PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR + PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF + LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING + NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS + SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + +#define _HALLOC_C +#include "axiom-c-macros.h" +#include "useproto.h" +#include "debug.h" +#include <stdio.h> +#include <stdlib.h> +#if !defined(BSDplatform) +#include <malloc.h> +#endif + +FILE *fp; + +#include "halloc.H1" + +/* allocate memory and bomb if none left (HyperDoc alloc) */ + +char * +halloc(int bytes, char *msg) +{ + static char buf[200]; + char *result; + +#ifdef DEBUG + static int first = 1; + + if (first) { + fp = fopen("/tmp/hallocs", "w"); + first = 0; + } +#endif + result = (char *) malloc(bytes); +#ifdef DEBUG + fprintf(fp, "%d\tAlocating %d Bytes for %s\n", result,bytes, msg); +#endif + if (result == NULL) { + sprintf(buf, "Ran out of memory allocating %s.\b", msg); + fprintf(stderr, "%s\n", buf); + exit(-1); + } + return result; +} |