freepascal.ru

Что делать, если выяснилось, что программа работает по разному в двух вариантах компиляции.
Если есть/нету строки var n:integer; в обоих процедурах, то компилируется правильно, если только в одном, то неправильно.

Код: Выделить всё

procedure TForm1.Button2Click(Sender: TObject);
var
  n:integer;
begin
  Alist.DelNotifyChange(Form1,edit1.OnClick);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  n:integer;
begin
  Alist.AddNotifyChange(Form1,edit1.OnClick);
  Alist.AddNotifyChange(Form1,edit2.OnClick);
  Alist.AddNotifyChange(Form1,edit3.OnClick);
end;


Sharfik, писать в багтреккер проекта. Только это не ошибка среды, а ошибка/поведение компилятора.

Это не ошибка компилятора, это мой косяк+компилятор. Просто совпало, что кое где неправильно брал адрес данных, а за счет этих var объявлений для двух функций совпадали адреса формы. Не знаю даже, как это описать это разработчику fpc, чтобы исключить такую случайность. Адреса выравнивались за счет них как то.

Это никак не исключить, если идёт некорректная работа с указателями.

В любом случае, без небольшого полного компилируемого тестового проекта разговор бессмысленен.