Переглянути джерело

* compilation for non-Xtensa targets fixed

git-svn-id: trunk@44543 -
florian 5 роки тому
батько
коміт
af8202be3d
2 змінених файлів з 5 додано та 3 видалено
  1. 3 3
      compiler/defutil.pas
  2. 2 0
      compiler/nadd.pas

+ 3 - 3
compiler/defutil.pas

@@ -1519,10 +1519,10 @@ implementation
           objectdef :
             result:=int_cgsize(def.size);
           floatdef:
-            if (cs_fp_emulation in current_settings.moduleswitches) or
+            if (cs_fp_emulation in current_settings.moduleswitches)
 {$ifdef xtensa}
-              not(tfloatdef(def).floattype=s32real) or
-              not(FPUXTENSA_SINGLE in fpu_capabilities[current_settings.fputype])
+              or not(tfloatdef(def).floattype=s32real) or
+              or not(FPUXTENSA_SINGLE in fpu_capabilities[current_settings.fputype])
 {$endif xtensa}
               then
               result:=int_cgsize(def.size)

+ 2 - 0
compiler/nadd.pas

@@ -3635,6 +3635,8 @@ implementation
         fdef : tdef;
       begin
         notnode:=false;
+        result:=nil;
+        fdef:=nil;
         if not(target_info.system in systems_wince) then
           begin
             case tfloatdef(left.resultdef).floattype of