Преглед на файлове

* fixes compilation on WinCE

git-svn-id: trunk@44715 -
florian преди 5 години
родител
ревизия
3d4cc7c2f6
променени са 1 файла, в които са добавени 6 реда и са изтрити 2 реда
  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: