diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-03-23 09:48:01 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-03-23 09:48:01 +0000 |
commit | 530491c72fe537787ad3b0324aa6d6a61c87f0d3 (patch) | |
tree | c4976fb216ff9170250234c9617f10f1acc4dfbe | |
parent | 3d699ae9ffc32665e8f9117c4149e2ae03123bdf (diff) |
thread_free
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@132 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | eval.c | 2 | ||||
-rw-r--r-- | lib/tktext.rb | 2 |
3 files changed, 6 insertions, 2 deletions
@@ -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 @@ -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 |