pike.git/ src/ peep.c

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

19:   #include "interpret.h"   #include "pikecode.h"    - RCSID("$Id: peep.c,v 1.71 2002/05/10 22:30:33 mast Exp $"); + RCSID("$Id: peep.c,v 1.72 2002/08/15 14:49:24 marcus Exp $");      static void asm_opt(void);   
80: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(!hasarg2(f) && c) -  fatal("hasarg2(%d) is wrong!\n",f); +  Pike_fatal("hasarg2(%d) is wrong!\n",f);   #endif       p=(p_instr *)low_make_buf_space(sizeof(p_instr), &instrbuf);
88: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(!instrbuf.s.len) -  fatal("Low make buf space failed!!!!!!\n"); +  Pike_fatal("Low make buf space failed!!!!!!\n");   #endif       p->opcode=f;
107: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(!hasarg(f) && b) -  fatal("hasarg(%d) is wrong!\n",f); +  Pike_fatal("hasarg(%d) is wrong!\n",f);   #endif       return insert_opcode2(f,b,0,current_line,current_file);
117: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(hasarg(f)) -  fatal("hasarg(%d) is wrong!\n",f); +  Pike_fatal("hasarg(%d) is wrong!\n",f);   #endif    return insert_opcode1(f,0,current_line, current_file);   }
128: Inside #if defined(PIKE_DEBUG)
   p_instr *p;   #ifdef PIKE_DEBUG    if(instr > (long)instrbuf.s.len / (long)sizeof(p_instr) || instr < 0) -  fatal("update_arg outside known space.\n"); +  Pike_fatal("update_arg outside known space.\n");   #endif    p=(p_instr *)instrbuf.s.str;    p[instr].arg=arg;
305: Inside #if defined(PIKE_DEBUG)
   if(c->arg == -1) break;   #ifdef PIKE_DEBUG    if(c->arg > max_label || c->arg < 0) -  fatal("max_label calculation failed!\n"); +  Pike_fatal("max_label calculation failed!\n");       if(labels[c->arg] != -1) -  fatal("Duplicate label!\n"); +  Pike_fatal("Duplicate label!\n");   #endif    FLUSH_CODE_GENERATOR_STATE();    labels[c->arg] = DO_NOT_WARN((INT32)PIKE_PC);
337:       case I_ISPOINTER:   #ifdef PIKE_DEBUG -  if(c->arg > max_label || c->arg < 0) fatal("Jump to unknown label?\n"); +  if(c->arg > max_label || c->arg < 0) Pike_fatal("Jump to unknown label?\n");   #endif    tmp = DO_NOT_WARN((INT32)PIKE_PC);    ins_pointer(jumps[c->arg]);
358: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    default: -  fatal("Unknown instruction type.\n"); +  Pike_fatal("Unknown instruction type.\n");   #endif    }    }
405: Inside #if defined(PIKE_DEBUG)
   {   #ifdef PIKE_DEBUG    if(labels[e]==-1) -  fatal("Hyperspace error: unknown jump point %ld at %d (pc=%x).\n", +  Pike_fatal("Hyperspace error: unknown jump point %ld at %d (pc=%x).\n",    PTRDIFF_T_TO_LONG(e), labels[e], jumps[e]);   #endif   #ifdef INS_F_JUMP
446: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(!hasarg2(f) && b) -  fatal("hasarg2(%d /*%s */) is wrong!\n",f,get_f_name(f)); +  Pike_fatal("hasarg2(%d /*%s */) is wrong!\n",f,get_f_name(f));   #endif       p=(p_instr *)low_make_buf_space(sizeof(p_instr), &instrbuf);
459: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(!instrbuf.s.len) -  fatal("Low make buf space failed!!!!!!\n"); +  Pike_fatal("Low make buf space failed!!!!!!\n");   #endif       p->opcode=f;
475: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(!hasarg(f) && a) -  fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f)); +  Pike_fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f));   #endif       return insopt2(f,a,0,cl, cf);
485: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(hasarg(f)) -  fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f)); +  Pike_fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f));   #endif    return insopt2(f,0,0,cl, cf);   }
496: Inside #if defined(PIKE_DEBUG)
   fifo_len=(long)instrbuf.s.len / (long)sizeof(p_instr);   #ifdef PIKE_DEBUG    if(eye < 0) -  fatal("Popped beyond start of code.\n"); +  Pike_fatal("Popped beyond start of code.\n");       if(instrbuf.s.len)    {    p_instr *p;    p=(p_instr *)low_make_buf_space(0, &instrbuf);    if(!p[-1].file) -  fatal("No file name on last instruction!\n"); +  Pike_fatal("No file name on last instruction!\n");    }   #endif   }
579: Inside #if defined(PIKE_DEBUG)
   if(d>fifo_len) d=fifo_len;   #ifdef PIKE_DEBUG    if((long)d > (long)instrbuf.s.len / (long)sizeof(p_instr)) -  fatal("Popping out of instructions.\n"); +  Pike_fatal("Popping out of instructions.\n");   #endif       /* FIXME: It looks like the fifo could be optimized.