pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix compile rxfileutils on linux with fpc rev.39644

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6611 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-08-21 05:55:46 +00:00
parent 2f70876213
commit bf81dd876e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxtools/rxfileutils.pas
View File

@ -163,7 +163,7 @@ begin
{$ENDIF} {$ENDIF}
{$IFDEF LINUX} {$IFDEF LINUX}
if FpStat(FileName, FStat) = 0 then if FpStat(FileName, FStat) = 0 then
Result:=users.GetUserName(FStat.uid); Result:=users.GetUserName(FStat.st_uid);
{$ENDIF} {$ENDIF}
end; end;
@ -186,7 +186,7 @@ begin
{$ENDIF} {$ENDIF}
{$IFDEF LINUX} {$IFDEF LINUX}
FpStat(FileName, SR); FpStat(FileName, SR);
UserName:=users.GetUserName(SR.uid); UserName:=users.GetUserName(SR.st_uid);
if Pos('\', UserName) > 0 then if Pos('\', UserName) > 0 then
DomainName:=Copy2SymbDel(UserName, '\') //for unix samba WinBIND DomainName:=Copy2SymbDel(UserName, '\') //for unix samba WinBIND
else else