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

15:   #include "array.h"   #include "multiset.h"   #include "dynamic_buffer.h" - #include "error.h" + #include "pike_error.h"   #include "operators.h"   #include "builtin_functions.h"   #include "module_support.h"
25:   #include "version.h"   #include "bignum.h"    - RCSID("$Id: encode.c,v 1.77 2000/11/08 20:03:45 hubbe Exp $"); + RCSID("$Id: encode.c,v 1.78 2000/12/01 08:09:46 hubbe Exp $");      /* #define ENCODE_DEBUG */   
271:    switch(EXTRACT_UCHAR(t++))    {    default: -  fatal("error in type string.\n"); +  fatal("Pike_error in type string.\n");    /*NOTREACHED*/       break;
398:       case T_TYPE:    if (data->canonic) -  error("Canonical encoding of the type type not supported.\n"); -  error("Encoding of the type type not supported yet!\n"); +  Pike_error("Canonical encoding of the type type not supported.\n"); +  Pike_error("Encoding of the type type not supported yet!\n");    break;       case T_FLOAT:
469:    * long as they aren't handled deterministically by the    * sort function. */    /* They should be hanled deterministically now - Hubbe */ -  error("Canonical encoding requires basic types in indices.\n"); +  Pike_error("Canonical encoding requires basic types in indices.\n");    }    order = get_switch_order(Pike_sp[-2].u.array);    order_array(Pike_sp[-2].u.array, order);
496:    /* This doesn't let bignums through. That's necessary as    * long as they aren't handled deterministically by the    * sort function. */ -  error("Canonical encoding requires basic types in indices.\n"); +  Pike_error("Canonical encoding requires basic types in indices.\n");    }    check_stack(1);    ref_push_array(val->u.multiset->ind);
528: Inside #if defined(AUTO_BIGNUM)
   push_int(36);    apply(val->u.object,"digits",1);    if(Pike_sp[-1].type != T_STRING) -  error("Gmp.mpz->digits did not return a string!\n"); +  Pike_error("Gmp.mpz->digits did not return a string!\n");    encode_value2(Pike_sp-1, data);    pop_stack();    break;
