paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:17:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixes

Browse Source
This commit is contained in:
Jonas Maebe 2002-08-19 17:35:42 +00:00
parent 8596df9dde
commit d709f6720b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/powerpc/nppcinl.pas
View File

@ -124,7 +124,8 @@ implementation
procedure tppcinlinenode.second_abs_real;
begin
load_fpu_location;
exprasmlist.concat(taicpu.op_none(A_FABS));
exprasmlist.concat(taicpu.op_reg_reg(A_FABS,location.register,
left.location.register));
end;
procedure tppcinlinenode.second_sqr_real;
@ -137,7 +138,7 @@ implementation
procedure tppcinlinenode.second_sqrt_real;
begin
load_fpu_location;
exprasmlist.concat(taicpu.op_reg_reg(A_FMUL,location.register,
exprasmlist.concat(taicpu.op_reg_reg(A_FSQRT,location.register,
left.location.register));
end;
@ -146,7 +147,10 @@ begin
end.
{
$Log$
Revision 1.1 2002-08-10 17:15:00 jonas
Revision 1.2 2002-08-19 17:35:42 jonas
* fixes
Revision 1.1 2002/08/10 17:15:00 jonas
+ abs, sqr, sqrt implementations