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.89 2000/08/15 14:15:20 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.90 2000/08/17 19:06:30 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:81:    if(ind->type==T_INT)    {    i=ind->u.integer;    if(i<0)    i+=what->u.string->len;    if(i<0 || i>=what->u.string->len)    {    if(what->u.string->len == 0)    error("Attempt to index the empty string with %d.\n", i);    else -  error("Index %d is out of string range 0 - %d.\n", -  i, what->u.string->len-1); +  error("Index %d is out of string range 0 - %ld.\n", +  i, PTRDIFF_T_TO_LONG(what->u.string->len - 1));    } else    i=index_shared_string(what->u.string,i);    to->type=T_INT;    to->subtype=NUMBER_NUMBER;    to->u.integer=i;    break;    }else{    error("Index is not an integer.\n");    }   
pike.git/src/opcodes.c:1277:    } \    eye=t-input; \    sval.type=T_FLOAT; \    DO_IF_CHECKER(sval.subtype=0); \    break; \    } \    \    case 'F': \    if(field_length == -1) field_length = 4; \    if(field_length != 4 && field_length != 8) \ -  error("Invalid IEEE width %d in sscanf format string.\n", \ -  field_length); \ +  error("Invalid IEEE width %ld in sscanf format string.\n", \ +  PTRDIFF_T_TO_LONG(field_length)); \    if(eye+field_length > input_len) \    { \    chars_matched[0]=eye; \    return matches; \    } \    sval.type=T_FLOAT; \    DO_IF_CHECKER(sval.subtype=0); \    switch(field_length) { \    case 4: \    EXTRACT_FLOAT(sval, input+eye, INPUT_SHIFT); \