Home Explore Help
Sign In
pascal
/
CryptoLib4Pascal
mirror of https://github.com/Xor-el/CryptoLib4Pascal
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

minor change

Ugochukwu Mmaduekwe 6 years ago
parent
a81fa96af2
commit
6c5f384ec3
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      CryptoLib/src/Utils/Randoms/ClpOSRandom.pas

+ 1 - 1
CryptoLib/src/Utils/Randoms/ClpOSRandom.pas
View File 

@@ -485,7 +485,7 @@ end;
 
 class function TOSRandom.GenRandomBytesLinux(len: Int32; data: PByte): Int32;
 
 const
 
   GRND_DEFAULT: Int32 = $0000;
 
-  EINTR: Int32 = 4;
 
+  EINTR = {$IFDEF FPC}ESysEINTR {$ELSE}Posix.Errno.EINTR{$ENDIF};
 
 var
 
   n: Int64;
 
 begin