49 lines
791 B
C
49 lines
791 B
C
/* alloc.c - version 1.0.2 */
|
|
/* $FreeBSD$ */
|
|
|
|
#include <stdlib.h>
|
|
|
|
#ifdef LINT
|
|
|
|
/*
|
|
a ridiculous definition, suppressing
|
|
"possible pointer alignment problem" for (long *) malloc()
|
|
"enlarg defined but never used"
|
|
"ftell defined (in <stdio.h>) but never used"
|
|
from lint
|
|
*/
|
|
#include <stdio.h>
|
|
long *
|
|
alloc(n) unsigned n; {
|
|
long dummy = ftell(stderr);
|
|
if(n) dummy = 0; /* make sure arg is used */
|
|
return(&dummy);
|
|
}
|
|
|
|
#else
|
|
|
|
long *
|
|
alloc(lth)
|
|
register unsigned lth;
|
|
{
|
|
register char *ptr;
|
|
|
|
if(!(ptr = malloc(lth)))
|
|
panic("Cannot get %d bytes", lth);
|
|
return((long *) ptr);
|
|
}
|
|
|
|
long *
|
|
enlarge(ptr,lth)
|
|
register char *ptr;
|
|
register unsigned lth;
|
|
{
|
|
register char *nptr;
|
|
|
|
if(!(nptr = realloc(ptr,lth)))
|
|
panic("Cannot reallocate %d bytes", lth);
|
|
return((long *) nptr);
|
|
}
|
|
|
|
#endif LINT
|