pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:22:   #include "fd_control.h"   #include "cyclic.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "security.h"   #include "bignum.h"   #include "operators.h"      #define sp Pike_sp    - RCSID("$Id: opcodes.c,v 1.121 2002/05/31 22:41:25 nilsson Exp $"); + RCSID("$Id: opcodes.c,v 1.122 2002/08/15 14:49:24 marcus 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))    Pike_error("Index permission denied.\n");   #endif
pike.git/src/opcodes.c:347:    case 2:    {    p_wchar2 *str2 = STR2(s);    for(i = a->size; i--; ) {    str2[i] = a->item[i].u.integer;    }    }    break;    default:    free_string(end_shared_string(s)); -  fatal("cast: Bad shift: %d.\n", shift); +  Pike_fatal("cast: Bad shift: %d.\n", shift);    break;    }    s = end_shared_string(s);    pop_stack();    push_string(s);    }    return;       case T_INT:    sprintf(buf, "%ld", (long)sp[-1].u.integer);
pike.git/src/opcodes.c:633:       for(e=0;e<a->size;e++)    {    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"); +  Pike_fatal("o_cast left stack droppings.\n");   #endif    }    END_CYCLIC();    assign_svalue(sp-3,sp-1);    pop_stack();    }    pop_stack();    }    break;   
pike.git/src/opcodes.c:711:    push_svalue(tmp->item+e);    o_cast(itype, run_time_itype);    array_set_index(a,e,sp-1);    pop_stack();    }    order_multiset(m);   #endif      #ifdef PIKE_DEBUG    if(save_sp!=sp) -  fatal("o_cast left stack droppings.\n"); +  Pike_fatal("o_cast left stack droppings.\n");   #endif    }    END_CYCLIC();    assign_svalue(sp-3,sp-1);    pop_stack();    }    pop_stack();    }    break;   
pike.git/src/opcodes.c:765:    {    push_svalue(& k->ind);    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"); +  Pike_fatal("o_cast left stack droppings.\n");   #endif    }    END_CYCLIC();    assign_svalue(sp-4,sp-1);    pop_stack();    }    pop_n_elems(2);    }    }   }         PMOD_EXPORT void f_cast(void)   {   #ifdef PIKE_DEBUG    struct svalue *save_sp=sp;    if(sp[-2].type != T_TYPE) -  fatal("Cast expression destroyed stack or left droppings! (Type:%d)\n", +  Pike_fatal("Cast expression destroyed stack or left droppings! (Type:%d)\n",    sp[-2].type);   #endif    o_cast(sp[-2].u.type,    compile_type_to_runtime_type(sp[-2].u.type));   #ifdef PIKE_DEBUG    if(save_sp != sp) -  fatal("Internal error: o_cast() left droppings on stack.\n"); +  Pike_fatal("Internal error: o_cast() left droppings on stack.\n");   #endif    free_svalue(sp-2);    sp[-2]=sp[-1];    sp--;    dmalloc_touch_svalue(sp);   }         /*    flags:
pike.git/src/opcodes.c:1189:    } \    if(cnt>=match_len) \    { \    chars_matched[0]=eye; \    return matches; \    } \    \    DO_IF_DEBUG( \    if(match[cnt]!='%' || match[cnt+1]=='%') \    { \ -  fatal("Error in sscanf.\n"); \ +  Pike_fatal("Error in sscanf.\n"); \    } \    ); \    \    no_assign=0; \    field_length=-1; \    minus_flag=0; \    \    cnt++; \    if(cnt>=match_len) \    Pike_error("Error in sscanf format string.\n"); \