Branch: Tag:

2000-11-24

2000-11-24 05:41:02 by Martin Stjernholm <mast@lysator.liu.se>

Fixed missing type checks when casting int arrays to strings with
shift 2.

Rev: src/opcodes.c:1.93

26:   #include "bignum.h"   #include "operators.h"    - RCSID("$Id: opcodes.c,v 1.92 2000/11/12 10:18:49 sigge Exp $"); + RCSID("$Id: opcodes.c,v 1.93 2000/11/24 05:41:02 mast Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
328:    shift = 1;    if (val > 0xffff) {    shift = 2; +  while(i--) +  if (a->item[i].type != T_INT) +  error("cast: Item %d is not an integer.\n", i);    break;    }    while(i--) {
337:    val = (unsigned INT32)a->item[i].u.integer;    if (val > 0xffff) {    shift = 2; +  while(i--) +  if (a->item[i].type != T_INT) +  error("cast: Item %d is not an integer.\n", i);    break;    }    }