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.79 2000/08/07 09:44:49 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.80 2000/08/09 13:38:29 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:977:   #define MK_VERY_LOW_SSCANF(INPUT_SHIFT, MATCH_SHIFT) \   static INT32 PIKE_CONCAT4(very_low_sscanf_,INPUT_SHIFT,_,MATCH_SHIFT)( \    PIKE_CONCAT(p_wchar, INPUT_SHIFT) *input, \    ptrdiff_t input_len, \    PIKE_CONCAT(p_wchar, MATCH_SHIFT) *match, \    ptrdiff_t match_len, \    ptrdiff_t *chars_matched, \    int *success) \   { \    struct svalue sval; \ -  int matches, arg; \ +  INT32 matches, arg; \    ptrdiff_t cnt, eye, e; \    int no_assign = 0, field_length = 0, minus_flag = 0; \    struct sscanf_set set; \    struct svalue *argp; \    \    \    set.a = 0; \    success[0] = 0; \    \    eye = arg = matches = 0; \
pike.git/src/opcodes.c:1059:    } \    \    case '-': \    minus_flag=1; \    cnt++; \    continue; \    \    case '{': \    { \    ONERROR err; \ -  long tmp; \ +  ptrdiff_t tmp; \    for(e=cnt+1,tmp=1;tmp;e++) \    { \    if(e>=match_len) \    { \    error("Missing %%} in format string.\n"); \    break; /* UNREACHED */ \    } \    if(match[e]=='%') \    { \    switch(match[e+1]) \