pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| 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"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1273:    pc+=*(INT32*)pc;    pop_stack();    break;    }       LOOP(F_INC_LOOP, ++, <, f_add(2), is_lt);    LOOP(F_DEC_LOOP, --, >, o_subtract(), is_gt);    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);    if(sp[-1].u.integer < sp[-4].u.array->size)    {    fast_check_threads_etc(10);    index_no_free(sp,sp-4,sp-1);    sp++;    assign_lvalue(sp-4, sp-1);    free_svalue(sp-1);