paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 14:53:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix and suppress some rangecheck/overflow errors (regarding calculation

Browse Source 
of magic constants for changing division into multiplication)

git-svn-id: trunk@2653 -
This commit is contained in:
Jonas Maebe 2006-02-20 11:01:38 +00:00
parent 23b5138f78
commit 7f247e9305
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/powerpc/nppcmat.pas
View File

@ -61,6 +61,15 @@ implementation
cpubase,
ncgutil,cgcpu;
{$ifopt r+}
{$r-}
{$define rangeon}
{$endif}
{$ifopt q+}
{$r-}
{$define overflowon}
{$endif}
{ helper functions }
procedure getmagic_unsigned32(d : dword; out magic_m : dword; out magic_add : boolean; out magic_shift : dword);
var
@ -144,6 +153,16 @@ begin
magic_s := p - 32; { resulting shift }
end;
{$ifdef rangeon}
{$r+}
{$undef rangeon}
{$endif}
{$ifdef overflowon}
{$q+}
{$undef overflowon}
{$endif}
{*****************************************************************************
TPPCMODDIVNODE
*****************************************************************************}
@ -226,7 +245,7 @@ end;
end else begin
getmagic_unsigned32(tordconstnode(right).value, u_magic, u_add, u_shift);
// load magic in divreg
cg.a_load_const_reg(exprasmlist, OS_INT, u_magic, divreg);
cg.a_load_const_reg(exprasmlist, OS_INT, aint(u_magic), divreg);
exprasmlist.concat(taicpu.op_reg_reg_reg(A_MULHWU, resultreg, numerator, divreg));
if (u_add) then begin
cg.a_op_reg_reg_reg(exprasmlist, OP_SUB, OS_INT, resultreg, numerator, divreg);