2002-08-15
2002-08-15 14:50:28 by Marcus Comstedt <marcus@mc.pp.se>
-
5aad93d0f00ff6eaf5b329826eb84e35b67fc4b4
(175 lines)
(+88/-87)
[
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: program.c,v 1.440 2002/07/23 12:58:45 mast Exp $");
+ RCSID("$Id: program.c,v 1.441 2002/08/15 14:49:25 marcus Exp $");
#include "program.h"
#include "object.h"
#include "dynamic_buffer.h"
772:
#ifdef PIKE_DEBUG
#define CHECK_FOO(NUMTYPE,TYPE,NAME) \
if(Pike_compiler->malloc_size_program-> PIKE_CONCAT(num_,NAME) < Pike_compiler->new_program-> PIKE_CONCAT(num_,NAME)) \
- fatal("Pike_compiler->new_program->num_" #NAME " is out of order\n"); \
+ Pike_fatal("Pike_compiler->new_program->num_" #NAME " is out of order\n"); \
if(Pike_compiler->new_program->flags & PROGRAM_OPTIMIZED) \
- fatal("Tried to reallocate fixed program.\n")
+ Pike_fatal("Tried to reallocate fixed program.\n")
#else
#define CHECK_FOO(NUMTYPE,TYPE,NAME)
805:
sizeof(TYPE) * \
state->malloc_size_program-> \
PIKE_CONCAT(num_,NAME)); \
- if(!tmp) fatal("Out of memory.\n"); \
+ if(!tmp) Pike_fatal("Out of memory.\n"); \
PIKE_CONCAT(RELOCATE_,NAME)(state->new_program, tmp); \
state->new_program->NAME=tmp; \
} \
847: Inside #if defined(PIKE_DEBUG)
for (i = 0; i < Pike_compiler->new_program->num_identifiers; i++)
if (Pike_compiler->new_program->identifiers[i].name == id.name) {
dump_program_tables (Pike_compiler->new_program, 0);
- fatal ("Adding identifier twice, old at %d.\n", i);
+ Pike_fatal ("Adding identifier twice, old at %d.\n", i);
}
}
add_to_identifiers (id);
885: Inside #if defined(PIKE_DEBUG)
if(!howmany) return;
#ifdef PIKE_DEBUG
if(howmany *sizeof(struct svalue) > used_modules.s.len)
- fatal("Unusing too many modules.\n");
+ Pike_fatal("Unusing too many modules.\n");
#endif
Pike_compiler->num_used_modules-=howmany;
low_make_buf_space(-sizeof(struct svalue)*howmany, &used_modules);
1010: Inside #if defined(PIKE_DEBUG)
modules-=p->num_used_modules;
#ifdef PIKE_DEBUG
if( ((char *)modules ) < used_modules.s.str)
- fatal("Modules out of whack!\n");
+ Pike_fatal("Modules out of whack!\n");
#endif
}
}
1364: Inside #if defined(PIKE_DEBUG)
if(p->flags & PROGRAM_FIXED) return;
#ifdef PIKE_DEBUG
if(p->flags & PROGRAM_OPTIMIZED)
- fatal("Cannot fixate optimized program\n");
+ Pike_fatal("Cannot fixate optimized program\n");
#endif
/* Ok, sort for binsearch */
1567: Inside #if 0 and #if defined(SHARED_NODES)
if (!node_hash.table) {
node_hash.table = malloc(sizeof(node *)*32831);
if (!node_hash.table) {
- fatal("Out of memory!\n");
+ Pike_fatal("Out of memory!\n");
}
MEMSET(node_hash.table, 0, sizeof(node *)*32831);
node_hash.size = 32831;
1609:
struct identifier *i;
id=isidentifier(name);
if (id < 0)
- fatal("Program constant disappeared in second pass.\n");
+ Pike_fatal("Program constant disappeared in second pass.\n");
i=ID_FROM_INT(Pike_compiler->new_program, id);
free_type(i->type);
i->type=get_type_of_svalue(&tmp);
2135: Inside #if defined(PIKE_DEBUG)
variable_positions[e]=-1;
if(p->id > current_program_id)
- fatal("Program id is out of sync! (p->id=%d, current_program_id=%d)\n",p->id,current_program_id);
+ Pike_fatal("Program id is out of sync! (p->id=%d, current_program_id=%d)\n",p->id,current_program_id);
if(p->refs <=0)
- fatal("Program has zero refs.\n");
+ Pike_fatal("Program has zero refs.\n");
if(p->next && p->next->prev != p)
- fatal("Program ->next->prev != program.\n");
+ Pike_fatal("Program ->next->prev != program.\n");
if(p->prev)
{
if(p->prev->next != p)
- fatal("Program ->prev->next != program.\n");
+ Pike_fatal("Program ->prev->next != program.\n");
}else{
if(first_program != p)
- fatal("Program ->prev == 0 but first_program != program.\n");
+ Pike_fatal("Program ->prev == 0 but first_program != program.\n");
}
if(p->id > current_program_id || p->id <= 0)
- fatal("Program id is wrong.\n");
+ Pike_fatal("Program id is wrong.\n");
if(p->storage_needed < 0)
- fatal("Program->storage_needed < 0.\n");
+ Pike_fatal("Program->storage_needed < 0.\n");
if(p->num_identifier_index > p->num_identifier_references)
- fatal("Too many identifier index entries in program!\n");
+ Pike_fatal("Too many identifier index entries in program!\n");
for(e=0;e<p->num_constants;e++)
{
2179: Inside #if defined(PIKE_DEBUG)
}
if(p->inherits[e].storage_offset < 0)
- fatal("Inherit->storage_offset is wrong.\n");
+ Pike_fatal("Inherit->storage_offset is wrong.\n");
if(p->inherits[e].prog &&
p->inherits[e].storage_offset + STORAGE_NEEDED(p->inherits[e].prog) >
p->storage_needed)
- fatal("Not enough room allocated by inherit!\n");
+ Pike_fatal("Not enough room allocated by inherit!\n");
if(e)
{
if(p->inherits[e-1].storage_offset >
p->inherits[e].storage_offset)
- fatal("Overlapping inherits! (1)\n");
+ Pike_fatal("Overlapping inherits! (1)\n");
if(p->inherits[e-1].prog &&
p->inherits[e-1].inherit_level >= p->inherits[e].inherit_level &&
( p->inherits[e-1].storage_offset +
STORAGE_NEEDED(p->inherits[e-1].prog)) >
p->inherits[e].storage_offset)
- fatal("Overlapping inherits! (3)\n");
+ Pike_fatal("Overlapping inherits! (3)\n");
}
}
2209: Inside #if defined(PIKE_DEBUG)
check_type_string(p->identifiers[e].type);
if(p->identifiers[e].identifier_flags & ~IDENTIFIER_MASK)
- fatal("Unknown flags in identifier flag field.\n");
+ Pike_fatal("Unknown flags in identifier flag field.\n");
if(p->identifiers[e].run_time_type!=T_MIXED)
check_type(p->identifiers[e].run_time_type);
2219: Inside #if defined(PIKE_DEBUG)
if( (p->identifiers[e].func.offset /* + OFFSETOF(object,storage)*/ ) &
(alignof_variable(p->identifiers[e].run_time_type)-1))
{
- fatal("Variable %s offset is not properly aligned (%ld).\n",
+ Pike_fatal("Variable %s offset is not properly aligned (%ld).\n",
p->identifiers[e].name->str,
PTRDIFF_T_TO_LONG(p->identifiers[e].func.offset));
}
2230: Inside #if defined(PIKE_DEBUG)
{
struct identifier *i;
if(p->identifier_references[e].inherit_offset > p->num_inherits)
- fatal("Inherit offset is wrong!\n");
+ Pike_fatal("Inherit offset is wrong!\n");
if(!p->inherits[p->identifier_references[e].inherit_offset].prog)
{
if(!(p->flags & PROGRAM_FINISHED))
continue;
- fatal("p->inherit[%d].prog = NULL!\n",p->identifier_references[e].inherit_offset);
+ Pike_fatal("p->inherit[%d].prog = NULL!\n",p->identifier_references[e].inherit_offset);
}
if(p->identifier_references[e].identifier_offset >
p->inherits[p->identifier_references[e].inherit_offset].prog->num_identifiers)
- fatal("Identifier offset %d is wrong! %d > %d\n",
+ Pike_fatal("Identifier offset %d is wrong! %d > %d\n",
e,
p->identifier_references[e].identifier_offset,
p->inherits[p->identifier_references[e].inherit_offset].prog->num_identifiers);
2257: Inside #if defined(PIKE_DEBUG)
size=sizeof_variable(i->run_time_type);
if((offset+size > (size_t)p->storage_needed) || offset<0)
- fatal("Variable outside storage! (%s)\n",i->name->str);
+ Pike_fatal("Variable outside storage! (%s)\n",i->name->str);
for(q=0;q<size;q++)
{
2280: Inside #if defined(PIKE_DEBUG)
)->run_time_type),
get_name_of_type(i->run_time_type));
if (i->name) {
- fatal("Variable '%s' and '%s' overlap\n"
+ Pike_fatal("Variable '%s' and '%s' overlap\n"
"Offset 0x%08x - 0x%08x overlaps with 0x%08x - 0x%08x\n",
ID_FROM_INT(p, variable_positions[offset+q])->name->str,
i->name->str,
2294: Inside #if defined(PIKE_DEBUG)
)->run_time_type)-1,
offset, offset+size-1);
} else {
- fatal("Variable '%s' and anonymous variable (%d) overlap\n"
+ Pike_fatal("Variable '%s' and anonymous variable (%d) overlap\n"
"Offset 0x%08x - 0x%08x overlaps with 0x%08x - 0x%08x\n",
ID_FROM_INT(p, variable_positions[offset+q])->name->str,
e,
2318: Inside #if defined(PIKE_DEBUG)
for(e=0;e<p->num_identifier_index;e++)
{
if(p->identifier_index[e] > p->num_identifier_references)
- fatal("Program->identifier_indexes[%ld] is wrong\n",(long)e);
+ Pike_fatal("Program->identifier_indexes[%ld] is wrong\n",(long)e);
}
}
2494: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(alignment <=0 || (alignment & (alignment-1)) || alignment > 256)
- fatal("Alignment must be 1,2,4,8,16,32,64,128 or 256 not %ld\n",
+ Pike_fatal("Alignment must be 1,2,4,8,16,32,64,128 or 256 not %ld\n",
PTRDIFF_T_TO_LONG(alignment));
#endif
modulo=( modulo_orig /* +OFFSETOF(object,storage) */ ) % alignment;
2529: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(offset < Pike_compiler->new_program->storage_needed)
- fatal("add_storage failed horribly!\n");
+ Pike_fatal("add_storage failed horribly!\n");
if( (offset /* + OFFSETOF(object,storage) */ - modulo_orig ) % alignment )
- fatal("add_storage failed horribly(2) %ld %ld %ld %ld!\n",
+ Pike_fatal("add_storage failed horribly(2) %ld %ld %ld %ld!\n",
DO_NOT_WARN((long)offset),
(long)0 /* + OFFSETOF(object,storage) */,
DO_NOT_WARN((long)modulo_orig),
2677: Inside #if defined(PIKE_DEBUG)
{
#ifdef PIKE_DEBUG
if(Pike_compiler->new_program->event_handler)
- fatal("Program already has an event handler!\n");
+ Pike_fatal("Program already has an event handler!\n");
#endif
Pike_compiler->new_program->event_handler=cb;
}
2686: Inside #if defined(PIKE_DEBUG)
{
#ifdef PIKE_DEBUG
if(Pike_compiler->new_program->optimize)
- fatal("Program already has an optimize handler!\n");
+ Pike_fatal("Program already has an optimize handler!\n");
#endif
Pike_compiler->new_program->optimize = opt;
}
2766: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(function_name!=debug_findstring(function_name))
- fatal("reference_inherited_function on nonshared string.\n");
+ Pike_fatal("reference_inherited_function on nonshared string.\n");
#endif
p=Pike_compiler->new_program;
2973: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if (p == placeholder_program)
- fatal("Trying to inherit placeholder_program.\n");
+ Pike_fatal("Trying to inherit placeholder_program.\n");
#endif
if(p->flags & PROGRAM_NEEDS_PARENT)
3039: Inside #if 0
for(o=Pike_compiler->fake_object;o!=parent;o=o->parent)
{
#ifdef PIKE_DEBUG
- if(!o) fatal("low_inherit with odd Pike_compiler->fake_object as parent!\n");
+ if(!o) Pike_fatal("low_inherit with odd Pike_compiler->fake_object as parent!\n");
#endif
inherit.parent_offset++;
}
3050: Inside #if defined(PIKE_DEBUG)
{
#ifdef PIKE_DEBUG
if(!state->fake_object)
- fatal("low_inherit with odd Pike_compiler->fake_object as parent!\n");
+ Pike_fatal("low_inherit with odd Pike_compiler->fake_object as parent!\n");
#endif
inherit.parent_offset++;
}
3346: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(Pike_compiler->new_program->flags & (PROGRAM_FIXED | PROGRAM_OPTIMIZED))
- fatal("Attempting to add variable to fixed program\n");
+ Pike_fatal("Attempting to add variable to fixed program\n");
if(Pike_compiler->compiler_pass==2)
- fatal("Internal error: Not allowed to add more identifiers during second compiler pass.\n"
+ Pike_fatal("Internal error: Not allowed to add more identifiers during second compiler pass.\n"
"Added identifier: \"%s\"\n", name->str);
#endif
3447: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(name!=debug_findstring(name))
- fatal("define_variable on nonshared string.\n");
+ Pike_fatal("define_variable on nonshared string.\n");
#endif
#ifdef PROGRAM_BUILD_DEBUG
3481: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(Pike_compiler->new_program->flags & (PROGRAM_FIXED | PROGRAM_OPTIMIZED))
- fatal("Attempting to add variable to fixed program\n");
+ Pike_fatal("Attempting to add variable to fixed program\n");
#endif
if(n != -1)
3647: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(name!=debug_findstring(name))
- fatal("define_constant on nonshared string.\n");
+ Pike_fatal("define_constant on nonshared string.\n");
#endif
do {
3727: Inside #if 0
else {
#if 0
#ifdef PIKE_DEBUG
- if (!c) fatal("Can't declare constant during second compiler pass\n");
+ if (!c) Pike_fatal("Can't declare constant during second compiler pass\n");
#endif
#endif
free_type(id->type);
3747: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(Pike_compiler->new_program->flags & (PROGRAM_FIXED | PROGRAM_OPTIMIZED))
- fatal("Attempting to add constant to fixed program\n");
+ Pike_fatal("Attempting to add constant to fixed program\n");
if(Pike_compiler->compiler_pass==2)
- fatal("Internal error: Not allowed to add more identifiers during second compiler pass.\n");
+ Pike_fatal("Internal error: Not allowed to add more identifiers during second compiler pass.\n");
#endif
copy_shared_string(dummy.name, name);
3813: Inside #if defined(PIKE_DEBUG)
if ((overridden = override_identifier (&ref, name)) >= 0) {
#ifdef PIKE_DEBUG
if(MEMCMP(Pike_compiler->new_program->identifier_references+n, &ref,sizeof(ref)))
- fatal("New constant overriding algorithm failed!\n");
+ Pike_fatal("New constant overriding algorithm failed!\n");
#endif
return overridden;
}
3940:
tmp.subtype=0;
tmp.u.program=end_program();
if(!tmp.u.program)
- fatal("Failed to initialize class '%s'\n",name);
+ Pike_fatal("Failed to initialize class '%s'\n",name);
id=make_shared_binary_string(name,namelen);
ret=add_constant(id, &tmp, flags);
3987: Inside #if defined(PIKE_DEBUG)
if ((lfun_type = low_mapping_string_lookup(lfun_types, name))) {
#ifdef PIKE_DEBUG
if (lfun_type->type != T_TYPE) {
- fatal("Bad entry in lfun_types for key \"%s\"\n", name->str);
+ Pike_fatal("Bad entry in lfun_types for key \"%s\"\n", name->str);
}
#endif /* PIKE_DEBUG */
if (!pike_types_le(type, lfun_type->u.type)) {
4116: Inside #if defined(PIKE_DEBUG)
if ((overridden = override_identifier (&ref, name)) >= 0) {
#ifdef PIKE_DEBUG
if(MEMCMP(Pike_compiler->new_program->identifier_references+i, &ref,sizeof(ref)))
- fatal("New function overloading algorithm failed!\n");
+ Pike_fatal("New function overloading algorithm failed!\n");
#endif
return overridden;
}
4125: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(Pike_compiler->compiler_pass==2)
- fatal("Internal error: Not allowed to add more identifiers during second compiler pass.\n");
+ Pike_fatal("Internal error: Not allowed to add more identifiers during second compiler pass.\n");
#endif
/* define a new function */
4232: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if (!prog) {
- fatal("really_low_find_shared_string_identifier(\"%s\", NULL, %d)\n"
+ Pike_fatal("really_low_find_shared_string_identifier(\"%s\", NULL, %d)\n"
"prog is NULL!\n", name->str, flags);
}
#endif /* PIKE_DEBUG */
4321: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(!funindex)
- fatal("No funindex in fixed program\n");
+ Pike_fatal("No funindex in fixed program\n");
#endif
max = prog->num_identifier_index;
4364: Inside #if defined(PIKE_DEBUG)
{
#ifdef PIKE_DEBUG
if (!prog) {
- fatal("find_shared_string_identifier(): No program!\n"
+ Pike_fatal("find_shared_string_identifier(): No program!\n"
"Identifier: %s%s%s\n",
name?"\"":"", name?name->str:"NULL", name?"\"":"");
}
4624: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
case 127:
- fatal("get_small_number used on filename entry\n");
+ Pike_fatal("get_small_number used on filename entry\n");
#endif
}
*q = (char *)addr;
4668: Inside #if defined(PIKE_DEBUG)
tmp = Pike_compiler->new_program->linenumbers + start;
fprintf(stderr, "0x%p: %02x %02x %02x %02x %02x\n",
tmp, tmp[0], tmp[1], tmp[2], tmp[3], tmp[4]);
- fatal("insert_small_number failed: %d (0x%08x) != %d (0x%08x)\n",
+ Pike_fatal("insert_small_number failed: %d (0x%08x) != %d (0x%08x)\n",
a, a, res, res);
}
}
4677:
void store_linenumber(INT32 current_line, struct pike_string *current_file)
{
- /* if(!store_linenumbers) fatal("Fnord.\n"); */
+ /* if(!store_linenumbers) Pike_fatal("Fnord.\n"); */
#ifdef PIKE_DEBUG
if(a_flag)
{
4731: Inside #if defined(PIKE_DEBUG)
(Pike_compiler->last_file && file &&
memcmp(Pike_compiler->last_file->str, file, len<<shift)))
{
- fatal("Line numbering out of whack\n"
+ Pike_fatal("Line numbering out of whack\n"
" (line : %d ?= %d)!\n"
" ( pc : %d ?= %d)!\n"
" (shift: %d ?= %d)!\n"
4967:
#endif /* HAVE_VSNPRINTF */
if((size_t)strlen(buf) >= (size_t)sizeof(buf))
- fatal("Buffer overflow in my_yyerror.\n");
+ Pike_fatal("Buffer overflow in my_yyerror.\n");
yyerror(buf);
va_end(args);
5009:
struct svalue *save_sp=Pike_sp; \
yyparse(); /* Parse da program */ \
if(save_sp != Pike_sp) \
- fatal("yyparse() left %"PRINTPTRDIFFT"d droppings on the stack!\n", \
+ Pike_fatal("yyparse() left %"PRINTPTRDIFFT"d droppings on the stack!\n", \
Pike_sp - save_sp); \
}while(0)
#else
5058: Inside #if defined(DEBUG_MALLOC)
#ifdef DEBUG_MALLOC
describe(s);
#endif
- fatal("This is not a supporter (addr=%p, magic=%x)!\n",s,s->magic);
+ Pike_fatal("This is not a supporter (addr=%p, magic=%x)!\n",s,s->magic);
}
mark_supporters(s->dependants);
5093:
#endif
if(s->previous && SNUM(s->previous) <= m->level)
- fatal("Que, numbers out of whack1\n");
+ Pike_fatal("Que, numbers out of whack1\n");
if(s->depends_on && SNUM(s->depends_on) <= m->level)
- fatal("Que, numbers out of whack2\n");
+ Pike_fatal("Que, numbers out of whack2\n");
for(ss=s->dependants;ss;ss=ss->next_dependant) {
if (ss->depends_on != s)
- fatal("Dependant hasn't got depends_on set properly.\n");
+ Pike_fatal("Dependant hasn't got depends_on set properly.\n");
if(SNUM(ss) >= m->level)
- fatal("Que, numbers out of whack3\n");
+ Pike_fatal("Que, numbers out of whack3\n");
}
low_verify_supporters(s->previous);
5167: Inside #if defined(PIKE_DEBUG)
int ret=0;
#ifdef PIKE_DEBUG
if(c != current_supporter)
- fatal("Previous unlink failed.\n");
+ Pike_fatal("Previous unlink failed.\n");
#endif
debug_malloc_touch(c);
verify_supporters();
5176: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
struct Supporter *s;
for (s = c->depends_on->dependants; s; s = s->next_dependant)
- if (s == c) fatal("Dependant already linked in.\n");
+ if (s == c) Pike_fatal("Dependant already linked in.\n");
#endif
ret++;
c->next_dependant = c->depends_on->dependants;
5322:
case 1: lex.current_lexer = yylex1; break;
case 2: lex.current_lexer = yylex2; break;
default:
- fatal("Program has bad shift %d!\n", c->prog->size_shift);
+ Pike_fatal("Program has bad shift %d!\n", c->prog->size_shift);
break;
}
5352: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(Pike_compiler->num_used_modules)
- fatal("Failed to pop modules properly.\n");
+ Pike_fatal("Failed to pop modules properly.\n");
#endif
Pike_compiler->num_used_modules = c->num_used_modules_save ;
5486: Inside #if defined(PIKE_DEBUG)
} else {
#ifdef PIKE_DEBUG
if (c->placeholder->prog != c->p)
- fatal("Placeholder object got wrong program after first pass.\n");
+ Pike_fatal("Placeholder object got wrong program after first pass.\n");
#endif
debug_malloc_touch(c->placeholder);
c->placeholder->storage=c->p->storage_needed ?
5540: Inside #if 0 /* FIXME */
debug_malloc_touch(c->placeholder);
#if 0 /* FIXME */
if (threads_disabled != c->saved_threads_disabled) {
- fatal("compile(): threads_disabled:%d saved_threads_disabled:%d\n",
+ Pike_fatal("compile(): threads_disabled:%d saved_threads_disabled:%d\n",
threads_disabled, c->saved_threads_disabled);
}
#endif /* PIKE_DEBUG */
5606: Inside #if defined(PIKE_DEBUG)
/* Initialize the placeholder. */
#ifdef PIKE_DEBUG
if (c->placeholder->prog != c->p)
- fatal("Placeholder object got wrong program after second pass.\n");
+ Pike_fatal("Placeholder object got wrong program after second pass.\n");
#endif
if(SETJMP(rec))
{
5649: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
if(cc->supporter.dependants)
- fatal("Que???\n");
+ Pike_fatal("Que???\n");
#endif
if(cc->p) {
ok = finish;
5857: Inside #if defined(PIKE_DEBUG) and #if defined(FIND_FUNCTION_HASHSIZE)
{
check_string(cache[e].name);
if(cache[e].id<0 || cache[e].id > current_program_id)
- fatal("Error in find_function_cache[%ld].id\n",(long)e);
+ Pike_fatal("Error in find_function_cache[%ld].id\n",(long)e);
if(cache[e].fun < -1 || cache[e].fun > 65536)
- fatal("Error in find_function_cache[%ld].fun\n",(long)e);
+ Pike_fatal("Error in find_function_cache[%ld].fun\n",(long)e);
}
}
}
6233: Inside #if defined(GC2) and #if defined(PIKE_DEBUG)
struct program *p;
struct program_state *ps;
if (first_program && first_program->prev)
- fatal("Error in program link list.\n");
+ Pike_fatal("Error in program link list.\n");
for (p = first_program; p; p = p->next) {
debug_gc_touch(p);
n++;
if (p->next && p->next->prev != p)
- fatal("Error in program link list.\n");
+ Pike_fatal("Error in program link list.\n");
}
return n;
}
6341: Inside #if defined(GC2) and #if defined(PIKE_DEBUG)
for (p = first_program; p != gc_internal_program; p = p->next) {
int e,tmp=0;
if (!p)
- fatal("gc_internal_program was bogus.\n");
+ Pike_fatal("gc_internal_program was bogus.\n");
for(e=0;e<p->num_constants;e++)
{
if(p->constants[e].sval.type == T_PROGRAM && p->constants[e].sval.u.program == p)
6417: Inside #if defined(PIKE_DEBUG)
f=Pike_compiler->compiler_frame;
#ifdef PIKE_DEBUG
if(!f)
- fatal("Popping out of compiler frames\n");
+ Pike_fatal("Popping out of compiler frames\n");
#endif
low_pop_local_variables(0);
6452: Inside #if defined(PIKE_DEBUG)
hval%=GET_STORAGE_CACHE_SIZE;
#ifdef PIKE_DEBUG
if(hval>GET_STORAGE_CACHE_SIZE)
- fatal("hval>GET_STORAGE_CACHE_SIZE");
+ Pike_fatal("hval>GET_STORAGE_CACHE_SIZE");
#endif
if(get_storage_cache[hval].oid == oid &&
get_storage_cache[hval].pid == pid)
6559: Inside #if defined(PIKE_DEBUG)
h= h % FIND_CHILD_HASHSIZE;
#ifdef PIKE_DEBUG
if(h>=FIND_CHILD_HASHSIZE)
- fatal("find_child failed to hash within boundaries.\n");
+ Pike_fatal("find_child failed to hash within boundaries.\n");
#endif
if(find_child_cache[h].pid == parent->id &&
find_child_cache[h].cid == child->id)
6598:
va_end(args);
if(strlen(buf)>sizeof(buf))
- fatal("Buffer overflow in yywarning!\n");
+ Pike_fatal("Buffer overflow in yywarning!\n");
if ((error_handler && error_handler->prog) || get_master()) {
ref_push_string(lex.current_file);
6668: Inside #if defined(PIKE_DEBUG)
hval %= IMPLEMENTS_CACHE_SIZE;
#ifdef PIKE_DEBUG
if(hval >= IMPLEMENTS_CACHE_SIZE)
- fatal("Implements_cache failed!\n");
+ Pike_fatal("Implements_cache failed!\n");
#endif
if(implements_cache[hval].aid==a->id && implements_cache[hval].bid==b->id)
{
6750: Inside #if defined(PIKE_DEBUG)
hval %= IMPLEMENTS_CACHE_SIZE;
#ifdef PIKE_DEBUG
if(hval >= IMPLEMENTS_CACHE_SIZE)
- fatal("Implements_cache failed!\n");
+ Pike_fatal("Implements_cache failed!\n");
#endif
if(is_compatible_cache[hval].aid==aid &&
is_compatible_cache[hval].bid==bid)
6768: Inside #if defined(PIKE_DEBUG)
rhval %= IMPLEMENTS_CACHE_SIZE;
#ifdef PIKE_DEBUG
if(rhval >= IMPLEMENTS_CACHE_SIZE)
- fatal("Implements_cache failed!\n");
+ Pike_fatal("Implements_cache failed!\n");
#endif
if(implements_cache[rhval].aid==bid &&
implements_cache[rhval].bid==aid &&