浏览代码

amunits: one more Boolean -> LongBool case

git-svn-id: trunk@28678 -
Károly Balogh 11 年之前
父节点
当前提交
fbd5828624
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/amunits/src/utilunits/amigautils.pas

+ 1 - 1
packages/amunits/src/utilunits/amigautils.pas

@@ -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;