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

* Small optimization.

Browse Source 
git-svn-id: trunk@5304 -
This commit is contained in:
yury 2006-11-10 10:20:38 +00:00
parent 9217d50f5c
commit 677defd615
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/elfres32.inc
View File

@ -119,13 +119,12 @@ begin
{ resources aren't case sensitive }
n:=upcase(strpas(resourcename));
searchhash:=HashELF(n);
I:=0;
While (Result=0) and (I<ResInfoCount) do
begin
for i:=0 to ResInfoCount-1 do
if (FPCRuntimeResourceInfoArray[i].reshash=searchhash) and (upcase(FPCRuntimeResourceInfoArray[i].name)=n) then
result:=i+1;
Inc(I);
end;
begin
result:=i+1;
break;
end;
end;
function LoadResource(ModuleHandle: HMODULE; ResHandle: TResourceHandle): HGLOBAL;