Здравствуйте, гость ( Вход | Регистрация )
|
rominf |
21.8.2012, 23:10
Сообщение
#1
|
|
Студент ![]() Группа: Участник Сообщений: 20 Регистрация: 20.8.2011 Пользователь №: 2820 Спасибо сказали: 1 раз(а) Репутация: 0
|
Здравствуйте!
К программе на Qt 4 подключается .so библиотека, написанная на Free Pascal (Lazarus). В библиотеке есть функция, принимающая по указателю массив (Size = 10): В программе: На (*) вылетает с ошибкой SIGFPE. Если заменить на передачу по ссылке (procedure Sort(var A: TDoubleArray); stdcall;) то всё идентично. Когда делал аналогично для сумы, но с передачей по значению (function Sum(A: TDoubleArray): Double; stdcall;), то ошибки не возникало. Замечу, что судя по тому, что показывает дебагер, обе функции работают (при возврате управления в программу вижу отсортированный массив). Чувствую, что проблема в выделении памяти, но, к сожалению, раньше не имел опыта по созданию динамических библиотек, поэтому не понимаю, что у меня неправильно. И мне не очень нравится использование вектора, чтобы передать его как массив, но писать в стиле С не удобно. Подскажите, пожалуйста, в чём проблема. Буду благодарен за ссылки на литературу для глубокого изучения вопроса выделения памяти, стека вызовов, динамических библиотек. |
|
|
|
![]() |
|
Iron Bug |
23.8.2012, 16:29
Сообщение
#2
|
![]() Профессионал ![]() ![]() ![]() ![]() ![]() Группа: Модератор Сообщений: 1611 Регистрация: 6.2.2009 Из: Yekaterinburg Пользователь №: 533 Спасибо сказали: 219 раз(а) Репутация: 12
|
я не спец в паскале, но, похоже, что у тебя в Си описана функция Sort, которая возвращает значение double. а в паскале описана процедура - то есть, результата у неё вообще нет. если я правильно помню, в паскале с возвратом значения - это функции. возможно, из-за этого при выходе рушится стек.
ещё нужно проверить, что stdcall также указан и в сишном коде. |
|
|
|
rominf Передача массива из Qt программы в Free Pascal библиотеку 21.8.2012, 23:10
Алексей1153 Раскрывающийся текста что там с сортировкой намуче... 22.8.2012, 13:35
rominf Цитата(Алексей1153 @ 22.8.2012, 14:35) Ра... 22.8.2012, 20:37
PAFOS Посмотри, что значит SIGFPE вики.
И раз уж ты мож... 23.8.2012, 9:02
rominf Цитата(PAFOS @ 23.8.2012, 10:02) Посмотри... 23.8.2012, 11:42
PAFOS хм....
procedure Sort(A: PDoubleArray... 23.8.2012, 16:22
rominf Цитата(PAFOS @ 23.8.2012, 17:22) хм....
... 23.8.2012, 17:49
PAFOS Iron Bug, во во) 23.8.2012, 16:31
PAFOS Отредактировать сообщение можно будет после 20 ост... 23.8.2012, 19:01
rominf Цитата(PAFOS @ 23.8.2012, 20:01) Отредакт... 23.8.2012, 19:12![]() ![]() ![]() |
|
Текстовая версия | Сейчас: 25.12.2025, 0:04 |