Pārlūkot izejas kodu

* Use ptruint instead of ptrint.

git-svn-id: trunk@7816 -
daniel 18 gadi atpakaļ
vecāks
revīzija
441b015a7d
1 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  1. 2 2
      rtl/inc/elfres32.inc

+ 2 - 2
rtl/inc/elfres32.inc

@@ -89,8 +89,8 @@ begin
         CurrentResource:=pFPCResourceInfo(pointer(FPCResourceSectionLocation^.reshash.ptr+i*sizeof(TFPCResourceInfo)));
         FPCRuntimeResourceInfoArray[i].reshash:=CurrentResource^.reshash;
         FPCRuntimeResourceInfoArray[i].restype:=CurrentResource^.restype;
-        FPCRuntimeResourceInfoArray[i].ptr:=pointer(CurrentResource^.ptr)+PtrInt(FPCResourceSectionLocation^.resdata.ptr);
-        FPCRuntimeResourceInfoArray[i].name:=pchar(CurrentResource^.name)+PtrInt(FPCResourceSectionLocation^.ressym.ptr);
+        FPCRuntimeResourceInfoArray[i].ptr:=pointer(CurrentResource^.ptr)+ptruint(FPCResourceSectionLocation^.resdata.ptr);
+        FPCRuntimeResourceInfoArray[i].name:=pchar(CurrentResource^.name)+ptruint(FPCResourceSectionLocation^.ressym.ptr);
         FPCRuntimeResourceInfoArray[i].size:=CurrentResource^.size;
       end;
     end;