Prepare for tag

Makefile

@@ -83,3 +83,16 @@ dist:
 gps:
 	gps -P tests/zmq-tests.gpr
 
+helpers/getinfo:$(wildcard src/*.ads)
+	cd helpers;gprbuild -p
+	
+tag:helpers/getinfo
+	@if [ -n "`git status --porcelain`" ] ; then \
+		echo "Folder is not clean";\
+		git status;\
+		exit -1;\
+	fi
+	@(VERSION=`helpers/getinfo --binding-version`-`date +%Y%m%d`;\
+	git tag $${VERSION})
+	
+	

src/zmq-messages.adb

@@ -47,7 +47,7 @@ package body ZMQ.Messages is
       Ret : int;
    begin
       if Size > 0 then
-         Ret := Low_Level.zmq_msg_init_size (Self.Msg'Access, Size_T (Size));
+         Ret := Low_Level.zmq_msg_init_size (Self.Msg'Access, size_t (Size));
       else
          Ret := Low_Level.zmq_msg_init (Self.Msg'Access);
       end if;
@@ -94,9 +94,9 @@ package body ZMQ.Messages is
    is
       Ret : int;
    begin
-      Ret := Low_Level.Zmq_Msg_Init_Data (Self.Msg'Access,
+      Ret := Low_Level.zmq_msg_init_data (Self.Msg'Access,
                                           Message,
-                                          Size_T (Size),
+                                          size_t (Size),
                                           Free,
                                           Hint);
       if Ret /= 0 then

zmq-case_exceptions.xml

@@ -52,5 +52,7 @@
         <word>zmq_sleep</word>
         <word>zmq_threadstart</word>
         <word>zmq_threadclose</word>
+        <word>size_t</word>
+        <word>zmq_msg_init_data</word>
     </case_exceptions>
 </exceptions>