pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: opcodes.c,v 1.130 2003/01/08 19:35:42 mast Exp $ + || $Id: opcodes.c,v 1.131 2003/01/09 15:21:27 grubba Exp $   */      #include "global.h"   #include <errno.h>   #include <math.h>   #include <ctype.h>   #include "interpret.h"   #include "svalue.h"   #include "array.h"   #include "stralloc.h"
pike.git/src/opcodes.c:23:   #include "fd_control.h"   #include "cyclic.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "security.h"   #include "bignum.h"   #include "operators.h"      #define sp Pike_sp    - RCSID("$Id: opcodes.c,v 1.130 2003/01/08 19:35:42 mast Exp $"); + RCSID("$Id: opcodes.c,v 1.131 2003/01/09 15:21:27 grubba Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {    INT32 i;      #ifdef PIKE_SECURITY    if(what->type <= MAX_COMPLEX)    if(!CHECK_DATA_SECURITY(what->u.array, SECURITY_BIT_INDEX))    Pike_error("Index permission denied.\n");   #endif
pike.git/src/opcodes.c:1900:    }       if(sp-save_sp > args/2-1)    Pike_error("Too few arguments for sscanf format.\n");       for(x=0;x<sp-save_sp;x++)    assign_lvalue(save_sp-args+2+x*2,save_sp+x);    pop_n_elems(sp-save_sp +args);      #ifdef PIKE_DEBUG -  if(t_flag >2) +  if(Pike_interpreter.trace_level >2)    {    int nonblock;    if((nonblock=query_nonblocking(2)))    set_nonblocking(2,0);       fprintf(stderr,"- Matches: %ld\n",(long)i);    if(nonblock)    set_nonblocking(2,1);    }   #endif