diff --git a/rtl/aarch64/aarch64.inc b/rtl/aarch64/aarch64.inc
index 39143b108b..da7371d5f2 100644
--- a/rtl/aarch64/aarch64.inc
+++ b/rtl/aarch64/aarch64.inc
@@ -157,6 +157,15 @@ procedure SysInitFPU;
   end;
 
 
+{$define FPC_SYSTEM_HAS_SYSRESETFPU}
+Procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
+begin
+  softfloat_exception_flags:=[];
+  { clear all "exception happened" flags we care about}
+  setfpsr(getfpsr and not(fpu_exception_mask shr fpu_exception_mask_to_status_mask_shift));
+end;
+
+
 {****************************************************************************
                                 Move / Fill
 ****************************************************************************}