diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2011-10-07 12:01:36 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2011-10-07 12:01:36 (GMT) |
| commit | 8c48ec3d25f76f528be84a4abf19d6f29c129ea6 (patch) | |
| tree | 0333b413be5bfc902ab83b5b1f137d32fcb4e390 | |
| parent | 969586453c5cb7a0dd905507449e5f1ae95fbdae (diff) | |
| parent | d3f3acbc3493f8ad4a377b51f6dffae6df637195 (diff) | |
| download | tcl-8c48ec3d25f76f528be84a4abf19d6f29c129ea6.zip tcl-8c48ec3d25f76f528be84a4abf19d6f29c129ea6.tar.gz tcl-8c48ec3d25f76f528be84a4abf19d6f29c129ea6.tar.bz2 | |
Fix gcc warnings (discovered with latest mingw, based on gcc 4.6.1)
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tcl.h | 6 | ||||
| -rw-r--r-- | generic/tclIORTrans.c | 2 |
3 files changed, 9 insertions, 4 deletions
@@ -1,3 +1,8 @@ +2011-10-07 Jan Nijtmans <nijtmans@users.sf.net> + + * generic/tcl.h: Fix gcc warnings (discovered with + * generic/tclIORChan.c: latest mingw, based on gcc 4.6.1) + 2011-10-06 Donal K. Fellows <dkf@users.sf.net> * generic/tclDictObj.c (TclDictWithInit, TclDictWithFinish): 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 |