Branch: Tag:

2015-02-08

2015-02-08 18:58:48 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Interpreter: lvalue_to_svalue_no_free() now returns the type of lvalue.

358:    * lvalue array: { T_ARRAY_LVALUE, array with lvalue pairs }    */    - void lvalue_to_svalue_no_free(struct svalue *to,struct svalue *lval) + int lvalue_to_svalue_no_free(struct svalue *to, struct svalue *lval)   { -  +  int run_time_type;   #ifdef PIKE_SECURITY    if(TYPEOF(*lval) <= MAX_COMPLEX)    if(!CHECK_DATA_SECURITY(lval->u.array, SECURITY_BIT_INDEX))    Pike_error("Index permission denied.\n");   #endif -  switch(TYPEOF(*lval)) +  switch(run_time_type = TYPEOF(*lval))    {    case T_ARRAY_LVALUE:    {
421:    else    index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");    } +  return run_time_type;   }      PMOD_EXPORT void assign_lvalue(struct svalue *lval,struct svalue *from)