2002-08-15
2002-08-15 14:50:28 by Marcus Comstedt <marcus@mc.pp.se>
-
5aad93d0f00ff6eaf5b329826eb84e35b67fc4b4
(59 lines)
(+30/-29)
[
Show
| Annotate
]
Branch: 7.9
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: docode.c,v 1.143 2002/07/02 18:12:16 grubba Exp $");
+ RCSID("$Id: docode.c,v 1.144 2002/08/15 14:49:20 marcus Exp $");
#include "las.h"
#include "program.h"
#include "pike_types.h"
78:
cleanup_frame__.stack_depth = current_stack_depth; \
DO_IF_DEBUG( \
if (current_label->cleanups == (void *)(ptrdiff_t) -1) \
- fatal("current_label points to an unused statement_label.\n"); \
+ Pike_fatal("current_label points to an unused statement_label.\n"); \
) \
if (current_label->break_label == -2) { \
DO_IF_DEBUG( \
if (current_label->prev->break_label == -2) \
- fatal("Found two open statement_label entries in a row.\n"); \
+ Pike_fatal("Found two open statement_label entries in a row.\n"); \
) \
cleanup_frame__.prev = current_label->prev->cleanups; \
current_label->prev->cleanups = &cleanup_frame__; \
99:
else { \
DO_IF_DEBUG( \
if (current_label->prev->cleanups != &cleanup_frame__) \
- fatal("Cleanup frame lost from statement_label cleanup list.\n");\
+ Pike_fatal("Cleanup frame lost from statement_label cleanup list.\n");\
) \
current_label->prev->cleanups = cleanup_frame__.prev; \
} \
123:
#define BLOCK_END \
if (current_stack_depth != cleanup_frame__.stack_depth) { \
print_tree(n); \
- fatal("Stack not in synch after block: is %d, should be %d.\n", \
+ Pike_fatal("Stack not in synch after block: is %d, should be %d.\n", \
current_stack_depth, cleanup_frame__.stack_depth); \
} \
if (d_flag > 2) emit0(F_POP_SYNCH_MARK); \
158:
DO_IF_DEBUG( \
if (new_label__.cleanups && \
new_label__.cleanups != (void *)(ptrdiff_t) -1) \
- fatal("Cleanup frames still left in statement_label.\n")); \
+ Pike_fatal("Cleanup frames still left in statement_label.\n")); \
} while (0)
struct switch_data
249:
void do_pop(int x)
{
#ifdef PIKE_DEBUG
- if (x < 0) fatal("Cannot do pop of %d args.\n", x);
+ if (x < 0) Pike_fatal("Cannot do pop of %d args.\n", x);
#endif
switch(x)
{
291:
if(!n) return 0;
lex.current_line=n->line_number;
#ifdef PIKE_DEBUG
- if (current_stack_depth == -4711) fatal("do_docode() used outside docode().\n");
+ if (current_stack_depth == -4711) Pike_fatal("do_docode() used outside docode().\n");
#endif
i=do_docode2(check_node_hash(n), flags);
current_stack_depth = stack_depth_save + i;
314:
case 0: my_yyerror("Void expression for %s",err);
case 1: return;
case 2:
- fatal("Internal compiler error (%s), line %ld, file %s\n",
+ Pike_fatal("Internal compiler error (%s), line %ld, file %s\n",
err,
(long)lex.current_line,
lex.current_file?lex.current_file->str:"Unknown");
674: Inside #if defined(PIKE_DEBUG)
if (!current_label->cleanups ||
(current_label->cleanups->cleanup != do_pop_mark &&
current_label->cleanups->cleanup != do_pop_to_mark))
- fatal("F_PUSH_ARRAY unexpected in this context.\n");
+ Pike_fatal("F_PUSH_ARRAY unexpected in this context.\n");
#endif
current_label->cleanups->cleanup = do_pop_to_mark;
}
787:
case F_MOD_EQ: opname="`%"; break;
case F_DIV_EQ: opname="`/"; break;
default:
- fatal("Really???\n");
+ Pike_fatal("Really???\n");
opname="`make gcc happy";
}
805: Inside #if defined(PIKE_DEBUG)
tmp1=do_docode(CAR(n),DO_LVALUE);
#ifdef PIKE_DEBUG
if(tmp1 != 2)
- fatal("HELP! FATAL INTERNAL COMPILER ERROR (7)\n");
+ Pike_fatal("HELP! FATAL INTERNAL COMPILER ERROR (7)\n");
#endif
if(n->token == F_ADD_EQ && (flags & DO_POP))
895: Inside #if defined(PIKE_DEBUG)
case 2: emit0(F_LTOSVAL3); break;
#ifdef PIKE_DEBUG
default:
- fatal("Arglebargle glop-glyf?\n");
+ Pike_fatal("Arglebargle glop-glyf?\n");
#endif
}
}else{
996:
case F_NOT:
case F_COMPL:
case F_NEGATE:
- fatal("Optimizer error.\n");
+ Pike_fatal("Optimizer error.\n");
case F_RANGE:
tmp1=do_docode(CAR(n),DO_NOT_COPY_TOPLEVEL);
if(do_docode(CDR(n),DO_NOT_COPY)!=2)
- fatal("Compiler internal error (at %ld).\n",(long)lex.current_line);
+ Pike_fatal("Compiler internal error (at %ld).\n",(long)lex.current_line);
emit0(n->token);
return DO_NOT_WARN((INT32)tmp1);
1029: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(tmp1 != 2)
- fatal("HELP! FATAL INTERNAL COMPILER ERROR (1)\n");
+ Pike_fatal("HELP! FATAL INTERNAL COMPILER ERROR (1)\n");
#endif
emit0(F_MARK);
1054: Inside #if defined(PIKE_DEBUG)
tmp1=do_docode(CAR(n),DO_LVALUE);
#ifdef PIKE_DEBUG
if(tmp1 != 2)
- fatal("HELP! FATAL INTERNAL COMPILER ERROR (1)\n");
+ Pike_fatal("HELP! FATAL INTERNAL COMPILER ERROR (1)\n");
#endif
if(flags & DO_POP)
1091: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(tmp1 != 2)
- fatal("HELP! FATAL INTERNAL COMPILER ERROR (1)\n");
+ Pike_fatal("HELP! FATAL INTERNAL COMPILER ERROR (1)\n");
#endif
emit0(F_MARK);
1116: Inside #if defined(PIKE_DEBUG)
tmp1=do_docode(CAR(n),DO_LVALUE);
#ifdef PIKE_DEBUG
if(tmp1 != 2)
- fatal("HELP! FATAL INTERNAL COMPILER ERROR (2)\n");
+ Pike_fatal("HELP! FATAL INTERNAL COMPILER ERROR (2)\n");
#endif
if(flags & DO_POP)
{
1577:
PUSH_STATEMENT_LABEL;
if(do_docode(CAR(n),0)!=1)
- fatal("Internal compiler error, time to panic\n");
+ Pike_fatal("Internal compiler error, time to panic\n");
if (!(CAR(n) && (current_switch.type = CAR(n)->type))) {
current_switch.type = mixed_type_string;
1610: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(Pike_sp-save_sp != cases)
- fatal("Count cases is wrong!\n");
+ Pike_fatal("Count cases is wrong!\n");
#endif
f_aggregate(cases);
1679: Inside #if defined(PIKE_DEBUG)
BLOCK_END;
#ifdef PIKE_DEBUG
if(Pike_interpreter.recoveries && Pike_sp-Pike_interpreter.evaluator_stack < Pike_interpreter.recoveries->stack_pointer)
- fatal("Stack error after F_SWITCH (underflow)\n");
+ Pike_fatal("Stack error after F_SWITCH (underflow)\n");
#endif
return 0;
}
1915: Inside #if defined(PIKE_DEBUG)
tmp1=do_docode(CAR(n),DO_LVALUE);
#ifdef PIKE_DEBUG
if(tmp1 & 1)
- fatal("Very internal compiler error.\n");
+ Pike_fatal("Very internal compiler error.\n");
#endif
emit1(F_ARRAY_LVALUE, DO_NOT_WARN((INT32)(tmp1>>1)));
return 2;
case F_ARROW:
if(CDR(n)->token != F_CONSTANT || CDR(n)->u.sval.type!=T_STRING)
- fatal("Bugg in F_ARROW, index not string.");
+ Pike_fatal("Bugg in F_ARROW, index not string.");
if(flags & WANT_LVALUE)
{
/* FIXME!!!! ??? I wonder what needs fixing... /Hubbe */
1955: Inside #if defined(PIKE_DEBUG)
{
#ifdef PIKE_DEBUG
if(!mklval)
- fatal("Unwanted lvalue!\n");
+ Pike_fatal("Unwanted lvalue!\n");
#endif
emit0(F_INDIRECT);
}
if(do_docode(CDR(n),0) != 1)
- fatal("Internal compiler error, please report this (1).");
+ Pike_fatal("Internal compiler error, please report this (1).");
if(CDR(n)->token != F_CONSTANT &&
match_types(CDR(n)->type, string_type_string))
emit0(F_CLEAR_STRING_SUBTYPE);
2034: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
case T_OBJECT:
if(n->u.sval.u.object->next == n->u.sval.u.object)
- fatal("Internal error: Pointer to parent cannot be a compile time constant!\n");
+ Pike_fatal("Internal error: Pointer to parent cannot be a compile time constant!\n");
#endif
/* FALL_THROUGH */
default:
2166:
return 1;
default:
- fatal("Infernal compiler error (unknown parse-tree-token %d).\n", n->token);
+ Pike_fatal("Infernal compiler error (unknown parse-tree-token %d).\n", n->token);
return 0; /* make gcc happy */
}
}
2175:
{
INT32 ret;
#ifdef PIKE_DEBUG
- if (current_stack_depth != -4711) fatal("Reentrance in do_code_block().\n");
+ if (current_stack_depth != -4711) Pike_fatal("Reentrance in do_code_block().\n");
current_stack_depth = 0;
#endif