pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*- -  * $Id: builtin.cmod,v 1.89 2002/05/24 14:12:24 grubba Exp $ +  * $Id: builtin.cmod,v 1.90 2002/08/15 14:49:19 marcus Exp $    */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "opcodes.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"
pike.git/src/builtin.cmod:2010:    PCHARP r;       end = str->str+(str->len<<str->size_shift);       switch(str->size_shift)    {    case 0: f = (replace_searchfunc)THIS->mojt.vtab->func0; break;    case 1: f = (replace_searchfunc)THIS->mojt.vtab->func1; break;    case 2: f = (replace_searchfunc)THIS->mojt.vtab->func2; break;   #ifdef PIKE_DEBUG -  default: fatal("Illegal shift.\n"); +  default: Pike_fatal("Illegal shift.\n");   #endif    }       if(del->len == to->len)    {    ret = begin_wide_shared_string(str->len, shift);    } else {    INT32 delimiters = 0;       s = str->str;
pike.git/src/builtin.cmod:2044:    (to->len-del->len)*delimiters, shift);    }       s = str->str;    r = MKPCHARP_STR(ret);       while((tmp = f(mojt_data, s, (end-s)>>str->size_shift)))    {   #ifdef PIKE_DEBUG    if(tmp + (del->len << str->size_shift) > end) -  fatal("generic_memory_search found a match beyond end of string!\n"); +  Pike_fatal("generic_memory_search found a match beyond end of string!\n");   #endif    generic_memcpy(r,MKPCHARP(s,str->size_shift),(tmp-s)>>str->size_shift);    INC_PCHARP(r,(tmp-s)>>str->size_shift);    pike_string_cpy(r,to);    INC_PCHARP(r,to->len);    s=tmp+(del->len << str->size_shift);    }    generic_memcpy(r,MKPCHARP(s,str->size_shift),(end-s)>>str->size_shift);    }    RETURN end_shared_string(ret);
pike.git/src/builtin.cmod:2149:    NULL,    "Automap on non-array.\n");    tmp=tmpargs[e].u.array->size;    if(tmp < size)    size=tmp;    }    }      #ifdef PIKE_DEBUG    if(size == 0x7fffffff) -  fatal("No automap markers found in low_automap\n"); +  Pike_fatal("No automap markers found in low_automap\n");   #endif       push_array(ret=allocate_array(size));       for(x=0;x<size;x++)    {    for(e=0;e<args;e++)    {    if(real_args[e].type==T_OBJECT &&    real_args[e].u.object->prog == automap_marker_program &&    OBJ2_AUTOMAP_MARKER(real_args[e].u.object)->depth >= d)    {   #ifdef PIKE_DEBUG    if(x >= tmpargs[e].u.array->size) -  fatal("low_automap failed to determine size!\n"); +  Pike_fatal("low_automap failed to determine size!\n");   #endif    push_svalue(ITEM(tmpargs[e].u.array)+x);    }else{    push_svalue(tmpargs+e);    }    }       if(d == depth)    apply_svalue(fun,args);    else