must free tdnswinasync in tdnsasync destructor

[lcore.git] / dnsasync.pas

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