Как вызвать функцию Ada dll в программе Ada?

Question

Я создал библиотеку Ada, которая содержит функцию, которая возвращает сумму двух целых чисел, переданных ей. Я пытаюсь реализовать программу Ada, которая загружает библиотеку Ada DLL, вызывает функцию с двумя числами и затем выводит результат на консоль.

with Addition;
use Addition;
with Ada.Text_IO;
use Ada.Text_IO;


procedure loader is

pragma Linker_Options ("Addition.dll"); --ada dll 

begin

Adder(4,3);
Put_Line("Adder");

end loader;

Дает мне ошибку => не может использовать функцию при вызове процедуры

Может кто-нибудь сказать мне, как вызвать функцию Ада DLL в другой программе Ада?

Спасибо.

Answer 1

with Ada.Text_IO;

with Addition;

procedure Loader is
   use Ada.Text_IO;
   use Addition;

   I : Integer;
begin
   I := Adder (4, 3);
   Put (Integer'Image (I));
end Loader;