g-spitbo.adb: (Hash): Rotate by 3 instead of 1
2005-11-14 Robert Dewar <dewar@adacore.com> * g-spitbo.adb: (Hash): Rotate by 3 instead of 1 From-SVN: r106985
This commit is contained in:
parent
e49b74a95f
commit
11bfd18a18
|
@ -6,7 +6,7 @@
|
|||
-- --
|
||||
-- B o d y --
|
||||
-- --
|
||||
-- Copyright (C) 1998-2005 Ada Core Technologies, Inc. --
|
||||
-- Copyright (C) 1998-2005, AdaCore --
|
||||
-- --
|
||||
-- GNAT is free software; you can redistribute it and/or modify it under --
|
||||
-- terms of the GNU General Public License as published by the Free Soft- --
|
||||
|
@ -622,7 +622,7 @@ package body GNAT.Spitbol is
|
|||
|
||||
begin
|
||||
for J in Str'Range loop
|
||||
Result := Rotate_Left (Result, 1) +
|
||||
Result := Rotate_Left (Result, 3) +
|
||||
Unsigned_32 (Character'Pos (Str (J)));
|
||||
end loop;
|
||||
|
||||
|
|
Loading…
Reference in New Issue