Explorar o código

amunits: one more Boolean -> LongBool case

git-svn-id: trunk@28678 -
Károly Balogh %!s(int64=11) %!d(string=hai) anos
pai
achega
fbd5828624
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/amunits/src/utilunits/amigautils.pas

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

@@ -80,7 +80,7 @@ Type
 
 
 {$PACKRECORDS 2}
 {$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;
 FUNCTION Lock(name : pCHAR location 'd1'; type_ : LONGINT location 'd2') : LONGINT; syscall _DOSBase 084;
 PROCEDURE UnLock(lock : LONGINT location 'd1'); syscall _DOSBase 090;
 PROCEDURE UnLock(lock : LONGINT location 'd1'); syscall _DOSBase 090;