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

* typecast that fixes range error, part of mantis #16172

Browse Source 
git-svn-id: trunk@19040 -
This commit is contained in:
marco 2011-09-09 20:03:08 +00:00
parent 367be2cd7a
commit d6962106b9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/sysutils.pp
View File

@ -446,7 +446,7 @@ end;
Function FileGetAttr (Const FileName : String) : Longint; Function FileGetAttr (Const FileName : String) : Longint;
begin begin
Result:=GetFileAttributes(PChar(FileName)); Result:=Longint(GetFileAttributes(PChar(FileName)));
end; end;