From 0ead28c1e05b6eaaf53455be86d8cb3dfc97c669 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Tue, 19 Oct 2021 12:01:14 +0300
Subject: [PATCH] - removed the RtlInfoType record, because it is only used
 only once in a local   variable. Use an anonymous record instead.

---
 rtl/wasi/dos.pp | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

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