Если стектрейс чем-то поможет, то вот:

ой, русская консоль. держите меня семеро, ща разведу холивар

или ты про русскую ЛОКАЛЬ?

я хз как это правильно называется. "неопределённая ссылка на" и вот это вот всё

я хз как это правильно называется. "неопределённая ссылка на" и вот это вот всё

та пара у меня на самом деле нету холивары разводить, так, вбросил для приличия

abc.hxx:

#include <iostream>
void foo(char * str){
std::cout << *str << std::endl;
}

abc.cxx:

#include <abc.hxx>

main.adb:

with abc_hxx;
with Interfaces.C.Strings; use Interfaces.C.Strings;
procedure Main is
   str : constant chars_ptr := New_String("X");
begin
    abc_hxx.foo(str);
end Main;

Генерим спеки:

gcc -c -fdump-ada-spec abc.hxx

Компилируем приложение на Аде, юзающее плюсы:

gnatmake -c main.adb

Биндим сгенеренные спеки, указывая "-n", обозначая, что это НЕ main:

gnatbind -n abc_hxx.ali 

Биндим main:

gnatbind main.ali 

Собираем либу на плюсах:

g++ abc.cxx -o abc.o -c -fPIC
ar rcs libabc.a abc.o

Линкуемся:

gnatlink main.ali -o result -labc -L. -lstdc++

Запускаем:
./result
X

Работает!!!


Естественно, вместо одного abc.cxx может быть всё что угодно.

Надо adainit вызывать, когда не Адский main

gdb говорит:
Program received signal SIGSEGV, Segmentation fault.
system.secondary_stack.ss_mark () at s-secsta.adb:912
912  s-secsta.adb: Нет такого файла или каталога.

Ладно, заменю на adainit.
Но оно работало :)

4. Building Executable Programs with GNAT — GNAT User's Guide for Native Platforms 22.0w documentation
https://docs.adacore.com/live/wave/gnat_ugn/html/gnat_ugn/gnat_ugn/building_executable_programs_with_gnat.html#binding-with-non-ada-main-programs

главное слишком часто не дергать 🙂