Branch: Tag:

2002-08-15

2002-08-15 14:50:28 by Marcus Comstedt <marcus@mc.pp.se>

Rename fatal -> Pike_fatal.

Rev: src/apply_low.h:1.7
Rev: src/array.c:1.129
Rev: src/array.h:1.41
Rev: src/backend.cmod:1.27
Rev: src/bignum.c:1.25
Rev: src/block_alloc.h:1.41
Rev: src/builtin.cmod:1.90
Rev: src/builtin_functions.c:1.435
Rev: src/callback.c:1.26
Rev: src/code/ia32.c:1.21
Rev: src/code/ppc32.c:1.16
Rev: src/code/ppc32.h:1.14
Rev: src/code/sparc.c:1.11
Rev: src/code/sparc.h:1.13
Rev: src/compilation.h:1.28
Rev: src/constants.c:1.38
Rev: src/cpp.c:1.102
Rev: src/cyclic.c:1.6
Rev: src/dlopen.c:1.32
Rev: src/docode.c:1.144
Rev: src/dynamic_buffer.c:1.16
Rev: src/dynamic_load.c:1.64
Rev: src/encode.c:1.151
Rev: src/error.c:1.86
Rev: src/fd_control.c:1.41
Rev: src/fdlib.c:1.52
Rev: src/fdlib.h:1.41
Rev: src/fsort_template.h:1.11
Rev: src/gc.c:1.185
Rev: src/gc.h:1.90
Rev: src/hashtable.c:1.11
Rev: src/interpret.c:1.263
Rev: src/interpret.h:1.110
Rev: src/interpret_functions.h:1.105
Rev: src/interpreter.h:1.76
Rev: src/iterators.cmod:1.26
Rev: src/language.yacc:1.289
Rev: src/las.c:1.297
Rev: src/lex.c:1.105
Rev: src/lexer.h:1.38
Rev: src/main.c:1.150
Rev: src/mapping.c:1.149
Rev: src/module_support.c:1.46
Rev: src/modules/Gmp/mpf.cmod:1.9
Rev: src/modules/Gmp/mpq.cmod:1.10
Rev: src/modules/Gmp/mpz_glue.c:1.107
Rev: src/modules/HTTPLoop/cache.c:1.17
Rev: src/modules/HTTPLoop/requestobject.c:1.21
Rev: src/modules/Image/colors.c:1.61
Rev: src/modules/Image/colortable.c:1.109
Rev: src/modules/Image/colortable_lookup.h:1.18
Rev: src/modules/Image/encodings/bmp.c:1.35
Rev: src/modules/Image/font.c:1.72
Rev: src/modules/Image/image_module.c:1.14
Rev: src/modules/Image/layers.c:1.79
Rev: src/modules/Odbc/odbc.c:1.30
Rev: src/modules/Oracle/oracle.c:1.70
Rev: src/modules/PDF/pdf_module.c:1.11
Rev: src/modules/Parser/html.c:1.152
Rev: src/modules/Parser/parser.c:1.14
Rev: src/modules/Perl/perlmod.c:1.25
Rev: src/modules/Pipe/pipe.c:1.49
Rev: src/modules/_Charset/charsetmod.c:1.35
Rev: src/modules/_Charset/iso2022.c:1.23
Rev: src/modules/files/file.c:1.239
Rev: src/modules/files/sendfile.c:1.57
Rev: src/modules/files/socket.c:1.63
Rev: src/modules/files/stat.c:1.22
Rev: src/modules/files/udp.c:1.37
Rev: src/modules/spider/xml.c:1.52
Rev: src/modules/sprintf/sprintf.c:1.93
Rev: src/modules/sybase/sybase.c:1.9
Rev: src/multiset.c:1.50
Rev: src/multiset.h:1.25
Rev: src/object.c:1.203
Rev: src/object.h:1.71
Rev: src/opcodes.c:1.122
Rev: src/operators.c:1.159
Rev: src/peep.c:1.72
Rev: src/pike_error.h:1.19
Rev: src/pike_macros.h:1.31
Rev: src/pike_memory.c:1.120
Rev: src/pike_search.c:1.9
Rev: src/pike_search_engine.c:1.8
Rev: src/pike_search_engine2.c:1.5
Rev: src/pike_threadlib.h:1.16
Rev: src/pike_types.c:1.194
Rev: src/pike_types.h:1.79
Rev: src/port.c:1.52
Rev: src/post_modules/GTK/source/support.c:1.33
Rev: src/post_modules/Unicode/normalize.c:1.9
Rev: src/preprocessor.h:1.51
Rev: src/program.c:1.441
Rev: src/queue.c:1.8
Rev: src/rbtree.c:1.10
Rev: src/rbtree_low.h:1.2
Rev: src/signal_handler.c:1.225
Rev: src/stralloc.c:1.143
Rev: src/stralloc.h:1.66
Rev: src/svalue.c:1.144
Rev: src/svalue.h:1.106
Rev: src/threads.c:1.180

