paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:33:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes compilation on WinCE

Browse Source 
git-svn-id: trunk@44715 -
This commit is contained in:
florian 2020-04-13 13:09:15 +00:00
parent cd35cdad25
commit 3d4cc7c2f6
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/arm/narmcnv.pas
View File

@ -40,7 +40,9 @@ interface
implementation implementation
uses uses
verbose,globtype,globals,symdef,aasmbase,aasmtai,aasmdata,symtable, verbose,globtype,globals,
systems,
symdef,aasmbase,aasmtai,aasmdata,symtable,
defutil, defutil,
cgbase,cgutils, cgbase,cgutils,
pass_1,pass_2,procinfo,ncal, pass_1,pass_2,procinfo,ncal,
@ -107,9 +109,11 @@ implementation
end; end;
end; end;
function tarmtypeconvnode.first_real_to_real: tnode; function tarmtypeconvnode.first_real_to_real: tnode;
begin begin
if not(FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) then if not(FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) and
not (target_info.system in systems_wince) then
begin begin
case tfloatdef(left.resultdef).floattype of case tfloatdef(left.resultdef).floattype of
s32real: s32real: