From 0992f6c4728112c50520e7506f4e75e1cac62206 Mon Sep 17 00:00:00 2001 From: usa Date: Fri, 4 Mar 2005 07:15:12 +0000 Subject: * 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: svn+ssh://ci.ruby-lang.org/ruby/trunk@8069 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 9 +++++++++ eval.c | 2 +- ext/curses/curses.c | 4 ++-- ext/tk/tcltklib.c | 24 ------------------------ 4 files changed, 12 insertions(+), 27 deletions(-) diff --git a/ChangeLog b/ChangeLog index 29f4a0a0f2..a2e6d5a02e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +Fri Mar 4 16:11:20 2005 NAKAMURA Usaku + + * 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. + Fri Mar 4 12:45:17 2005 Yukihiro Matsumoto * array.c: replace rb_protect_inspect() and rb_inspecting_p() by diff --git a/eval.c b/eval.c index e23f52e83f..8cbdfc3cf1 100644 --- a/eval.c +++ b/eval.c @@ -12992,7 +12992,7 @@ rb_throw(tag, val) VALUE rb_exec_recursive(func, obj, arg) - VALUE (*func) _((VALUE, VALUE, int)); + VALUE (*func)(ANYARGS); /* VALUE obj, VALUE arg, int flag */ VALUE obj, arg; { VALUE list = rb_thread_local_aref(rb_thread_current(), recursive_key); diff --git a/ext/curses/curses.c b/ext/curses/curses.c index d36610a88a..1ed5b3e868 100644 --- a/ext/curses/curses.c +++ b/ext/curses/curses.c @@ -561,7 +561,7 @@ curses_resizeterm(VALUE obj, VALUE lin, VALUE col) #endif } -#if defined(USE_COLOR) && defined(HAVE_WCOLOR_SET) +#ifdef USE_COLOR static VALUE curses_start_color(VALUE obj) { @@ -1207,7 +1207,7 @@ window_color_set(VALUE obj, VALUE col) return (res == OK) ? Qtrue : Qfalse; return Qfalse; } -#endif /* USE_COLOR */ +#endif /* defined(USE_COLOR) && defined(HAVE_WCOLOR_SET) */ static VALUE window_scroll(VALUE obj) diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index e713008c37..14e8199d89 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; -- cgit v1.2.3