paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed 64-bit compilation warnings (Integer -> PtrUInt)

Browse Source 
git-svn-id: trunk@21034 -
This commit is contained in:
sergei 2012-04-25 11:26:00 +00:00
parent 0976d0304f
commit 6fd9dc6d32
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/winunits-jedi/src/jwalpmapi.pas
View File

@ -1527,7 +1527,7 @@ end;
function ObjData(const x: TRsvpObjHdr): Pointer;
begin
Result := Pointer(Integer(@x) + SizeOf(x));
Result := Pointer(PtrUInt(@x) + SizeOf(x));
end;
function Style_is_Wildcard(p: DWORD): Boolean;

8
packages/winunits-jedi/src/jwawindns.pas
View File

@ -1890,7 +1890,7 @@ end;
function DNS_HEADER_FLAGS(pHead: PDNS_HEADER): WORD;
begin
Result := PWORD(Integer(pHead) + SizeOf(WORD))^;
Result := PWORD(@pHead^.Flags)^;
end;
procedure DNS_BYTE_FLIP_HEADER_COUNTS(var pHeader: PDNS_HEADER);
@ -1915,17 +1915,17 @@ end;
function IS_WORD_ALIGNED(P: Pointer): BOOL;
begin
Result := (Integer(P) and 1) = 0;
Result := (PtrUInt(P) and 1) = 0;
end;
function IS_DWORD_ALIGNED(P: Pointer): BOOL;
begin
Result := (Integer(P) and 3) = 0;
Result := (PtrUInt(P) and 3) = 0;
end;
function IS_QWORD_ALIGNED(P: Pointer): BOOL;
begin
Result := (Integer(P) and 7) = 0;
Result := (PtrUInt(P) and 7) = 0;
end;
function DNS_TEXT_RECORD_LENGTH(StringCount: Integer): Integer;

2
packages/winunits-jedi/src/jwawinuser.pas
View File

@ -11935,7 +11935,7 @@ end;
function RAWINPUT_ALIGN(x: Pointer): Pointer;
begin
Result := Pointer((Integer(x) + SizeOf(DWORD) - 1) and not (SizeOf(DWORD) - 1));
Result := Pointer((PtrUInt(x) + (SizeOf(DWORD) - 1)) and not (SizeOf(DWORD) - 1));
end;
function NEXTRAWINPUTBLOCK(ptr: PRawInput): PRawInput;