* suppress compile warnings.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@32153 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
7191ea1049
commit
0d5ed3d2ad
1
cont.c
1
cont.c
@ -327,7 +327,6 @@ static void
|
|||||||
cont_save_machine_stack(rb_thread_t *th, rb_context_t *cont)
|
cont_save_machine_stack(rb_thread_t *th, rb_context_t *cont)
|
||||||
{
|
{
|
||||||
size_t size;
|
size_t size;
|
||||||
rb_thread_t *sth = &cont->saved_thread;
|
|
||||||
|
|
||||||
SET_MACHINE_STACK_END(&th->machine_stack_end);
|
SET_MACHINE_STACK_END(&th->machine_stack_end);
|
||||||
#ifdef __ia64
|
#ifdef __ia64
|
||||||
|
@ -1526,7 +1526,7 @@ call_original_exit(ptr, state)
|
|||||||
Tcl_Preserve((ClientData)argv); /* XXXXXXXX */
|
Tcl_Preserve((ClientData)argv); /* XXXXXXXX */
|
||||||
#endif
|
#endif
|
||||||
#endif
|
#endif
|
||||||
argv[0] = "exit";
|
argv[0] = (char *)"exit";
|
||||||
/* argv[1] = Tcl_GetString(state_obj); */
|
/* argv[1] = Tcl_GetString(state_obj); */
|
||||||
argv[1] = Tcl_GetStringFromObj(state_obj, (int*)NULL);
|
argv[1] = Tcl_GetStringFromObj(state_obj, (int*)NULL);
|
||||||
argv[2] = (char *)NULL;
|
argv[2] = (char *)NULL;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user