Properly handle failed stat

Found when trying to get info of a non-existent file (badly constructed path).

1 files changed, 6 insertions, 1 deletions

diff --git a/UCore.pas b/UCore.pas
index cc6929f..bf5c012 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -520,11 +520,16 @@ end;
 
 function GetFileInfoSL(Engine: TPanelEngine; const APath: string): PDataItemSL;
 var ItemSL: PDataItemSL;
+    DataItem: PDataItem;
 begin
+  Result := nil;
+  DataItem := Engine.GetFileInfo(APath, False, True, nil);
+  if DataItem = nil then Exit;  //  Inaccessible file
+
   ItemSL := malloc(sizeof(TDataItemSL));
   memset(ItemSL, 0, sizeof(TDataItemSL));
   // * TODO: report errors? same way as for FillDirFiles
-  ItemSL^.DataItem := Engine.GetFileInfo(APath, False, True, nil);
+  ItemSL^.DataItem := DataItem;
   ItemSL^.Stage1 := True;
   ItemSL^.Level := 1;
   Result := ItemSL;