* suppress compile warnings.

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

2 files changed, 1 insertions, 2 deletions

diff --git a/cont.c b/cont.c
index 3506b6d917..81bad6acee 100644
--- a/cont.c
+++ b/cont.c
@@ -327,7 +327,6 @@ static void
 cont_save_machine_stack(rb_thread_t *th, rb_context_t *cont)
 {
     size_t size;
-    rb_thread_t *sth = &cont->saved_thread;
 
     SET_MACHINE_STACK_END(&th->machine_stack_end);
 #ifdef __ia64
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index f0f0b4a6db..312b0c05eb 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -1526,7 +1526,7 @@ call_original_exit(ptr, state)
 	Tcl_Preserve((ClientData)argv); /* XXXXXXXX */
 #endif
 #endif
-        argv[0] = "exit";
+        argv[0] = (char *)"exit";
         /* argv[1] = Tcl_GetString(state_obj); */
         argv[1] = Tcl_GetStringFromObj(state_obj, (int*)NULL);
         argv[2] = (char *)NULL;