From b987f93faf7cf53ce34dbc941d0fcc189d13cdb3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 12 Oct 1998 15:55:10 -0700
Subject: [PATCH] fix for string index assignment
Rev: src/operators.c:1.42
---
src/operators.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/operators.c b/src/operators.c
index 481f4028b2..ce21f31d9f 100644
--- a/src/operators.c
+++ b/src/operators.c
@@ -5,7 +5,7 @@
\*/
#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,7 +1850,7 @@ static void f_string_assignment_index(INT32 args)
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);
}
--
GitLab