diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-24 10:41:14 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-24 10:41:14 (GMT) |
commit | 9c5e4541411287c33ae6727b22ec18fec6cd04fa (patch) | |
tree | 7cfb6dc03a45d1d777040925a5a724b1d024891a /generic/tclCompile.h | |
parent | a769ee494cca67958b20b1472a4d61b8d5e8a0fb (diff) | |
download | tcl-9c5e4541411287c33ae6727b22ec18fec6cd04fa.zip tcl-9c5e4541411287c33ae6727b22ec18fec6cd04fa.tar.gz tcl-9c5e4541411287c33ae6727b22ec18fec6cd04fa.tar.bz2 |
Don't use TCL_HASH_TYPE for epoch/refCount type variables, keep it the same as it was in Tcl 8.6
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 1f40d46..c7c17f3 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -417,7 +417,7 @@ typedef struct ByteCode { * procs are specific to an interpreter so the * code emitted will depend on the * interpreter. */ - TCL_HASH_TYPE compileEpoch; /* Value of iPtr->compileEpoch when this + int compileEpoch; /* Value of iPtr->compileEpoch when this * ByteCode was compiled. Used to invalidate * code when, e.g., commands with compile * procs are redefined. */ @@ -425,11 +425,11 @@ typedef struct ByteCode { * compiled. If the code is executed if a * different namespace, it must be * recompiled. */ - TCL_HASH_TYPE nsEpoch; /* Value of nsPtr->resolverEpoch when this + int nsEpoch; /* Value of nsPtr->resolverEpoch when this * ByteCode was compiled. Used to invalidate * code when new namespace resolution rules * are put into effect. */ - TCL_HASH_TYPE refCount; /* Reference count: set 1 when created plus 1 + int refCount; /* Reference count: set 1 when created plus 1 * for each execution of the code currently * active. This structure can be freed when * refCount becomes zero. */ |