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: las.c,v 1.296 2002/08/12 20:19:08 grubba Exp $"); + RCSID("$Id: las.c,v 1.297 2002/08/15 14:49:22 marcus Exp $");      #include "language.h"   #include "interpret.h"
109: Inside #if defined(PIKE_DEBUG)
      while(n) {    if(n->token==USHRT_MAX) -  fatal("Free node in tree.\n"); +  Pike_fatal("Free node in tree.\n");       check_node_hash(n);   
141: Inside #if defined(PIKE_DEBUG), #if 0 and #if defined(PIKE_DEBUG)
   simple_describe_type(n->type);    fprintf(stderr, "\n");    -  fatal("Type of external node is not matching its identifier.\n"); +  Pike_fatal("Type of external node is not matching its identifier.\n");    }   #endif   #endif
157: Inside #if defined(PIKE_DEBUG)
   node *q;    for(q=n->parent;q;q=q->parent)    if(q->parent==n) -  fatal("Cyclic node structure found.\n"); +  Pike_fatal("Cyclic node structure found.\n");    }       if(car_is_node(n))
167: Inside #if defined(PIKE_DEBUG)
   CAR(n)->parent = n;   #else /* !SHARED_NODES */    if(CAR(n)->parent != n) -  fatal("Parent is wrong.\n"); +  Pike_fatal("Parent is wrong.\n");   #endif /* SHARED_NODES */       depth++;
182:    CDR(n)->parent = n;   #else /* !SHARED_NODES */    if(CDR(n)->parent != n) -  fatal("Parent is wrong.\n"); +  Pike_fatal("Parent is wrong.\n");   #endif /* !SHARED_NODES */       depth++;
203:    CDR(n->parent)->parent = n->parent;   #else /* !SHARED_NODES */    if(CDR(n->parent)->parent != n->parent) -  fatal("Parent is wrong.\n"); +  Pike_fatal("Parent is wrong.\n");   #endif /* !SHARED_NODES */    n = CDR(n->parent);    continue;
218:    print_tree(n);    fprintf(stderr, "orig_n:");    print_tree(orig_n); -  fatal("check_tree() lost track.\n"); +  Pike_fatal("check_tree() lost track.\n");    }    n->parent = parent;   }
416: Inside #if defined(SHARED_NODES) and #if defined(PIKE_DEBUG)
   fprintf(stderr, " %p\n", (void *)probe);    probe = probe->next;    } -  fatal( "Node already added!\n" ); +  Pike_fatal( "Node already added!\n" );    }    probe = probe->next;    }
628: Inside #if defined(PIKE_DEBUG)
   }   #if defined(PIKE_DEBUG)    if(!cumulative_parse_error) -  fatal("Failed to free %d nodes when compiling!\n",e2); +  Pike_fatal("Failed to free %d nodes when compiling!\n",e2);   #endif    }   #ifndef PIKE_DEBUG
660: Inside #if defined(SHARED_NODES) and #if defined(PIKE_DEBUG)
   DO_NOT_WARN((unsigned long)hash),    DO_NOT_WARN((unsigned long)n->hash));    print_tree(n); -  fatal("token:%d, car:%p cdr:%p file:%s line:%d\n", +  Pike_fatal("token:%d, car:%p cdr:%p file:%s line:%d\n",    n->token, _CAR(n), _CDR(n), n->current_file->str, n->line_number);    }    }
684: Inside #if defined(PIKE_DEBUG) and #if defined(SHARED_NODES)
   DO_NOT_WARN((unsigned long)hash),    DO_NOT_WARN((unsigned long)n->hash));    print_tree(n); -  fatal("token:%d, car:%p cdr:%p file:%s line:%d\n", +  Pike_fatal("token:%d, car:%p cdr:%p file:%s line:%d\n",    n->token, _CAR(n), _CDR(n), n->current_file->str, n->line_number);    }    }
696: Inside #if defined(SHARED_NODES) and #if defined(PIKE_DEBUG)
  #ifdef SHARED_NODES   #ifdef PIKE_DEBUG    if (n->refs) { -  fatal("Node with refs left about to be killed: %8p\n", n); +  Pike_fatal("Node with refs left about to be killed: %8p\n", n);    }   #endif /* PIKE_DEBUG */    sub_node(dmalloc_touch(node *, n));
