From c1c7500bc32248d67b6cf7903a6db7b15e2cd1c9 Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Fri, 12 Oct 2012 18:47:00 +0000
Subject: [PATCH 1/1] add cleartree to bsearchtree which clears a hashtable and
frees all resources
git-svn-id: file:///svnroot/lcore/trunk@122 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
bsearchtree.pas | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/bsearchtree.pas b/bsearchtree.pas
index d9e3ea2..9dc355e 100644
--- a/bsearchtree.pas
+++ b/bsearchtree.pas
@@ -32,6 +32,9 @@ procedure deltree(t:phashtable;s:ansistring);
{returns the item pointer for s, or nil if not found}
function findtree(t:phashtable;s:ansistring):pointer;
+{clear a hashtable, deallocating all used resources}
+procedure cleartree(t:phashtable);
+
implementation
function makehash(s:ansistring):integer;
@@ -98,4 +101,20 @@ begin
end;
end;
+procedure cleartree(t:phashtable);
+var
+ hash:integer;
+ p,p2:thashitem;
+begin
+ for hash := 0 to hashtable_size-1 do begin
+ p := t[hash];
+ while p <> nil do begin
+ p2 := thashitem(p.next);
+ linklistdel(tlinklist(t[hash]),tlinklist(p));
+ p.destroy;
+ p := thashitem(p2);
+ end;
+ end;
+end;
+
end.
--
2.30.2