From b9bdeb035c1a182d48918c41ab13f8f122272a51 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 29 Mar 2008 22:00:34 +0000
Subject: * ext/tk/tcltklib.c: rb_hash_lookup has not been backported yet.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@15857 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/extconf.rb | 2 ++
 ext/tk/tcltklib.c | 4 ++++
 2 files changed, 6 insertions(+)

(limited to 'ext')

diff --git a/ext/tk/extconf.rb b/ext/tk/extconf.rb
index cb7621fbd4..4311aecce0 100644
--- a/ext/tk/extconf.rb
+++ b/ext/tk/extconf.rb
@@ -322,6 +322,8 @@ if have_header("tcl.h") && have_header("tk.h") &&
     $INSTALLFILES ||= []
     $INSTALLFILES << ["lib/tkextlib/SUPPORT_STATUS", "$(RUBYLIBDIR)", "lib"]
 
+    have_func("rb_hash_lookup", "ruby.h")
+
     # create
     $defs << %[-DRUBY_VERSION=\\"#{RUBY_VERSION}\\"]
     $defs << %[-DRUBY_RELEASE_DATE=\\"#{RUBY_RELEASE_DATE}\\"]
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 18e0fd76fb..51e2b65198 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -189,6 +189,10 @@ static Tcl_ObjType *Tcl_ObjType_String;
 #endif
 #endif
 
+#ifndef HAVE_RB_HASH_LOOKUP
+#define rb_hash_lookup rb_hash_aref
+#endif
+
 /* safe Tcl_Eval and Tcl_GlobalEval */
 static int
 #ifdef RUBY_VM
-- 
cgit v1.2.3