SIGFPE при присвоении single:=integer!

[Герасим]

При портировании проекта Delphi в Lazarus
procedure TTimeMark.View(...);//один из методов объекта

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

var
  x:integer;
  s:single;
...
s:=x;//тут получаю SIGFPE!!!!!!


Сделал программу для проверки бага из трёх строк всё ОК!!!

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

var
  x:integer;
  s:single;
begin
  readln(x);
  s:=x; //всё ОК!!!
  writeln(s);
  readln;
end;



смотрел, дизассемблер (в т.ч. и делфи)
везде код одинаковый, кроме как передача параметров
в методе объекта (понятное дело, тут ebp ибо стэк)
fildl -12(%ebp)
fstps -28(%ebp)

в простой программке (прямая адресация)
fildl ..x
fstps ..s

потом перенёс в отдельную процедуру, получил так же код со стеком
fildl -4(%ebp)
fstps -8(%ebp)
но и там всё хорошо, т.е. ошибка происходит в методе объекта

вот, как лечить?

учимся правильно оформлять сообщения

[Sergei I. Gorelkin]

Есть ощущение, что трабл не в самом присваивании, а в коде, который выполняется где-то до него.

Если проблемное присваивание вынести в отдельную процедуру и вызывать ее из метода объекта - будет работать?
А если из проблемного метода объекта убрать (перенести в другой метод) все, кроме проблемного присваивания?