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: pike_types.c,v 1.193 2002/08/14 16:27:01 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.194 2002/08/15 14:49:24 marcus Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"
294: Inside #if defined(PIKE_DEBUG)
   break;       default: -  fatal("free_type(): Unhandled type-node: %d\n", type); +  Pike_fatal("free_type(): Unhandled type-node: %d\n", type);    break;   #endif /* PIKE_DEBUG */    }
378: Inside #if defined(PIKE_DEBUG)
   break;       default: -  fatal("mk_type(): Unhandled type-node: %d\n", type); +  Pike_fatal("mk_type(): Unhandled type-node: %d\n", type);    break;   #endif /* PIKE_DEBUG */    }
464: Inside #if defined(DEBUG_MALLOC)
   break;       default: -  fatal("mk_type(): Unhandled type-node: %d\n", type); +  Pike_fatal("mk_type(): Unhandled type-node: %d\n", type);    break;    }   #endif /* DEBUG_MALLOC */
493:   {    Pike_compiler->pike_type_mark_stackp--;    if(Pike_compiler->pike_type_mark_stackp<pike_type_mark_stack) -  fatal("Type mark stack underflow\n"); +  Pike_fatal("Type mark stack underflow\n");       TYPE_STACK_DEBUG("pop_stack_mark");   
553: Inside #if defined(PIKE_DEBUG)
   marker -= '0';   #ifdef PIKE_DEBUG    if ((marker < 0) || (marker > 9)) { -  fatal("Bad assign marker: %ld\n", marker); +  Pike_fatal("Bad assign marker: %ld\n", marker);    }   #endif /* PIKE_DEBUG */   
620:    case PIKE_T_NAME:    default:    /* Should not occurr. */ -  fatal("Unsupported argument to push_type().\n"); +  Pike_fatal("Unsupported argument to push_type().\n");    break;       case T_FLOAT:
656:   {    struct pike_type *top;    if(Pike_compiler->type_stackp<type_stack) -  fatal("Type stack underflow\n"); +  Pike_fatal("Type stack underflow\n");       top = *(Pike_compiler->type_stackp);    /* Special case... */
665: Inside #if defined(PIKE_DEBUG)
   Pike_compiler->type_stackp--;   #ifdef PIKE_DEBUG    if ((top->type != expected) && (top->type != PIKE_T_NAME)) { -  fatal("Unexpected type on stack: %d (expected %d)\n", top->type, expected); +  Pike_fatal("Unexpected type on stack: %d (expected %d)\n", top->type, expected);    }   #endif /* PIKE_DEBUG */    /* OPTIMIZE: It looks like this function is always called with
824:    len = pop_stack_mark();       if (len != 1) { -  fatal("pop_unfinished_type(): Unexpected len: %d\n", len); +  Pike_fatal("pop_unfinished_type(): Unexpected len: %d\n", len);    }       TYPE_STACK_DEBUG("pop_unfinished_type");
1213:    internal_parse_type(&s);       if( *s ) -  fatal("Extra junk at end of type definition.\n"); +  Pike_fatal("Extra junk at end of type definition.\n");       ret=pop_unfinished_type();      #ifdef PIKE_DEBUG    if(ts!=Pike_compiler->type_stackp || ptms!=Pike_compiler->pike_type_mark_stackp) -  fatal("Type stack whacked in parse_type.\n"); +  Pike_fatal("Type stack whacked in parse_type.\n");   #endif       return ret;
2197: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if ((m < 0) || (m > 9)) { -  fatal("marker out of range: %d\n", m); +  Pike_fatal("marker out of range: %d\n", m);    }   #endif /* PIKE_DEBUG */   
2228: Inside #if defined(PIKE_DEBUG)
  #endif   #ifdef PIKE_DEBUG    if((ptrdiff_t)a_markers[m]->type == m+'0') -  fatal("Cyclic type!\n"); +  Pike_fatal("Cyclic type!\n");   #endif    }    return ret;
2241: Inside #if defined(PIKE_DEBUG)
   {   #ifdef PIKE_DEBUG    if(a_markers[m]->type == a->type) -  fatal("Cyclic type!\n"); +  Pike_fatal("Cyclic type!\n");    if(a_markers[m]->type == T_OR &&    a_markers[m]->car->type == a->type) -  fatal("Cyclic type!\n"); +  Pike_fatal("Cyclic type!\n");   #endif    return low_match_types(a_markers[m], b, flags);    }
2314: Inside #if defined(PIKE_DEBUG)
  #endif   #ifdef PIKE_DEBUG    if((ptrdiff_t)b_markers[m]->type == m+'0') -  fatal("Cyclic type!\n"); +  Pike_fatal("Cyclic type!\n");   #endif    }    return ret;
2327: Inside #if defined(PIKE_DEBUG)
   {   #ifdef PIKE_DEBUG    if(b_markers[m]->type == b->type) -  fatal("Cyclic type!\n"); +  Pike_fatal("Cyclic type!\n");   #endif    return low_match_types(a, b_markers[m], flags);    }
2602:    break;       default: -  fatal("Error in type string.\n"); +  Pike_fatal("Error in type string.\n");    }    return ret;   }
3140:    break;       default: -  fatal("Error in type string.\n"); +  Pike_fatal("Error in type string.\n");    }    return 1;   }
4103:    return pop_unfinished_type();    }   /* This error is bogus /Hubbe -  fatal("zzap_function_return() called with unexpected value: %d\n", +  Pike_fatal("zzap_function_return() called with unexpected value: %d\n",    EXTRACT_UCHAR(a));   */    return NULL;
4433:    case T_SCOPE:    case T_ASSIGN:    if ((type_string[1] < '0') || (type_string[1] > '9')) { -  fatal("low_make_pike_type(): Bad marker: %d\n", type_string[1]); +  Pike_fatal("low_make_pike_type(): Bad marker: %d\n", type_string[1]);    }    return mk_type(type, (void *)(ptrdiff_t)(type_string[1] - '0'),    low_make_pike_type(type_string+2, cont), PT_COPY_CDR);
4497:    return mk_type(T_OBJECT, (void *)(ptrdiff_t)(type_string[1]),    (void *)(ptrdiff_t)extract_type_int(type_string+2), 0);    default: -  fatal("compile_type_string(): Error in type string %d.\n", type); +  Pike_fatal("compile_type_string(): Error in type string %d.\n", type);    /* NOT_REACHED */    break;    }
4564:    case T_VOID:    return 1;    default: -  fatal("pike_type_allow_premature_toss: Unknown type code (%d)\n", +  Pike_fatal("pike_type_allow_premature_toss: Unknown type code (%d)\n",    ((unsigned char *)type)[-1]);    /* NOT_REACHED */    return 0;