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

* Uses now hash function of objpas

Browse Source
This commit is contained in:
michael 1999-08-28 13:35:16 +00:00
parent 3d002a3cc1
commit f1ef577504
1 changed files with 5 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fcl/inc/gettext.pp
View File

@ -71,8 +71,6 @@ type
end;
function CalcHash(s: String): LongWord;
procedure TranslateResourceStrings(AFile: TMOFile);
procedure TranslateResourceStrings(AFilename: String);
@ -80,21 +78,6 @@ implementation
uses dos;
function CalcHash(s: String): LongWord;
var
g, i : LongWord;
begin
Result := 0;
for i := 1 to Length(s) do begin
Result := Result shl 4 + Ord(s[i]);
g := Result and ($f shl 28);
if g <> 0 then
Result := (Result xor (g shr 24)) xor g;
end;
if Result = 0 then Result := not 0;
end;
constructor TMOFile.Create(AStream: TStream);
var
header: TMOFileHeader;
@ -194,7 +177,7 @@ end;
function TMOFile.Translate(AOrig: String): String;
begin
Result := Translate(AOrig, CalcHash(AOrig));
Result := Translate(AOrig, Hash(AOrig));
end;
@ -267,7 +250,10 @@ end.
{
$Log$
Revision 1.3 1999-08-27 15:53:36 michael
Revision 1.4 1999-08-28 13:35:16 michael
* Uses now hash function of objpas
Revision 1.3 1999/08/27 15:53:36 michael
+ Adapted to new resourcestring mechanism. Uses objpas interface only
Revision 1.2 1999/08/26 11:05:15 peter