Branch: Tag:

2002-09-30

2002-09-30 12:45:56 by Marcus Comstedt <marcus@mc.pp.se>

New block allocator which can free blocks.

Rev: src/block_alloc.h:1.42
Rev: src/las.c:1.299
Rev: src/program.c:1.446

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.298 2002/09/15 18:47:32 marcus Exp $"); + RCSID("$Id: las.c,v 1.299 2002/09/30 12:45:56 marcus Exp $");      #include "language.h"   #include "interpret.h"
571:    {   #endif    -  for(tmp2=node_s_blocks;tmp2;tmp2=tmp2->next) e+=NODES; -  for(tmp=free_node_ss;tmp;tmp=_CAR(tmp)) e--; +  for(tmp2=node_s_blocks;tmp2;tmp2=tmp2->next) e+=tmp2->used;    if(e)    {    int e2=e;