From ed1d49cbe548d9fb26a50f1b2381b693c3c01790 Mon Sep 17 00:00:00 2001
From: beware <beware@bircd.org>
Date: Fri, 22 Nov 2013 01:15:05 +0000
Subject: [PATCH] must free tdnswinasync in tdnsasync destructor
git-svn-id: file:///svnroot/lcore/trunk@126 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
dnsasync.pas | 8 ++++++++
1 file changed, 8 insertions(+)
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;
--
2.30.2