| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [Pascal] Двусвязный список |
| Автор: scai 8.2.2007, 01:36 |
| на словах опишу, а то там текста... модуль для двусвязного списка, да. тип для элемента(пред, след, data), тип для списка(текущий, первый, последний, буферы), во все процедуры передаётся ссылка на список + параметры. работает в программе как стек. при создании всех списков зачищается предыдущий с освобождением памяти. создаем список, добавляем n элементов в через начало. каждому усанавливаем соотв значения полей. просим вывести на экран. так вот глюк в том, что при первом вводе, правильно отображает только первый элемент, значения остальных - "8". погоди, не все еще. в следующих списках корректно отображаются элементы, порядковый номер которых меньше или равен максимальному числу элементов в предыдущих списках, остальные теперь - "0". при рестарте - все сначала. все проверил, код, адреса "объектов" при вводе и выводе... ошибка, такая, с характером. есть идеи? Добавлено @ 01:41 да, на всякий случай, хотя, врядли в этом дело. data - pointer, все операции с ним - через модуль, перенаправляющий вызовы в соответствии с типом в data + распаковка pointero'в. в типе списка, соотв, есть поле для типа data. |
| Автор: volvo877 8.2.2007, 01:50 |
| Есть... Код присоединяй. Причем полностью, до последней запятой, а не какой-нибудь кусочек... Тут в любом месте может быть неверно... Без кода получится гадание на кофейной гуще, это ты форумом ошибся... |
| Автор: scai 8.2.2007, 02:25 |
| ну вот, смотри.... test(ранабл), un_menu, и my_crt - препод писал. я б по другому сделал неужели ты будешь пытаться найти ее? я думал, можт ошибка характерная: по симптомам, пириблизительно, где искать.... оч стыдно будет, если там все из-за глупости какой-нить... |
| Автор: volvo877 8.2.2007, 10:43 |
| Что характерно - я не могу найти ошибку, ибо у меня под 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-ом это работает, после устранения пары огрехов. Но с восьмёрками 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( АЗС а так все компилится, и циклические ссылки, и 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 "+" ! Или два! потому что искать ошибки в чужой программе... СПасибо! Двойное!!!! Ни за что не подумал бы, что в размерах дело |