[ruby-dev:21977] Re: pthread trouble on tcltklib

永井@知能．九工大です．

From: Hidetoshi NAGAI <[e-mail]>
Subject: [ruby-dev:21975] Re: pthread trouble on tcltklib
Date: Thu, 20 Nov 2003 12:56:24 +0900
Message-ID: <[e-mail]>
> ruby_thid を static にし忘れていたことを除き，
> 特に否定意見もないようですので，先ほど commit しておきました．

次の patch のようにしておいた方が is_ruby_native_thread() を
使う際に #ifdef HAVE_NATIVETHREAD をしなくていいので
使いやすいですよね．
変更しておきます．

Index: ruby.h
===================================================================
RCS file: /src/ruby/ruby.h,v
retrieving revision 1.91
diff -u -r1.91 ruby.h
--- ruby.h	20 Nov 2003 03:50:32 -0000	1.91
+++ ruby.h	20 Nov 2003 04:29:16 -0000
@@ -682,9 +682,7 @@
 # define NATIVETHREAD_EQUAL(t1,t2) ((t1) == (t2))
 # define HAVE_NATIVETHREAD
 #endif
-#ifdef HAVE_NATIVETHREAD
 RUBY_EXTERN int is_ruby_native_thread();
-#endif
 
 #if defined(__cplusplus)
 }  /* extern "C" { */
Index: eval.c
===================================================================
RCS file: /src/ruby/eval.c,v
retrieving revision 1.591
diff -u -r1.591 eval.c
--- eval.c	20 Nov 2003 03:50:32 -0000	1.591
+++ eval.c	20 Nov 2003 04:29:18 -0000
@@ -1159,11 +1159,16 @@
 
 #ifdef HAVE_NATIVETHREAD
 static rb_nativethread_t ruby_thid;
+#endif
+
 int 
 is_ruby_native_thread() {
+#ifdef HAVE_NATIVETHREAD
     return NATIVETHREAD_EQUAL(ruby_thid, NATIVETHREAD_CURRENT());
-}
+#else
+    return 1;
 #endif
+}
 
 void
 ruby_init()

-- 
                                         永井 秀利 （九工大 知能情報）
                                             [e-mail]