Avoid invalid typecast in tarmunaryminusnode.pass_1 method

git-svn-id: trunk@44726 -
This commit is contained in:
pierre 2020-04-15 20:47:04 +00:00
parent 9bcff94e9e
commit 73b563b367

View File

@ -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;