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

* stat record fixes.

Browse Source
This commit is contained in:
marco 2003-09-29 19:28:09 +00:00
parent dce9f12970
commit 522e06bf43
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/extra/utmp/utmp.pp
View File

@ -248,7 +248,7 @@ var
begin begin
{$ifdef ver1_0}FStat{$else}fpstat{$endif}(Utmp_file, S); {$ifdef ver1_0}FStat{$else}fpstat{$endif}(Utmp_file, S);
Number_of_utmp_entries := S.Size div System.SizeOf(tLL_Utmp); Number_of_utmp_entries := {$ifdef ver1_0}S.Size{$else}s.st_size{$endif} div System.SizeOf(tLL_Utmp);
end; end;
@ -326,7 +326,10 @@ begin
Set_search_parameters(Include,DefaultLoginType); Set_search_parameters(Include,DefaultLoginType);
end. end.
$Log$ $Log$
Revision 1.3 2003-09-27 12:13:50 peter Revision 1.4 2003-09-29 19:28:09 marco
* stat record fixes.
Revision 1.3 2003/09/27 12:13:50 peter
* fixed for unix * fixed for unix
Revision 1.2 2002/09/07 15:43:06 peter Revision 1.2 2002/09/07 15:43:06 peter