From 28a9a448945b0ad5a917b1444ec5b87e830e90f5 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 24 Jan 2025 22:56:38 +0100
Subject: [PATCH]   * call SysResetFPU and SysInitFPU in InitThread for the
 time being

---
 rtl/inc/thread.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/inc/thread.inc b/rtl/inc/thread.inc
index a5ed545152..7acb01efcf 100644
--- a/rtl/inc/thread.inc
+++ b/rtl/inc/thread.inc
@@ -35,6 +35,8 @@ Var
     procedure InitThread(stklen:SizeUInt);
       begin
 {$ifndef FPUNONE}
+        SysInitFPU;
+        { the call to SysResetFPU should not be needed here, but SysInitFPU is not properly implemented for all CPUs yet }
         SysResetFPU;
 {$endif}
 {$ifndef HAS_MEMORYMANAGER}