diff options
-rw-r--r-- | packages/base/netdb/netdb.pp | 2 | ||||
-rw-r--r-- | rtl/linux/linux.pp | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/packages/base/netdb/netdb.pp b/packages/base/netdb/netdb.pp index 24bbd27c81..31258aa98a 100644 --- a/packages/base/netdb/netdb.pp +++ b/packages/base/netdb/netdb.pp @@ -333,7 +333,7 @@ begin begin Inc(Result); P:=List^.Next; - FreeMem(List); + Dispose(List); List:=P; end; end; diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp index 41825c8524..1bcbb35e60 100644 --- a/rtl/linux/linux.pp +++ b/rtl/linux/linux.pp @@ -50,16 +50,16 @@ Const CLONE_PID = $00001000; // set if pid shared EPOLLIN = $01; { The associated file is available for read(2) operations. } - EPOLLOUT = $02; { The associated file is available for write(2) operations. } - EPOLLPRI = $04; { There is urgent data available for read(2) operations. } + EPOLLPRI = $02; { There is urgent data available for read(2) operations. } + EPOLLOUT = $04; { The associated file is available for write(2) operations. } EPOLLERR = $08; { Error condition happened on the associated file descriptor. } EPOLLHUP = $10; { Hang up happened on the associated file descriptor. } EPOLLET = $80000000; { Sets the Edge Triggered behaviour for the associated file descriptor. } { Valid opcodes ( "op" parameter ) to issue to epoll_ctl } EPOLL_CTL_ADD = 1; - EPOLL_CTL_MOD = 2; - EPOLL_CTL_DEL = 3; + EPOLL_CTL_DEL = 2; + EPOLL_CTL_MOD = 3; {Some console iotcl's.} GIO_FONT = $4B60; {gets font in expanded form} |