pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.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"   #include <math.h>   #include <ctype.h> - #include "global.h" +    #include "interpret.h"   #include "svalue.h"   #include "array.h"   #include "stralloc.h"   #include "mapping.h"   #include "multiset.h"   #include "opcodes.h"   #include "object.h"   #include "error.h"   #include "pike_types.h"   #include "pike_memory.h"   #include "fd_control.h"   #include "cyclic.h"   #include "builtin_functions.h"   #include "module_support.h"    - RCSID("$Id: opcodes.c,v 1.28 1998/06/07 19:47:53 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.29 1998/07/04 16:56:14 grubba Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {    INT32 i;    switch(what->type)    {    case T_ARRAY:    simple_array_index_no_free(to,what->u.array,ind);    break;