with system; use system;
with interfaces.c;
with text_io; use text_io;
procedure Interface_C_Test is
-- Uebergabe eines Skalars Moeglichkeit 1
-- Moeglichkeit 2 in Kommentar
package int_io is new integer_io (interfaces.c.int); use int_io;
procedure Plus (a: access interfaces.c.int);
-- procedure Plus (a: in out interfaces.c.int);
pragma import (C,Plus,"Plus");
a : interfaces.c.int := 10;
-- a : aliased interfaces.c.int := 10;
begin
put ("Anfangswert: ");
int_io.put (a); new_line;
Plus (a);
-- Plus (aaccess);
put ("Endwert: ");
int_io.put (a);
end Interface_C_Test; |