2002-03-02
2002-03-02 18:47:39 by Martin Stjernholm <mast@lysator.liu.se>
-
9abda43092cb296dcc8ea5f1cc2c74a50fa4a288
(10 lines)
(+8/-2)
[
Show
| Annotate
]
Branch: 7.9
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;