/*
 *  Authors:
 *    Konstantin Popov <kost@sics.se>
 * 
 *  Contributors:
 * 
 *  Copyright:
 *    Konstantin Popov 2001
 * 
 *  Last change:
 *    $Date: 2001-06-06 13:17:45 +0200 (Wed, 06 Jun 2001) $ by $Author: popow $
 *    $Revision: 13878 $
 * 
 *  This file is part of Mozart, an implementation 
 *  of Oz 3:
 *     http://mozart.ps.uni-sb.de
 * 
 *  See the file "LICENSE" or
 *     http://mozart.ps.uni-sb.de/LICENSE.html
 *  for information on usage and redistribution 
 *  of this file, and for a DISCLAIMER OF ALL 
 *  WARRANTIES.
 *
 */

#if defined(INTERFACE) && !defined(PEANUTS)
#pragma implementation "cmem.hh"
#endif

#include "base.hh"

int32* freelist[CMEM_FLENTRIES];

void init_cmem()
{
  for (int i = CMEM_FLENTRIES; i--; )
    freelist[i] = (int32 *) 0;
}
