diff options
| author | hobbs <hobbs@noemail.net> | 2001-08-04 00:29:42 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2001-08-04 00:29:42 (GMT) |
| commit | b796741d78ebbc139abbf6c2d2009a4055f7ddb3 (patch) | |
| tree | 5a3391edb097a14446607936652f4989b75c2cf2 | |
| parent | f8558901e5c66ec03b1ae7543f37df7c9b6f0a23 (diff) | |
| download | tk-b796741d78ebbc139abbf6c2d2009a4055f7ddb3.zip tk-b796741d78ebbc139abbf6c2d2009a4055f7ddb3.tar.gz tk-b796741d78ebbc139abbf6c2d2009a4055f7ddb3.tar.bz2 | |
* win/winMain.c (WishPanic): fixed CONST changes to go with
CONST-ification in Tcl.
FossilOrigin-Name: ec8eadb616d6bb87ff8bf1d5f0dde5f92aa8292a
| -rw-r--r-- | win/winMain.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/winMain.c b/win/winMain.c index cf517b0..2d24a4f 100644 --- a/win/winMain.c +++ b/win/winMain.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: winMain.c,v 1.10 2000/04/19 23:12:56 hobbs Exp $ + * RCS: @(#) $Id: winMain.c,v 1.11 2001/08/04 00:29:43 hobbs Exp $ */ #include <tk.h> @@ -32,7 +32,7 @@ */ static void setargv _ANSI_ARGS_((int *argcPtr, char ***argvPtr)); -static void WishPanic _ANSI_ARGS_(TCL_VARARGS(char *,format)); +static void WishPanic _ANSI_ARGS_(TCL_VARARGS(CONST char *,format)); #ifdef TK_TEST extern int Tktest_Init(Tcl_Interp *interp); @@ -237,13 +237,13 @@ error: */ void -WishPanic TCL_VARARGS_DEF(char *,arg1) +WishPanic TCL_VARARGS_DEF(CONST char *,arg1) { va_list argList; char buf[1024]; - char *format; + CONST char *format; - format = TCL_VARARGS_START(char *,arg1,argList); + format = TCL_VARARGS_START(CONST char *,arg1,argList); vsprintf(buf, format, argList); MessageBeep(MB_ICONEXCLAMATION); |