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

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.434 2002/08/06 14:18:57 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.435 2002/08/15 14:49:19 marcus Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
105:   {    struct array *a;   #ifdef PIKE_DEBUG -  if(args < 0) fatal("Negative args to f_aggregate() (%d)\n",args); +  if(args < 0) Pike_fatal("Negative args to f_aggregate() (%d)\n",args);   #endif       a=aggregate_array(args);
317:    case CIM_UPPERDELTA: C = c + ci->data; break; \    case CIM_CASEBIT: C = c | ci->data; break; \    case CIM_CASEBITOFF: C = ((c - ci->data) | ci->data) + ci->data; break; \ -  default: fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \ +  default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \    } \    } \    } while(0)
331:    case CIM_UPPERDELTA: C = c + ci->data; break; \    case CIM_CASEBIT: C = c | ci->data; break; \    case CIM_CASEBITOFF: C = ((c - ci->data) | ci->data) + ci->data; break; \ -  default: fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \ +  default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \    } \    } \    } while(0)
345:    case CIM_LOWERDELTA: C = c - ci->data; break; \    case CIM_CASEBIT: C = c & ~ci->data; break; \    case CIM_CASEBITOFF: C = ((c - ci->data)& ~ci->data) + ci->data; break; \ -  default: fatal("upper_case(): Unknown case_info mode: %d\n", ci->mode); \ +  default: Pike_fatal("upper_case(): Unknown case_info mode: %d\n", ci->mode); \    } \    } \    } while(0)
359:    case CIM_LOWERDELTA: C = c - ci->data; break; \    case CIM_CASEBIT: C = c & ~ci->data; break; \    case CIM_CASEBITOFF: C = ((c - ci->data)& ~ci->data) + ci->data; break; \ -  default: fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \ +  default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \    } \    } \    } while(0)
407:    DO_LOWER_CASE(str[i]);    }    } else { -  fatal("lower_case(): Bad string shift:%d\n", orig->size_shift); +  Pike_fatal("lower_case(): Bad string shift:%d\n", orig->size_shift);    }       pop_n_elems(args);
461:    DO_UPPER_CASE(str[i]);    }    } else { -  fatal("lower_case(): Bad string shift:%d\n", orig->size_shift); +  Pike_fatal("lower_case(): Bad string shift:%d\n", orig->size_shift);    }       pop_n_elems(args);
643:    }    break;    default: -  fatal("search(): Unsupported string shift: %d!\n", +  Pike_fatal("search(): Unsupported string shift: %d!\n",    haystack->size_shift);    break;    }
1086:   {    if(count_args(CDR(n)) != 1) return 0;    if(do_docode(CDR(n),DO_NOT_COPY) != 1) -  fatal("Count args was wrong in generate_zero_type().\n"); +  Pike_fatal("Count args was wrong in generate_zero_type().\n");    emit0(F_ZERO_TYPE);    return 1;   }
1130: Inside #if defined(PIKE_DEBUG)
   if (d_flag) {    for(i = len; i--;) {    if (out->str[i]) { -  fatal("MEMSET didn't clear byte %ld of %ld\n", +  Pike_fatal("MEMSET didn't clear byte %ld of %ld\n",    PTRDIFF_T_TO_LONG(i+1),    PTRDIFF_T_TO_LONG(len));    }
1218: Inside #if defined(PIKE_DEBUG)
   }   #ifdef PIKE_DEBUG    if (j) { -  fatal("string_to_unicode(): Indexing error: len:%ld, j:%ld.\n", +  Pike_fatal("string_to_unicode(): Indexing error: len:%ld, j:%ld.\n",    PTRDIFF_T_TO_LONG(len), PTRDIFF_T_TO_LONG(j));    }   #endif /* PIKE_DEBUG */
1516: Inside #if defined(PIKE_DEBUG)
   }   #ifdef PIKE_DEBUG    if (len != j) { -  fatal("string_to_utf8(): Calculated and actual lengths differ: " +  Pike_fatal("string_to_utf8(): Calculated and actual lengths differ: "    "%ld != %ld\n",    PTRDIFF_T_TO_LONG(len), PTRDIFF_T_TO_LONG(j));    }
1673: Inside #if defined(PIKE_DEBUG)
   }   #ifdef PIKE_DEBUG    if (j != len) { -  fatal("utf8_to_string(): Calculated and actual lengths differ: %d != %d\n", +  Pike_fatal("utf8_to_string(): Calculated and actual lengths differ: %d != %d\n",    len, j);    }   #endif /* PIKE_DEBUG */
