diff options
| author | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2011-06-17 22:33:59 +0000 |
|---|---|---|
| committer | nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2011-06-17 22:33:59 +0000 |
| commit | 0d5ed3d2ad67e8c50f23f509af8a66a744258dfb (patch) | |
| tree | 6c929133b40c9be092838438adcf1d02a3f4c409 /ext/tk/tcltklib.c | |
| parent | 7191ea10498be703a60d995b450accdba74c75a3 (diff) | |
* suppress compile warnings.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@32153 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/tcltklib.c')
| -rw-r--r-- | ext/tk/tcltklib.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |