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

* fixed sys_time call to (NIL)

Browse Source
This commit is contained in:
marco 2002-11-14 12:18:03 +00:00
parent c8121bef9f
commit 3b33545449
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/posix/sysposix.inc
View File

@ -103,10 +103,8 @@ function paramstr(l: longint) : string;
end;
Procedure Randomize;
var
t: time_t;
Begin
randseed:=longint(sys_time(t));
randseed:=longint(sys_time(nil));
End;
@ -657,7 +655,10 @@ End.
*)
{
$Log$
Revision 1.6 2002-10-27 17:21:29 marco
Revision 1.7 2002-11-14 12:18:03 marco
* fixed sys_time call to (NIL)
Revision 1.6 2002/10/27 17:21:29 marco
* Only "difficult" functions + execvp + termios + rewinddir left to do
Revision 1.5 2002/10/26 18:27:52 marco