Branch: Tag:

2000-12-01

2000-12-01 08:10:41 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

renamed error (and error.h) to Pike_error

Rev: src/array.c:1.97
Rev: src/backend.c:1.61
Rev: src/bignum.c:1.19
Rev: src/block_alloc.h:1.26
Rev: src/builtin_functions.c:1.318
Rev: src/callback.c:1.21
Rev: src/constants.c:1.24
Rev: src/cpp.c:1.78
Rev: src/cyclic.h:1.5
Rev: src/docode.c:1.86
Rev: src/dynamic_buffer.c:1.13
Rev: src/dynamic_load.c:1.47
Rev: src/encode.c:1.78
Rev: src/error.c:1.65
Rev: src/fd_control.c:1.34
Rev: src/fdlib.c:1.47
Rev: src/fsort.c:1.15
Rev: src/gc.c:1.143
Rev: src/hashtable.c:1.8
Rev: src/interpret.c:1.176
Rev: src/interpret.h:1.69
Rev: src/interpret_functions.h:1.34
Rev: src/interpreter.h:1.52
Rev: src/las.c:1.226
Rev: src/lex.c:1.85
Rev: src/lexer.h:1.24
Rev: src/main.c:1.108
Rev: src/mapping.c:1.112
Rev: src/module.c:1.12
Rev: src/module_support.c:1.38
Rev: src/modules/CommonLog/clf.c:1.5
Rev: src/modules/Gdbm/gdbmmod.c:1.12
Rev: src/modules/Gettext/gettext.c:1.6
Rev: src/modules/Gmp/mpz_glue.c:1.83
Rev: src/modules/Gz/gz_test.c:1.4
Rev: src/modules/Gz/zlibmod.c:1.32
Rev: src/modules/HTTPLoop/accept_and_parse.c:1.21
Rev: src/modules/HTTPLoop/log.c:1.9
Rev: src/modules/HTTPLoop/requestobject.c:1.16
Rev: src/modules/Image/blit.c:1.49
Rev: src/modules/Image/colors.c:1.41
Rev: src/modules/Image/colortable.c:1.101
Rev: src/modules/Image/colortable.h:1.23
Rev: src/modules/Image/colortable_lookup.h:1.15
Rev: src/modules/Image/dct.c:1.17
Rev: src/modules/Image/encodings/_xpm.c:1.15
Rev: src/modules/Image/encodings/any.c:1.20
Rev: src/modules/Image/encodings/avs.c:1.12
Rev: src/modules/Image/encodings/bmp.c:1.30
Rev: src/modules/Image/encodings/dsi.c:1.3
Rev: src/modules/Image/encodings/gd.c:1.5
Rev: src/modules/Image/encodings/hrz.c:1.6
Rev: src/modules/Image/encodings/iff.c:1.9
Rev: src/modules/Image/encodings/ilbm.c:1.21
Rev: src/modules/Image/encodings/pcx.c:1.14
Rev: src/modules/Image/encodings/png.c:1.40
Rev: src/modules/Image/encodings/pnm.c:1.24
Rev: src/modules/Image/encodings/psd.c:1.26
Rev: src/modules/Image/encodings/pvr.c:1.12
Rev: src/modules/Image/encodings/ras.c:1.13
Rev: src/modules/Image/encodings/tga.c:1.25
Rev: src/modules/Image/encodings/tim.c:1.11
Rev: src/modules/Image/encodings/wbf.c:1.7
Rev: src/modules/Image/encodings/x.c:1.35
Rev: src/modules/Image/encodings/xbm.c:1.12
Rev: src/modules/Image/encodings/xcf.c:1.34
Rev: src/modules/Image/encodings/xwd.c:1.19
Rev: src/modules/Image/font.c:1.66
Rev: src/modules/Image/image.c:1.182
Rev: src/modules/Image/image.h:1.45
Rev: src/modules/Image/image_module.c:1.9
Rev: src/modules/Image/layers.c:1.58
Rev: src/modules/Image/match.h:1.11
Rev: src/modules/Image/matrix.c:1.30
Rev: src/modules/Image/operator.c:1.34
Rev: src/modules/Image/orient.c:1.18
Rev: src/modules/Image/pattern.c:1.23
Rev: src/modules/Image/phase.h:1.3
Rev: src/modules/Image/poly.c:1.11
Rev: src/modules/Image/polyfill.c:1.36
Rev: src/modules/Image/search.c:1.19
Rev: src/modules/Java/jvm.c:1.30
Rev: src/modules/MIME/mime.c:1.27
Rev: src/modules/Math/math_matrix.c:1.19
Rev: src/modules/Mird/mird_glue.c:1.10
Rev: src/modules/Msql/msqlmod.c:1.15
Rev: src/modules/Mysql/mysql.c:1.38
Rev: src/modules/Mysql/precompiled_mysql.h:1.10
Rev: src/modules/Mysql/result.c:1.17
Rev: src/modules/Odbc/odbc.c:1.23
Rev: src/modules/Odbc/odbc_result.c:1.24
Rev: src/modules/Oracle/oracle.c:1.51
Rev: src/modules/Parser/html.c:1.120
Rev: src/modules/Parser/parser.c:1.11
Rev: src/modules/Perl/perlmod.c:1.22
Rev: src/modules/Pipe/pipe.c:1.44
Rev: src/modules/Postgres/pgresult.c:1.15
Rev: src/modules/Postgres/postgres.c:1.20
Rev: src/modules/Regexp/glue.c:1.19
Rev: src/modules/Regexp/pike_regexp.c:1.20
Rev: src/modules/SANE/sane.c:1.8
Rev: src/modules/Ssleay/ssleay.c:1.13
Rev: src/modules/Yp/yp.c:1.20
Rev: src/modules/_Charset/charsetmod.c:1.25
Rev: src/modules/_Charset/iso2022.c:1.20
Rev: src/modules/_Crypto/arcfour.c:1.13
Rev: src/modules/_Crypto/cast.c:1.9
Rev: src/modules/_Crypto/cbc.c:1.18
Rev: src/modules/_Crypto/crypto.c:1.40
Rev: src/modules/_Crypto/des.c:1.18
Rev: src/modules/_Crypto/idea.c:1.16
Rev: src/modules/_Crypto/invert.c:1.11
Rev: src/modules/_Crypto/md2.c:1.10
Rev: src/modules/_Crypto/md5.c:1.15
Rev: src/modules/_Crypto/nt.c:1.7
Rev: src/modules/_Crypto/pipe.c:1.19
Rev: src/modules/_Crypto/rijndael.c:1.4
Rev: src/modules/_Crypto/rsa.c:1.24
Rev: src/modules/_Crypto/sha.c:1.18
Rev: src/modules/_Image_GIF/image_gif.c:1.2
Rev: src/modules/_Image_JPEG/image_jpeg.c:1.36
Rev: src/modules/_Image_TIFF/image_tiff.c:1.22
Rev: src/modules/_Image_TTF/image_ttf.c:1.37
Rev: src/modules/_Image_XFace/image_xface.c:1.14
Rev: src/modules/_Roxen/roxen.c:1.7
Rev: src/modules/_math/math.c:1.34
Rev: src/modules/call_out/call_out.c:1.40
Rev: src/modules/files/efuns.c:1.88
Rev: src/modules/files/file.c:1.204
Rev: src/modules/files/sendfile.c:1.50
Rev: src/modules/files/socket.c:1.52
Rev: src/modules/files/stat.c:1.15
Rev: src/modules/files/termios.c:1.10
Rev: src/modules/files/udp.c:1.18
Rev: src/modules/spider/discdate.c:1.8
Rev: src/modules/spider/spider.c:1.101
Rev: src/modules/spider/stardate.c:1.11
Rev: src/modules/spider/xml.c:1.29
Rev: src/modules/sprintf/sprintf.c:1.74
Rev: src/modules/sybase/sybase.c:1.5
Rev: src/modules/sybase/sybase.h:1.2
Rev: src/modules/system/nt.c:1.28
Rev: src/modules/system/syslog.c:1.10
Rev: src/modules/system/system.c:1.94
Rev: src/multiset.c:1.30
Rev: src/object.c:1.154
Rev: src/opcodes.c:1.95
Rev: src/operators.c:1.113
Rev: src/peep.c:1.42
Rev: src/pike_memory.c:1.93
Rev: src/pike_search.c:1.4
Rev: src/pike_types.c:1.143
Rev: src/port.c:1.34
Rev: src/post_modules/GL/auto.c.in:1.16
Rev: src/post_modules/GL/top.c:1.13
Rev: src/post_modules/GLUT/auto.c.in:1.3
Rev: src/post_modules/GLUT/top.c:1.4
Rev: src/post_modules/GTK/source/encode_truecolor.c:1.4
Rev: src/post_modules/GTK/source/support.c:1.19
Rev: src/preprocessor.h:1.35
Rev: src/program.c:1.283
Rev: src/queue.c:1.7
Rev: src/security.c:1.28
Rev: src/security.h:1.12
Rev: src/signal_handler.c:1.185
Rev: src/smartlink.c:1.11
Rev: src/stralloc.c:1.109
Rev: src/svalue.c:1.89
Rev: src/svalue.h:1.71
Rev: src/threads.c:1.147
Rev: src/threads.h:1.107

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.82 2000/08/24 17:05:38 grubba Exp $"); + RCSID("$Id: mpz_glue.c,v 1.83 2000/12/01 08:09:57 hubbe Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
26:   #include "stralloc.h"   #include "object.h"   #include "pike_types.h" - #include "error.h" + #include "pike_error.h"   #include "builtin_functions.h"   #include "opcodes.h"   #include "module_support.h"
121:    }       if (mpz_set_str(tmp, digits->str + offset, base)) -  error("invalid digits, cannot convert to mpz\n"); +  Pike_error("invalid digits, cannot convert to mpz\n");       if(neg)    mpz_neg(tmp, tmp);
143:    }    else    { -  error("invalid base.\n"); +  Pike_error("invalid base.\n");    }   }   
165:    && s->u.object->prog != bignum_program   #endif    ) -  error("Wrong type of object, cannot convert to mpz.\n"); +  Pike_error("Wrong type of object, cannot convert to mpz.\n");       mpz_set(tmp, OBTOMPZ(s->u.object));    break;
178: Inside #if 0
   if ( (s->u.array->size != 2)    || (ITEM(s->u.array)[0].type != T_STRING)    || (ITEM(s->u.array)[1].type != T_INT)) -  error("cannot convert array to mpz.\n"); +  Pike_error("cannot convert array to mpz.\n");    get_mpz_from_digits(tmp, ITEM(s->u.array)[0].u.string,    ITEM(s->u.array)[1]);    break;   #endif    default: -  error("cannot convert argument to mpz.\n"); +  Pike_error("cannot convert argument to mpz.\n");    }   }   
