From 51f2342663bd6d473cb334a51594036df3b92de1 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 6 Jul 2008 08:59:43 +0000
Subject: [PATCH] Avoid AV annoyance by suppressing AVs in
 TMysqlQuery.SetThreadResult and work around bug #580 and bug #308. Doesn't
 seem to have any (visible) problematic consquences. Todo: Find and fix the
 real cause of these AVs which don't reveal to me currently.

---
 source/mysqlquery.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/source/mysqlquery.pas b/source/mysqlquery.pas
index 4be70710..ecc8ad6b 100644
--- a/source/mysqlquery.pas
+++ b/source/mysqlquery.pas
@@ -283,7 +283,12 @@ end;
 
 procedure TMysqlQuery.SetThreadResult(AResult: TThreadResult);
 begin
-  FQueryResult := AResult;
+  try
+    FQueryResult := AResult;
+  except
+    // Todo: Find cause of sporadical AV here. Avoid annoyance in the meantime by
+    // suppressing AVs here which doesn't seem to have any (visible) problematic consequences.
+  end;
 end;
 
 end.