rtyler
/
zeromq-Ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Context is now fully tagged private.

This commit is contained in:
Per Sandberg 2014-02-09 21:50:21 +01:00
parent c8bd584788
commit 1d9b4bfa7d
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/zmq-contexts.ads
View File

@ -36,15 +36,10 @@ package ZMQ.Contexts is
IO_THREADS_DFLT : constant := 1;
MAX_SOCKETS_DFLT : constant := 1024;
type Context is new Ada.Finalization.Limited_Controlled with private;
type Context is tagged limited private;
type Any_Context is access all Context'Class;
overriding
procedure Initialize (This : in out Context);
overriding
procedure Finalize (This : in out Context);
not overriding
procedure Set_number_of_IO_threads
@ -82,4 +77,10 @@ private
type Context is new Ada.Finalization.Limited_Controlled with record
c : System.Address := System.Null_Address;
end record;
overriding
procedure Initialize (This : in out Context);
overriding
procedure Finalize (This : in out Context);
end ZMQ.Contexts;

2
tests/testcases/zmq-tests-testcases-test_pubsub.adb
View File

@ -65,8 +65,6 @@ package body ZMQ.Tests.Testcases.Test_Pubsub is
begin
T.Pub.Finalize;
T.Sub.Finalize;
T.Ctx.Finalize;
null;
end Finalize;
--------------------
-- Register_Tests --