From d7c42199c8f8729d66a28e634525e57cfe7ab8a6 Mon Sep 17 00:00:00 2001
From: ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 10 Sep 2004 11:22:31 +0000
Subject: * ext/tcltklib/tcltklib.c (lib_merge_tklist): fix suspicious  
 pointer conversion.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@6881 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog               | 5 +++++
 ext/tcltklib/tcltklib.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index a7642a786..2604a7536 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Sep 10 20:18:05 2004  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
+
+	* ext/tcltklib/tcltklib.c (lib_merge_tklist): fix suspicious
+	  pointer conversion.
+
 Fri Sep 10 19:16:24 2004  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 
 	* bcc32/Makefile.sub: bccwin32 port starts to use RTL dll.
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 0a2fcbd34..53c51e4fd 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -5067,7 +5067,7 @@ lib_merge_tklist(argc, argv, obj)
     old_gc = rb_gc_disable();
 
     /* based on Tcl/Tk's Tcl_Merge() */
-    flagPtr = ALLOC_N(unsigned,  argc);
+    flagPtr = ALLOC_N(int, argc);
 
     /* pass 1 */
     len = 1;
-- 
cgit