소스 검색

* Avoid pointer to signed integer warning

git-svn-id: trunk@17895 -
pierre 14 년 전
부모
커밋
af098d08d5
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/powerpc64/rappcgas.pas

+ 1 - 1
compiler/powerpc64/rappcgas.pas

@@ -687,7 +687,7 @@ begin
     dec(ord(hs[0]));
     actcondition.dirhint := DH_Plus;
   end;
-  actopcode := tasmop(ptrint(iasmops.Find(hs)));
+  actopcode := tasmop(ptruint(iasmops.Find(hs)));
   if actopcode <> A_NONE then
   begin
     if actcondition.dirhint <> DH_None then