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

* less code commented

Browse Source 
git-svn-id: trunk@12792 -
This commit is contained in:
florian 2009-02-25 19:41:30 +00:00
parent 234a182bdc
commit eaba28bbf1
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/avr/navrmat.pas
View File

@ -81,9 +81,9 @@ implementation
resultreg : tregister;
size : Tcgsize;
so : tshifterop;
{
procedure genOrdConstNodeDiv;
begin
{
if tordconstnode(right).value=0 then
internalerror(2005061701)
else if tordconstnode(right).value=1 then
@ -116,12 +116,14 @@ implementation
else
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,OP_SHR,OS_INT,power,numerator,resultreg)
end;
end;
}
{
end;
procedure genOrdConstNodeMod;
var
modreg, maskreg, tempreg : tregister;
{
begin
if (tordconstnode(right).value = 0) then begin
internalerror(2005061702);
@ -156,15 +158,15 @@ implementation
cg.a_op_const_reg_reg(current_asmdata.CurrAsmList, OP_MUL, OS_INT, tordconstnode(right).value.svalue, resultreg, resultreg);
cg.a_op_reg_reg_reg(current_asmdata.CurrAsmList, OP_SUB, OS_INT, resultreg, numerator, resultreg);
end;
end;
}
end;
begin
{
secondpass(left);
secondpass(right);
location_copy(location,left.location);
{
{ put numerator in register }
size:=def_cgsize(left.resultdef);
location_force_reg(current_asmdata.CurrAsmList,left.location,
@ -190,7 +192,7 @@ implementation
if nodetype=divn then
genOrdConstNodeDiv
else
// genOrdConstNodeMod;
genOrdConstNodeMod;
end;
location.register:=resultreg;