From b289805a9182f8921d30d2a2360b878b6892bd58 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Thu, 3 Oct 2019 12:07:13 +0000
Subject: [PATCH] * correctly copy Size and Attr values when converting from
 one T*SymLinkRec to the other

git-svn-id: trunk@43108 -
---
 rtl/objpas/sysutils/filutil.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rtl/objpas/sysutils/filutil.inc b/rtl/objpas/sysutils/filutil.inc
index c2494cb9dd..3790066832 100644
--- a/rtl/objpas/sysutils/filutil.inc
+++ b/rtl/objpas/sysutils/filutil.inc
@@ -133,6 +133,8 @@ begin
   if Result then
     begin
       SymLinkRec.TargetName := UnicodeString(sr.TargetName);
+      SymLinkRec.Size := sr.Size;
+      SymLinkRec.Attr := sr.Attr;
 {$ifdef SYMLINKREC_USEFINDDATA}
       SymLinkRec.FindData := sr.FindData;
 {$endif}
@@ -343,6 +345,8 @@ begin
   if Result then
     begin
       SymLinkRec.TargetName := ToSingleByteFileSystemEncodedFileName(sr.TargetName);
+      SymLinkRec.Size := sr.Size;
+      SymLinkRec.Attr := sr.Attr;
 {$ifdef SYMLINKREC_USEFINDDATA}
       SymLinkRec.FindData := sr.FindData;
 {$endif}