705:    switch(n->token)    {    case USHRT_MAX: -  fatal("Freeing node again!\n"); +  Pike_fatal("Freeing node again!\n");    break;       case F_CONSTANT:
752: Inside #if defined(SHARED_NODES) && defined(PIKE_DEBUG)
     #if defined(SHARED_NODES) && defined(PIKE_DEBUG)    if (dead->refs) { -  fatal("Killed node %p still has refs: %d\n", dead, dead->refs); +  Pike_fatal("Killed node %p still has refs: %d\n", dead, dead->refs);    }   #endif /* SHARED_NODES && PIKE_DEBUG */   
772: Inside #if defined(SHARED_NODES) && defined(PIKE_DEBUG)
     #if defined(SHARED_NODES) && defined(PIKE_DEBUG)    if (dead->refs) { -  fatal("Killed node %p still has refs: %d\n", dead, dead->refs); +  Pike_fatal("Killed node %p still has refs: %d\n", dead, dead->refs);    }   #endif /* SHARED_NODES && PIKE_DEBUG */   
804: Inside #if defined(SHARED_NODES) && defined(PIKE_DEBUG)
     #if defined(SHARED_NODES) && defined(PIKE_DEBUG)    if (n->refs) { -  fatal("Killed node %p still has refs: %d\n", n, n->refs); +  Pike_fatal("Killed node %p still has refs: %d\n", n, n->refs);    }   #endif /* SHARE_NODES && PIKE_DEBUG */   
830: Inside #if defined(PIKE_DEBUG) && defined(SHARED_NODES)
   n->token);    debug_malloc_dump_references(n,0,0,0);    print_tree(n); -  fatal("Bad node hash!\n"); +  Pike_fatal("Bad node hash!\n");    }   #endif /* PIKE_DEBUG && SHARED_NODES */    return n;
911: Inside #if defined(PIKE_DEBUG)
  #ifdef PIKE_DEBUG    case F_CAST:    case F_SOFT_CAST: -  fatal("Attempt to create a cast-node with mknode()!\n"); +  Pike_fatal("Attempt to create a cast-node with mknode()!\n");    case F_CONSTANT: -  fatal("Attempt to create an F_CONSTANT-node with mknode()!\n"); +  Pike_fatal("Attempt to create an F_CONSTANT-node with mknode()!\n");    case F_LOCAL: -  fatal("Attempt to create an F_LOCAL-node with mknode()!\n"); +  Pike_fatal("Attempt to create an F_LOCAL-node with mknode()!\n");    case F_IDENTIFIER: -  fatal("Attempt to create an F_IDENTIFIER-node with mknode()!\n"); +  Pike_fatal("Attempt to create an F_IDENTIFIER-node with mknode()!\n");    case F_TRAMPOLINE: -  fatal("Attempt to create an F_TRAMPOLINE-node with mknode()!\n"); +  Pike_fatal("Attempt to create an F_TRAMPOLINE-node with mknode()!\n");    case F_EXTERNAL: -  fatal("Attempt to create an F_EXTERNAL-node with mknode()!\n"); +  Pike_fatal("Attempt to create an F_EXTERNAL-node with mknode()!\n");   #endif /* PIKE_DEBUG */    }      #if defined(PIKE_DEBUG) && !defined(SHARED_NODES)    if(b && a==b) -  fatal("mknode: a and be are the same!\n"); +  Pike_fatal("mknode: a and be are the same!\n");   #endif       check_tree(a,0);
1440: Inside #if 0 and #if defined(PIKE_DEBUG)
   simple_describe_type(res->type);    printf("\n");    -  fatal("Type of external node is not matching it's identifier.\n"); +  Pike_fatal("Type of external node is not matching it's identifier.\n");    }   #endif   #endif
1456: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if (!type) { -  fatal("Casting to no type!\n"); +  Pike_fatal("Casting to no type!\n");    }   #endif /* PIKE_DEBUG */   
1490: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if (!type) { -  fatal("Soft cast to no type!\n"); +  Pike_fatal("Soft cast to no type!\n");    }   #endif /* PIKE_DEBUG */   
1889:    if (Pike_sp > save_sp) {    pop_n_elems(Pike_sp - save_sp);    } else if (Pike_sp != save_sp) { -  fatal("f_index() munged stack!\n"); +  Pike_fatal("f_index() munged stack!\n");    }    push_undefined();    thrown = throw_value;
2132:       switch((car_is_node(n) << 1) | cdr_is_node(n))    { -  default: fatal("fooo?\n"); +  default: Pike_fatal("fooo?\n");       case 3:    b=mknode(n->token, copy_node(CAR(n)), copy_node(CDR(n)));
3545:    }    }    /* Fewer than 2 arguments to F_RANGE. */ -  fatal("Bad number of arguments to F_RANGE.\n"); +  Pike_fatal("Bad number of arguments to F_RANGE.\n");    }    break;    case F_AUTO_MAP_MARKER:
3714: Inside #if 0 and #if defined(PIKE_DEBUG)
   simple_describe_type(f);    printf("\n");    -  fatal("Type of external node is not matching it's identifier.\n"); +  Pike_fatal("Type of external node is not matching it's identifier.\n");    }   #endif   #endif
3830:    MAKE_CONSTANT_SHARED_STRING(op_string, "`/");    break;    default: -  fatal("fix_type_field(): Unhandled token: %d\n", n->token); +  Pike_fatal("fix_type_field(): Unhandled token: %d\n", n->token);    break;    }    if (!(op_node = find_module_identifier(op_string, 0))) {
4286: Inside #if defined(PIKE_DEBUG)
   }   #ifdef PIKE_DEBUG    if (n != orig_n) { -  fatal("zzap_try_optimize() lost track of parent.\n"); +  Pike_fatal("zzap_try_optimize() lost track of parent.\n");    }   #endif /* PIKE_DEBUG */    n->parent = parent;