pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:15:   #include "opcodes.h"   #include "object.h"   #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"    - RCSID("$Id: opcodes.c,v 1.33 1998/12/16 07:49:37 hubbe Exp $"); + RCSID("$Id: opcodes.c,v 1.34 1999/01/01 01:10:28 hubbe Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {    INT32 i;    switch(what->type)    {    case T_ARRAY:    simple_array_index_no_free(to,what->u.array,ind);    break;   
pike.git/src/opcodes.c:150:    break;       case T_INT:    switch(sp[-1].type)    {    case T_FLOAT:    i=(int)(sp[-1].u.float_number);    break;       case T_STRING: -  i=STRTOL(sp[-1].u.string->str,0,0); +  i=STRTOL(sp[-1].u.string->str,0,10);    free_string(sp[-1].u.string);    break;       default:    error("Cannot cast %s to int.\n",get_name_of_type(sp[-1].type));    }       sp[-1].type=T_INT;    sp[-1].u.integer=i;    break;