Procházet zdrojové kódy

* fixed copy&paste error of r45658

git-svn-id: trunk@45659 -
florian před 5 roky
rodič
revize
a2303bd899
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      compiler/ncgutil.pas

+ 1 - 1
compiler/ncgutil.pas

@@ -190,7 +190,7 @@ implementation
         ncl, ncr: longint;
         ncl, ncr: longint;
       begin
       begin
          { calculate boolean AND and OR from left to right if it's short boolean evaluted }
          { calculate boolean AND and OR from left to right if it's short boolean evaluted }
-         if (p.nodetype in [orn,andn]) and is_boolean(p.left.resultdef) and is_boolean(p.left.resultdef) and doshortbooleval(p) then
+         if (p.nodetype in [orn,andn]) and is_boolean(p.left.resultdef) and is_boolean(p.right.resultdef) and doshortbooleval(p) then
            begin
            begin
              if nf_swapped in p.flags then
              if nf_swapped in p.flags then
                internalerror(200709253);
                internalerror(200709253);