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.83 1998/05/24 01:19:50 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.84 1998/05/24 08:44:30 hubbe 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:794:    CASE(F_LOCAL_LVALUE);    sp[0].type=T_LVALUE;    sp[0].u.lval=fp->locals+GET_ARG();    sp[1].type=T_VOID;    sp+=2;    break;       CASE(F_ARRAY_LVALUE);    f_aggregate(GET_ARG()*2);    sp[-1].u.array->flags |= ARRAY_LVALUE; -  sp[-1].u.array->type_field |= BIT_UNFINISHED | BIT_ANY; +  sp[-1].u.array->type_field |= BIT_UNFINISHED | BIT_MIXED;    sp[0]=sp[-1];    sp[-1].type=T_ARRAY_LVALUE;    sp++;    break;       CASE(F_CLEAR_2_LOCAL);    instr=GET_ARG();    free_svalues(fp->locals + instr, 2, -1);    fp->locals[instr].type=T_INT;    fp->locals[instr].subtype=0;