|
@@ -197,7 +197,8 @@ unit cpupara;
|
|
|
|
|
|
paraloc:=result.add_location;
|
|
|
{ Return in FPU register? }
|
|
|
- if not(cs_fp_emulation in current_settings.moduleswitches) and (result.def.typ=floatdef) then
|
|
|
+ if not (cs_fp_emulation in current_settings.moduleswitches) and
|
|
|
+ not (current_settings.fputype=fpu_soft) and (result.def.typ=floatdef) then
|
|
|
begin
|
|
|
paraloc^.loc:=LOC_FPUREGISTER;
|
|
|
paraloc^.register:=NR_FPU_RESULT_REG;
|