Branch: Tag:

1998-04-20

1998-04-20 18:43:08 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Minor change.

Rev: src/interpret.c:1.80

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.79 1998/04/17 05:08:02 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.80 1998/04/20 18:43:08 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
1280:    LOOP(F_INC_NEQ_LOOP, ++, !=, f_add(2), !is_eq);    LOOP(F_DEC_NEQ_LOOP, --, !=, o_subtract(), !is_eq);    -  CASE(F_FOREACH) /* array, lvalue , i */ +  CASE(F_FOREACH) /* array, lvalue, X, i */    {    if(sp[-4].type != T_ARRAY)    PIKE_ERROR("foreach", "Bad argument 1.\n", sp-3, 1);