Kaynağa Gözat

Fix compilation error after last commit

git-svn-id: branches/fixes_3_2@40625 -
pierre 6 yıl önce
ebeveyn
işleme
9ca0c1c5dc
1 değiştirilmiş dosya ile 1 ekleme ve 9 silme
  1. 1 9
      compiler/optutils.pas

+ 1 - 9
compiler/optutils.pas

@@ -389,15 +389,7 @@ unit optutils;
               Result:=fen_norecurse_false;
             end;
           else
-{$push}
-{ The code below emits two warnings if ptruint and aword are the same type }
-{$warn 4044 off}
-{$warn 6018 off}
-            if PAWord(arg)^ > high(aword) then
-              n.optinfo^.executionweight:=high(AWord)
-            else
-              n.optinfo^.executionweight:=PAWord(arg)^;
-{$pop}
+            n.optinfo^.executionweight:=weight;
         end;
       end;