diff options
author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-04 07:15:12 +0000 |
---|---|---|
committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-03-04 07:15:12 +0000 |
commit | b4adf81a4b00182d8600544f00b9ba8cf0a20c24 (patch) | |
tree | ca18648c31e8b336e5ef2bd9166091ef0fb9f120 /ext/tk | |
parent | e1c4971ba67ac73c246712df28974119b7d45625 (diff) | |
download | ruby-b4adf81a4b00182d8600544f00b9ba8cf0a20c24.tar.gz ruby-b4adf81a4b00182d8600544f00b9ba8cf0a20c24.tar.xz ruby-b4adf81a4b00182d8600544f00b9ba8cf0a20c24.zip |
* eval.c (rb_exec_recursive): matched the declaration to prototype.
* ext/curses/curses.c: don't need to check HAVE_WCOLOR_SET excluding
window_color_set().
* ext/tk/tcltklib.c: fixed commit mistakes.
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@8069 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk')
-rw-r--r-- | ext/tk/tcltklib.c | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index e713008c3..14e8199d8 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -4353,15 +4353,8 @@ delete_slaves(ip) slave = Tcl_GetSlave(ip, slave_name); if (slave == (Tcl_Interp*)NULL) continue; -<<<<<<< tcltklib.c - if (Tcl_Eval(ip, "info slaves") == TCL_ERROR) { - DUMP2("ip(%lx) can't get a list of slave IPs", ip); - return; - } -======= /* call ip_finalize */ ip_finalize(slave); ->>>>>>> 1.3 Tcl_DeleteInterp(slave); Tcl_Release(slave); @@ -4493,12 +4486,6 @@ ip_replace_wait_commands(interp, mainWin) (ClientData)mainWin, (Tcl_CmdDeleteProc *)NULL); #endif -<<<<<<< tcltklib.c - /* security check */ - if (ruby_safe_level >= 4) { - rb_raise(rb_eSecurityError, "can't create a TclTkIp object at level %d", ruby_safe_level); - } -======= /* replace 'tkwait' command */ #if TCL_MAJOR_VERSION >= 8 DUMP1("Tcl_CreateObjCommand(\"tkwait\")"); @@ -4676,7 +4663,6 @@ ip_init(argc, argv, self) "Cannot create a TclTkIp object at level %d", ruby_safe_level); } ->>>>>>> 1.3 /* create object */ Data_Get_Struct(self, struct tcltkip, ptr); @@ -4869,16 +4855,6 @@ ip_create_slave_core(interp, argc, argv) thr_crit_bup = rb_thread_critical; rb_thread_critical = Qtrue; -<<<<<<< tcltklib.c - /* ip is deleted? */ - if (Tcl_InterpDeleted(master->ip)) { - DUMP1("master-ip is deleted"); - rb_thread_critical = thr_crit_bup; - rb_raise(rb_eRuntimeError, "deleted master can't create a new slave interpreter"); - } - -======= ->>>>>>> 1.3 /* create slave-ip */ slave->ref_count = 0; slave->allow_ruby_exit = 0; |