Branch: Tag:

1998-10-09

1998-10-09 17:56:33 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

some wide-char support

Rev: src/cpp.c:1.29
Rev: src/lex.c:1.56
Rev: src/opcodes.c:1.30
Rev: src/pike_memory.c:1.25
Rev: src/pike_memory.h:1.5
Rev: src/stralloc.c:1.39
Rev: src/stralloc.h:1.18
Rev: src/svalue.c:1.38

22:   #include "builtin_functions.h"   #include "module_support.h"    - RCSID("$Id: opcodes.c,v 1.29 1998/07/04 16:56:14 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.30 1998/10/09 17:56:32 hubbe Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
57:    if(i<0 || i>=what->u.string->len)    error("Index %d is out of range 0 - %d.\n", i, what->u.string->len-1);    else -  i=EXTRACT_UCHAR(what->u.string->str + i); +  i=index_shared_string(what->u.string,i);    to->type=T_INT;    to->subtype=NUMBER_NUMBER;    to->u.integer=i;