2002-08-15
2002-08-15 14:50:28 by Marcus Comstedt <marcus@mc.pp.se>
-
5aad93d0f00ff6eaf5b329826eb84e35b67fc4b4
(55 lines)
(+28/-27)
[
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: builtin_functions.c,v 1.434 2002/08/06 14:18:57 grubba Exp $");
+ RCSID("$Id: builtin_functions.c,v 1.435 2002/08/15 14:49:19 marcus Exp $");
#include "interpret.h"
#include "svalue.h"
#include "pike_macros.h"
105:
{
struct array *a;
#ifdef PIKE_DEBUG
- if(args < 0) fatal("Negative args to f_aggregate() (%d)\n",args);
+ if(args < 0) Pike_fatal("Negative args to f_aggregate() (%d)\n",args);
#endif
a=aggregate_array(args);
317:
case CIM_UPPERDELTA: C = c + ci->data; break; \
case CIM_CASEBIT: C = c | ci->data; break; \
case CIM_CASEBITOFF: C = ((c - ci->data) | ci->data) + ci->data; break; \
- default: fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \
+ default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \
} \
} \
} while(0)
331:
case CIM_UPPERDELTA: C = c + ci->data; break; \
case CIM_CASEBIT: C = c | ci->data; break; \
case CIM_CASEBITOFF: C = ((c - ci->data) | ci->data) + ci->data; break; \
- default: fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \
+ default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \
} \
} \
} while(0)
345:
case CIM_LOWERDELTA: C = c - ci->data; break; \
case CIM_CASEBIT: C = c & ~ci->data; break; \
case CIM_CASEBITOFF: C = ((c - ci->data)& ~ci->data) + ci->data; break; \
- default: fatal("upper_case(): Unknown case_info mode: %d\n", ci->mode); \
+ default: Pike_fatal("upper_case(): Unknown case_info mode: %d\n", ci->mode); \
} \
} \
} while(0)
359:
case CIM_LOWERDELTA: C = c - ci->data; break; \
case CIM_CASEBIT: C = c & ~ci->data; break; \
case CIM_CASEBITOFF: C = ((c - ci->data)& ~ci->data) + ci->data; break; \
- default: fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \
+ default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \
} \
} \
} while(0)
407:
DO_LOWER_CASE(str[i]);
}
} else {
- fatal("lower_case(): Bad string shift:%d\n", orig->size_shift);
+ Pike_fatal("lower_case(): Bad string shift:%d\n", orig->size_shift);
}
pop_n_elems(args);
461:
DO_UPPER_CASE(str[i]);
}
} else {
- fatal("lower_case(): Bad string shift:%d\n", orig->size_shift);
+ Pike_fatal("lower_case(): Bad string shift:%d\n", orig->size_shift);
}
pop_n_elems(args);
643:
}
break;
default:
- fatal("search(): Unsupported string shift: %d!\n",
+ Pike_fatal("search(): Unsupported string shift: %d!\n",
haystack->size_shift);
break;
}
1086:
{
if(count_args(CDR(n)) != 1) return 0;
if(do_docode(CDR(n),DO_NOT_COPY) != 1)
- fatal("Count args was wrong in generate_zero_type().\n");
+ Pike_fatal("Count args was wrong in generate_zero_type().\n");
emit0(F_ZERO_TYPE);
return 1;
}
1130: Inside #if defined(PIKE_DEBUG)
if (d_flag) {
for(i = len; i--;) {
if (out->str[i]) {
- fatal("MEMSET didn't clear byte %ld of %ld\n",
+ Pike_fatal("MEMSET didn't clear byte %ld of %ld\n",
PTRDIFF_T_TO_LONG(i+1),
PTRDIFF_T_TO_LONG(len));
}
1218: Inside #if defined(PIKE_DEBUG)
}
#ifdef PIKE_DEBUG
if (j) {
- fatal("string_to_unicode(): Indexing error: len:%ld, j:%ld.\n",
+ Pike_fatal("string_to_unicode(): Indexing error: len:%ld, j:%ld.\n",
PTRDIFF_T_TO_LONG(len), PTRDIFF_T_TO_LONG(j));
}
#endif /* PIKE_DEBUG */
1516: Inside #if defined(PIKE_DEBUG)
}
#ifdef PIKE_DEBUG
if (len != j) {
- fatal("string_to_utf8(): Calculated and actual lengths differ: "
+ Pike_fatal("string_to_utf8(): Calculated and actual lengths differ: "
"%ld != %ld\n",
PTRDIFF_T_TO_LONG(len), PTRDIFF_T_TO_LONG(j));
}
1673: Inside #if defined(PIKE_DEBUG)
}
#ifdef PIKE_DEBUG
if (j != len) {
- fatal("utf8_to_string(): Calculated and actual lengths differ: %d != %d\n",
+ Pike_fatal("utf8_to_string(): Calculated and actual lengths differ: %d != %d\n",
len, j);
}
#endif /* PIKE_DEBUG */
1905: Inside #if defined(PIKE_DEBUG)
int level;
#ifdef PIKE_DEBUG
if (CDR (n)->u.sval.type != T_INT || CDR (n)->u.sval.u.integer < 0)
- fatal ("The type check for this_object() failed.\n");
+ Pike_fatal ("The type check for this_object() failed.\n");
#endif
level = CDR (n)->u.sval.u.integer;
if (level > compilation_depth) {
1945: Inside #if defined(PIKE_DEBUG)
else {
#ifdef PIKE_DEBUG
if (CDR (n)->u.sval.type != T_INT || CDR (n)->u.sval.u.integer < 0)
- fatal ("The type check for this_object() failed.\n");
+ Pike_fatal ("The type check for this_object() failed.\n");
#endif
level = CDR (n)->u.sval.u.integer;
#ifdef PIKE_DEBUG
if (level > compilation_depth)
- fatal ("this_object level too high. "
+ Pike_fatal ("this_object level too high. "
"Expected this to be caught by optimize_this_object.\n");
#endif
}
4329: Inside #if defined(PIKE_DEBUG)
}
#ifdef PIKE_DEBUG
if (Pike_sp[-1].type != T_ARRAY) {
- fatal("parse_format(): Unexpected result from low_parse_format()\n");
+ Pike_fatal("parse_format(): Unexpected result from low_parse_format()\n");
}
#endif /* PIKE_DEBUG */
a = (--Pike_sp)->u.array;
5011: Inside #if defined(PIKE_DEBUG)
#endif /* DIFF_DEBUG */
#ifdef PIKE_DEBUG
if (x >= blen) {
- fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen);
+ Pike_fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen);
} else if (x < 0) {
- fatal("diff_longest_sequence(): x:%d < 0\n", x);
+ Pike_fatal("diff_longest_sequence(): x:%d < 0\n", x);
}
#endif /* PIKE_DEBUG */
if (!marks[x]) {
5054: Inside #if defined(PIKE_DEBUG)
#endif /* DIFF_DEBUG */
#ifdef PIKE_DEBUG
if (x >= blen) {
- fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen);
+ Pike_fatal("diff_longest_sequence(): x:%d >= blen:%d\n", x, blen);
} else if (x < 0) {
- fatal("diff_longest_sequence(): x:%d < 0\n", x);
+ Pike_fatal("diff_longest_sequence(): x:%d < 0\n", x);
}
#endif /* PIKE_DEBUG */
5321: Inside #if defined(PIKE_DEBUG)
while(dml) {
#ifdef PIKE_DEBUG
if (i >= sz) {
- fatal("Consistency error in diff_dyn_longest_sequence()\n");
+ Pike_fatal("Consistency error in diff_dyn_longest_sequence()\n");
}
#endif /* PIKE_DEBUG */
#ifdef DIFF_DEBUG
5335: Inside #if defined(PIKE_DEBUG)
}
#ifdef PIKE_DEBUG
if (i != sz) {
- fatal("Consistency error in diff_dyn_longest_sequence()\n");
+ Pike_fatal("Consistency error in diff_dyn_longest_sequence()\n");
}
#endif /* PIKE_DEBUG */
6165:
INT32 i,j,k;
#ifdef PIKE_DEBUG
- if(args < 0) fatal("Negative args to f_splice()\n");
+ if(args < 0) Pike_fatal("Negative args to f_splice()\n");
#endif
for(i=0;i<args;i++)
6212:
struct array *ina;
INT32 size=0;
#ifdef PIKE_DEBUG
- if(args < 0) fatal("Negative args to f_everynth()\n");
+ if(args < 0) Pike_fatal("Negative args to f_everynth()\n");
#endif
check_all_args("everynth", args,
6257:
INT32 j,i;
TYPE_FIELD type=0;
#ifdef PIKE_DEBUG
- if(args < 0) fatal("Negative args to f_transpose()\n");
+ if(args < 0) Pike_fatal("Negative args to f_transpose()\n");
#endif
if (args<1)