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

- removed unused variable after div-by-zero simplify patch

Browse Source 
git-svn-id: trunk@8359 -
This commit is contained in:
Jonas Maebe 2007-09-02 21:06:50 +00:00
parent 30e618ccb6
commit cc0bd74ea0
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nmat.pas
View File

@ -149,7 +149,6 @@ implementation
var var
hp,t : tnode; hp,t : tnode;
rd,ld : torddef; rd,ld : torddef;
rv : tconstexprint;
begin begin
result:=nil; result:=nil;
typecheckpass(left); typecheckpass(left);
@ -186,13 +185,6 @@ implementation
rd:=torddef(right.resultdef); rd:=torddef(right.resultdef);
ld:=torddef(left.resultdef); ld:=torddef(left.resultdef);
{ check for division by zero }
if is_constintnode(right) then
begin
{ division by zero is already checked in simplify }
rv:=tordconstnode(right).value;
end;
{ if one operand is a cardinal and the other is a positive constant, convert the } { if one operand is a cardinal and the other is a positive constant, convert the }
{ constant to a cardinal as well so we don't have to do a 64bit division (JM) } { constant to a cardinal as well so we don't have to do a 64bit division (JM) }
{ Do the same for qwords and positive constants as well, otherwise things like } { Do the same for qwords and positive constants as well, otherwise things like }