nagai	2009-10-27 07:40:22 +0900 (Tue, 27 Oct 2009)

  New Revision: 25497

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=25497

  Log:
    * ext/tk/tcltklib.c,stubs.c: remove errors or warnings when compiled
      with old ruby 1.8.x.
    * ext/tk/tkutil/tkutil.c: ditto.

  Modified files:
    trunk/ChangeLog
    trunk/ext/tk/stubs.c
    trunk/ext/tk/tcltklib.c
    trunk/ext/tk/tkutil/tkutil.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 25496)
+++ ChangeLog	(revision 25497)
@@ -1,3 +1,10 @@
+Tue Oct 27 07:38:39 2009  Hidetoshi NAGAI  <nagai@a...>
+
+	* ext/tk/tcltklib.c,stubs.c: remove errors or warnings when compiled
+	  with old ruby 1.8.x.
+
+	* ext/tk/tkutil/tkutil.c: ditto.
+
 Tue Oct 27 05:56:39 2009  NARUSE, Yui  <naruse@r...>
 
 	* vm.c (invoke_block_from_c): return Qnil when its iseq is
Index: ext/tk/stubs.c
===================================================================
--- ext/tk/stubs.c	(revision 25496)
+++ ext/tk/stubs.c	(revision 25497)
@@ -6,6 +6,12 @@
 
 #include "ruby.h"
 #include "stubs.h"
+
+#if !defined(RSTRING_PTR)
+#define RSTRING_PTR(s) (RSTRING(s)->ptr)
+#define RSTRING_LEN(s) (RSTRING(s)->len)
+#endif
+
 #include <tcl.h>
 #include <tk.h>
 
Index: ext/tk/tcltklib.c
===================================================================
--- ext/tk/tcltklib.c	(revision 25496)
+++ ext/tk/tcltklib.c	(revision 25497)
@@ -4,7 +4,7 @@
  *              Oct. 24, 1997   Y. Matsumoto
  */
 
-#define TCLTKLIB_RELEASE_DATE "2009-08-09"
+#define TCLTKLIB_RELEASE_DATE "2009-10-27"
 
 #include "ruby.h"
 
@@ -24,6 +24,15 @@
 #include "rubysig.h"
 #endif
 
+a#if !defined(RSTRING_PTR)
+#define RSTRING_PTR(s) (RSTRING(s)->ptr)
+#define RSTRING_LEN(s) (RSTRING(s)->len)
+#endif
+#if !defined(RARRAY_PTR)
+#define RARRAY_PTR(s) (RARRAY(s)->ptr)
+#define RARRAY_LEN(s) (RARRAY(s)->len)
+#endif
+
 #ifdef OBJ_UNTRUST
 #define RbTk_OBJ_UNTRUST(x)  do {OBJ_TAINT(x); OBJ_UNTRUST(x);} while (0)
 #else
Index: ext/tk/tkutil/tkutil.c
===================================================================
--- ext/tk/tkutil/tkutil.c	(revision 25496)
+++ ext/tk/tkutil/tkutil.c	(revision 25497)
@@ -7,7 +7,7 @@
 
 ************************************************/
 
-#define TKUTIL_RELEASE_DATE "2009-07-12"
+#define TKUTIL_RELEASE_DATE "2009-10-27"
 
 #include "ruby.h"
 
@@ -23,6 +23,22 @@
 #include "st.h"
 #endif
 
+#if !defined(RHASH_TBL)
+#define RHASH_TBL(h) (RHASH(h)->tbl)
+#endif
+#if !defined(RSTRING_PTR)
+#define RSTRING_PTR(s) (RSTRING(s)->ptr)
+#define RSTRING_LEN(s) (RSTRING(s)->len)
+#endif
+#if !defined(RARRAY_PTR)
+#define RARRAY_PTR(s) (RARRAY(s)->ptr)
+#define RARRAY_LEN(s) (RARRAY(s)->len)
+#endif
+
+#if defined(HAVE_STRNDUP) && !defined(_GNU_SOURCE)
+extern char *strndup(const char* _ptr, size_t _len);
+#endif
+
 static VALUE cMethod;
 
 static VALUE cTclTkLib;

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/