diff options
| author | Omar Rizwan <omar@omar.website> | 2023-07-04 02:07:35 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-07-04 02:07:35 +0000 |
| commit | 5fcf5c2055a666e4e42a2c7dabec1e218aa7cfa9 (patch) | |
| tree | 773d4906f0baa10aac03fb7257062566fa442903 /lib | |
| parent | Add leak test (currently failing) (diff) | |
| download | folk-5fcf5c2055a666e4e42a2c7dabec1e218aa7cfa9.tar.gz folk-5fcf5c2055a666e4e42a2c7dabec1e218aa7cfa9.zip | |
Fix clause memory leak
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/evaluator.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/evaluator.tcl b/lib/evaluator.tcl index 184aae1a..d8ab616a 100644 --- a/lib/evaluator.tcl +++ b/lib/evaluator.tcl @@ -907,6 +907,7 @@ namespace eval Evaluator { uint64_t reactions[1000]; int reactionCount = trieLookup(interp, reactions, 1000, reactionsToStatementAddition, clauseWithReactingIdWildcard); + Tcl_DecrRefCount(clauseWithReactingIdWildcard); // printf("React to %s: %d\n", Tcl_GetString(clauseWithReactingIdWildcard), reactionCount); for (int i = 0; i < reactionCount; i++) { reaction_t* reaction = (reaction_t*)(uintptr_t)reactions[i]; |