From fca30bb86f41e24d878c32ce399500f195513400 Mon Sep 17 00:00:00 2001
From: persan <per.s.sandberg@bahnhof.se>
Date: Mon, 30 Mar 2020 21:20:00 +0200
Subject: [PATCH] Prepare for tag

---
 Makefile                | 13 +++++++++++++
 src/zmq-messages.adb    |  6 +++---
 zmq-case_exceptions.xml |  2 ++
 3 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index dd38eb4..7c75354 100644
--- a/Makefile
+++ b/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})
+	
+	
diff --git a/src/zmq-messages.adb b/src/zmq-messages.adb
index e8d4991..b637d81 100644
--- a/src/zmq-messages.adb
+++ b/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
diff --git a/zmq-case_exceptions.xml b/zmq-case_exceptions.xml
index c0c1452..d2af1d6 100644
--- a/zmq-case_exceptions.xml
+++ b/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>