536:   #endif       if (data->canonic) -  error("Canonical encoding of objects not supported.\n"); +  Pike_error("Canonical encoding of objects not supported.\n");    push_svalue(val);    apply(data->codec, "nameof", 1);    switch(Pike_sp[-1].type)
568:       case T_FUNCTION:    if (data->canonic) -  error("Canonical encoding of functions not supported.\n"); +  Pike_error("Canonical encoding of functions not supported.\n");    check_stack(1);    push_svalue(val);    apply(data->codec,"nameof", 1);
616:    {    int d;    if (data->canonic) -  error("Canonical encoding of programs not supported.\n"); +  Pike_error("Canonical encoding of programs not supported.\n");    check_stack(1);    push_svalue(val);    apply(data->codec,"nameof", 1);    if(Pike_sp[-1].type == val->type) -  error("Error in master()->nameof(), same type returned.\n"); +  Pike_error("Error in master()->nameof(), same type returned.\n");    if(Pike_sp[-1].type == T_INT && Pike_sp[-1].subtype == NUMBER_UNDEFINED)    {    INT32 e;    struct program *p=val->u.program;    if(p->init || p->exit || p->gc_recurse_func || p->gc_check_func ||    (p->flags & PROGRAM_HAS_C_METHODS)) -  error("Cannot encode C programs.\n"); +  Pike_error("Cannot encode C programs.\n");    code_entry(type_to_tag(val->type), 1,data);    f_version(0);    encode_value2(Pike_sp-1,data);
797:   static int my_extract_char(struct decode_data *data)   {    if(data->ptr >= data->len) -  error("Format error, not enough data in string.\n"); +  Pike_error("Format Pike_error, not enough data in string.\n");    return data->data [ data->ptr++ ];   }   
841:    INT32 what, e, num, numh; \    DECODE("decode_entry"); \    if((what & TAG_MASK) != (X)) \ -  error("Failed to decode, wrong bits (%d).\n", what & TAG_MASK); \ +  Pike_error("Failed to decode, wrong bits (%d).\n", what & TAG_MASK); \    (Y)=num; \    } while(0);      #define getdata2(S,L) do { \    if(data->ptr + (ptrdiff_t)(sizeof(S[0])*(L)) > data->len) \ -  error("Failed to decode string. (string range error)\n"); \ +  Pike_error("Failed to decode string. (string range Pike_error)\n"); \    MEMCPY((S),(data->data + data->ptr), sizeof(S[0])*(L)); \    data->ptr+=sizeof(S[0])*(L); \    }while(0)
870:    DECODE("get_string_data"); \    what &= TAG_MASK; \    if(data->ptr + num > data->len || num <0) \ -  error("Failed to decode string. (string range error)\n"); \ +  Pike_error("Failed to decode string. (string range Pike_error)\n"); \    if(what<0 || what>2) \ -  error("Failed to decode string. (Illegal size shift)\n"); \ +  Pike_error("Failed to decode string. (Illegal size shift)\n"); \    STR=begin_wide_shared_string(num, what); \    MEMCPY(STR->str, data->data + data->ptr, num << what); \    data->ptr+=(num << what); \
880:    STR=end_shared_string(STR); \    }else{ \    if(data->ptr + (LEN) > data->len || (LEN) <0) \ -  error("Failed to decode string. (string range error)\n"); \ +  Pike_error("Failed to decode string. (string range Pike_error)\n"); \    STR=make_shared_binary_string((char *)(data->data + data->ptr), (LEN)); \    data->ptr+=(LEN); \    } \
906:    break; \    \    default: \ -  error("Failed to decode string, tag is wrong: %d\n", \ +  Pike_error("Failed to decode string, tag is wrong: %d\n", \    what & TAG_MASK); \    } \   }while(0)
963:    switch(tmp)    {    default: -  fatal("error in type string.\n"); +  fatal("Pike_error in type string.\n");    /*NOTREACHED*/    break;   
1042:    {    struct program *prog;    if (Pike_sp[-1].subtype == FUNCTION_BUILTIN) { -  error("Failed to decode object type.\n"); +  Pike_error("Failed to decode object type.\n");    }    prog = program_from_svalue(Pike_sp-1);    if (!prog) { -  error("Failed to decode object type.\n"); +  Pike_error("Failed to decode object type.\n");    }    push_type_int(prog->id);    }    break;       default: -  error("Failed to decode type " +  Pike_error("Failed to decode type "    "(object(%s), expected object(zero|program)).\n",    get_name_of_type(Pike_sp[-1].type));    }
1101:    {    push_svalue(tmp2);    }else{ -  error("Failed to decode string. (invalid T_AGAIN)\n"); +  Pike_error("Failed to decode string. (invalid T_AGAIN)\n");    }    return;   
1145:       case TAG_TYPE:    { -  error("Failed to decode string. " +  Pike_error("Failed to decode string. "    "(decode of the type type isn't supported yet).\n");    break;    }
1154:    {    struct array *a;    if(num < 0) -  error("Failed to decode string. (array size is negative)\n"); +  Pike_error("Failed to decode string. (array size is negative)\n");       /* Heruetical */    if(data->ptr + num > data->len) -  error("Failed to decode array. (not enough data)\n"); +  Pike_error("Failed to decode array. (not enough data)\n");       tmp.type=T_ARRAY;    tmp.u.array=a=allocate_array(num);
1186:    {    struct mapping *m;    if(num<0) -  error("Failed to decode string. (mapping size is negative)\n"); +  Pike_error("Failed to decode string. (mapping size is negative)\n");       /* Heruetical */    if(data->ptr + num > data->len) -  error("Failed to decode mapping. (not enough data)\n"); +  Pike_error("Failed to decode mapping. (not enough data)\n");       m=allocate_mapping(num);    tmp.type=T_MAPPING;
1215:    struct multiset *m;    struct array *a;    if(num<0) -  error("Failed to decode string. (multiset size is negative)\n"); +  Pike_error("Failed to decode string. (multiset size is negative)\n");       /* Heruetical */    if(data->ptr + num > data->len) -  error("Failed to decode multiset. (not enough data)\n"); +  Pike_error("Failed to decode multiset. (not enough data)\n");       /* NOTE: This code knows stuff about the implementation of multisets...*/    a = low_allocate_array(num, 0);
1274:    push_svalue(Pike_sp-1);    decode_value2(data);    if(!data->codec) -  error("Failed to decode (no codec)\n"); +  Pike_error("Failed to decode (no codec)\n");    apply(data->codec,"decode_object",2);    pop_stack();    }    if(data->pickyness && Pike_sp[-1].type != T_OBJECT) -  error("Failed to decode object.\n"); +  Pike_error("Failed to decode object.\n");    return;      #ifdef AUTO_BIGNUM
1302:   #endif       default: -  error("Object coding not compatible.\n"); +  Pike_error("Object coding not compatible.\n");    break;    }    if(data->pickyness && Pike_sp[-1].type != T_OBJECT) -  error("Failed to decode (got type %d; expected object).\n", +  Pike_error("Failed to decode (got type %d; expected object).\n",    Pike_sp[-1].type);    break;   
1339:    break;       default: -  error("Function coding not compatible.\n"); +  Pike_error("Function coding not compatible.\n");    break;    }    if(data->pickyness && Pike_sp[-1].type != T_FUNCTION) -  error("Failed to decode function.\n"); +  Pike_error("Failed to decode function.\n");    break;      
1358:    data->counter.u.integer++;    decode_value2(data);    -  /* Keep the value so that we can make a good error-message. */ +  /* Keep the value so that we can make a good Pike_error-message. */    prog_code = Pike_sp-1;    stack_dup();   
1374:    if ((prog_code->type == T_STRING) &&    (prog_code->u.string->len < 128) &&    (!prog_code->u.string->size_shift)) { -  error("Failed to decode program \"%s\".\n", +  Pike_error("Failed to decode program \"%s\".\n",    prog_code->u.string->str);    } -  error("Failed to decode program.\n"); +  Pike_error("Failed to decode program.\n");    }    /* Remove the extra entry from the stack. */    stack_swap();
1410:    decode_value2(data);    f_version(0);    if(!is_eq(Pike_sp-1,Pike_sp-2)) -  error("Cannot decode programs encoded with other driver version.\n"); +  Pike_error("Cannot decode programs encoded with other driver version.\n");    pop_n_elems(2);       decode_number(p->flags,data);
1473:    if(p->identifier_index[d] > p->num_identifier_references)    {    p->identifier_index[d]=0; -  error("Malformed program in decode.\n"); +  Pike_error("Malformed program in decode.\n");    }    }   
1483:    if(p->variable_index[d] > p->num_identifiers)    {    p->variable_index[d]=0; -  error("Malformed program in decode.\n"); +  Pike_error("Malformed program in decode.\n");    }    }   
1493:    if(p->identifier_references[d].inherit_offset > p->num_inherits)    {    p->identifier_references[d].inherit_offset=0; -  error("Malformed program in decode.\n"); +  Pike_error("Malformed program in decode.\n");    }    decode_number(p->identifier_references[d].identifier_offset,data);    decode_number(p->identifier_references[d].id_flags,data);
1524:    {    if(Pike_sp[-1].type != T_PROGRAM ||    Pike_sp[-1].u.program != p) -  error("Program decode failed!\n"); +  Pike_error("Program decode failed!\n");    p->refs--;    }   
1532:    {    case T_FUNCTION:    if(Pike_sp[-1].subtype == FUNCTION_BUILTIN) -  error("Failed to decode parent.\n"); +  Pike_error("Failed to decode parent.\n");       p->inherits[d].parent_identifier=Pike_sp[-1].subtype;    p->inherits[d].prog=program_from_svalue(Pike_sp-1);    if(!p->inherits[d].prog) -  error("Failed to decode parent.\n"); +  Pike_error("Failed to decode parent.\n");    add_ref(p->inherits[d].prog);    p->inherits[d].parent=Pike_sp[-1].u.object;    Pike_sp--;
1550:    dmalloc_touch_svalue(Pike_sp);    break;    default: -  error("Failed to decode inheritance.\n"); +  Pike_error("Failed to decode inheritance.\n");    }       getdata3(p->inherits[d].name);
1616:    }       default: -  error("Cannot decode program encoding type %d\n",num); +  Pike_error("Cannot decode program encoding type %d\n",num);    }    break;       default: -  error("Failed to restore string. (Illegal type)\n"); +  Pike_error("Failed to restore string. (Illegal type)\n");    }       mapping_insert(data->decoded, & tmp, Pike_sp-1);
1668:      static unsigned char extract_char(char **v, ptrdiff_t *l)   { -  if(!*l) error("Format error, not enough place for char.\n"); +  if(!*l) Pike_error("Format Pike_error, not enough place for char.\n");    else (*l)--;    (*v)++;    return ((unsigned char *)(*v))[-1];
1683:    if(j & 0x80) return (j & 0x7f);       if((j & ~8) > 4) -  error("Format Error: Error in format string, invalid integer.\n"); +  Pike_error("Format Error: Error in format string, invalid integer.\n");    i=0;    while(j & 7) { i=(i<<8) | extract_char(v,l); j--; }    if(j & 8) return -i;
1704:       case TAG_FLOAT:    if(sizeof(ptrdiff_t) < sizeof(FLOAT_TYPE)) /* FIXME FIXME FIXME FIXME */ -  error("Float architecture not supported.\n"); +  Pike_error("Float architecture not supported.\n");    push_int(DO_NOT_WARN(t)); /* WARNING! */    Pike_sp[-1].type = T_FLOAT;    return;       case TAG_TYPE: -  error("Format error:decoding of the type type not supported yet.\n"); +  Pike_error("Format Pike_error:decoding of the type type not supported yet.\n");    return;       case TAG_STRING: -  if(t<0) error("Format error, length of string is negative.\n"); -  if(*l < t) error("Format error, string to short\n"); +  if(t<0) Pike_error("Format Pike_error, length of string is negative.\n"); +  if(*l < t) Pike_error("Format Pike_error, string to short\n");    push_string(make_shared_binary_string(*v, t));    (*l)-= t;    (*v)+= t;    return;       case TAG_ARRAY: -  if(t<0) error("Format error, length of array is negative.\n"); +  if(t<0) Pike_error("Format Pike_error, length of array is negative.\n");    check_stack(t);    for(i=0;i<t;i++) rec_restore_value(v,l);    f_aggregate(DO_NOT_WARN(t));    return;       case TAG_MULTISET: -  if(t<0) error("Format error, length of multiset is negative.\n"); +  if(t<0) Pike_error("Format Pike_error, length of multiset is negative.\n");    check_stack(t);    for(i=0;i<t;i++) rec_restore_value(v,l);    f_aggregate_multiset(DO_NOT_WARN(t));    return;       case TAG_MAPPING: -  if(t<0) error("Format error, length of mapping is negative.\n"); +  if(t<0) Pike_error("Format Pike_error, length of mapping is negative.\n");    check_stack(t*2);    for(i=0;i<t;i++)    {
1747:    return;       case TAG_OBJECT: -  if(t<0) error("Format error, length of object is negative.\n"); -  if(*l < t) error("Format error, string to short\n"); +  if(t<0) Pike_error("Format Pike_error, length of object is negative.\n"); +  if(*l < t) Pike_error("Format Pike_error, string to short\n");    push_string(make_shared_binary_string(*v, t));    (*l) -= t; (*v) += t;    APPLY_MASTER("objectof", 1);    return;       case TAG_FUNCTION: -  if(t<0) error("Format error, length of function is negative.\n"); -  if(*l < t) error("Format error, string to short\n"); +  if(t<0) Pike_error("Format Pike_error, length of function is negative.\n"); +  if(*l < t) Pike_error("Format Pike_error, string to short\n");    push_string(make_shared_binary_string(*v, t));    (*l) -= t; (*v) += t;    APPLY_MASTER("functionof", 1);    return;       case TAG_PROGRAM: -  if(t<0) error("Format error, length of program is negative.\n"); -  if(*l < t) error("Format error, string to short\n"); +  if(t<0) Pike_error("Format Pike_error, length of program is negative.\n"); +  if(*l < t) Pike_error("Format Pike_error, string to short\n");    push_string(make_shared_binary_string(*v, t));    (*l) -= t; (*v) += t;    APPLY_MASTER("programof", 1);    return;       default: -  error("Format error. Unknown type tag %ld:%ld\n", +  Pike_error("Format Pike_error. Unknown type tag %ld:%ld\n",    PTRDIFF_T_TO_LONG(i), PTRDIFF_T_TO_LONG(t));    }   }