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

* prevent overflow in fphash

Browse Source 
git-svn-id: trunk@3130 -
This commit is contained in:
peter 2006-04-02 20:48:36 +00:00
parent a8c2419d8a
commit 1a3cf9650e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cclasses.pas
View File

@ -1096,6 +1096,10 @@ end;
Var Var
p,pmax : pchar; p,pmax : pchar;
begin begin
{$ifopt Q+}
{$define overflowon}
{$Q-}
{$endif}
result:=0; result:=0;
p:=@s[1]; p:=@s[1];
pmax:=@s[length(s)+1]; pmax:=@s[length(s)+1];
@ -1104,6 +1108,10 @@ end;
result:=((result shl 5) - result) xor LongWord(P^); result:=((result shl 5) - result) xor LongWord(P^);
inc(p); inc(p);
end; end;
{$ifdef overflowon}
{$Q+}
{$undef overflowon}
{$endif}
end; end;