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 "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.34 1999/01/21 09:08:22 hubbe Exp $"); + RCSID("$Id: opcodes.c,v 1.35 1999/06/19 11:26:26 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;   
pike.git/src/opcodes.c:662:    case '%': e++; break;    case '}': tmp--; break;    case '{': tmp++; break;    }    }    }    sval.type=T_ARRAY;    sval.u.array=allocate_array(0);    SET_ONERROR(err, do_free_array, sval.u.array);    -  while(1) +  while(input_len - eye)    {    int yes;    struct svalue *save_sp=sp;    really_low_sscanf(input+eye,    input_len-eye,    match+cnt+1,    e-cnt-2,    &tmp,    &yes);    if(yes)