diff options
Diffstat (limited to 'ext/tk/tkutil/tkutil.c')
-rw-r--r-- | ext/tk/tkutil/tkutil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/tk/tkutil/tkutil.c b/ext/tk/tkutil/tkutil.c index 1a3720523e..7dbbc0dbd0 100644 --- a/ext/tk/tkutil/tkutil.c +++ b/ext/tk/tkutil/tkutil.c @@ -481,7 +481,7 @@ ary2list(ary, enc_flag, self) } else { str_val = rb_funcall(cTclTkLib, ID_toUTF8, 1, str_val); } - RARRAY_PTR(dst)[idx] = str_val; + RARRAY_ASET(dst, idx, str_val); } val = rb_apply(cTclTkLib, ID_merge_tklist, dst); if (RB_TYPE_P(dst_enc, T_STRING)) { @@ -575,7 +575,7 @@ ary2list2(ary, enc_flag, self) } else { str_val = rb_funcall(cTclTkLib, ID_toUTF8, 1, str_val); } - RARRAY_PTR(dst)[idx] = str_val; + RARRAY_ASET(dst, idx, str_val); } val = rb_apply(cTclTkLib, ID_merge_tklist, dst); if (RB_TYPE_P(dst_enc, T_STRING)) { |