paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:49:17 +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} {Low level rutines}
function Number_of_utmp_entries : Word; function Number_of_utmp_entries : Word;
procedure Set_utmp_file(const File_name : String); procedure Set_utmp_file(const File_name : AnsiString);
type type
@ -69,14 +69,14 @@ type
ut_type : integer; ut_type : integer;
ut_pid : longint; ut_pid : longint;
ut_line : tdevice_name; ut_line : tdevice_name;
ut_id : array[1..4] of char; ut_id : array[1..4] of AnsiChar;
ut_user : tuser_name; ut_user : tuser_name;
ut_host : thost_name; ut_host : thost_name;
ut_exit : texitstatus; ut_exit : texitstatus;
ut_session : longint; ut_session : longint;
ut_tv : Array [1..2] of longint; ut_tv : Array [1..2] of longint;
ut_addr : Array[1..4] of longint; ut_addr : Array[1..4] of longint;
pad : array [1..48] of char pad : array [1..48] of AnsiChar
end; end;
pUser_list = ^tUser_list; pUser_list = ^tUser_list;
tUser_list = record tUser_list = record
@ -95,7 +95,7 @@ Type
var var
User_list : pUser_list; User_list : pUser_list;
Current_user : pUser_list; Current_user : pUser_list;
Utmp_file : String; Utmp_file : AnsiString;
Search_parameters : tSearch_parameters; Search_parameters : tSearch_parameters;
procedure Set_search_parameters( procedure Set_search_parameters(
@ -230,7 +230,7 @@ var
Current_user := User_list; Current_user := User_list;
end; end;
procedure Set_utmp_file(const File_name : String); procedure Set_utmp_file(const File_name : AnsiString);
begin begin
Utmp_file := File_name; Utmp_file := File_name;