diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-07 12:01:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-10-07 12:01:36 (GMT) |
| commit | d4ee121318a88eea4cb0e445c97caa75c2b05967 (patch) | |
| tree | 0333b413be5bfc902ab83b5b1f137d32fcb4e390 /generic | |
| parent | 44adece941d2f854196964eaaca9941117bb7c68 (diff) | |
| parent | dcc0c4435072feac4c32f8947c650f9123d1f184 (diff) | |
| download | tcl-d4ee121318a88eea4cb0e445c97caa75c2b05967.zip tcl-d4ee121318a88eea4cb0e445c97caa75c2b05967.tar.gz tcl-d4ee121318a88eea4cb0e445c97caa75c2b05967.tar.bz2 | |
Fix gcc warnings (discovered with latest mingw, based on gcc 4.6.1)
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.h | 6 | ||||
| -rw-r--r-- | generic/tclIORTrans.c | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 7a94956..1bc3a89 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2276,12 +2276,12 @@ typedef int (Tcl_ArgvGenFuncProc)(ClientData clientData, Tcl_Interp *interp, #define TCL_ARGV_AUTO_HELP \ {TCL_ARGV_HELP, "-help", NULL, NULL, \ - "Print summary of command-line options and abort"} + "Print summary of command-line options and abort", NULL} #define TCL_ARGV_AUTO_REST \ {TCL_ARGV_REST, "--", NULL, NULL, \ - "Marks the end of the options"} + "Marks the end of the options", NULL} #define TCL_ARGV_TABLE_END \ - {TCL_ARGV_END} + {TCL_ARGV_END, NULL, NULL, NULL, NULL, NULL} /* *---------------------------------------------------------------------------- diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index b095dcf..6c9a41b 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -885,7 +885,7 @@ ReflectClose( { ReflectedTransform *rtPtr = clientData; int errorCode, errorCodeSet = 0; - int result; /* Result code for 'close' */ + int result = TCL_OK; /* Result code for 'close' */ Tcl_Obj *resObj; /* Result data for 'close' */ ReflectedTransformMap *rtmPtr; /* Map of reflected transforms with handlers |