paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 12:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* code simplified

Browse Source 
git-svn-id: trunk@1167 -
This commit is contained in:
florian 2005-09-23 16:35:46 +00:00
parent cde3b119ef
commit 6863cb00df
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/elfres32.inc
View File

@ -34,7 +34,7 @@ type
reshash: longint; // always 32bit, contains an ELF hash of the resource entries name reshash: longint; // always 32bit, contains an ELF hash of the resource entries name
restype: longint; // always 32bit, contains the resource type ID compatible with Windows RES IDs restype: longint; // always 32bit, contains the resource type ID compatible with Windows RES IDs
ptr: pointer; // Memory pointer to the reosource ptr: pointer; // Memory pointer to the reosource
name: string; // String containing the name of the resource name: ansistring; // String containing the name of the resource
size: longint; // The size of the resource entry - 32/64 Bit, depending on platform size: longint; // The size of the resource entry - 32/64 Bit, depending on platform
end; end;
PFPCRuntimeResourceInfo = ^TFPCRuntimeResourceInfo; PFPCRuntimeResourceInfo = ^TFPCRuntimeResourceInfo;
@ -83,11 +83,12 @@ begin
FPCRuntimeResourceInfoArray:=GetMem(SizeOf(TFPCRuntimeResourceInfo)*ResInfoCount); FPCRuntimeResourceInfoArray:=GetMem(SizeOf(TFPCRuntimeResourceInfo)*ResInfoCount);
for i:=0 to ResInfoCount-1 do for i:=0 to ResInfoCount-1 do
begin begin
CurrentResource:=pFPCResourceInfo(pointer(longint(FPCResourceSectionLocation^.reshash.ptr)+i*sizeof(TFPCResourceInfo))); CurrentResource:=pFPCResourceInfo(pointer(FPCResourceSectionLocation^.reshash.ptr+i*sizeof(TFPCResourceInfo)));
FPCRuntimeResourceInfoArray[i].reshash:=CurrentResource^.reshash; FPCRuntimeResourceInfoArray[i].reshash:=CurrentResource^.reshash;
FPCRuntimeResourceInfoArray[i].restype:=CurrentResource^.restype; FPCRuntimeResourceInfoArray[i].restype:=CurrentResource^.restype;
FPCRuntimeResourceInfoArray[i].ptr:=pointer(longint(CurrentResource^.ptr)+longint(FPCResourceSectionLocation^.resdata.ptr)); FPCRuntimeResourceInfoArray[i].ptr:=pointer(CurrentResource^.ptr)+PtrInt(FPCResourceSectionLocation^.resdata.ptr);
FPCRuntimeResourceInfoArray[i].name:=pchar(pointer(longint(CurrentResource^.name)+longint(FPCResourceSectionLocation^.ressym.ptr))); FPCRuntimeResourceInfoArray[i].name:=pchar(CurrentResource^.name)+PtrInt(FPCResourceSectionLocation^.ressym.ptr);
writeln(FPCRuntimeResourceInfoArray[i].name);
FPCRuntimeResourceInfoArray[i].size:=CurrentResource^.size; FPCRuntimeResourceInfoArray[i].size:=CurrentResource^.size;
end; end;
end; end;