paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation for non-Xtensa targets fixed

Browse Source 
git-svn-id: trunk@44543 -
This commit is contained in:
florian 2020-04-03 20:15:26 +00:00
parent fc98a0db4f
commit af8202be3d
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/defutil.pas
View File

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

2
compiler/nadd.pas
View File

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