paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Try to fix tarmunaryminusnode.pass_1

Browse Source 
git-svn-id: trunk@45750 -
This commit is contained in:
pierre 2020-07-09 22:50:34 +00:00
parent 91149df87f
commit cb41b22fdc
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/arm/narmmat.pas
View File

@ -358,15 +358,6 @@ implementation
procname: string[31]; procname: string[31];
fdef : tdef; fdef : tdef;
begin begin
if (current_settings.fputype=fpu_soft) and
(left.resultdef.typ=floatdef) then
begin
result:=nil;
firstpass(left);
expectloc:=LOC_REGISTER;
exit;
end;
if (FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) or if (FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) or
is_single(resultdef) then is_single(resultdef) then
exit(inherited pass_1); exit(inherited pass_1);
@ -376,7 +367,7 @@ implementation
if codegenerror then if codegenerror then
exit; exit;
if (left.resultdef.typ=floatdef) then if (left.resultdef.typ=floatdef) and (current_settings.fputype=fpu_soft) then
begin begin
case tfloatdef(resultdef).floattype of case tfloatdef(resultdef).floattype of
s64real: s64real: