patch attached to show where the problem lies...
Dimitris
--- rtl/inc/ucomplex.pp.orig2 2006-08-04 00:48:16.000000000 +0300
+++ rtl/inc/ucomplex.pp 2006-08-04 04:31:33.000000000 +0300
@@ -318,6 +318,7 @@
var
denom : real;
begin
+ { WARNING: denom may overflow here, spoiling the result! }
with zden do denom := (re * re) + (im * im);
{ generates a fpu exception if denom=0 as for reals }
z.re := ((znum.re * zden.re) + (znum.im * zden.im)) / denom;
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
