nobu	2011-06-18 07:33:59 +0900 (Sat, 18 Jun 2011)

  New Revision: 32153

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=32153

  Log:
    * suppress compile warnings.

  Modified files:
    trunk/cont.c
    trunk/ext/tk/tcltklib.c

Index: ext/tk/tcltklib.c
===================================================================
--- ext/tk/tcltklib.c	(revision 32152)
+++ ext/tk/tcltklib.c	(revision 32153)
@@ -1526,7 +1526,7 @@
 	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;
Index: cont.c
===================================================================
--- cont.c	(revision 32152)
+++ cont.c	(revision 32153)
@@ -327,7 +327,6 @@
 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

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/