From 4de8ca83938b98367f4326d5cdb993521173288a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 8 May 2021 20:10:14 +0000
Subject: [PATCH]   * fpcr and fpsr are 64 bit on aarch64

git-svn-id: trunk@49346 -
---
 rtl/aarch64/aarch64.inc | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/rtl/aarch64/aarch64.inc b/rtl/aarch64/aarch64.inc
index e8306e9259..9ccbd486ad 100644
--- a/rtl/aarch64/aarch64.inc
+++ b/rtl/aarch64/aarch64.inc
@@ -33,25 +33,25 @@ const
   fpu_exception_mask = fpu_ioe or fpu_dze or fpu_ofe or fpu_ufe or fpu_ixe or fpu_ide;
   fpu_exception_mask_to_status_mask_shift = 8;
 
-function getfpcr: dword; nostackframe; assembler;
+function getfpcr: qword; nostackframe; assembler;
   asm
     mrs x0,fpcr
   end;
 
 
-procedure setfpcr(val: dword); nostackframe; assembler;
+procedure setfpcr(val: qword); nostackframe; assembler;
   asm
     msr fpcr,x0
   end;
 
 
-function getfpsr: dword; nostackframe; assembler;
+function getfpsr: qword; nostackframe; assembler;
   asm
     mrs x0,fpsr
   end;
 
 
-procedure setfpsr(val: dword); nostackframe; assembler;
+procedure setfpsr(val: qword); nostackframe; assembler;
   asm
     msr fpsr, x0
   end;
@@ -69,7 +69,7 @@ const
 
 procedure RaisePendingExceptions;
   var
-    fpsr : dword;
+    fpsr : qword;
     f: TFPUException;
   begin
     fpsr:=getfpsr;
@@ -96,7 +96,7 @@ procedure RaisePendingExceptions;
   exceptions are not supported }
 procedure fpc_throwfpuexception;[public,alias:'FPC_THROWFPUEXCEPTION'];
   var
-    fpsr : dword;
+    fpsr : qword;
     f: TFPUException;
   begin
     { at this point, we know already, that an exception will be risen }