Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Pascal] Двусвязный список


Автор: scai 8.2.2007, 01:36
на словах опишу, а то там текста...

модуль для двусвязного списка, да. тип для элемента(пред, след, data), тип для списка(текущий, первый, последний, буферы), во все процедуры передаётся ссылка на список + параметры.
работает в программе как стек. при создании всех списков зачищается предыдущий с освобождением памяти.
создаем список, добавляем n элементов в через начало. каждому усанавливаем соотв значения полей. просим вывести на экран.

так вот глюк в том, что при первом вводе, правильно отображает только первый элемент, значения остальных - "8".

погоди, не все еще.

в следующих списках корректно отображаются элементы, порядковый номер которых меньше или равен максимальному числу элементов  в предыдущих списках, остальные теперь - "0". 

при рестарте - все сначала.

все проверил, код, адреса "объектов" при вводе и выводе... smile 

ошибка, такая, с характером. есть идеи?

Добавлено @ 01:41 
да, на всякий случай, хотя, врядли в этом дело. data - pointer, все операции с ним - через модуль, перенаправляющий вызовы в соответствии с типом в data + распаковка pointero'в. в типе списка, соотв, есть поле для типа data.  

Автор: volvo877 8.2.2007, 01:50
Цитата(scai @  8.2.2007,  00:36 Найти цитируемый пост)
есть идеи?
Есть... Код присоединяй. Причем полностью, до последней запятой, а не какой-нибудь кусочек... Тут в любом месте может быть неверно...

Без кода получится гадание на кофейной гуще, это ты форумом ошибся...

Автор: scai 8.2.2007, 02:25
ну вот, смотри.... test(ранабл), un_menu, и my_crt - препод писал. я б по другому сделал smile  

неужели ты будешь пытаться найти ее?

я думал, можт ошибка характерная: по симптомам, пириблизительно, где искать....  оч стыдно будет, если там все из-за глупости какой-нить...

Автор: volvo877 8.2.2007, 10:43
 smile 
Что характерно - я не могу найти ошибку, ибо у меня под Free Pascal-ем описанных тобой симптомов просто нет... Все списки выводятся как положено, никакими восьмерками и не пахнет... Что вводил, то и получаю...

Автор: Rodman 8.2.2007, 10:44
мож компилятор перебить!!!

Автор: scai 9.2.2007, 21:20
Да... Странно... На FreePascal все работает.... Странно почему TP не хочет компилиить.
Реально, в чем разница между древним, и типа, хорошо себя зарекомендовавшим tp и FPC, что первый не может нормально собрать вроде бы простую прогу?

И еще вопрос про FPC. Судя по listbox, компилятор постоянно обращается к модулю i386-Win32 и достает оттудова вещи типа  mysql\system.pp, opengl\system.pp, Вообще непонятно зачем... С таким подходом компилятора к делу, на 386-м с DOS'ом прога будет работать. если нет, то как "заставить"?

Автор: JAPH 9.2.2007, 22:23
С DOS-ом это работает, после устранения пары огрехов. Но с восьмёрками smile
TP не хочет компилировать, потому что:
1. Yorn.pas - надо добавить {$N+} (иначе ошибка must be in 8087 mode to compile this со ссылкой на строку 65)
2. Typesel.pas и Stack.pas - циклические ссылки друг на друга. Если их объединить, то всё нормально.

Автор: scai 9.2.2007, 22:48
JAPH, а у тебя в TP тоже восьмерки вылазят. А то я уже думаю, что это из-за системы моей: со дня надень переставлю, потомучто нехорошо очень ведет себя.
А с  FPC( АЗС smile ) проблем с восьмерками не возникает. опять же, очень странно, откуда они в TP-версии появляются. 

а так  все компилится, и циклические ссылки, и yorn.(у меня наверное в настройках компилятора где-нить флажок стоит) 

а скажите, пожалуйста,что надо сделать, чтоб скомпилированная FPC прога под DOS'ом работала?

Добавлено @ 23:01 
странно, если бы с циклическими ссылками не компилилось, потому что, по логике, подобная структура должна двумя модулями быть представлена. один - модуль списка, законченный. а другой - модуль "перенаправления", который правишь при добавлении новых типов для помещения в список. Чтоб цикличности избежать, можно было б тип списка и элемента списка в отделльный модуль вынести, но, опять же - нелогично, да и зачем...

Думаю, до изобретения полиморфизма, так как я сделал, делали сплошь и рядом.

Автор: JAPH 10.2.2007, 11:29
Нашёл, где появляются восьмёрки - строка 193 в stack.pas
rootlnk^.prevlnk := sbuffer[1];

Причина:
rootlnk^ расположена по адресу 163B:0008, введённое число - по 163C:0000.
Но rootlnk^ занимает 12 байт, поэтому пересекается с числом. А мы записываем в последние 4 байта rootlnk^, вот число и затирается!
Наверное, дальше паскаль более внимательно выделяет память.

А, может, дело и не в паскале. Если заменить строку 67 в stack.pas на
elemsize:=12;
то у меня вроде всё работает.

Ещё можно rSize сделать равным 2 (fielddat.pas, строка 9).

Автор: scai 10.2.2007, 15:07
ПОСТАВЬТЕ JAPH "+" ! Или два! потому что искать ошибки в чужой программе...

СПасибо! Двойное!!!! Ни за что не подумал бы, что в размерах дело 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)