Branch: Tag:

1997-04-16

1997-04-16 20:49:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

reference bug fixed

Rev: src/array.c:1.9
Rev: src/svalue.c:1.11

262:    if(size > a->size)    {    /* We should grow the array */ +     if(a->malloced_size >= size)    {    for(;a->size < size; a->size++)
274:    return a;    }else{    struct array *ret; -  ret=allocate_array_no_init(size, (size>>3)+1); +  ret=low_allocate_array(size, (size>>3)+1);    MEMCPY(ITEM(ret),ITEM(a),sizeof(struct svalue)*a->size);    ret->type_field = a->type_field | BIT_INT;    a->size=0;