diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-04-13 22:16:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-04-13 22:16:52 (GMT) |
| commit | 2b0fe4a3ef75940978059b4b33672f2d1c63dced (patch) | |
| tree | 4d6908ac453dc6ccba9b0a0593e77af3511609c6 /generic/tclVar.c | |
| parent | d46e9784ab0ff5b3e9bf35dc56c903fd9503c936 (diff) | |
| download | tcl-core-attemptcreatehashentry.zip tcl-core-attemptcreatehashentry.tar.gz tcl-core-attemptcreatehashentry.tar.bz2 | |
Implement Tcl_AttemptCreateHashEntry()core-attemptcreatehashentry
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 955e4f3..9846102 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -6730,7 +6730,10 @@ AllocVarEntry( Tcl_HashEntry *hPtr; Var *varPtr; - varPtr = (Var *)Tcl_Alloc(sizeof(VarInHash)); + varPtr = (Var *)Tcl_AttemptAlloc(sizeof(VarInHash)); + if (!varPtr) { + return NULL; + } varPtr->flags = VAR_IN_HASHTABLE; varPtr->value.objPtr = NULL; VarHashRefCount(varPtr) = 1; |