l
Size: a a a
AV
W
pragma Ada_2020;— Во чего наговнокодил.
with System, Interfaces.C;
package ada_lib with Export, Convention => CPP is
package C renames Interfaces.C;
procedure bla(count: C.size_t; string: C.char_array(count));
pragma export (cpp, bla, "bla", "_bla");
end ada_lib;
VM
AV
FO
void method1 (void);
AV
FO
AV
foo(), а не foo(void)МР
AV
AV
W
pragma Ada_2020;ada_lib.ads:6:36: "Strings" not declared in "C"
with System, Interfaces.C;
package ada_lib with Export, Convention => CPP is
package C renames Interfaces.C;
procedure bla(str: Interfaces.C.Strings);
end ada_lib;
МР
with Interfaces.C.Strings;МР