From 73b563b3679e0771fe3d0f546da7695b9f911e1f Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 15 Apr 2020 20:47:04 +0000
Subject: [PATCH] Avoid invalid typecast in tarmunaryminusnode.pass_1 method
git-svn-id: trunk@44726 -
---
compiler/arm/narmmat.pas | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/arm/narmmat.pas b/compiler/arm/narmmat.pas
index 58bc888a79..7375d74e5f 100644
--- a/compiler/arm/narmmat.pas
+++ b/compiler/arm/narmmat.pas
@@ -368,7 +368,7 @@ implementation
end;
if (FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) or
- (tfloatdef(resultdef).floattype=s32real) then
+ is_single(resultdef) then
exit(inherited pass_1);
result:=nil;