paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid pointer to signed integer warning

Browse Source 
git-svn-id: trunk@17895 -
This commit is contained in:
pierre 2011-07-01 11:55:05 +00:00
parent 37b98917e0
commit af098d08d5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc64/rappcgas.pas
View File

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