1905: Inside #if defined(PIKE_DEBUG)
   int level;   #ifdef PIKE_DEBUG    if (CDR (n)->u.sval.type != T_INT || CDR (n)->u.sval.u.integer < 0) -  fatal ("The type check for this_object() failed.\n"); +  Pike_fatal ("The type check for this_object() failed.\n");   #endif    level = CDR (n)->u.sval.u.integer;    if (level > compilation_depth) {
1945: Inside #if defined(PIKE_DEBUG)
   else {   #ifdef PIKE_DEBUG    if (CDR (n)->u.sval.type != T_INT || CDR (n)->u.sval.u.integer < 0) -  fatal ("The type check for this_object() failed.\n"); +  Pike_fatal ("The type check for this_object() failed.\n");   #endif    level = CDR (n)->u.sval.u.integer;   #ifdef PIKE_DEBUG    if (level > compilation_depth) -  fatal ("this_object level too high. " +  Pike_fatal ("this_object level too high. "    "Expected this to be caught by optimize_this_object.\n");   #endif    }
4329: Inside #if defined(PIKE_DEBUG)
   }   #ifdef PIKE_DEBUG    if (Pike_sp[-1].type != T_ARRAY) { -  fatal("parse_format(): Unexpected result from low_parse_format()\n"); +  Pike_fatal("parse_format(): Unexpected result from low_parse_format()\n");    }   #endif /* PIKE_DEBUG */    a = (--Pike_sp)->u.array;
5011: Inside #if defined(PIKE_DEBUG)
  #endif /* DIFF_DEBUG */   #ifdef PIKE_DEBUG    if (x >= blen) { -  fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen); +  Pike_fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen);    } else if (x < 0) { -  fatal("diff_longest_sequence(): x:%d < 0\n", x); +  Pike_fatal("diff_longest_sequence(): x:%d < 0\n", x);    }   #endif /* PIKE_DEBUG */    if (!marks[x]) {
5054: Inside #if defined(PIKE_DEBUG)
  #endif /* DIFF_DEBUG */   #ifdef PIKE_DEBUG    if (x >= blen) { -  fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen); +  Pike_fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen);    } else if (x < 0) { -  fatal("diff_longest_sequence(): x:%d < 0\n", x); +  Pike_fatal("diff_longest_sequence(): x:%d < 0\n", x);    }   #endif /* PIKE_DEBUG */   
5321: Inside #if defined(PIKE_DEBUG)
   while(dml) {   #ifdef PIKE_DEBUG    if (i >= sz) { -  fatal("Consistency error in diff_dyn_longest_sequence()\n"); +  Pike_fatal("Consistency error in diff_dyn_longest_sequence()\n");    }   #endif /* PIKE_DEBUG */   #ifdef DIFF_DEBUG
5335: Inside #if defined(PIKE_DEBUG)
   }   #ifdef PIKE_DEBUG    if (i != sz) { -  fatal("Consistency error in diff_dyn_longest_sequence()\n"); +  Pike_fatal("Consistency error in diff_dyn_longest_sequence()\n");    }   #endif /* PIKE_DEBUG */   
6165:    INT32 i,j,k;      #ifdef PIKE_DEBUG -  if(args < 0) fatal("Negative args to f_splice()\n"); +  if(args < 0) Pike_fatal("Negative args to f_splice()\n");   #endif       for(i=0;i<args;i++)
6212:    struct array *ina;    INT32 size=0;   #ifdef PIKE_DEBUG -  if(args < 0) fatal("Negative args to f_everynth()\n"); +  if(args < 0) Pike_fatal("Negative args to f_everynth()\n");   #endif       check_all_args("everynth", args,
6257:    INT32 j,i;    TYPE_FIELD type=0;   #ifdef PIKE_DEBUG -  if(args < 0) fatal("Negative args to f_transpose()\n"); +  if(args < 0) Pike_fatal("Negative args to f_transpose()\n");   #endif       if (args<1)