Delphi-Quellcode:
//...
ip := Q + (le1 - 1);
if ip > High(fi)
then //rangecheck
raise Exception.Create('
Fehler');
if ip > High(FR)
then
raise Exception.Create('
Fehler');
tr := FR[
ip] * ur - FI[
ip] * ui;
// FLOAT_INVALID_OPERATION nur 64Bit
ti := FR[
ip] * ui + FI[
ip] * ur;
Läuft das bei dir durch, oder wird ein Fehler angezeigt?