Rejon zmiennoprzecinkowy dzielony przez zero w Delphi5

Question

Moja aplikacja została napisana w Delphi5. Używam madExcept do śledzenia błędów. Wyszedłem z wyjątku "Floating point dvision by zero", gdzie nie powinno być. Segment kodu, w którym jest podnoszona, jest następujący:

val:=100*Power(1.25,c); 

gdzie "c" zawsze ma zawsze wartość "1".

Ślad stos protokołu:

main thread ($338f8): 
00403504 +010 MyApp.exe System 1970 +5 @FRAC 
00479148 +058 MyApp.exe Math    Power 
007ae8a6 +262 MyApp.exe MyClass 1962 +36 TMyClass.FormMouseWheel 

miałem inny wyjątek w jednym punkcie, w którym podział doszło jednak dzielnik był zmienny, co miało również na wartość „1”, gdy wystąpił wyjątek. Że byłem w stanie debugować i rozmnażać.

Moje pytanie: czego mi brakuje? Czy są jakieś fałszywe alarmy dotyczące dzielenia zmiennoprzecinkowego, o których nie wiem?

Ponadto: Nie używam żadnych bibliotek DLL C++ w punktach wyjątku, ponieważ mają one tendencję do obsługi podziałów FP inaczej (zwracanie NaN lub +/- INF zamiast podnoszenia wyjątku).

Wszelkie wskazówki są mile widziane.

Answer 1

prostu próbowałem następujący kod:

procedure TTTest.FormCreate(Sender: TObject); 
var v: extended; 
    one: extended; 
begin 
    one := 1.0; 
    v := 100*Power(1.25,one); 
end; 

To po prostu kompiluje i działa zgodnie z oczekiwaniami w Delphi 5.

Domyślam się, że podział na zerowym flaga może być ustawione na zewnątrz kodu (nawet jeśli nie podłączysz się do kodu C++, wywołanie Direct X lub podobnego może mieć ten sam efekt), ale podniesione później, w _Frac.

Jedynym połączeniem do Frac w standardowej realizacji Power() jest przetestowanie Frac(Exponent) = 0.0.

Nastąpiła zmiana w realizacji Frac między Delphi 5 i Delphi 6.

Oto Delphi 5 wersja:

procedure  _FRAC; 
asm 
    FLD  ST(0) 
    SUB  ESP,4 
    FSTCW [ESP] 
    FWAIT 
    FLDCW cwChop 
    FRNDINT 
    FWAIT 
    FLDCW [ESP] 
    ADD  ESP,4 
    FSUB 
end; 

Oto wersja Delphi 6:

procedure  _FRAC; 
asm 
    FLD  ST(0) 
    SUB  ESP,4 
    FNSTCW [ESP].Word  // save 
    FNSTCW [ESP+2].Word // scratch 
    FWAIT 
    OR  [ESP+2].Word, $0F00 // trunc toward zero, full precision 
    FLDCW [ESP+2].Word 
    FRNDINT 
    FWAIT 
    FLDCW [ESP].Word 
    ADD  ESP,4 
    FSUB 
end; 

Z powyższego kodu dowiesz się, że następujące polecenia spowodowały, że opóźnione wyjątki zostały podniesione przed wydaniem Delphi 6: Trunc, Frac, Ceil .

Sądzę, że napotkano problem z Delphi 5, który został naprawiony za pomocą Delphi 6.Być może trzeba będzie użyć własnej wersji Power, jak ten:

function Power(Base, Exponent: Extended): Extended; 
begin 
    if Exponent = 0.0 then 
    Result := 1.0    { n**0 = 1 } 
    else if (Base = 0.0) and (Exponent > 0.0) then 
    Result := 0.0    { 0**n = 0, n > 0 } 
    else 
    Result := Exp(Exponent * Ln(Base)) 
end; 

Answer 2

Nie ostateczne odpowiedzi za pomocą wszelkich środków, ale ...

FPU podobne wyjątki, w których nie powinno być, może być związane z stosu FPU nie jest prawidłowo rozliczone. Na pewnym etapie mieliśmy podobne problemy, ale zauważyliśmy wyjątki Invalid Floating Point Operation.

Ten artykuł: Delphi bug of the day: FPU stack leak, w którym ktoś znalazł przyczynę wyjątku operacji Nieprawidłowy ruch zmiennoprzecinkowy, zgłoszonego przez S := S + '*';, pomógł nam rozwiązać problem.

Answer 3

Używasz TWebBrowser lub dowolny komponent WebBrowser IE jak EmbeddedWB?

Jeśli tak, to może to wyjaśnić: https://forums.embarcadero.com/thread.jspa?messageID=334125&tstart=0

Zawiera także coś, co może rozwiązać problem, nawet jeśli nie korzystasz z przeglądarki internetowej (Set8087CW) jako łącza przez Jeroen powyżej opisano.