소스 검색

consistency adjustment in OSRandom

Ugochukwu Mmaduekwe 7 년 전
부모
커밋
8ae3316c44
1개의 변경된 파일3개의 추가작업 그리고 3개의 파일을 삭제
  1. 3 3
      CryptoLib/src/Utils/Randoms/ClpOSRandom.pas

+ 3 - 3
CryptoLib/src/Utils/Randoms/ClpOSRandom.pas

@@ -122,15 +122,15 @@ function SecRandomCopyBytes(rnd: SecRandomRef; count: LongWord; bytes: PByte)
 {$IFDEF IOSFPC}
 {$IFDEF IOSFPC}
 
 
 type
 type
-
+  // similar to a TOpaqueData already defined in newer FPC but not available in 3.0.4
   __SecRandom = record end;
   __SecRandom = record end;
-
+ // similar to an OpaquePointer already defined in newer FPC but not available in 3.0.4
   SecRandomRef = ^__SecRandom;
   SecRandomRef = ^__SecRandom;
 
 
 const
 const
   { * This is a synonym for NULL, if you'd rather use a named constant.   This
   { * This is a synonym for NULL, if you'd rather use a named constant.   This
     refers to a cryptographically secure random number generator.  * }
     refers to a cryptographically secure random number generator.  * }
-  kSecRandomDefault: Pointer = Nil;
+  kSecRandomDefault: SecRandomRef = Nil;
 
 
 function SecRandomCopyBytes(rnd: SecRandomRef; count: LongWord; bytes: PByte)
 function SecRandomCopyBytes(rnd: SecRandomRef; count: LongWord; bytes: PByte)
   : Integer; cdecl; external;
   : Integer; cdecl; external;