Деление с плавающей точкой на ноль на showmodal Delphi XE8

Question

Недавно я обновил свое приложение с Delphi 2007 до Delphi XE8. В нескольких формах линия Form.showmodel генерирует исключение «с плавающей запятой на ноль». На этих формах нет никаких арифметических операций вообще.

Я попытался выполнить следующий код перед showmodal, который разрешил проблему.

var 
    CW, SW: word; 

    function GetX87CW: word; 
    ASM 
    FStCW [Result] 
    End; 

    Function GetX87SW: word; // Assembler; 
    ASM 
    FStSW [Result] 
    End; 

    CW := GetX87CW; SW := GetX87SW; 

    ShowMessage(Format('CW = $%4x, SW = $%4x',[CW,SW])); 

Я не сохранил этот код и не прокомментировал весь код и снова перекомпилировал приложение, которое также разрешило проблему.

Теперь я закрыл Delphi и перезапустил XE8 IDE. Я открыл проект, и этот вопрос снова появился, но на этот раз, хотя я написал вышеприведенный код, он все еще бросает исключение.

Есть ли кто-нибудь, кто видел такую ​​проблему, и кто-то может рассказать о возможной причине такой проблемы?

Answer 1

Вы используете COM-объекты, например. вызова .Net-сборок? Или OpenGL? Или некоторые поставщики OleDB/ADO? Любая другая внешняя .dll? Полагаю, что так.

Звучит как this issue. Вы должны попытаться сделать внешний вызов не Delphi безопасным, сохраняя и восстанавливая флаги исключений FPU для каждого вызова.

Как Кен писал:

var 
    Saved8087CW: Word; 
begin 
    Saved8087CW := Default8087CW; 
    // If you want, disable all fpu exceptions 
    // with the next line. 
    Set8087CW($133F); 
    DoYourComOperationHere; 
    Set8087CW(Saved8087CW); 
end;