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

* compilation fixed

Browse Source 
git-svn-id: trunk@44545 -
This commit is contained in:
florian 2020-04-03 20:15:27 +00:00
parent 6c6a16a154
commit 3705f95b92
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/defutil.pas
View File

@ -1521,7 +1521,7 @@ implementation
floatdef:
if (cs_fp_emulation in current_settings.moduleswitches)
{$ifdef xtensa}
or not(tfloatdef(def).floattype=s32real) or
or not(tfloatdef(def).floattype=s32real)
or not(FPUXTENSA_SINGLE in fpu_capabilities[current_settings.fputype])
{$endif xtensa}
then

4
compiler/ncgutil.pas
View File

@ -334,9 +334,9 @@ implementation
cg.a_jmp_flags(list,p.location.resflags,truelabel);
{ e.g. xtensa has no default flags but uses a boolean register }
{$if defined(NR_DEFAULTFLAGS)}
{$ifndef xtensa}
cg.a_reg_dealloc(list,NR_DEFAULTFLAGS);
{$endif defined(NR_DEFAULTFLAGS)}
{$endif xtensa}
cg.a_jmp_always(list,falselabel);
end;
{$endif cpuflags}