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

amicommon/sysfile.inc: use THandle instead of LongInt

Browse Source 
git-svn-id: trunk@31174 -
This commit is contained in:
Károly Balogh 2015-06-28 23:36:09 +00:00
parent 51a6c217c7
commit c704b4b918
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/amicommon/sysfile.inc
View File

@ -299,7 +299,7 @@ end;
using the same method on all Amiga flavors, but if anyone has using the same method on all Amiga flavors, but if anyone has
a problem with it, disable this define to revert to the old a problem with it, disable this define to revert to the old
method and report the issue. (KB) } method and report the issue. (KB) }
function do_filesize(handle : longint) : longint; function do_filesize(handle : THandle) : longint;
var var
{$IFDEF ASYS_FILESIZE_NO_DOUBLE_SEEK} {$IFDEF ASYS_FILESIZE_NO_DOUBLE_SEEK}
fib: PFileInfoBlock; fib: PFileInfoBlock;
@ -413,7 +413,7 @@ begin
end; end;
end; end;
function do_isdevice(handle: longint): boolean; function do_isdevice(handle: thandle): boolean;
begin begin
if (handle=StdOutputHandle) or (handle=StdInputHandle) or if (handle=StdOutputHandle) or (handle=StdInputHandle) or
(handle=StdErrorHandle) then (handle=StdErrorHandle) then