4.3BSD - /usr/src/ucb/lisp/franz/68k/inewint.c

   1: /* Copyright (c) 1982, Regents, University of California */
   2: 
   3: extern int Fixzero[];
   4: int *inewint(n)
   5: {
   6:     register int *ip;
   7:     int *newint();
   8:     if(n < 1024 && n >= -1024) return (Fixzero+n);
   9:     ip = newint();
  10:     *ip = n;
  11:     return(ip);
  12: }
  13: blzero(where,howmuch)
  14: register char *where;
  15: {
  16:     register char *p;
  17:     for(p = where + howmuch; p > where; ) *--p = 0;
  18: }

Defined functions