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

fcl-hash: use randomize

Browse Source
This commit is contained in:
mattias 2022-04-29 02:18:42 +02:00
parent 6bf0de0ba2
commit 216c848075
2 changed files with 2 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-hash/src/fpasn.pp
View File

@ -2,6 +2,7 @@ unit fpasn;
{$mode ObjFPC}{$H+}
{$modeswitch advancedrecords}
interface
uses

25
packages/fcl-hash/src/fphashutils.pp
View File

@ -19,10 +19,6 @@ unit fphashutils;
{$mode ObjFPC}{$H+}
{$modeswitch advancedrecords}
{$IF defined(CPUi386) or defined(CPUx86_64) }
{$define HasRDTSCP}
{$ENDIF}
interface
uses
@ -436,39 +432,20 @@ begin
Result:=Copy(aSource,P1,P2-P1);
end;
{$IFDEF HasRDTSCP}
function RDTSCP: Int64; assembler; nostackframe;
asm
RDTSCP
end;
{$ENDIF}
function IntGetRandomNumber(aBytes : PByte; aCount: Integer): Boolean;
Var
i: Integer;
P : PByte;
{$IFDEF HasRDTSCP}
{%H-}i64: int64;
j: integer;
{$ENDIF}
begin
Randomize;
P:=aBytes;
i:=0;
while i<aCount do
begin
{$IFDEF HasRDTSCP}
i64:=RDTSCP;
j:=aCount-i;
if j>8 then j:=8;
system.move(i64,P^,j);
inc(p,j);
inc(i,j);
{$ELSE}
P^:=Random(256);
Inc(P);
inc(i);
{$ENDIF}
end;
Result:=True;
end;