Răsfoiți Sursa

Merge commit #44108 into fixes branch.

------------------------------------------------------------------------
r44108 | pierre | 2020-02-03 22:35:25 +0000 (Mon, 03 Feb 2020) | 1 line

 Fix invalid typecast revealed by -CriotR option
------------------------------------------------------------------------
--- Merging r44108 into '.':
U    compiler/ncnv.pas
--- Recording mergeinfo for merge of r44108 into '.':
 U   .

git-svn-id: branches/fixes_3_2@44680 -
pierre 5 ani în urmă
părinte
comite
e3a9cad8d5
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      compiler/ncnv.pas

+ 1 - 1
compiler/ncnv.pas

@@ -1497,7 +1497,7 @@ implementation
             begin
             begin
               result:=cmoddivnode.create(divn,getcopy,cordconstnode.create(10000,resultdef,false));
               result:=cmoddivnode.create(divn,getcopy,cordconstnode.create(10000,resultdef,false));
               include(result.flags,nf_is_currency);
               include(result.flags,nf_is_currency);
-              include(taddnode(result).left.flags,nf_internal);
+              include(tmoddivnode(result).left.flags,nf_internal);
             end;
             end;
          end;
          end;
       end;
       end;