paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 11:51:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Small typo fixes for making libasync working in mainbranch

Browse Source
This commit is contained in:
sg 2003-11-30 12:26:54 +00:00
parent 4ac4d2cadb
commit 3eb6ec7db6
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/base/libasync/unix/libasync.pp
View File

@ -43,7 +43,7 @@ implementation
{$ifdef VER1_0} {$ifdef VER1_0}
uses Linux; uses Linux;
{$else} {$else}
uses baseunix,Unix; uses baseunix, Unix;
{$endif} {$endif}
const const
@ -112,8 +112,8 @@ begin
if (FD_IsSet(CurIOCallback^.IOHandle,CurReadFDSet)) and if (FD_IsSet(CurIOCallback^.IOHandle,CurReadFDSet)) and
(FD_IsSet(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[0])) and (FD_IsSet(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[0])) and
{$else} {$else}
if (fpFD_ISSET(CurIOCallback^.IOHandle,CurReadFDSet)>=0) and if (fpFD_ISSET(CurIOCallback^.IOHandle,CurReadFDSet) > 0) and
(fpFD_ISSET(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[0])>=0) and (fpFD_ISSET(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[0]) > 0) and
{$endif} {$endif}
Assigned(CurIOCallback^.ReadCallback) then Assigned(CurIOCallback^.ReadCallback) then
begin begin
@ -128,8 +128,8 @@ begin
(FD_IsSet(CurIOCallback^.IOHandle, CurWriteFDSet)) and (FD_IsSet(CurIOCallback^.IOHandle, CurWriteFDSet)) and
(FD_IsSet(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[1])) and (FD_IsSet(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[1])) and
{$else} {$else}
(fpFD_ISSET(CurIOCallback^.IOHandle, CurWriteFDSet)>=0) and (fpFD_ISSET(CurIOCallback^.IOHandle, CurWriteFDSet) > 0) and
(fpFD_ISSET(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[1])>=0) and (fpFD_ISSET(CurIOCallback^.IOHandle, PFDSet(Handle^.Data.FDData)[1]) > 0) and
{$endif} {$endif}
Assigned(CurIOCallback^.WriteCallback) then Assigned(CurIOCallback^.WriteCallback) then
begin begin
@ -221,7 +221,10 @@ end.
{ {
$Log$ $Log$
Revision 1.8 2003-11-21 01:06:18 sg Revision 1.9 2003-11-30 12:26:54 sg
* Small typo fixes for making libasync working in mainbranch
Revision 1.8 2003/11/21 01:06:18 sg
* Now resistent against clearing already removed notify handles * Now resistent against clearing already removed notify handles
Revision 1.7 2003/09/28 09:38:17 peter Revision 1.7 2003/09/28 09:38:17 peter