paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 10:00:31 +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:40:55 +01:00
parent be6b57e358
commit b1ca0cdeec
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/utmp/src/utmp.pp
View File

@ -56,7 +56,7 @@ function Number_of_logged_users : Word;
{Low level rutines}
function Number_of_utmp_entries : Word;
procedure Set_utmp_file(const File_name : String);
procedure Set_utmp_file(const File_name : AnsiString);
type
@ -69,14 +69,14 @@ type
ut_type : integer;
ut_pid : longint;
ut_line : tdevice_name;
ut_id : array[1..4] of char;
ut_id : array[1..4] of AnsiChar;
ut_user : tuser_name;
ut_host : thost_name;
ut_exit : texitstatus;
ut_session : longint;
ut_tv : Array [1..2] of longint;
ut_addr : Array[1..4] of longint;
pad : array [1..48] of char
pad : array [1..48] of AnsiChar
end;
pUser_list = ^tUser_list;
tUser_list = record
@ -95,7 +95,7 @@ Type
var
User_list : pUser_list;
Current_user : pUser_list;
Utmp_file : String;
Utmp_file : AnsiString;
Search_parameters : tSearch_parameters;
procedure Set_search_parameters(
@ -230,7 +230,7 @@ var
Current_user := User_list;
end;
procedure Set_utmp_file(const File_name : String);
procedure Set_utmp_file(const File_name : AnsiString);
begin
Utmp_file := File_name;