pike.git/ src/ builtin_functions.c

2008-05-03

2008-05-03 15:29:26 by Martin Nilsson <mani@lysator.liu.se>

• c6b604ac1add4ea0416c7bf65f6dec3ca5b68c7b (23 lines) (+17/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

Put all illegal size shift fatals behind ifdef PIKE_DEBUG.

Rev: src/builtin.cmod:1.199
Rev: src/builtin_functions.c:1.660
Rev: src/cpp.c:1.169
Rev: src/encode.c:1.265
Rev: src/iterators.cmod:1.66
Rev: src/operators.c:1.231
Rev: src/preprocessor.h:1.93
Rev: src/program.c:1.683
Rev: src/sscanf.c:1.172
Rev: src/stralloc.c:1.217

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: builtin_functions.c,v 1.659 2008/05/02 04:15:09 mast Exp $ + || $Id: builtin_functions.c,v 1.660 2008/05/03 15:29:24 nilsson Exp $   */      #include "global.h"
336:    case 2:    i = simple_hashmem2(STR2(s), s->len, 100);    break; + #ifdef PIKE_DEBUG    default:    Pike_fatal("hash(): Unsupported string shift: %d\n", s->size_shift);    break; -  + #endif    }       if(args > 1)
498:    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: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \ +  DO_IF_DEBUG( default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); ) \    } \    }} \    } while(0)
513:    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: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \ +  DO_IF_DEBUG( default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); ) \    } \    }} \    } while(0)
528:    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: Pike_fatal("upper_case(): Unknown case_info mode: %d\n", ci->mode); \ +  DO_IF_DEBUG( default: Pike_fatal("upper_case(): Unknown case_info mode: %d\n", ci->mode); ) \    } \    }} \    } while(0)
543:    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: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); \ +  DO_IF_DEBUG( default: Pike_fatal("lower_case(): Unknown case_info mode: %d\n", ci->mode); ) \    } \    }} \    } while(0)
609:    while(i--) {    DO_LOWER_CASE(str[i]);    } + #ifdef PIKE_DEBUG    } else {    Pike_fatal("lower_case(): Bad string shift:%d\n", orig->size_shift); -  + #endif    }       pop_n_elems(args);
706:    while(i--) {    DO_UPPER_CASE(str[i]);    } + #ifdef PIKE_DEBUG    } else {    Pike_fatal("lower_case(): Bad string shift:%d\n", orig->size_shift); -  + #endif    }       pop_n_elems(args);
901:    }    }    break; + #ifdef PIKE_DEBUG    default:    Pike_fatal("search(): Unsupported string shift: %d!\n",    haystack->size_shift);    break; -  + #endif    }    if (start >= haystack->len) {    start = -1;
1607:    out = end_shared_string(out);    }    break; + #ifdef PIKE_DEBUG    default: -  Pike_error("string_to_unicode(): Bad string shift: %d!\n", in->size_shift); +  Pike_fatal("string_to_unicode(): Bad string shift: %d!\n", in->size_shift);    break; -  + #endif    }    pop_n_elems(args);    push_string(out);