diff options
| author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2015-11-05 01:15:45 +0000 |
|---|---|---|
| committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2015-11-05 01:15:45 +0000 |
| commit | 71f3d71fa5d666cd5ab790d236d17781f3d0c657 (patch) | |
| tree | 81ec552dce698ecdb1778e3e84bd916639052684 /ext/tk | |
| parent | 2b9b6a280ea79c50236eee8f391f199c5f8a5acc (diff) | |
| download | ruby-71f3d71fa5d666cd5ab790d236d17781f3d0c657.tar.gz | |
tk: RARRAY_AREF
* ext/tk/tcltklib.c, ext/tk/tkutil/tkutil.c (RARRAY_AREF): add
fallback definition.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@52455 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk')
| -rw-r--r-- | ext/tk/tcltklib.c | 3 | ||||
| -rw-r--r-- | ext/tk/tkutil/tkutil.c | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index c99bcb5e3d..a91aaabb37 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -45,6 +45,9 @@ int rb_thread_check_trap_pending(void); #if !defined(RARRAY_CONST_PTR) #define RARRAY_CONST_PTR(s) (const VALUE *)RARRAY_PTR(s) #endif +#if !defined(RARRAY_AREF) +#define RARRAY_AREF(a, i) RARRAY_CONST_PTR(a)[i] +#endif #ifdef OBJ_UNTRUST #define RbTk_OBJ_UNTRUST(x) do {OBJ_TAINT(x); OBJ_UNTRUST(x);} while (0) diff --git a/ext/tk/tkutil/tkutil.c b/ext/tk/tkutil/tkutil.c index f6f0af1cd7..1a3720523e 100644 --- a/ext/tk/tkutil/tkutil.c +++ b/ext/tk/tkutil/tkutil.c @@ -40,6 +40,9 @@ static int rb_thread_critical; /* dummy */ #if !defined(RARRAY_CONST_PTR) #define RARRAY_CONST_PTR(s) (const VALUE *)RARRAY_PTR(s) #endif +#if !defined(RARRAY_AREF) +#define RARRAY_AREF(a, i) RARRAY_CONST_PTR(a)[i] +#endif #if defined(HAVE_STRNDUP) && !defined(_GNU_SOURCE) extern char *strndup(const char* _ptr, size_t _len); |