pike.git/
src/
operators.c
Branch:
Tag:
Non-build tags
All tags
No tags
1998-10-12
1998-10-12 22:55:10 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
b987f93faf7cf53ce34dbc941d0fcc189d13cdb3 (
5
lines) (+
3
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
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); }