From ed0da2685f7edce9cbdd5c17422670e8319bc326 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 12 Sep 2004 16:05:59 +0000
Subject: * ext/tcltklib/tcltklib.c: improve control of preserv/release tcltkip
 * ext/tcltklib/tcltklib.c: store original 'exit' command * ext/tk/tkutil.c:
 fix(?) SEGV

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@6890 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/tkutil.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'ext/tk/tkutil.c')

diff --git a/ext/tk/tkutil.c b/ext/tk/tkutil.c
index aaa77b1aa..0595207fe 100644
--- a/ext/tk/tkutil.c
+++ b/ext/tk/tkutil.c
@@ -737,6 +737,13 @@ tk_conv_args(argc, argv, self)
 {
     int idx, size;
     volatile VALUE dst;
+    int thr_crit_bup;
+    VALUE old_gc;
+
+    thr_crit_bup = rb_thread_critical;
+    rb_thread_critical = Qtrue;
+
+    old_gc = rb_gc_disable();
 
     if (argc < 2) {
       rb_raise(rb_eArgError, "too few arguments");
@@ -764,6 +771,9 @@ tk_conv_args(argc, argv, self)
 	}
     }
 
+    if (old_gc == Qfalse) rb_gc_enable();
+    rb_thread_critical = thr_crit_bup;
+
     return rb_ary_plus(argv[0], dst);
 }
 
-- 
cgit