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

Also handle fpu_soft

Browse Source 
git-svn-id: trunk@23178 -
This commit is contained in:
pierre 2012-12-18 15:06:24 +00:00
parent 080034982f
commit 2a610e74b7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/m68k/n68kcnv.pas
View File

@ -46,7 +46,7 @@ implementation
cgbase,pass_1,pass_2,procinfo, cgbase,pass_1,pass_2,procinfo,
ncon,ncal, ncon,ncal,
ncgutil, ncgutil,
cpubase,aasmcpu, cpubase,cpuinfo,aasmcpu,
rgobj,tgobj,cgobj,hlcgobj,cgutils,globtype,cgcpu; rgobj,tgobj,cgobj,hlcgobj,cgutils,globtype,cgcpu;
@ -61,7 +61,8 @@ implementation
{ In case we are in emulation mode, we must { In case we are in emulation mode, we must
always call the helpers always call the helpers
} }
if (cs_fp_emulation in current_settings.moduleswitches) then if (cs_fp_emulation in current_settings.moduleswitches)
or (current_settings.fputype=fpu_soft) then
begin begin
result := inherited first_int_to_real; result := inherited first_int_to_real;
exit; exit;