pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.169 2000/09/07 11:28:37 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.170 2000/09/08 16:17:56 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:231:    to->u.array=a;    UNSET_ONERROR(err);    break;    }       case T_LVALUE:    assign_svalue_no_free(to, lval->u.lval);    break;       case T_SHORT_LVALUE: -  assign_from_short_svalue_no_free(to, lval->u.short_lval, lval->subtype); +  assign_from_short_svalue_no_free(to, lval->u.short_lval, +  (TYPE_T)lval->subtype);    break;       case T_OBJECT:    object_index_no_free(to, lval->u.object, lval+1);    break;       case T_ARRAY:    simple_array_index_no_free(to, lval->u.array, lval+1);    break;   
pike.git/src/interpret.c:298:    for(e=0;e<from->u.array->size;e++)    assign_lvalue(lval[1].u.array->item+(e<<1),from->u.array->item+e);    }    break;       case T_LVALUE:    assign_svalue(lval->u.lval,from);    break;       case T_SHORT_LVALUE: -  assign_to_short_svalue(lval->u.short_lval, lval->subtype, from); +  assign_to_short_svalue(lval->u.short_lval, (TYPE_T)lval->subtype, from);    break;       case T_OBJECT:    object_set_index(lval->u.object, lval+1, from);    break;       case T_ARRAY:    simple_set_index(lval->u.array, lval+1, from);    break;