diff options
| author | ondrej <ondrej@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-27 04:53:06 +0000 |
|---|---|---|
| committer | ondrej <ondrej@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-27 04:53:06 +0000 |
| commit | 8d35ff545602abbf7cbef5b7685982676552668a (patch) | |
| tree | 94c79015c6943549b99ee25dcaf64bfdee385e6a /rtl/nativent | |
| parent | d7830451e02a0547cd27da2166771e126b957e89 (diff) | |
| download | fpc-8d35ff545602abbf7cbef5b7685982676552668a.tar.gz | |
* revert r47598: implement TRandomGenerator
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47605 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/nativent')
| -rw-r--r-- | rtl/nativent/system.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/nativent/system.pp b/rtl/nativent/system.pp index 81afcc7dae..2addf19c3f 100644 --- a/rtl/nativent/system.pp +++ b/rtl/nativent/system.pp @@ -263,7 +263,7 @@ end; procedure KeQueryTickCount(TickCount: PLargeInteger); stdcall; external ntdll name 'KeQueryTickCount'; -procedure randomize(var randseed: cardinal); +procedure randomize; var tc: PLargeInteger; begin |