#include "block.h"
#include "objfiles.h"
#include "valprint.h"
-#include "f-lang.h"
#include <ctype.h>
return;
}
- case OP_F90_RANGE:
+ case OP_RANGE:
{
- enum f90_range_type range_type;
+ enum range_type range_type;
- range_type = (enum f90_range_type)
+ range_type = (enum range_type)
longest_to_int (exp->elts[pc + 1].longconst);
*pos += 2;
elt += 2;
}
break;
- case OP_F90_RANGE:
+ case OP_RANGE:
{
- enum f90_range_type range_type;
+ enum range_type range_type;
- range_type = (enum f90_range_type)
+ range_type = (enum range_type)
longest_to_int (exp->elts[elt].longconst);
elt += 2;