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

* fix FileSetAttr - bug #28826

Browse Source 
git-svn-id: trunk@32019 -
This commit is contained in:
Tomas Hajny 2015-10-11 18:30:29 +00:00
parent ace95e550b
commit ebd1c6026c
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/os2/sysutils.pp
View File

@ -422,10 +422,15 @@ Var
Begin Begin
SystemFileName:=ToSingleByteFileSystemEncodedFileName(Filename); SystemFileName:=ToSingleByteFileSystemEncodedFileName(Filename);
New(FS); New(FS);
FillChar(FS, SizeOf(FS^), 0); RC := DosQueryPathInfo (PChar (SystemFileName), ilStandard, FS, SizeOf (FS^));
FS^.AttrFile:=Attr; if RC = 0 then
RC := DosSetPathInfo(PChar (SystemFileName), ilStandard, FS, SizeOf(FS^), 0); begin
if RC <> 0 then FS^.AttrFile:=Attr;
RC := DosSetPathInfo(PChar (SystemFileName), ilStandard, FS, SizeOf(FS^), 0);
if RC <> 0 then
OSErrorWatch (RC);
end
else
OSErrorWatch (RC); OSErrorWatch (RC);
Result := - longint (RC); Result := - longint (RC);
Dispose(FS); Dispose(FS);