Branch: Tag:

2002-03-02

2002-03-02 18:47:39 by Martin Stjernholm <mast@lysator.liu.se>

Fixed lower unbounded case labels. (It's listless to fix the upper unbounded
case but not this, I think.) Some clean up of the switch handling in
docode.c.

Rev: src/docode.c:1.140
Rev: src/language.yacc:1.272
Rev: src/las.c:1.282
Rev: src/opcodes.h:1.26
Rev: src/treeopt.in:1.68

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.281 2002/02/06 17:23:24 grubba Exp $"); + RCSID("$Id: las.c,v 1.282 2002/03/02 18:47:38 mast Exp $");      #include "language.h"   #include "interpret.h"
252:    return count_args(CAR(n));       case F_CASE: +  case F_CASE_RANGE:    case F_FOR:    case F_DO:    case F_LOOP:
1040:       case F_DEFAULT:    case F_CASE: +  case F_CASE_RANGE:    res->node_info |= OPT_CASE;    break;   
3781:    copy_pike_type(n->type, void_type_string);    break;    -  case F_CASE: +  case F_CASE_RANGE:    if (CDR(n) && CAR(n) && !TEST_COMPAT(0,6)) {    /* case 1 .. 2: */    if (!match_types(CAR(n)->type, CDR(n)->type)) {
3810:    }    }    /* FALL_THROUGH */ +  case F_CASE:    case F_INC_LOOP:    case F_DEC_LOOP:    case F_DEC_NEQ_LOOP:
4223: Inside #if defined(SHARED_NODES) && !defined(IN_TPIKE)
      case F_DEFAULT:    case F_CASE: +  case F_CASE_RANGE:    {    int i;   
4534: Inside #if defined(SHARED_NODES) && !defined(IN_TPIKE)
      case F_DEFAULT:    case F_CASE: +  case F_CASE_RANGE:    {    int i;