pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:20:   #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.108 2001/05/28 18:15:07 marcus Exp $"); + RCSID("$Id: opcodes.c,v 1.109 2001/06/05 10:12:55 hubbe 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:1424:    case 'x': \    MEMSET(set.c, 1, sizeof(set.c)); \    for(e='0';e<='9';e++) set.c[e]=0; \    for(e='a';e<='f';e++) set.c[e]=0; \    goto match_set; \    \    case 'D': \    MEMSET(set.c, 1, sizeof(set.c)); \    for(e='0';e<='9';e++) set.c[e]=0; \    set.c['-']=0; \ -  set.c['x']=0; \ +     goto match_set; \    \    case 'f': \    MEMSET(set.c, 1, sizeof(set.c)); \    for(e='0';e<='9';e++) set.c[e]=0; \    set.c['.']=set.c['-']=0; \    goto match_set; \    \    case '[': /* oh dear */ \    PIKE_CONCAT(read_set,MATCH_SHIFT)(match, \