24:   #include "bignum.h"   #include "cyclic.h"    - RCSID("$Id: array.c,v 1.128 2002/05/31 22:41:19 nilsson Exp $"); + RCSID("$Id: array.c,v 1.129 2002/08/15 14:49:18 marcus Exp $");      PMOD_EXPORT struct array empty_array=   {
126: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(v == & empty_array || v == &weak_empty_array || v == &weak_shrink_empty_array) -  fatal("Tried to free some *_empty_array.\n"); +  Pike_fatal("Tried to free some *_empty_array.\n");    if (v->refs) -  fatal("Freeing array with %d refs.\n", v->refs); +  Pike_fatal("Freeing array with %d refs.\n", v->refs);   #endif      #ifdef PIKE_DEBUG
162:    case ARRAY_WEAK_FLAG|ARRAY_WEAK_SHRINK:    add_ref(a = &weak_shrink_empty_array); break;    default: -  fatal("Invalid flags %x\n", flags); +  Pike_fatal("Invalid flags %x\n", flags);    }    }    return a;
176: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(index<0 || index>=v->size) -  fatal("Illegal index in low level index routine.\n"); +  Pike_fatal("Illegal index in low level index routine.\n");   #endif       add_ref(v);
235: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(index<0 || index>=v->size) -  fatal("Illegal index in low level free index routine.\n"); +  Pike_fatal("Illegal index in low level free index routine.\n");   #endif       free_svalue(ITEM(v) + index);
290: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(index<0 || index>v->size) -  fatal("Illegal index in low level insert routine.\n"); +  Pike_fatal("Illegal index in low level insert routine.\n");   #endif       /* Can we fit it into the existing block? */
378: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(v->refs>2) /* Odd, but has to be two */ -  fatal("Array shrink on array with many references.\n"); +  Pike_fatal("Array shrink on array with many references.\n");       if(size > v->size) -  fatal("Illegal argument to array_shrink.\n"); +  Pike_fatal("Illegal argument to array_shrink.\n");   #endif       if(size*2 < v->malloced_size + 4) /* Should we realloc it? */
410: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(index<0 || index >= v->size) -  fatal("Illegal argument to array_remove.\n"); +  Pike_fatal("Illegal argument to array_remove.\n");   #endif       array_free_index(v, index);
452: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(start<0) -  fatal("Start of find_index is less than zero.\n"); +  Pike_fatal("Start of find_index is less than zero.\n");   #endif       check_destructed(s);
496: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(start > end || end>v->size || start<0) -  fatal("Illegal arguments to slice_array()\n"); +  Pike_fatal("Illegal arguments to slice_array()\n");       if(d_flag > 1) array_check_type_field(v);   #endif
543: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(start > end || end>v->size || start<0) -  fatal("Illegal arguments to slice_array()\n"); +  Pike_fatal("Illegal arguments to slice_array()\n");       if(d_flag > 1) array_check_type_field(v);   #endif
1029: Inside #if defined(PIKE_DEBUG)
   if(t & ~(v->type_field))    {    describe(v); -  fatal("Type field out of order!\n"); +  Pike_fatal("Type field out of order!\n");    }   #endif    v->type_field = t;
1050: Inside #if defined(PIKE_DEBUG)
   for(e=0; e<v->size; e++)    {    if(ITEM(v)[e].type > MAX_TYPE) -  fatal("Type is out of range.\n"); +  Pike_fatal("Type is out of range.\n");       t |= 1 << ITEM(v)[e].type;    }
1058: Inside #if defined(PIKE_DEBUG)
   if(t & ~(v->type_field))    {    describe(v); -  fatal("Type field out of order!\n"); +  Pike_fatal("Type field out of order!\n");    }   }   #endif
