فهرست منبع

tarmunaryminusnode.pass_1 must call inherited method for system_arm_wince

git-svn-id: trunk@45755 -
pierre 5 سال پیش
والد
کامیت
39f3a72c62
1فایلهای تغییر یافته به همراه3 افزوده شده و 2 حذف شده
  1. 3 2
      compiler/arm/narmmat.pas

+ 3 - 2
compiler/arm/narmmat.pas

@@ -54,7 +54,7 @@ implementation
       globtype,compinnr,
       cutils,verbose,globals,constexp,
       aasmbase,aasmcpu,aasmtai,aasmdata,
-      defutil,
+      defutil,systems,
       symtype,symconst,symtable,
       cgbase,cgobj,hlcgobj,cgutils,
       pass_2,procinfo,
@@ -359,7 +359,8 @@ implementation
         fdef : tdef;
       begin
         if (FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) or
-          is_single(resultdef) then
+           (target_info.system = system_arm_wince) or
+           is_single(resultdef) then
           exit(inherited pass_1);
 
         result:=nil;