FreePascal.ru

RE:wavebvg
Результат не изменился. только печать значений через строку. IP стек у меня собрался и не падал. Стек не разрушался. Вот только результат его работы меня не порадовал... Как только я стал передавать параметров <16 байт (реализовано через структуру) то процедуры и функции начинали ...

Простой опыт:
program test;
uses
ufp_uartserial;

procedure TestParam(p1, p2, p3, p4, p5, p6, p7, p8, p9 &#58; dword);
begin
writeln('p1=0x' + hexstr(p1, 8) + ' p2=0x' + hexstr(p2, 8) + ' p3=0x' + hexstr(p3, 8));
writeln('p4=0x' + hexstr(p4, 8) + ' p5=0x' + hexstr(p5, 8) + ' p6=0x' + hexstr(p6 ...

Спасибо "Дож". Именно это я и хотел понять. Передача параметров процедурам и функциям в виде структуры в моём случае невозможна, так как таких у меня много. Попробую обратиться на багтреккер. Это ведь это явная ошибка компилятора. Если у кого-то будет передаваться процедуре(функции) более 7 ...

Глазастые Согласен. Но Borland pascal 7.0 сожрал и так. Как Карл? Только что проверил.
Сейчас меня больше беспокоит передача параметров в процедуру. Портится последний параметр. Если не решу проблему, то буду пробовать ARM. В свое время писал под ARM WinCE. Все работало. А в этом проекте придется ...

Исправил дизассемблированный ARP_ss_PROCESSARP. Теперь видно оба WriteLn. Пример проблемных include подготовлю.

Добавлено спустя 28 минут 52 секунды:
Пример include файлов. Файл global.inc вставляется во все файлы проекта.

global.inc

{&#46;$define icpdas}
{$define net}
{$define debug}

{$ifdef ...

Первоначально, стек TCP/IP и приложение с его использованием был разработан для процессоров типа x86(R8820) на языке Turbo pascal 7.0, но со временем пришлось переходить на другую аппаратную базу. Для решения задачи был выбран компилятор FreePascal, с его возможностями кросс компиляции. Так как он ...