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/bsd | |
| 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/bsd')
| -rw-r--r-- | rtl/bsd/system.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/bsd/system.pp b/rtl/bsd/system.pp index 3252ead104..de986f1cd6 100644 --- a/rtl/bsd/system.pp +++ b/rtl/bsd/system.pp @@ -165,7 +165,7 @@ function paramstr(l: longint) : string; paramstr:=''; end; -Procedure Randomize(var randseed: cardinal); +Procedure Randomize; Begin randseed:=longint(Fptime(nil)); End; |