/*
 * allocate.c
 *
 * allocate with fill-argument setting all elements
 *
 * (C) Frank Schmidt, Jesus@NorseMUD
 *
 */


#ifdef MUDOS_ALLOCATE_FILLWITH

/* allocate with optional fill argument */
static varargs mixed *allocate(int size, mixed fillwith) {
  int i;
  mixed *arr;
  arr = ::allocate(size);
  if (fillwith != 0) {
    for (i=size; --i >= 0; ) {
      arr[i] = fillwith;
    }
  }
  return arr;
}

#endif