kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc().

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@13105 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2007-08-18 08:44:44 +00:00
parent b9d4e5e742
commit f80d24ee6f
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
View file

@ -1,3 +1,7 @@
Sat Aug 18 17:44:42 2007 Nobuyoshi Nakada <nobu@ruby-lang.org>
* ext/tk/tcltklib.c (Init_tcltklib): use rb_set_end_proc().
Sat Aug 18 15:59:52 2007 Nobuyoshi Nakada <nobu@ruby-lang.org> Sat Aug 18 15:59:52 2007 Nobuyoshi Nakada <nobu@ruby-lang.org>
* process.c (detach_process_watcher): should not pass the pointer * process.c (detach_process_watcher): should not pass the pointer

7
ext/tk/tcltklib.c
View file

@ -4364,12 +4364,11 @@ delete_slaves(ip)
/* finalize operation */ /* finalize operation */
static VALUE static void
lib_mark_at_exit(self) lib_mark_at_exit(self)
VALUE self; VALUE self;
{ {
at_exit = 1; at_exit = 1;
return Qnil;
} }
static int static int
@ -7995,8 +7994,6 @@ Init_tcltklib()
/* --------------------------------------------------------------- */ /* --------------------------------------------------------------- */
rb_define_module_function(lib, "_mark_at_exit", lib_mark_at_exit, 0);
rb_define_module_function(lib, "mainloop", lib_mainloop, -1); rb_define_module_function(lib, "mainloop", lib_mainloop, -1);
rb_define_module_function(lib, "mainloop_thread?", rb_define_module_function(lib, "mainloop_thread?",
lib_evloop_thread_p, 0); lib_evloop_thread_p, 0);
@ -8133,7 +8130,7 @@ Init_tcltklib()
/* --------------------------------------------------------------- */ /* --------------------------------------------------------------- */
rb_eval_string("at_exit{ TclTkLib._mark_at_exit }"); rb_set_end_proc(lib_mark_at_exit, 0);
/* --------------------------------------------------------------- */ /* --------------------------------------------------------------- */