mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 10:19:30 +02:00
Avoid invalid typecast in tarmunaryminusnode.pass_1 method
git-svn-id: trunk@44726 -
This commit is contained in:
parent
9bcff94e9e
commit
73b563b367
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user