paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 06:19:19 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,7 @@ begin
i:=GetProcessID; i:=GetProcessID;
prefix:=format('testlog[%d] ',[i]); prefix:=format('testlog[%d] ',[i]);
// prefix will be prepended to every message now. // 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 for i:=1 to 10 do
syslog(log_info,'This is message number %d'#10,[i]); syslog(log_info,'This is message number %d'#10,[i]);
prefix:=''; prefix:='';

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

@ -128,10 +128,10 @@ const
function LOG_UPTO(pri : longint) : longint; function LOG_UPTO(pri : longint) : longint;
procedure closelog;cdecl;external; 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; function setlogmask(__mask:longint):longint;cdecl;external;
procedure syslog(__pri:longint; __fmt:pchar; args:array of const);cdecl;external; procedure syslog(__pri:longint; __fmt:PAnsiChar; args:array of const);cdecl;external;
// procedure vsyslog(__pri:longint; __fmt:pchar; __ap:_BSD_VA_LIST_);cdecl;external; // procedure vsyslog(__pri:longint; __fmt:PAnsiChar; __ap:_BSD_VA_LIST_);cdecl;external;
implementation implementation