pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:19:   #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"   #include "operators.h"    - RCSID("$Id: opcodes.c,v 1.74 2000/04/20 02:41:45 hubbe Exp $"); + RCSID("$Id: opcodes.c,v 1.75 2000/05/07 00:39:17 hubbe 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:495:    {    push_svalue(tmp->item+e);    o_cast(itype, run_time_itype);    array_set_index(a,e,sp-1);    pop_stack();    }   #ifdef PIKE_DEBUG    if(save_sp!=sp)    fatal("o_cast left stack droppings.\n");   #endif -  END_CYCLIC(); +     } -  +  END_CYCLIC();    assign_svalue(sp-3,sp-1);    pop_stack();    }    pop_stack();    }    break;       case T_MULTISET:    {    struct pike_string *itype;
pike.git/src/opcodes.c:543:    push_svalue(tmp->item+e);    o_cast(itype, run_time_itype);    array_set_index(a,e,sp-1);    pop_stack();    }   #ifdef PIKE_DEBUG    if(save_sp!=sp)    fatal("o_cast left stack droppings.\n");   #endif    order_multiset(m); -  END_CYCLIC(); +     } -  +  END_CYCLIC();    assign_svalue(sp-3,sp-1);    pop_stack();    }    pop_stack();    }    break;       case T_MAPPING:    {    struct pike_string *itype,*vtype;
pike.git/src/opcodes.c:597:    o_cast(itype, run_time_itype);    push_svalue(& k->val);    o_cast(vtype, run_time_vtype);    mapping_insert(m,sp-2,sp-1);    pop_n_elems(2);    }   #ifdef PIKE_DEBUG    if(save_sp!=sp)    fatal("o_cast left stack droppings.\n");   #endif -  END_CYCLIC(); +     } -  +  END_CYCLIC();    assign_svalue(sp-4,sp-1);    pop_stack();    }    pop_n_elems(2);    }    }   }         void f_cast(void)