From d709f6720b53313f4a4c9b99d6fadb207699ca32 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Mon, 19 Aug 2002 17:35:42 +0000 Subject: [PATCH] * fixes --- compiler/powerpc/nppcinl.pas | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/compiler/powerpc/nppcinl.pas b/compiler/powerpc/nppcinl.pas index dba5ee2768..5f3ffc2ec8 100644 --- a/compiler/powerpc/nppcinl.pas +++ b/compiler/powerpc/nppcinl.pas @@ -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