paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 23:39:20 +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

7
rtl/inc/elfres32.inc
View File

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