pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:18:   #include "error.h"   #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"    - RCSID("$Id: opcodes.c,v 1.61 1999/10/31 22:32:45 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.62 1999/10/31 22:41:44 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:1100:    chars_matched[0]=eye; \    return matches; \    } \    eye=t-input; \    break; \    } \    \    case 'f': \    { \    PIKE_CONCAT(p_wchar, INPUT_SHIFT) *t; \ +  PCHARP t2; \    \    if(eye>=input_len) \    { \    chars_matched[0]=eye; \    return matches; \    } \ -  /* FIXME! */ \ -  sval.u.float_number=STRTOD(input+eye,&t); \ +  sval.u.float_number=STRTOD_PCHARP(MKPCHARP(input+eye, \ +  INPUT_SHIFT),&t2); \ +  t = (PIKE_CONCAT(p_wchar, INPUT_SHIFT) *)(t2.ptr); \    if(input + eye == t) \    { \    chars_matched[0]=eye; \    return matches; \    } \    eye=t-input; \    sval.type=T_FLOAT; \    DO_IF_CHECKER(sval.subtype=0); \    break; \    } \