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

* PChar -> PAnsichar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-13 22:31:10 +01:00
parent 85f81b64a2
commit ef651f7266
2 changed files with 4 additions and 4 deletions
packages/syslog
examples
testlog.pp
src
systemlog.pp

2
packages/syslog/examples/testlog.pp
View File

@ -11,7 +11,7 @@ begin
i:=GetProcessID;
prefix:=format('testlog[%d] ',[i]);
// prefix will be prepended to every message now.
openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
openlog(PAnsiChar(prefix),LOG_NOWAIT,LOG_DEBUG);
for i:=1 to 10 do
syslog(log_info,'This is message number %d'#10,[i]);
prefix:='';

6
packages/syslog/src/systemlog.pp
View File

@ -128,10 +128,10 @@ const
function LOG_UPTO(pri : longint) : longint;
procedure closelog;cdecl;external;
procedure openlog(__ident:pchar; __option:longint; __facilit:longint);cdecl;external;
procedure openlog(__ident:PAnsiChar; __option:longint; __facilit:longint);cdecl;external;
function setlogmask(__mask:longint):longint;cdecl;external;
procedure syslog(__pri:longint; __fmt:pchar; args:array of const);cdecl;external;
// procedure vsyslog(__pri:longint; __fmt:pchar; __ap:_BSD_VA_LIST_);cdecl;external;
procedure syslog(__pri:longint; __fmt:PAnsiChar; args:array of const);cdecl;external;
// procedure vsyslog(__pri:longint; __fmt:PAnsiChar; __ap:_BSD_VA_LIST_);cdecl;external;
implementation