Branch: Tag:

1999-08-17

1999-08-17 03:17:06 by Martin Stjernholm <mast@lysator.liu.se>

Allow indexing with strings only when they got subtype in
simple_array_index_no_free().

Rev: src/array.c:1.51

21:   #include "main.h"   #include "security.h"    - RCSID("$Id: array.c,v 1.50 1999/08/17 01:04:20 mast Exp $"); + RCSID("$Id: array.c,v 1.51 1999/08/17 03:17:06 mast Exp $");      struct array empty_array=   {
182:    break;       case T_STRING: +  if (ind->subtype == 1) {    check_stack(4);    ref_push_array(a);    assign_svalue_no_free(sp++,ind);
189:    s[0]=sp[-1];    sp--;    break; +  }       default:    {