Implement calling our callbacks. There's no chance this actually works.
This commit is contained in:
parent
62a7ecf6d8
commit
40f3256188
|
@ -53,7 +53,17 @@ package body Epoll is
|
|||
end if;
|
||||
|
||||
for Index in 0 .. Num_Descriptors loop
|
||||
null; -- Do stuff
|
||||
declare
|
||||
Event : constant Epoll_Event :=
|
||||
Events (C.size_t (Index));
|
||||
Descriptor : constant C.int :=
|
||||
Event.Data.Fd;
|
||||
Cb : constant Callback_Tuple :=
|
||||
Callback_Registry.Element (This.Callbacks,
|
||||
Natural (Descriptor));
|
||||
begin
|
||||
Cb.Callback.all (Descriptor, Cb.Context);
|
||||
end;
|
||||
end loop;
|
||||
end Wait_Loop;
|
||||
end loop;
|
||||
|
|
Loading…
Reference in New Issue