diff options
author | mig <mig@noemail.net> | 2011-04-07 00:11:48 (GMT) |
---|---|---|
committer | mig <mig@noemail.net> | 2011-04-07 00:11:48 (GMT) |
commit | 1323c82b2cbbbd6b1766fea1d417a2a7510511aa (patch) | |
tree | 9a6e8f3951d42b4755317063a93c5a0a228369aa /generic/tclExecute.c | |
parent | f946b6b5787da0d97085abff187108333c402001 (diff) | |
download | tcl-1323c82b2cbbbd6b1766fea1d417a2a7510511aa.zip tcl-1323c82b2cbbbd6b1766fea1d417a2a7510511aa.tar.gz tcl-1323c82b2cbbbd6b1766fea1d417a2a7510511aa.tar.bz2 |
last bugfix was incomplete
FossilOrigin-Name: df052ad59f7e17ef3e21856a9ec2bcf050503660
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 3539945..e11527f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -335,7 +335,7 @@ VarHashCreateVar( #define OBJ_AT_DEPTH(n) *(tosPtr-(n)) -#define CURR_DEPTH (tosPtr - initTosPtr) +#define CURR_DEPTH ((unsigned long) (tosPtr - initTosPtr)) /* * Macros used to trace instruction execution. The macros TRACE, |