From: beware <beware@bircd.org>
Date: Fri, 22 Nov 2013 01:15:05 +0000 (+0000)
Subject: must free tdnswinasync in tdnsasync destructor
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/ed1d49cbe548d9fb26a50f1b2381b693c3c01790

must free tdnswinasync in tdnsasync destructor

git-svn-id: file:///svnroot/lcore/trunk@126 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/dnsasync.pas b/dnsasync.pas
index b6e8941..c13f6ab 100644
--- a/dnsasync.pas
+++ b/dnsasync.pas
@@ -109,6 +109,14 @@ begin
       setstate_request_init('',states[socketno]);
     end;
   end;
+
+  {$ifdef mswindows}
+  if assigned(dwas) then begin
+    dwas.release;
+    dwas := nil;
+  end;
+  {$endif}
+
   inherited destroy;
 end;