From 573aa1cd346ddda1288912d0877d2d687ce13c13 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Wed, 13 Jun 2007 11:05:15 +0000
Subject: [PATCH] * Make powerpc compile again.
git-svn-id: trunk@7642 -
---
compiler/powerpc/nppcmat.pas | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/powerpc/nppcmat.pas b/compiler/powerpc/nppcmat.pas
index 5f87eddc0b..a2964e9025 100644
--- a/compiler/powerpc/nppcmat.pas
+++ b/compiler/powerpc/nppcmat.pas
@@ -266,7 +266,7 @@ end;
begin
if (tordconstnode(right).value = 0) then begin
internalerror(2005061702);
- end else if (abs(tordconstnode(right).value) = 1) then begin
+ end else if (abs(tordconstnode(right).value.svalue) = 1) then begin
// x mod +/-1 is always zero
cg.a_load_const_reg(current_asmdata.CurrAsmList, OS_INT, 0, resultreg);
end else if (ispowerof2(tordconstnode(right).value, power)) then begin
@@ -276,7 +276,7 @@ end;
maskreg := cg.getintregister(current_asmdata.CurrAsmList, OS_INT);
modreg := cg.getintregister(current_asmdata.CurrAsmList, OS_INT);
- cg.a_load_const_reg(current_asmdata.CurrAsmList, OS_INT, abs(tordconstnode(right).value)-1, modreg);
+ cg.a_load_const_reg(current_asmdata.CurrAsmList, OS_INT, abs(tordconstnode(right).value.svalue)-1, modreg);
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList, OP_SAR, OS_INT, 31, numerator, maskreg);
cg.a_op_reg_reg_reg(current_asmdata.CurrAsmList, OP_AND, OS_INT, numerator, modreg, tempreg);