diff options
-rw-r--r-- | cont.c | 1 | ||||
-rw-r--r-- | ext/tk/tcltklib.c | 2 |
2 files changed, 1 insertions, 2 deletions
@@ -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; |