summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2006-01-23 11:01:59 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2006-01-23 11:01:59 (GMT)
commitd638f4a874b43bdeb4154f5138d42108604d855f (patch)
tree4a26fea6af7c95d2784ff9ec31aa88cca8d1a576
parentfa839dce12c20b16a8736752fd93063afc2c6446 (diff)
downloadtcl-d638f4a874b43bdeb4154f5138d42108604d855f.zip
tcl-d638f4a874b43bdeb4154f5138d42108604d855f.tar.gz
tcl-d638f4a874b43bdeb4154f5138d42108604d855f.tar.bz2
* generic/tclProc.c: fixed args handling for precompiled bodies
[Bug 1412695]; thanks to Uwe Traum.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclProc.c14
2 files changed, 12 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index eabb6a4..87133a0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-23 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclProc.c: fixed args handling for precompiled bodies
+ [Bug 1412695]; thanks to Uwe Traum.
+
2006-01-16 Reinhard Max <max@suse.de>
* generic/tclPipe.c (FileForRedirect): Prevent nameString from
diff --git a/generic/tclProc.c b/generic/tclProc.c
index cab0788..9308b81 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclProc.c,v 1.83 2005/12/13 22:43:18 kennykb Exp $
+ * RCS: @(#) $Id: tclProc.c,v 1.84 2006/01/23 11:01:59 msofer Exp $
*/
#include "tclInt.h"
@@ -457,12 +457,12 @@ TclCreateProc(
ckfree((char *) fieldValues);
goto procError;
}
- if ((i == numArgs - 1)
- && (localPtr->nameLength == 4)
- && (localPtr->name[0] == 'a')
- && (strcmp(localPtr->name, "args") == 0)) {
- localPtr->flags |= VAR_IS_ARGS;
- }
+ }
+ if ((i == numArgs - 1)
+ && (localPtr->nameLength == 4)
+ && (localPtr->name[0] == 'a')
+ && (strcmp(localPtr->name, "args") == 0)) {
+ localPtr->flags |= VAR_IS_ARGS;
}
localPtr = localPtr->nextPtr;