salloc.c 230 B

1234567891011121314151617181920
  1. /* $Id$ */
  2. extern char *malloc() ;
  3. char * salloc(length)
  4. unsigned length;
  5. {
  6. char *c, *s;
  7. c= malloc(length);
  8. if( !c ) error(5);
  9. for(s=c;s<c+length;s++) *s = 0;
  10. return(c);
  11. }
  12. sfree(c)
  13. char *c;
  14. {
  15. if( !c ) return;
  16. free(c);
  17. }