diff options
| author | nijtmans <nijtmans> | 2010-02-05 10:03:23 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-02-05 10:03:23 (GMT) |
| commit | 96236a9590eb1a400e12ffe7ba729f77f83d9e8b (patch) | |
| tree | 91a0d32c754b6aff65afda82a01486cdc41c00d3 /generic/tclVar.c | |
| parent | e3e4b1852057bba4e7cf142e65df0374840aafad (diff) | |
| download | tcl-96236a9590eb1a400e12ffe7ba729f77f83d9e8b.zip tcl-96236a9590eb1a400e12ffe7ba729f77f83d9e8b.tar.gz tcl-96236a9590eb1a400e12ffe7ba729f77f83d9e8b.tar.bz2 | |
Follow-up to [2010-01-29] commit:
prevent space within stub table function parameters
if the parameter type is a pointer.
Minor formatting, and VOID -> void.
Change signature of TclNRInterpProcCore,
and TclOONewProc(Instance|)MethodEx,
indicating that errorProc is a function pointer
tclVar.c: fixed two gcc warnings
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 06a2c9c..1848fff 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.193 2010/02/04 14:56:50 dkf Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.194 2010/02/05 10:03:23 nijtmans Exp $ */ #include "tclInt.h" @@ -3700,7 +3700,7 @@ ArrayNamesCmd( Var *varPtr, *arrayPtr, *varPtr2; Tcl_Obj *varNameObj, *nameObj, *resultObj, *patternObj; Tcl_HashSearch search; - const char *pattern; + const char *pattern = NULL; int mode = OPT_GLOB; if ((objc < 2) || (objc > 4)) { @@ -3785,7 +3785,7 @@ ArrayNamesCmd( nameObj = VarHashGetKey(varPtr2); if (patternObj) { const char *name = TclGetString(nameObj); - int matched; + int matched = 0; switch ((enum options) mode) { case OPT_EXACT: |