From af8202be3d829691ed8fde03d521581c8a61820e Mon Sep 17 00:00:00 2001 From: florian Date: Fri, 3 Apr 2020 20:15:26 +0000 Subject: [PATCH] * compilation for non-Xtensa targets fixed git-svn-id: trunk@44543 - --- compiler/defutil.pas | 6 +++--- compiler/nadd.pas | 2 ++ 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/defutil.pas b/compiler/defutil.pas index e6b3150b25..908efd1803 100644 --- a/compiler/defutil.pas +++ b/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) diff --git a/compiler/nadd.pas b/compiler/nadd.pas index a3170ff2d4..b2b188a74d 100644 --- a/compiler/nadd.pas +++ b/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