浏览代码

* change TCachedSearchRec.Attr to longint as TCachedDirectoryEntry.Attr is also a longint, resolves #40343

florian 2 年之前
父节点
当前提交
299f942d29
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/cfileutl.pas

+ 1 - 1
compiler/cfileutl.pas

@@ -70,7 +70,7 @@ interface
 
 
       TCachedSearchRec = record
       TCachedSearchRec = record
         Name       : TCmdStr;
         Name       : TCmdStr;
-        Attr       : byte;
+        Attr       : longint;
         Pattern    : TCmdStr;
         Pattern    : TCmdStr;
         CachedDir  : TCachedDirectory;
         CachedDir  : TCachedDirectory;
         EntryIndex : longint;
         EntryIndex : longint;