Branch: Tag:

1999-05-13

1999-05-13 07:24:51 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix

Rev: src/interpret.c:1.125
Rev: src/modules/system/nt.c:1.10

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.124 1999/05/08 16:42:48 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.125 1999/05/13 07:24:51 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
295:    if(from->u.array->size < (lval[1].u.array->size>>1))    error("Not enough values for multiple assign.\n");    +  if(from->u.array->size > (lval[1].u.array->size>>1)) +  error("Too many values for multiple assign.\n"); +     for(e=0;e<from->u.array->size;e++)    assign_lvalue(lval[1].u.array->item+(e<<1),from->u.array->item+e);    }