← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/base/libc/ssyslog.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/base/libc/ssyslog.inc
 
1
 
 
2
 
 
3
function LOG_PRI(p : longint) : longint;
 
4
 
 
5
begin
 
6
   LOG_PRI:=(p and LOG_PRIMASK);
 
7
end;
 
8
 
 
9
function LOG_MAKEPRI(fac,pri : longint) : longint;
 
10
 
 
11
begin
 
12
   LOG_MAKEPRI:=(fac shl 3) or pri;
 
13
end;
 
14
 
 
15
function LOG_FAC(p : longint) : longint;
 
16
 
 
17
begin
 
18
   LOG_FAC:=(p and LOG_FACMASK) shr 3;
 
19
end;
 
20
 
 
21
function LOG_MASK(pri : longint) : longint;
 
22
 
 
23
begin
 
24
   LOG_MASK:=1 shl pri;
 
25
end;
 
26
 
 
27
 
 
28
function LOG_UPTO(pri : longint) : longint;
 
29
begin
 
30
   LOG_UPTO:=(1 shl (pri + 1)) - 1;
 
31
end;