diff options
| author | ericm <ericm@noemail.net> | 2000-07-22 01:53:21 (GMT) |
|---|---|---|
| committer | ericm <ericm@noemail.net> | 2000-07-22 01:53:21 (GMT) |
| commit | 17830cb47c7d28893dec7eba48c6ec5c3d918bdd (patch) | |
| tree | cc6c8ae5abff9a30cba78ef7e9e424cfec665f77 /generic/tclStubInit.c | |
| parent | 658e16144dd18eb6e4fbd77327d8819ac95cb649 (diff) | |
| download | tcl-17830cb47c7d28893dec7eba48c6ec5c3d918bdd.zip tcl-17830cb47c7d28893dec7eba48c6ec5c3d918bdd.tar.gz tcl-17830cb47c7d28893dec7eba48c6ec5c3d918bdd.tar.bz2 | |
* generic/tclStubInit.c:
* generic/tclObj.c:
* generic/tclInt.h:
* generic/tclHash.c:
* generic/tclDecls.h:
* generic/tcl.h:
* generic/tcl.decls:
* doc/Hash.3: Reapplied patch from Paul Duffin to extend hash tables
to allow custom key types, such as Tcl_Obj *'s, and others.
FossilOrigin-Name: 9ec468f4054cf859e1310e5612ae81b6645c8fdc
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 0389de8..996b5b9 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.40 2000/07/20 20:33:27 ericm Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.41 2000/07/22 01:53:25 ericm Exp $ */ #include "tclInt.h" @@ -31,6 +31,10 @@ #undef Tcl_NewStringObj #undef Tcl_DumpActiveMemory #undef Tcl_ValidateAllMemory +#if TCL_PRESERVE_BINARY_COMPATABILITY +# undef Tcl_FindHashEntry +# undef Tcl_CreateHashEntry +#endif /* * WARNING: The contents of this file is automatically generated by the @@ -801,6 +805,10 @@ TclStubs tclStubs = { Tcl_IsChannelExisting, /* 400 */ Tcl_UniCharNcasecmp, /* 401 */ Tcl_UniCharCaseMatch, /* 402 */ + Tcl_FindHashEntry, /* 403 */ + Tcl_CreateHashEntry, /* 404 */ + Tcl_InitHashTableEx, /* 405 */ + Tcl_InitObjHashTable, /* 406 */ }; /* !END!: Do not edit above this line. */ |