소스 검색

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;
             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;