paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:09:20 +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; end;
Procedure Randomize; Procedure Randomize;
var
t: time_t;
Begin Begin
randseed:=longint(sys_time(t)); randseed:=longint(sys_time(nil));
End; End;
@ -657,7 +655,10 @@ End.
*) *)
{ {
$Log$ $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 * Only "difficult" functions + execvp + termios + rewinddir left to do
Revision 1.5 2002/10/26 18:27:52 marco Revision 1.5 2002/10/26 18:27:52 marco