paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 06:12:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix range checking error in win FileUtils, reported at #15642

Browse Source 
git-svn-id: trunk@27251 -
This commit is contained in:
dmitry 2010-09-02 18:34:56 +00:00
parent bf1bdb52a7
commit 41cba2bb5e
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/unixfileutil.inc
View File

@ -1,3 +1,4 @@
{%MainUnit ../filectrl.pp}
{------------------------------------------------------------------------------
procedure CheckIfFileIsExecutable(const AFilename: string);
------------------------------------------------------------------------------}

7
lcl/include/winfileutil.inc
View File

@ -1,3 +1,4 @@
{%MainUnit ../filectrl.pp}
{------------------------------------------------------------------------------
procedure CheckIfFileIsExecutable(const AFilename: string);
------------------------------------------------------------------------------}
@ -285,7 +286,7 @@ begin
FindWideToAnsi(wide, Rslt.FindData);
Result := FindMatch(Rslt);
end else
Result := GetLastError;
Result := Integer(GetLastError);
end;
{------------------------------------------------------------------------------
@ -312,7 +313,7 @@ end;
function FileGetAttrWide(const FileName: String): Longint;
begin
Result:=Windows.GetFileAttributesW(PWideChar(UTF8Decode(FileName)));
Result:=Integer(Windows.GetFileAttributesW(PWideChar(UTF8Decode(FileName))));
end;
{------------------------------------------------------------------------------
@ -328,7 +329,7 @@ begin
if Windows.SetFileAttributesW(PWideChar(UTF8Decode(FileName)), Attr) then
Result:=0
else
Result := Windows.GetLastError;
Result := Integer(Windows.GetLastError);
end;
{------------------------------------------------------------------------------