From 1ebb362a0dfa23ed1ef7ba83b792a1f764703bab Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 15 Aug 1999 21:28:57 +0000
Subject: [PATCH] + Pass hash also for speed reasons.

---
 rtl/objpas/objpas.pp | 30 ++++++++++++++----------------
 1 file changed, 14 insertions(+), 16 deletions(-)

diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index 8992286b51..4c35357ffb 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -57,9 +57,9 @@ unit objpas;
 
 {$ifdef HasResourceStrings}
      { Resourcestring support }
-     Function GetResourceString(Const Name : ShortString) : AnsiString;
+     Function GetResourceString(Hash : Longint;Const Name : ShortString) : AnsiString;
      Procedure ResetResourceTables;
-     Function SetResourceString(Const Name : Shortstring; Const Value : AnsiString) : Boolean;
+     Function SetResourceString(Hash : Longint;Const Name : Shortstring; Const Value : AnsiString) : Boolean;
 {$endif}
 
 
@@ -260,14 +260,13 @@ begin
      CalcStringHashValue:=Hash;
 end;
 
-Function FindIndex (Const Value : Shortstring) : Longint;
+Function FindIndex (Hash : longint;Const Value : Shortstring) : Longint;
 
 Var
-  I,Hash : longint;
+  I : longint;
   
 begin
   // Linear search, later we can implement binary search.
-  Hash:=CalcStringHashValue(Value);
   Result:=-1;
   With ResourceStringTable do
     For I:=0 to Count-1 do
@@ -289,25 +288,21 @@ begin
 end;
 
 
-Function GetResourceString(Const Name : ShortString) : AnsiString;[Public,Alias : 'FPC_GETRESOURCESTRING'];
-
-Var I : longint;
+Function GetResourceString(Hash : longint;Const Name : ShortString) : AnsiString;[Public,Alias : 'FPC_GETRESOURCESTRING'];
 
 begin
-  I:=FindIndex(Name);
-  If I<>-1 then
-     Result:=ResourceStringTable.ResRec[I].CurrentValue
+  Hash:=FindIndex(Hash,Name);
+  If Hash<>-1 then
+     Result:=ResourceStringTable.ResRec[Hash].CurrentValue
   else
      Result:='';
 end;
 
 
-Function SetResourceString(Const Name : ShortString; Const Value : AnsiString) : Boolean;
-
-Var Hash : Longint;
+Function SetResourceString(Hash : Longint;Const Name : ShortString; Const Value : AnsiString) : Boolean;
 
 begin
-  Hash:=FindIndex(Name);
+  Hash:=FindIndex(Hash,Name);
   Result:=Hash<>-1;
   If Result then
     ResourceStringTable.ResRec[Hash].CurrentValue:=Value;
@@ -338,7 +333,10 @@ end.
 
 {
   $Log$
-  Revision 1.31  1999-08-15 21:02:56  michael
+  Revision 1.32  1999-08-15 21:28:57  michael
+  + Pass hash also for speed reasons.
+
+  Revision 1.31  1999/08/15 21:02:56  michael
   + Changed resource string mechanism to use names.
 
   Revision 1.30  1999/08/15 18:56:13  michael