ack/lang/basic/lib/salloc.c

/* $Id$ */

extern char *malloc() ;

char * salloc(length)
unsigned length;
{
	char *c, *s;
	c= malloc(length);
	if( !c ) error(5);
	for(s=c;s<c+length;s++) *s = 0;
	return(c);
}

sfree(c)
char *c;
{
	if( !c ) return;
	free(c);
}
Header --> Id 1994-06-24 11:31:16 +00:00			`/* $Id$ */`
Used a correct definition of malloc. 1985-01-21 12:35:53 +00:00
			`extern char *malloc() ;`
* empty log message * 1984-11-29 14:22:02 +00:00
			`char * salloc(length)`
1 - Changed argument from int to unsigned. 2 - The test for a failed malloc is changed from comparison to -1 to comparison to 0. 1985-01-21 23:54:46 +00:00			`unsigned length;`
* empty log message * 1984-11-29 14:22:02 +00:00			`{`
			`char c, s;`
Used a correct definition of malloc. 1985-01-21 12:35:53 +00:00			`c= malloc(length);`
1 - Changed argument from int to unsigned. 2 - The test for a failed malloc is changed from comparison to -1 to comparison to 0. 1985-01-21 23:54:46 +00:00			`if( !c ) error(5);`
* empty log message * 1984-11-29 14:22:02 +00:00			`for(s=c;s<c+length;s++) *s = 0;`
			`return(c);`
			`}`

			`sfree(c)`
			`char *c;`
			`{`
Used a correct definition of malloc. 1985-01-21 12:35:53 +00:00			`if( !c ) return;`
* empty log message * 1984-11-29 14:22:02 +00:00			`free(c);`
			`}`