diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-04-13 22:39:47 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-04-13 22:39:47 (GMT) |
| commit | 63701cbbb51dbffec533377fcc312a39f0e63f6e (patch) | |
| tree | c6b30c888741523b9e7642478d645678d5f3bd20 | |
| parent | 2974c5c95695574ec557ad0d93dabc015a495b3a (diff) | |
| download | tcl-63701cbbb51dbffec533377fcc312a39f0e63f6e.zip tcl-63701cbbb51dbffec533377fcc312a39f0e63f6e.tar.gz tcl-63701cbbb51dbffec533377fcc312a39f0e63f6e.tar.bz2 | |
Remove comment which is not true any more: TclVarHashFindVar() is not used in Itcl at all.
Remove some unnecessary #undef's
| -rw-r--r-- | generic/tcl.h | 2 | ||||
| -rw-r--r-- | generic/tclInt.h | 14 |
2 files changed, 0 insertions, 16 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index a959fcd..077c221 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2612,10 +2612,8 @@ TclBounceRefCount( * hash tables: */ -#undef Tcl_FindHashEntry #define Tcl_FindHashEntry(tablePtr, key) \ (*((tablePtr)->findProc))(tablePtr, (const char *)(key)) -#undef Tcl_CreateHashEntry #define Tcl_CreateHashEntry(tablePtr, key, newPtr) \ (*((tablePtr)->createProc))(tablePtr, (const char *)(key), newPtr) diff --git a/generic/tclInt.h b/generic/tclInt.h index 963e850..1eab76d 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -224,20 +224,6 @@ typedef struct TclVarHashTable { #endif /* TCL_MAJOR_VERSION > 8 */ } TclVarHashTable; -/* - * This is for itcl - it likes to search our varTables directly :( - */ - -#define TclVarHashFindVar(tablePtr, key) \ - TclVarHashCreateVar((tablePtr), (key), NULL) - -/* - * Define this to reduce the amount of space that the average namespace - * consumes by only allocating the table of child namespaces when necessary. - * Defining it breaks compatibility for Tcl extensions (e.g., itcl) which - * reach directly into the Namespace structure. - */ - #undef BREAK_NAMESPACE_COMPAT /* |