minor adaption: index array with int, not long

This commit is contained in:
ceriel 1987-08-19 15:27:15 +00:00
parent 7dc04a3207
commit 9bcd5473ad

View file

@ -405,7 +405,7 @@ eval_t compute(pexp) register expr_p pexp; {
leaf2.e_v.e_con < 0 ||
leaf2.e_v.e_con >= MAXROM)
return(undefres);
res.e_v.e_con = sp->s_rom[leaf2.e_v.e_con];
res.e_v.e_con = sp->s_rom[(int)(leaf2.e_v.e_con)];
break;
} else
return(undefres);