paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-25 19:28:18 +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; function BackupFile(const Filename, BackupFilename: string): boolean;
var var
FHandle: Integer; FHandle: THandle;
{$IFdef MSWindows} {$IFdef MSWindows}
OldAttr: Longint; OldAttr: Longint;
{$ELSE} {$ELSE}