Передача массива из Qt программы в Free Pascal библиотеку, Вылетает SIGFPE Опции

[rominf]

Здравствуйте!

К программе на Qt 4 подключается .so библиотека, написанная на Free Pascal (Lazarus). В библиотеке есть функция, принимающая по указателю массив (Size = 10):

type
  TDoubleArray = array  [0..Size - 1] of Double;
  PDoubleArray = ^TDoubleArray;    

procedure Sort(A: PDoubleArray); stdcall;

В программе:

std::vector<double> v(Size, 0);
// Заполнение вектора
typedef double (*Sort)(double [Size]);
Sort sort = (Sort)lib->resolve("Sort");
if (sort)
{
    sort(&v[0]);
    QString s = QString::number(-1.1); // Аналогично если на этом месте стоит что-нибудь с динамическим созданием объекта ("new") (*)
    ...
}

На (*) вылетает с ошибкой SIGFPE.
Если заменить на передачу по ссылке (procedure Sort(var A: TDoubleArray); stdcall;) то всё идентично.
Когда делал аналогично для сумы, но с передачей по значению (function Sum(A: TDoubleArray): Double; stdcall;), то ошибки не возникало.
Замечу, что судя по тому, что показывает дебагер, обе функции работают (при возврате управления в программу вижу отсортированный массив).
Чувствую, что проблема в выделении памяти, но, к сожалению, раньше не имел опыта по созданию динамических библиотек, поэтому не понимаю, что у меня неправильно. И мне не очень нравится использование вектора, чтобы передать его как массив, но писать в стиле С не удобно.
Подскажите, пожалуйста, в чём проблема. Буду благодарен за ссылки на литературу для глубокого изучения вопроса выделения памяти, стека вызовов, динамических библиотек.

[PAFOS]

хм....

procedure Sort(A: PDoubleArray); stdcall;

- говорит что у тя процедура, т.е. она в понимании С/С++ возвращает void.

typedef double (*Sort)(double [Size]);

- говорит, что у тебя фунция, которая должна возвращать тип double

подозреваю, что из-за этого у тебя портится стек и каша получается...
попробуй

typedef void (*Sort)(double [Size]);

вместо

typedef double (*Sort)(double [Size]);

==========================
чет тупанул )

typedef double (*Sort)(double [Size]);

это че, получается double теперь у тебя есть указатель на функцию?

Сообщение отредактировал PAFOS - 23.8.2012, 16:23