Forráskód Böngészése

* fixes compilation on WinCE

git-svn-id: trunk@44715 -
florian 5 éve
szülő
commit
3d4cc7c2f6
1 módosított fájl, 6 hozzáadás és 2 törlés
  1. 6 2
      compiler/arm/narmcnv.pas

+ 6 - 2
compiler/arm/narmcnv.pas

@@ -40,7 +40,9 @@ interface
 implementation
 
    uses
-      verbose,globtype,globals,symdef,aasmbase,aasmtai,aasmdata,symtable,
+      verbose,globtype,globals,
+      systems,
+      symdef,aasmbase,aasmtai,aasmdata,symtable,
       defutil,
       cgbase,cgutils,
       pass_1,pass_2,procinfo,ncal,
@@ -107,9 +109,11 @@ implementation
           end;
       end;
 
+
     function tarmtypeconvnode.first_real_to_real: tnode;
       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
             case tfloatdef(left.resultdef).floattype of
               s32real: