diff options
| author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2015-11-05 01:17:19 +0000 |
|---|---|---|
| committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2015-11-05 01:17:19 +0000 |
| commit | b1f7a158a937e7628558fe942c8287ffce93699d (patch) | |
| tree | 11d4a1de425fef35b8d3f6fa5b9d739cfe7469a5 /ext/tk/tcltklib.c | |
| parent | 71f3d71fa5d666cd5ab790d236d17781f3d0c657 (diff) | |
| download | ruby-b1f7a158a937e7628558fe942c8287ffce93699d.tar.gz | |
ext: use RARRAY_ASET
* ext/socket/socket.c (make_addrinfo): use RARRAY_ASET for
write-barrier.
* ext/tk/tcltklib.c ({call,eval,invoke}_queue_handler): ditto.
* ext/tk/tkutil/tkutil.c (ary2list, ary2list2): ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@52456 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/tcltklib.c')
| -rw-r--r-- | ext/tk/tcltklib.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index a91aaabb37..47dc52a337 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -7033,7 +7033,7 @@ call_queue_handler(evPtr, flags) } /* set result */ - RARRAY_PTR(q->result)[0] = ret; + RARRAY_ASET(q->result, 0, ret); ret = (VALUE)NULL; /* decr internal handler mark */ @@ -7525,7 +7525,7 @@ eval_queue_handler(evPtr, flags) } /* set result */ - RARRAY_PTR(q->result)[0] = ret; + RARRAY_ASET(q->result, 0, ret); ret = (VALUE)NULL; /* decr internal handler mark */ @@ -9026,7 +9026,7 @@ invoke_queue_handler(evPtr, flags) } /* set result */ - RARRAY_PTR(q->result)[0] = ret; + RARRAY_ASET(q->result, 0, ret); ret = (VALUE)NULL; /* decr internal handler mark */ |