From 26c9e04c8e28896c8e28b6dbeab8e7f29a0021df Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Thu, 17 Oct 2024 23:21:00 +0200
Subject: [PATCH] Debugger: fix disabling float exception in threads

---
 .../lazdebuggerintf/lazdebuggerintffloattypes.pas             | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/lazdebuggers/lazdebuggerintf/lazdebuggerintffloattypes.pas b/components/lazdebuggers/lazdebuggerintf/lazdebuggerintffloattypes.pas
index 255a285010..99bb3fa237 100644
--- a/components/lazdebuggers/lazdebuggerintf/lazdebuggerintffloattypes.pas
+++ b/components/lazdebuggers/lazdebuggerintf/lazdebuggerintffloattypes.pas
@@ -71,12 +71,12 @@ type
 
 implementation
 
-var
+threadvar
   EM: TFPUExceptionMask;
   {$ifdef HAS_SOFT_EXTENDED}
   SEM: TFPUExceptionMask;
   {$endif}
-  FloatExceptionLock: integer = 0;
+  FloatExceptionLock: integer;
 
 
 procedure DisableFloatExceptions;