Exponent aus Extended extrahieren?

[stoxx]

ich habs jetzt so:
aber leider funktioniert: Fild qword ptr [&left.FBCD9]
nicht. Da muss bei Class Operatoren irgendwas anderes übergeben werden.
Auch dem Result kann man nix geben ..

Delphi-Quellcode:

//====[  *  ]===================================================================
class operator FIXCOMMA64.Multiply(const Left, Right: FIXCOMMA64): FIXCOMMA64;
const I10     : LongInt  =         10;
      BCD8INT  : LongInt = 100000000;
var
  // val: extended;
  f1, f2 : int64;
begin
//  Result.MaxValue
//  val := (Left.FBCD9 / FBCD9EXT) * (Right.FBCD9 / FBCD9EXT);
//
//  Result.FBCD9 := (Trunc(val)*FBCD9INT) + iDIV64(Round(frac(val)*FBCD10EXT), 10);
//
//exit;

  f1 := left.fbcd9;
  f2 := Right.fbcd9;
  asm
    //    FILD I10
    //    FILD BCD8INT
    Fild qword ptr [f1]
    Fild qword  ptr [f2]
    //    Fild qword ptr [&left.FBCD9]
    //    Fild qword  ptr [&right.FBCD9]
    fmulp st(1),st(0)
    //  FDIVR
    fidiv dword ptr [&BCD8INT]
    FRNDINT
    //  FDIVR
    fidiv dword ptr [&I10]
    FISTP qword  [f1]
    wait
  end;
  Result.FBCD9 := f1;
end;

so ist der definiert:

Delphi-Quellcode:

type PFIXCOMMA64 = ^FIXCOMMA64;  FIXCOMMA64 = packed record
strict private
    FBCD9: int64;
    class function Get_MinValue: FIXCOMMA64; static;
    class function Get_MaxValue: FIXCOMMA64; static;
  private
    function Get_DWORD: DWORD;
    function Get_Int64: Int64;
....