Explorar o código

* 64-bit fix + mantis #29111, fix cmsghdr in an unit that is not actively compiled.

git-svn-id: trunk@32557 -
marco %!s(int64=10) %!d(string=hai) anos
pai
achega
11dd843f77
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/rtl-extra/src/linux/unixsockets.inc

+ 1 - 1
packages/rtl-extra/src/linux/unixsockets.inc

@@ -29,6 +29,6 @@ end;
 
 
 function CMSG_DATA(cmsg: Pointer): PByte;
 function CMSG_DATA(cmsg: Pointer): PByte;
 begin
 begin
-  Result:=PByte(Cardinal(cmsg) + SizeOf(Pcmsghdr));
+  Result:=PByte(Ptruint(cmsg) + SizeOf(cmsghdr));
 end;
 end;