← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to packages/extra/utmp/utmp.pp

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/utmp/utmp.pp
3
3
interface
4
4
 
5
5
uses
6
 
{$ifdef ver1_0}
7
 
  Linux
8
 
{$else}
9
6
  BaseUnix,
10
 
  Unix
11
 
{$endif}
12
 
  ;
 
7
  Unix;
13
8
 
14
9
const
15
10
  Device_name_length = 12;
247
242
    S : Stat;
248
243
 
249
244
  begin
250
 
    {$ifdef ver1_0}FStat{$else}fpstat{$endif}(Utmp_file, S);
251
 
    Number_of_utmp_entries := {$ifdef ver1_0}S.Size{$else}s.st_size{$endif} div System.SizeOf(tLL_Utmp);
 
245
    fpstat(Utmp_file, S);
 
246
    Number_of_utmp_entries := s.st_size div System.SizeOf(tLL_Utmp);
252
247
  end;
253
248
 
254
249
 
325
320
  Utmp_file := '/var/run/utmp';
326
321
  Set_search_parameters(Include,DefaultLoginType);
327
322
end.
328
 
  $Log: utmp.pp,v $
329
 
  Revision 1.5  2005/02/14 17:13:21  peter
330
 
    * truncate log
331
 
 
332
 
}