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

* sqr also uses single precision ops for single precision calculations

Browse Source 
git-svn-id: trunk@4788 -
This commit is contained in:
Jonas Maebe 2006-10-04 15:56:22 +00:00
parent 37160edf3c
commit 32a86f6daa
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/powerpc/nppcinl.pas
View File

@ -104,10 +104,16 @@ implementation
end; end;
procedure tppcinlinenode.second_sqr_real; procedure tppcinlinenode.second_sqr_real;
var
op: tasmop;
begin begin
location.loc:=LOC_FPUREGISTER; location.loc:=LOC_FPUREGISTER;
load_fpu_location; load_fpu_location;
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(A_FMUL,location.register, if (left.location.size = OS_F32) then
op := A_FMULS
else
op := A_FMUL;
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg_reg(op,location.register,
left.location.register,left.location.register)); left.location.register,left.location.register));
end; end;