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.22 1998/05/06 13:27:40 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.23 1998/05/15 01:29: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:123:       case T_STRING:    f_values(1);    break;       case T_MULTISET:    f_indices(1);    break;       default: -  error("Cannot cast to array.\n"); +  error("Cannot cast %s to array.\n",get_name_of_type(sp[-1].type));       }    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);    free_string(sp[-1].u.string);    break;       default: -  error("Cannot cast to int.\n"); +  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;       case T_FLOAT:    {    FLOAT_TYPE f;    switch(sp[-1].type)
pike.git/src/opcodes.c:163:    case T_INT:    f=(FLOAT_TYPE)(sp[-1].u.integer);    break;       case T_STRING:    f=STRTOD(sp[-1].u.string->str,0);    free_string(sp[-1].u.string);    break;       default: -  error("Cannot cast to float.\n"); +  error("Cannot cast %s to float.\n",get_name_of_type(sp[-1].type));    f=0.0;    }       sp[-1].type=T_FLOAT;    sp[-1].u.float_number=f;    break;    }       case T_STRING:    {
pike.git/src/opcodes.c:214:    s->str[i] = a->item[i].u.integer;    }    s = end_shared_string(s);    pop_stack();    push_string(s);    return;    }    break;       default: -  error("Cannot cast to string.\n"); +  error("Cannot cast %s to string.\n",get_name_of_type(sp[-1].type));    }       sp[-1].type=T_STRING;    sp[-1].u.string=make_shared_string(buf);    break;    }       case T_OBJECT:    switch(sp[-1].type)    {
pike.git/src/opcodes.c:241:    push_int(0);    }    APPLY_MASTER("cast_to_object",2);    return;       case T_FUNCTION:    sp[-1].type = T_OBJECT;    break;       default: -  error("Cannot cast to object.\n"); +  error("Cannot cast %s to object.\n",get_name_of_type(sp[-1].type));    }    break;       case T_PROGRAM:    switch(sp[-1].type)    {    case T_STRING:    if(fp->pc)    {    INT32 lineno;
pike.git/src/opcodes.c:275:    pop_stack();    push_program(p);    }else{    pop_stack();    push_int(0);    }    }    return;       default: -  error("Cannot cast that to a program.\n"); +  error("Cannot cast %s to a program.\n",get_name_of_type(sp[-1].type));    }    }    }      #ifdef DEBUG    if(run_time_type != sp[-1].type)    fatal("Internal error: Cast failed (run_time_type = %d, sp[-1].type = %d.)\n",run_time_type,sp[-1].type);   #endif       switch(run_time_type)