* 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

@@ -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}