Commit 30a6fc0f authored by Stéphane LOS's avatar Stéphane LOS
Browse files

Updating limodbus (on windows)

parent 7754306c
Pipeline #313214116 passed with stages
in 3 minutes and 26 seconds
......@@ -12,8 +12,8 @@ project Libmodbus is
when "unknown" =>
when "Windows_NT" =>
for Library_Dir use "..\libmodbus-3.0.6\libs\x86";
for Source_Dirs use ("..\libmodbus-3.0.6\src");
for Library_Dir use "..\..\libmodbus-3.1.6\libs\x86_64";
for Source_Dirs use ("..\..\libmodbus-3.1.6\src");
when "linux" =>
......
with "../libmodbus.gpr";
with "../gpr/libmodbus.gpr";
project A4A_Test extends "../a4a.gpr" is
project A4A_Test extends "../gpr/a4a.gpr" is
for Languages use ("Ada");
for Object_Dir use "./obj";
......
......@@ -49,6 +49,7 @@ package body Test_LibModbus_Server_Many_Package is
MyContext : LibModbus.Context_Type;
Result : Interfaces.C.int;
pragma Unreferenced (Result);
Req_Len : Interfaces.C.int;
Request : aliased Byte_Array :=
(0 .. LibModbus.MODBUS_TCP_MAX_ADU_LENGTH => 0);
......@@ -68,17 +69,21 @@ package body Test_LibModbus_Server_Many_Package is
My_tab_bits2 : aliased Byte_Array := (0 .. 9 => 0);
My_tab_input_bits2 : aliased Byte_Array := (0 .. 9 => 0);
My_tab_input_registers2 : aliased Word_Array := (0 .. 9 => 0);
My_tab_registers2 : aliased Word_Array := (0 .. 9 => 0);
My_tab_registers2 : aliased Word_Array := (0 .. 19 => 0);
MyMapping2 : aliased constant LibModbus.Modbus_Mapping_Type :=
(nb_bits => My_tab_bits2'Length,
nb_input_bits => My_tab_input_bits2'Length,
nb_input_registers => My_tab_input_registers2'Length,
nb_registers => My_tab_registers2'Length,
tab_bits => My_tab_bits2'Address,
tab_input_bits => My_tab_input_bits2'Address,
tab_input_registers => My_tab_input_registers2'Address,
tab_registers => My_tab_registers2'Address
(nb_bits => My_tab_bits2'Length,
start_bits => 0,
nb_input_bits => My_tab_input_bits2'Length,
start_input_bits => 0,
nb_input_registers => My_tab_input_registers2'Length,
start_input_registers => 0,
nb_registers => My_tab_registers2'Length,
start_registers => 0,
tab_bits => My_tab_bits2'Address,
tab_input_bits => My_tab_input_bits2'Address,
tab_input_registers => My_tab_input_registers2'Address,
tab_registers => My_tab_registers2'Address
);
Loop1_Count : Integer := 0;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment