paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for Mantis #35744: applied patch by Anton Kavalenka to correctly implement FileGetSymLinkTarget

Browse Source 
git-svn-id: trunk@42456 -
This commit is contained in:
svenbarth 2019-07-19 15:55:15 +00:00
parent 48b8110e38
commit 48d0ab1af9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/sysutils.pp
View File

@ -466,7 +466,7 @@ begin
IO_REPARSE_TAG_SYMLINK: begin
SymLinkRec.TargetName := WideCharLenToString(
@PBuffer^.PathBufferSym[PBuffer^.PrintNameOffset div SizeOf(WCHAR)],
PBuffer^.PrintNameOffset div SizeOf(WCHAR));
PBuffer^.PrintNameLength div SizeOf(WCHAR));
if (PBuffer^.Flags and SYMLINK_FLAG_RELATIVE) <> 0 then
SymLinkRec.TargetName := ExpandFileName(ExtractFilePath(FileName) + SymLinkRec.TargetName);
end;