瀏覽代碼

Fix compilation error after last commit

git-svn-id: branches/fixes_3_2@40625 -
pierre 6 年之前
父節點
當前提交
9ca0c1c5dc
共有 1 個文件被更改,包括 1 次插入9 次删除
  1. 1 9
      compiler/optutils.pas

+ 1 - 9
compiler/optutils.pas

@@ -389,15 +389,7 @@ unit optutils;
               Result:=fen_norecurse_false;
               Result:=fen_norecurse_false;
             end;
             end;
           else
           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;
       end;
       end;