Branch: Tag:

2000-10-15

2000-10-15 12:24:14 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Oops, forgot to fix the type_field in array * float.

Rev: src/operators.c:1.110

6:   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.109 2000/10/14 22:17:58 grubba Exp $"); + RCSID("$Id: operators.c,v 1.110 2000/10/15 12:24:14 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1661:    ret = allocate_array(asize);    pos = ret->item;    if (asize >= delta) { +  ret->type_field = src->type_field;    assign_svalues_no_free(pos,    src->item,    delta,
1681:    src->item,    asize,    src->type_field); +  array_fix_type_field(ret);    }    pop_n_elems(2);    push_array(ret);