From 8cc183c1d107d5d5e1bd5fd4495eefdb1407045b Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 2 Oct 2005 09:08:21 +0000
Subject: [PATCH] * resources aren't case sensitive * fixed installing of
 default component loading handler

git-svn-id: trunk@1250 -
---
 rtl/inc/elfres32.inc | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/elfres32.inc b/rtl/inc/elfres32.inc
index 49194db9bf..b022df7f2f 100644
--- a/rtl/inc/elfres32.inc
+++ b/rtl/inc/elfres32.inc
@@ -113,12 +113,13 @@ begin
     Exit;
   If Not InitRes then
     InitializeResources;
-  searchhash:=HashELF(ResourceName);
-  n:=strpas(resourcename);
+  { resources aren't case sensitive }
+  n:=upcase(strpas(resourcename));
+  searchhash:=HashELF(n);
   I:=0;
   While (Result=0) and (I<ResInfoCount) do
     begin
-    if (FPCRuntimeResourceInfoArray[i].reshash=searchhash) and (FPCRuntimeResourceInfoArray[i].name=n) then
+    if (FPCRuntimeResourceInfoArray[i].reshash=searchhash) and (upcase(FPCRuntimeResourceInfoArray[i].name)=n) then
       result:=i+1;
     Inc(I);
     end;