Branch: Tag:

1998-10-12

1998-10-12 22:55:10 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

fix for string index assignment

Rev: src/operators.c:1.42

5:   \*/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.41 1998/10/11 11:18:52 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.42 1998/10/12 22:55:10 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1850:    if(i<0 || i>=THIS->s->len)    error("Index %d is out of range 0 - %d.\n", i, THIS->s->len-1);    else -  i=EXTRACT_UCHAR(THIS->s->str + i); +  i=index_shared_string(THIS->s,i);    pop_n_elems(args);    push_int(i);   }