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

amunits: one more Boolean -> LongBool case

Browse Source 
git-svn-id: trunk@28678 -
This commit is contained in:
Károly Balogh 2014-09-16 00:00:39 +00:00
parent d88a5737ff
commit fbd5828624
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/amunits/src/utilunits/amigautils.pas
View File

@ -80,7 +80,7 @@ Type
{$PACKRECORDS 2}
FUNCTION Examine(lock : LONGINT location 'd1'; fileInfoBlock : pFileInfoBlock location 'd2') : BOOLEAN; syscall _DOSBase 102;
FUNCTION Examine(lock : LONGINT location 'd1'; fileInfoBlock : pFileInfoBlock location 'd2') : LongBool; syscall _DOSBase 102;
FUNCTION Lock(name : pCHAR location 'd1'; type_ : LONGINT location 'd2') : LONGINT; syscall _DOSBase 084;
PROCEDURE UnLock(lock : LONGINT location 'd1'); syscall _DOSBase 090;