1815:    case 1: f=(explode_searchfunc)mojt.vtab->func1; break;    case 2: f=(explode_searchfunc)mojt.vtab->func2; break;   #ifdef PIKE_DEBUG -  default: fatal("Illegal shift.\n"); +  default: Pike_fatal("Illegal shift.\n");   #endif    }   
2011: Inside #if defined(PIKE_DEBUG)
   INT32 e;       if(a->next->prev != a) -  fatal("Array check: a->next->prev != a\n"); +  Pike_fatal("Array check: a->next->prev != a\n");       if(a->size > a->malloced_size) -  fatal("Array is larger than malloced block!\n"); +  Pike_fatal("Array is larger than malloced block!\n");       if(a->size < 0) -  fatal("Array size is negative!\n"); +  Pike_fatal("Array size is negative!\n");       if(a->malloced_size < 0) -  fatal("Array malloced size is negative!\n"); +  Pike_fatal("Array malloced size is negative!\n");       if(a->item < a->real_item)    {   #ifdef DEBUG_MALLOC    describe(a);   #endif -  fatal("Array item pointer is too small!\n"); +  Pike_fatal("Array item pointer is too small!\n");    }       if(a->refs <=0 ) -  fatal("Array has zero refs.\n"); +  Pike_fatal("Array has zero refs.\n");          for(e=0;e<a->size;e++)    {    if(! ( (1 << ITEM(a)[e].type) & (a->type_field) ) && ITEM(a)[e].type<16) -  fatal("Type field lies.\n"); +  Pike_fatal("Type field lies.\n");       check_svalue(ITEM(a)+e);    }
2054: Inside #if defined(PIKE_DEBUG)
      a=a->next;    if(!a) -  fatal("Null pointer in array list.\n"); +  Pike_fatal("Null pointer in array list.\n");    } while (a != & empty_array);   }   #endif /* PIKE_DEBUG */
2078: Inside #if defined(PIKE_DEBUG)
   if(gc_mark(a)) {   #ifdef PIKE_DEBUG    if (a == &empty_array || a == &weak_empty_array || a == &weak_shrink_empty_array) -  fatal("Trying to gc mark some *_empty_array.\n"); +  Pike_fatal("Trying to gc mark some *_empty_array.\n");   #endif       if (a == gc_mark_array_pos)
2100: Inside #if defined(PIKE_DEBUG)
   int d=0;   #ifdef PIKE_DEBUG    if (a->refs != 1) -  fatal("Got %d refs to weak shrink array " +  Pike_fatal("Got %d refs to weak shrink array "    "which we'd like to change the size on.\n", a->refs);   #endif    t = 0;
2145: Inside #if defined(PIKE_DEBUG)
   GC_CYCLE_ENTER(a, weak) {   #ifdef PIKE_DEBUG    if (a == &empty_array || a == &weak_empty_array || a == &weak_shrink_empty_array) -  fatal("Trying to gc cycle check some *_empty_array.\n"); +  Pike_fatal("Trying to gc cycle check some *_empty_array.\n");   #endif       if (a->type_field & BIT_COMPLEX)
2180: Inside #if defined(PIKE_DEBUG)
   debug_gc_touch(a);    n++;    if (!a->next || a->next->prev != a) -  fatal("Error in array link list.\n"); +  Pike_fatal("Error in array link list.\n");    a=a->next;    } while (a != &empty_array);    return n;
2211:    while (gc_mark_array_pos != &empty_array) {    struct array *a = gc_mark_array_pos;   #ifdef PIKE_DEBUG -  if (!a) fatal("Null pointer in array list.\n"); +  if (!a) Pike_fatal("Null pointer in array list.\n");   #endif    gc_mark_array_pos = a->next;    if(gc_is_referenced(a))
2247: Inside #if defined(PIKE_DEBUG)
   {   #ifdef PIKE_DEBUG    if (!a) -  fatal("Null pointer in array list.\n"); +  Pike_fatal("Null pointer in array list.\n");   #endif    if(gc_do_free(a))    {
2428: Inside #if defined(PIKE_DEBUG)
   }   #ifdef PIKE_DEBUG    if(size != ret->size) -  fatal("Implode_array failed miserably (%d != %d)\n", size, ret->size); +  Pike_fatal("Implode_array failed miserably (%d != %d)\n", size, ret->size);   #endif    return ret;   }