paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the RtlInfoType record, because it is only used only once in a local

Browse Source 
variable. Use an anonymous record instead.
This commit is contained in:
Nikolay Nikolov 2021-10-19 12:01:14 +03:00
parent 6cd88575c6
commit 0ead28c1e0
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/wasi/dos.pp
View File

@ -69,13 +69,6 @@ Uses
--- Link C Lib if set --- --- Link C Lib if set ---
******************************************************************************} ******************************************************************************}
type
RtlInfoType = Record
FMode: LongInt;
FSize: __wasi_filesize_t;
FMTime: __wasi_timestamp_t;
End;
{****************************************************************************** {******************************************************************************
--- Info / Date / Time --- --- Info / Date / Time ---
@ -427,10 +420,14 @@ End;
Function FindGetFileInfo(const s:string;var f:SearchRec):boolean; Function FindGetFileInfo(const s:string;var f:SearchRec):boolean;
var var
DT : DateTime; DT : DateTime;
Info : RtlInfoType;
st : __wasi_filestat_t; st : __wasi_filestat_t;
fd : __wasi_fd_t; fd : __wasi_fd_t;
pr : RawByteString; pr : RawByteString;
Info : record
FMode: LongInt;
FSize: __wasi_filesize_t;
FMTime: __wasi_timestamp_t;
end;
begin begin
FindGetFileInfo:=false; FindGetFileInfo:=false;
if ConvertToFdRelativePath(s,fd,pr)<>0 then if ConvertToFdRelativePath(s,fd,pr)<>0 then