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

* avoid typecast at left of assignment

Browse Source
This commit is contained in:
pierre 2001-08-31 22:17:27 +00:00
parent 3d6f18bfa2
commit 79f61251a0
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/utmp/utmp.pp
View File

@ -261,7 +261,8 @@ var
begin begin
BlockRead(F, LL_Entry, SizeOf(tLL_Utmp)); BlockRead(F, LL_Entry, SizeOf(tLL_Utmp));
Byte(Entry.Type_of_login) := LL_Entry.ut_type; //Byte(Entry.Type_of_login) := LL_Entry.ut_type;
Entry.Type_of_login := tLogin_type(LL_Entry.ut_type);
Entry.Pid := Longint(LL_Entry.ut_id); Entry.Pid := Longint(LL_Entry.ut_id);
Entry.Device:=LL_entry.ut_line; Entry.Device:=LL_entry.ut_line;
Entry.TTy_Name:=LL_Entry.ut_id; Entry.TTy_Name:=LL_Entry.ut_id;
@ -324,7 +325,10 @@ begin
Set_search_parameters(Include,DefaultLoginType); Set_search_parameters(Include,DefaultLoginType);
end. end.
$Log$ $Log$
Revision 1.4 2001-04-08 12:27:55 peter Revision 1.5 2001-08-31 22:17:27 pierre
* avoid typecast at left of assignment
Revision 1.4 2001/04/08 12:27:55 peter
* made it compilable with both 1.0.x and 1.1 * made it compilable with both 1.0.x and 1.1
Revision 1.3 2001/01/21 21:38:52 marco Revision 1.3 2001/01/21 21:38:52 marco