ソースを参照

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

git-svn-id: trunk@8359 -
Jonas Maebe 18 年 前
コミット
cc0bd74ea0
1 ファイル変更0 行追加8 行削除
  1. 0 8
      compiler/nmat.pas

+ 0 - 8
compiler/nmat.pas

@@ -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   }