pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-05-13
1999-05-13 07:24:51 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
bd8d6016d6e32110edac2fa60f1345b44b61f10e (
6
lines) (+
5
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
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); }