Exponent aus Extended extrahieren?

[himitsu]

ich glaub ich hab erstmal 'ne Lösung für den Bereich von etwas -96038,388 bis 96038,388 reicht aber aus, da die Multiplication bei rund 9223372036 = 96038*96038 eh einen Überlauf bringt.
(also 'ne Zahl kann natürlich auch größer als 96038,388 sein, wenn der andere Operand entsprechend kleiner ist)

Code:

Result := (left * right) div 1000000000;
          ***überlauf***

Result := left * (right div 1000000000)
  + (left * (right mod 1000000000)) div 1000000000
    ***********überlauf************

Result := left.FBCD9 * (right div 1000000000)
  + ((left mod 1000000000) * (right mod 1000000000)) div 1000000000
  + (left div 1000000000) * (right mod 1000000000);

[s]und mit Runden der 9. Kommastelle (glaub ich)
Result := left.FBCD9 * (right div 1000000000)
  + ((left mod 1000000000) * (right mod 1000000000)) div 1000000000
  + ((left + 500000000) div 1000000000) * (right mod 1000000000);[/s]
[edit] blödsinn

Delphi-Quellcode:

class operator FIXCOMMA64.Multiply(const Left, Right: FIXCOMMA64): FIXCOMMA64;
  begin
    Result.FBCD9 := left.FBCD9 * (right.FBCD9 div 1000000000)
      + ((left.FBCD9 mod 1000000000) * (right.FBCD9 mod 1000000000)) div 1000000000
      + (left.FBCD9 div 1000000000) * (right.FBCD9 mod 1000000000);
  end;

und das Andere

Delphi-Quellcode:

class operator FIXCOMMA64.Multiply(const Left, Right: FIXCOMMA64): FIXCOMMA64;
  const idiv: LongInt = 1000000000;

  asm
    fild qword ptr [&left.FBCD9]
    fild qword ptr [&right.FBCD9]
    fmulp st(1), st(0)
    fidiv dword ptr [&idiv]
    fistp qword ptr [&result.FBCD9]
    wait
  end;

[edit] das mit dem Runden wahr wohl blödsinn ... kommt davon, wenn man das Rechenergebnis mit einem Ergebnis via Floattypen vergleicht und denkt die eigene Rechnung stimme nicht ganz