207:       case 2: /* Args are string of digits and integer base */    if(sp[-args].type != T_STRING) -  error("bad argument 1 for Mpz->create()\n"); +  Pike_error("bad argument 1 for Mpz->create()\n");       if (sp[1-args].type != T_INT) -  error("wrong type for base in Mpz->create()\n"); +  Pike_error("wrong type for base in Mpz->create()\n");       get_mpz_from_digits(THIS, sp[-args].u.string, sp[1-args].u.integer);    break;       default: -  error("Too many arguments to Mpz->create()\n"); +  Pike_error("Too many arguments to Mpz->create()\n");       case 0:    break; /* Needed by AIX cc */
272:   #endif       if (mpz_sgn(mpz) < 0) -  error("only non-negative numbers can be converted to base 256.\n"); +  Pike_error("only non-negative numbers can be converted to base 256.\n");   #if 0    len = (mpz_sizeinbase(mpz, 2) + 7) / 8;    s = begin_shared_string(len);
321:    }    else    { -  error("invalid base.\n"); +  Pike_error("invalid base.\n");    return 0; /* Make GCC happy */    }   
346:    else    {    if (sp[-args].type != T_INT) -  error("Bad argument 1 for Mpz->digits().\n"); +  Pike_error("Bad argument 1 for Mpz->digits().\n");    base = sp[-args].u.integer;    }   
363:    INT_TYPE flag_left;       if(args < 1 || sp[-args].type != T_INT) -  error("Bad argument 1 for Mpz->_sprintf().\n"); +  Pike_error("Bad argument 1 for Mpz->_sprintf().\n");    if(args < 2 || sp[1-args].type != T_MAPPING) -  error("Bad argument 2 for Mpz->_sprintf().\n"); +  Pike_error("Bad argument 2 for Mpz->_sprintf().\n");       push_svalue(&sp[1-args]);    push_constant_text("precision");    f_index(2);    if(sp[-1].type != T_INT) -  error("\"precision\" argument to Mpz->_sprintf() is not an integer.\n"); +  Pike_error("\"precision\" argument to Mpz->_sprintf() is not an integer.\n");    precision = (--sp)->u.integer;       push_svalue(&sp[1-args]);    push_constant_text("width");    f_index(2);    if(sp[-1].type != T_INT) -  error("\"width\" argument to Mpz->_sprintf() is not an integer.\n"); +  Pike_error("\"width\" argument to Mpz->_sprintf() is not an integer.\n");    width_undecided = ((sp-1)->subtype != NUMBER_NUMBER);    width = (--sp)->u.integer;   
386:    push_constant_text("flag_left");    f_index(2);    if(sp[-1].type != T_INT) -  error("\"flag_left\" argument to Mpz->_sprintf() is not an integer.\n"); +  Pike_error("\"flag_left\" argument to Mpz->_sprintf() is not an integer.\n");    flag_left=sp[-1].u.integer;    pop_stack();   
523:   static void mpzmod__is_type(INT32 args)   {    if(args < 1 || sp[-args].type != T_STRING) -  error("Bad argument 1 for Mpz->_is_type().\n"); +  Pike_error("Bad argument 1 for Mpz->_is_type().\n");       pop_n_elems(args-1);    push_constant_text("int");
541:    else    {    if (sp[-args].type != T_INT) -  error("bad argument 1 for Mpz->size()\n"); +  Pike_error("bad argument 1 for Mpz->size()\n");    base = sp[-args].u.integer;    if ((base != 256) && ((base < 2) || (base > 36))) -  error("invalid base\n"); +  Pike_error("invalid base\n");    }    pop_n_elems(args);   
559:    struct pike_string *s;       if(args < 1) -  error("mpz->cast() called without arguments.\n"); +  Pike_error("mpz->cast() called without arguments.\n");    if(sp[-args].type != T_STRING) -  error("Bad argument 1 to mpz->cast().\n"); +  Pike_error("Bad argument 1 to mpz->cast().\n");       s = sp[-args].u.string;    add_ref(s);
613:       }    -  push_string(s); /* To get it freed when error() pops the stack. */ +  push_string(s); /* To get it freed when Pike_error() pops the stack. */    -  error("mpz->cast() to \"%s\" is other type than string, int or float.\n", +  Pike_error("mpz->cast() to \"%s\" is other type than string, int or float.\n",    s->str);   }   
629:   /* Converts an svalue, located on the stack, to an mpz object */   static MP_INT *debug_get_mpz(struct svalue *s, int throw_error)   { - #define MPZ_ERROR(x) if (throw_error) error(x) + #define MPZ_ERROR(x) if (throw_error) Pike_error(x)    struct object *o;    switch(s->type)    {
702:    s->u.object->prog == bignum_program)    return mpz_get_d(OBTOMPZ(s->u.object));    default: -  error("Bad argument, expected a number of some sort.\n"); +  Pike_error("Bad argument, expected a number of some sort.\n");    }    /* NOT_REACHED */    return (double)0.0; /* Keep the compiler happy. */
906:    MP_INT *a;       if(args!=1) -  error("Gmp.mpz->``- called with more or less than one argument.\n"); +  Pike_error("Gmp.mpz->``- called with more or less than one argument.\n");       a=get_mpz(sp-1,1);   
926:    {    if(sp[e-args].type != T_INT || sp[e-args].u.integer<=0)    if (!mpz_sgn(get_mpz(sp+e-args, 1))) -  error("Division by zero.\n"); +  Pike_error("Division by zero.\n");    }       res = fast_clone_object(THIS_PROGRAM, 0);
948:    MP_INT *a;    struct object *res = NULL;    if(!mpz_sgn(THIS)) -  error("Division by zero.\n"); +  Pike_error("Division by zero.\n");       if(args!=1) -  error("Gmp.mpz->``/() called with more than one argument.\n"); +  Pike_error("Gmp.mpz->``/() called with more than one argument.\n");       a=get_mpz(sp-1,1);   
968:       for(e=0;e<args;e++)    if (!mpz_sgn(get_mpz(sp+e-args, 1))) -  error("Division by zero.\n"); +  Pike_error("Division by zero.\n");       res = fast_clone_object(THIS_PROGRAM, 0);    mpz_set(OBTOMPZ(res), THIS);
984:    MP_INT *a;    struct object *res = NULL;    if(!mpz_sgn(THIS)) -  error("Modulo by zero.\n"); +  Pike_error("Modulo by zero.\n");       if(args!=1) -  error("Gmp.mpz->``%%() called with more than one argument.\n"); +  Pike_error("Gmp.mpz->``%%() called with more than one argument.\n");       a=get_mpz(sp-1,1);   
1004:    MP_INT *a;       if (args != 1) -  error("Gmp.mpz->gcdext: Wrong number of arguments.\n"); +  Pike_error("Gmp.mpz->gcdext: Wrong number of arguments.\n");       a = get_mpz(sp-1, 1);   
1024:    MP_INT *a;       if (args != 1) -  error("Gmp.mpz->gcdext: Wrong number of arguments.\n"); +  Pike_error("Gmp.mpz->gcdext: Wrong number of arguments.\n");       a = get_mpz(sp-args, 1);   
1043:    struct object *res;       if (args != 1) -  error("Gmp.mpz->invert: wrong number of arguments.\n"); +  Pike_error("Gmp.mpz->invert: wrong number of arguments.\n");    modulo = get_mpz(sp-args, 1);    if (!mpz_sgn(modulo)) -  error("divide by zero\n"); +  Pike_error("divide by zero\n");    res = fast_clone_object(THIS_PROGRAM, 0);    if (mpz_invert(OBTOMPZ(res), THIS, modulo) == 0)    {    free_object(res); -  error("Gmp.mpz->invert: not invertible\n"); +  Pike_error("Gmp.mpz->invert: not invertible\n");    }    pop_n_elems(args);    PUSH_REDUCED(res);
1091:   static void name(INT32 args) \   { \    INT32 i; \ -  if(!args) error("Comparison with one argument?\n"); \ +  if(!args) Pike_error("Comparison with one argument?\n"); \    i=mpz_cmp(THIS, get_mpz(sp-args, 1)) cmp 0; \    pop_n_elems(args); \    push_int(i); \
1102:   { \    INT32 i; \    MP_INT *arg; \ -  if(!args) error("Comparison with one argument?\n"); \ +  if(!args) Pike_error("Comparison with one argument?\n"); \    if (!(arg = get_mpz(sp-args, 0))) \    i = default; \    else \
1126:    get_all_args("Gmp.mpz->probably_prime_p", args, "%i", &count);    count = sp[-1].u.integer;    if (count <= 0) -  error("Gmp.mpz->probably_prime_p: count argument must be positive.\n"); +  Pike_error("Gmp.mpz->probably_prime_p: count argument must be positive.\n");    } else    count = 25;    pop_n_elems(args);
1141:    {    get_all_args("Gmp.mpz->small_factor", args, "%i", &limit);    if (limit < 1) -  error("Gmp.mpz->small_factor: limit argument must be at least 1.\n"); +  Pike_error("Gmp.mpz->small_factor: limit argument must be at least 1.\n");    }    else    limit = INT_MAX;
1186:    struct object *o = 0; /* Make gcc happy. */    pop_n_elems(args);    if(mpz_sgn(THIS)<0) -  error("mpz->sqrt() on negative number.\n"); +  Pike_error("mpz->sqrt() on negative number.\n");       o=fast_clone_object(THIS_PROGRAM,0);    mpz_sqrt(OBTOMPZ(o), THIS);
1199:       pop_n_elems(args);    if(mpz_sgn(THIS)<0) -  error("mpz->sqrtrem() on negative number.\n"); +  Pike_error("mpz->sqrtrem() on negative number.\n");       root = fast_clone_object(THIS_PROGRAM,0);    rem = fast_clone_object(THIS_PROGRAM,0);
1212:   {    struct object *res = NULL;    if (args != 1) -  error("Wrong number of arguments to Gmp.mpz->`<<.\n"); +  Pike_error("Wrong number of arguments to Gmp.mpz->`<<.\n");    ref_push_string(int_type_string);    stack_swap();    f_cast();    if(sp[-1].u.integer < 0) -  error("mpz->lsh on negative number.\n"); +  Pike_error("mpz->lsh on negative number.\n");    res = fast_clone_object(THIS_PROGRAM, 0);    mpz_mul_2exp(OBTOMPZ(res), THIS, sp[-1].u.integer);    pop_n_elems(args);
1228:   {    struct object *res = NULL;    if (args != 1) -  error("Wrong number of arguments to Gmp.mpz->`>>.\n"); +  Pike_error("Wrong number of arguments to Gmp.mpz->`>>.\n");    ref_push_string(int_type_string);    stack_swap();    f_cast();    if (sp[-1].u.integer < 0) -  error("Gmp.mpz->rsh: Shift count must be positive.\n"); +  Pike_error("Gmp.mpz->rsh: Shift count must be positive.\n");    res = fast_clone_object(THIS_PROGRAM, 0);    mpz_fdiv_q_2exp(OBTOMPZ(res), THIS, sp[-1].u.integer);    pop_n_elems(args);
1245:    struct object *res = NULL;    INT32 i;    if (args != 1) -  error("Wrong number of arguments to Gmp.mpz->``<<.\n"); +  Pike_error("Wrong number of arguments to Gmp.mpz->``<<.\n");    get_mpz(sp-1,1);    i=mpz_get_si(THIS);    if(i < 0) -  error("mpz->``<< on negative number.\n"); +  Pike_error("mpz->``<< on negative number.\n");       res = fast_clone_object(THIS_PROGRAM, 0);    mpz_mul_2exp(OBTOMPZ(res), OBTOMPZ(sp[-1].u.object), i);
1262:    struct object *res = NULL;    INT32 i;    if (args != 1) -  error("Wrong number of arguments to Gmp.mpz->``>>.\n"); +  Pike_error("Wrong number of arguments to Gmp.mpz->``>>.\n");    get_mpz(sp-1,1);    i=mpz_get_si(THIS);    if(i < 0) -  error("mpz->``>> on negative number.\n"); +  Pike_error("mpz->``>> on negative number.\n");    res = fast_clone_object(THIS_PROGRAM, 0);    mpz_fdiv_q_2exp(OBTOMPZ(res), OBTOMPZ(sp[-1].u.object), i);    pop_n_elems(args);
1279:    MP_INT *n;       if(args != 2) -  error("Wrong number of arguments to Gmp.mpz->powm()\n"); +  Pike_error("Wrong number of arguments to Gmp.mpz->powm()\n");       n = get_mpz(sp - 1, 1);    if (!mpz_sgn(n)) -  error("Gmp.mpz->powm: Divide by zero\n"); +  Pike_error("Gmp.mpz->powm: Divide by zero\n");    res = fast_clone_object(THIS_PROGRAM, 0);    mpz_powm(OBTOMPZ(res), THIS, get_mpz(sp - 2, 1), n);    pop_n_elems(args);
1295:    struct object *res = NULL;       if (args != 1) -  error("Gmp.mpz->pow: Wrong number of arguments.\n"); +  Pike_error("Gmp.mpz->pow: Wrong number of arguments.\n");    if (sp[-1].type != T_INT) -  error("Gmp.mpz->pow: Non int exponent.\n"); +  Pike_error("Gmp.mpz->pow: Non int exponent.\n");    if (sp[-1].u.integer < 0) -  error("Gmp.mpz->pow: Negative exponent.\n"); +  Pike_error("Gmp.mpz->pow: Negative exponent.\n");    res = fast_clone_object(THIS_PROGRAM, 0);    mpz_pow_ui(OBTOMPZ(res), THIS, sp[-1].u.integer);    pop_n_elems(args);
1339:   {    struct object *res = NULL;    if (args != 2) -  error("Gmp.pow: Wrong number of arguments"); +  Pike_error("Gmp.pow: Wrong number of arguments");    if ( (sp[-2].type != T_INT) || (sp[-2].u.integer < 0)    || (sp[-1].type != T_INT) || (sp[-1].u.integer < 0)) -  error("Gmp.pow: Negative arguments"); +  Pike_error("Gmp.pow: Negative arguments");    res = fast_clone_object(mpzmod_program, 0);    mpz_ui_pow_ui(OBTOMPZ(res), sp[-2].u.integer, sp[-1].u.integer);    pop_n_elems(args);
1353:   {    struct object *res = NULL;    if (args != 1) -  error("Gmp.fac: Wrong number of arguments.\n"); +  Pike_error("Gmp.fac: Wrong number of arguments.\n");    if (sp[-1].type != T_INT) -  error("Gmp.fac: Non int argument.\n"); +  Pike_error("Gmp.fac: Non int argument.\n");    if (sp[-1].u.integer < 0) -  error("Gmp.mpz->pow: Negative exponent.\n"); +  Pike_error("Gmp.mpz->pow: Negative exponent.\n");    res = fast_clone_object(mpzmod_program, 0);    mpz_fac_ui(OBTOMPZ(res), sp[-1].u.integer);    pop_n_elems(args);
1369:    struct object *res = 0; /* Make gcc happy. */    pop_n_elems(args);    if(mpz_sgn(THIS) <= 0) -  error("random on negative number.\n"); +  Pike_error("random on negative number.\n");       res=fast_clone_object(THIS_PROGRAM,0);    /* We add two to assure reasonably uniform randomness */