Branch: Tag:

2018-02-12

2018-02-12 21:49:35 by Marcus Comstedt <marcus@mc.pp.se>

Fix spelling of FALLTHRU directive

The non-standard spelling "FALL_THROUGH" is not recognized by gcc 7.3.
Also, the comment must not contain any other text, or be placed inside
braces.

322:    case PIKE_T_AUTO:    if (!car)    break; -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_ARRAY:    case T_MULTISET:    case T_NOT:
606: Inside #if defined(DEBUG_MALLOC)
      case T_ASSIGN:    t->flags |= PT_FLAG_ASSIGN_0 << PTR_TO_INT(car); -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_SCOPE:    debug_malloc_pass(cdr);    break;
856:    free_type(t1);    return;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_FUNCTION:    case T_MANY:    case T_TUPLE:
881:    type = T_TYPE;    }    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_ARRAY:    case T_MULTISET:    case T_NOT:
2543:    TYPE_T tmp = compile_type_to_runtime_type(t->car);    if(tmp == compile_type_to_runtime_type(t->cdr))    return tmp; -  -  /* FALL_THROUGH */ +     } -  +  /* FALLTHRU */ +     case T_TUPLE:    /* FIXME: Shouldn't occur/should be converted to array? */ -  /* FALL_THROUGH */ +  /* FALLTHRU */    default:    return T_MIXED;   
2736:    ret = 1;    break;    } -  /* FALL_THOUGH */ +  /* FALLTHRU */    default:   #if 0    if (pike_types_le(t1, t2)) {
2874:    free_type(top);    break;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    default:    if (t < top) {    Pike_compiler->type_stackp--;
3916: Inside #if defined(TYPE_GROUPING)
  #ifdef TYPE_GROUPING    flags |= LE_A_GROUPED;   #endif -  /* FALL_THROUGH */ +  /* FALLTHRU */    case PIKE_T_NAME:    a = a->cdr;    goto recurse;
4123: Inside #if defined(TYPE_GROUPING)
  #ifdef TYPE_GROUPING    flags |= LE_B_GROUPED;   #endif -  /* FALL_THROUGH */ +  /* FALLTHRU */    case PIKE_T_NAME:    b = b->cdr;    goto recurse;
4421:    }    }    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case TWOT(T_MANY, T_MANY):    /* check the 'many' type */    if ((a->car->type != T_VOID) && (b->car->type != T_VOID)) {
4704:    while(a->type == T_FUNCTION) {    a = a->cdr;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_MANY:    a = a->cdr;    push_finished_type_with_markers(a, a_markers, 0);
4842:    }    }    } -  /* FALL_THROUGH */ +  /* FALLTHRU */       default:    add_ref(mixed_type_string);
5335:    if(low_match_types(string_type_string, index_type, 0) &&    low_check_indexing(type->car, index_type, n))    return 1; -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_STRING:    return !!low_match_types(int_type_string, index_type, 0);   
5382:    ;    if (!type) return 0;    -  /* FALL_THROUGH */ +  /* FALLTHRU */       case T_MANY:    type = type->cdr;
5390:    return 0;    /* function(... : object(is foo)) -- ie probably program(foo). */    -  /* FALL_THROUGH */ +  /* FALLTHRU */       case T_INT:    case T_PROGRAM:
5447:    num++;    q = q->cdr;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_MANY:    q = q->car;    if(q->type != T_VOID) return ~num;
5577:    fun = fun->cdr;    goto loop;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_MANY:    if (arg_no < 0) {    add_ref(fun->cdr);
5810:    /* FIXME: Multiple cases. */    soft_type = function_type_string;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_FUNCTION:    case T_MANY:    {
6365:    * Program does not have the lfun `()(). NULL    */    -  /* FALL_THROUGH */ +  /* FALLTHRU */    case PIKE_T_MIXED:    copy_pike_type(res, mixed_type_string);    break;
6641:    * Program does not have the lfun `()(). NULL    */    -  /* FALL_THROUGH */ +  /* FALLTHRU */    case PIKE_T_MIXED:    copy_pike_type(res, mixed_type_string);    break;
7104:    * Program does not have the lfun `()().    */    -  /* FALL_THROUGH */ +  /* FALLTHRU */    case PIKE_T_MIXED:    copy_pike_type(res, mixed_type_string);    break;
7227:    push_type(arg_type->type);    return pop_unfinished_type();    } -  /* FALL_THROUGH */ +  /* FALLTHRU */       case T_ARRAY:    case T_MULTISET:
7256:    if (!(flags & FILTER_KEEP_VOID)) {    return NULL;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    default:    break;    }
7389:    * Program does not have the lfun `()().    */    -  /* FALL_THROUGH */ +  /* FALLTHRU */    case PIKE_T_MIXED:    copy_pike_type(res, mixed_type_string);    break;
7402:    res = NULL;    break;    } -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_MANY:    if ((res = fun_type->car)->type == T_VOID) {    res = NULL;
8256:    case T_OR:    case T_AND:    /* Order independant */ -  /* FALL_THROUGH */ +  /* FALLTHRU */       case T_MANY:    case T_TUPLE:
8289:    case '8':    case '9':    /* Marker type */ -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_FLOAT:    case T_MIXED:    case T_VOID:
8868:    case PIKE_T_RING:    res = find_type(t->car, cb);    if (res) return res; -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_SCOPE:    case T_ASSIGN:    case PIKE_T_ATTRIBUTE:
8937:    case T_AND:    case PIKE_T_RING:    visit_type_ref (t->car, REF_TYPE_INTERNAL, extra); -  /* FALL_THROUGH */ +  /* FALLTHRU */    case T_SCOPE:    case T_ASSIGN:    visit_type_ref (t->cdr, REF_TYPE_INTERNAL, extra);