Browse Source

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

michael 26 years ago
parent
commit
725246c6c5
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/cresstr.pas

+ 5 - 2
compiler/cresstr.pas

@@ -59,7 +59,7 @@ unit cresstr;
       Var hash,g,I : longint;
 
       begin
-         hash:=len;
+         hash:=0;
          For I:=0 to Len-1 do // 0 terminated
            begin
            hash:=hash shl 4;
@@ -228,7 +228,10 @@ unit cresstr;
 end.
 {
   $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
 
   Revision 1.4  1999/07/24 16:22:10  michael