21 lines
241 B
C
21 lines
241 B
C
/* $Header$ */
|
|
|
|
extern char *malloc() ;
|
|
|
|
char * salloc(length)
|
|
int length;
|
|
{
|
|
char *c, *s;
|
|
c= malloc(length);
|
|
if( c== (char *) -1) error(5);
|
|
for(s=c;s<c+length;s++) *s = 0;
|
|
return(c);
|
|
}
|
|
|
|
sfree(c)
|
|
char *c;
|
|
{
|
|
if( !c ) return;
|
|
free(c);
|
|
}
|