* PChar -> PAnsichar

packages/syslog/examples/testlog.pp

@@ -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:='';

packages/syslog/src/systemlog.pp

@@ -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