paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 04:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeProgs: comments

Browse Source 
git-svn-id: trunk@40971 -
This commit is contained in:
juha 2013-05-01 10:57:18 +00:00
parent fe79a8fdff
commit 3b77642a28
1 changed files with 3 additions and 3 deletions

6
ide/ideprocs.pp
View File

@ -1527,7 +1527,7 @@ begin
FpStat(Filename, OldInfo{%H-});
{$ENDIF}
// if not a symlink/hardlink => rename old file, create empty new file
// if not a symlink/hardlink or locked => rename old file, create empty new file
if not FileIsSymlink(Filename) and
not FileIsHardLink(FileName) and
not FileIsLocked(Filename) and
@ -1537,7 +1537,7 @@ begin
FHandle := FileCreate(UTF8ToSys(FileName));
FileClose(FHandle);
end
else // file is a symlink or rename failed => copy file
else // file is a symlink/hardlink or locked or rename failed => copy file
if not CopyFile(Filename, BackupFilename) then exit;
// restore file attributes
@ -1545,7 +1545,7 @@ begin
FileSetAttrUTF8(FileName, OldAttr);
{$ELSE}
FpChmod(Filename, OldInfo.st_Mode and (STAT_IRWXO+STAT_IRWXG+STAT_IRWXU
+STAT_ISUID+STAT_ISGID+STAT_ISVTX));
+STAT_ISUID+STAT_ISGID+STAT_ISVTX));
{$ENDIF}
Result := True;