ada-libraries
/
zeromq-Ada
mirror of https://github.com/persan/zeromq-Ada
1
0
Fork 0
Code Issues Releases Wiki Activity

Dont validate library version only warn

This commit is contained in:
Per Sandberg 2016-10-30 09:13:04 +01:00
parent 5366e14f2c
commit a4211d7a4a
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/zmq.adb
View File

@ -32,7 +32,7 @@
with Interfaces.C;
with ZMQ.Low_Level;
with Ada.Assertions;
with GNAT.IO;
package body ZMQ is
use Interfaces.C;
-------------------
@ -71,11 +71,10 @@ package body ZMQ is
procedure Validate_Library_Version is
Lib_Version : constant Version_Type := Library_Version;
begin
Ada.Assertions.Assert
((Binding_Version.Major = Lib_Version.Major) and
(Binding_Version.Minor = Lib_Version.Minor),
"Incompatible libzmq found: " & Image (Lib_Version) &
", expected: " & Image (Binding_Version));
if Binding_Version.Major /= Lib_Version.Major then
GNAT.IO.Put_Line ("Warning libzmq: " & Image (Lib_Version) &
" found, binding version is: " & Image (Binding_Version));
end if;
end Validate_Library_Version;
end ZMQ;