thread_free

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@132 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

3 files changed, 6 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 5614dc4d07..4d01b777eb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Mar 23 18:47:27 1998  Yukihiro Matsumoto  <matz@netlab.co.jp>
+
+	* eval.c (thread_free): main_thread should not be freed.
+
 Fri Mar 20 16:40:34 1998  Yukihiro Matsumoto  <matz@netlab.co.jp>
 
 	* string.c (str_sub_iter_s): should check last pattern since it
diff --git a/eval.c b/eval.c
index 5f053ab313..8a4e709d25 100644
--- a/eval.c
+++ b/eval.c
@@ -5075,7 +5075,7 @@ thread_free(th)
 {
     if (th->stk_ptr) free(th->stk_ptr);
     th->stk_ptr = 0;
-    free(th);
+    if (th != main_thread) free(th);
 }
 
 static thread_t
diff --git a/lib/tktext.rb b/lib/tktext.rb
index 47e11f2c85..ccd70a20a7 100644
--- a/lib/tktext.rb
+++ b/lib/tktext.rb
@@ -47,7 +47,7 @@ class TkText<TkTextWin
   end
 
   def destroy
-    for t in @tags
+    @tags.each_value do |t|
       t.destroy
     end
     super