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

+ Fixed hash computing, now compatible with gnu .mo file

Browse Source
This commit is contained in:
michael 1999-07-25 19:27:15 +00:00
parent 26580a676b
commit 725246c6c5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cresstr.pas
View File

@ -59,7 +59,7 @@ unit cresstr;
Var hash,g,I : longint; Var hash,g,I : longint;
begin begin
hash:=len; hash:=0;
For I:=0 to Len-1 do // 0 terminated For I:=0 to Len-1 do // 0 terminated
begin begin
hash:=hash shl 4; hash:=hash shl 4;
@ -228,7 +228,10 @@ unit cresstr;
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-07-24 18:35:41 michael Revision 1.6 1999-07-25 19:27:15 michael
+ Fixed hash computing, now compatible with gnu .mo file
Revision 1.5 1999/07/24 18:35:41 michael
* Forgot to add unitname to resourcestring data * Forgot to add unitname to resourcestring data
Revision 1.4 1999/07/24 16:22:10 michael Revision 1.4 1999/07/24 16:22:10 michael