pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:19:   #include "pike_types.h"   #include "pike_memory.h"   #include "fd_control.h"   #include "cyclic.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "security.h"   #include "bignum.h"   #include "operators.h"    - RCSID("$Id: opcodes.c,v 1.83 2000/08/10 17:39:22 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.84 2000/08/13 19:34:34 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))    error("Index permission denied.\n");   #endif
pike.git/src/opcodes.c:1458:    break; \    } \    \    case '[': \    cnt=PIKE_CONCAT(read_set,MATCH_SHIFT)(match,cnt+1, \    &set,match_len); \    \    match_set: \    for(e=eye;eye<input_len;eye++) \    { \ - CHAROPT( \ + CHAROPT2( \    if(input[eye]<sizeof(set.c)) \    { \   ) \    if(set.c[input[eye]] == set.neg) \    break; \ - CHAROPT( \ + CHAROPT2( \    }else{ \    if(set.a) \    { \    INT32 x; \    struct svalue tmp; \    tmp.type=T_INT; \    tmp.u.integer=input[eye]; \    x=switch_lookup(set.a, &tmp); \    if( set.neg != (x<0 && (x&1)) ) break; \    }else{ \
pike.git/src/opcodes.c:1518:    } \    } \    chars_matched[0]=eye; \    success[0]=1; \    return matches; \   }         /* Confusing? Yes - Hubbe */    + /* CHAROPT(X) is X if the match set is wide. +  * CHAROPT2(X) is X if the input is wide. +  */   #define CHAROPT(X) - #define CHAROPT2(X) X + #define CHAROPT2(X)      MKREADSET(0)   MK_VERY_LOW_SSCANF(0,0)      #undef CHAROPT2   #define CHAROPT2(X) X      MK_VERY_LOW_SSCANF(1,0)   MK_VERY_LOW_SSCANF(2,0)