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

IDE: fixed range check error

Browse Source 
git-svn-id: trunk@16258 -
This commit is contained in:
vincents 2008-08-26 19:31:29 +00:00
parent 8baa3c1ddd
commit b95d6e1054
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/ideprocs.pp
View File

@ -1317,7 +1317,7 @@ end;
-------------------------------------------------------------------------------}
function BackupFile(const Filename, BackupFilename: string): boolean;
var
FHandle: Integer;
FHandle: THandle;
{$IFdef MSWindows}
OldAttr: Longint;
{$ELSE}