pike.git/ src/ array.c

1996-02-10

1996-02-10 22:27:18 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• afa3650b9675bcb8449ed564cf7a440f8ba3e246 (9 lines) (+7/-2) ^{[ Show | Annotate ]}
  Branch: branches/E-12

See changelog

Rev: src/ChangeLog:1.14
Rev: src/array.c:1.3
Rev: src/builtin_efuns.c:1.7
Rev: src/language.y:1.8
Rev: src/las.c:1.3
Rev: src/test/create_testsuite:1.6

962:    break;       default: -  v->type_field=1 << v->array_type; +  t=1 << v->array_type;    for(e=0; e<v->size; e++)    {    if(! SHORT_ITEM(v)[e].refs)
973:    }       } + #ifdef DEBUG +  if(t & ~(v->type_field)) +  fatal("Type field out of order!\n"); + #endif    v->type_field = t;   }   
1245:    }else{    if(b->array_type == T_MIXED)    { -  assign_svalue(ITEM(ret)+e, ITEM(a)+*zipper); +  assign_svalue_no_free(ITEM(ret)+e, ITEM(b)+~*zipper);    }else{    assign_from_short_svalue_no_free(ITEM(ret)+e,    SHORT_ITEM(b)+~*zipper,