paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19:27 +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,
ncon,ncal,
ncgutil,
cpubase,aasmcpu,
cpubase,cpuinfo,aasmcpu,
rgobj,tgobj,cgobj,hlcgobj,cgutils,globtype,cgcpu;
@ -61,7 +61,8 @@ implementation
{ In case we are in emulation mode, we must
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
result := inherited first_int_to_real;
exit;