tfpstate¶

type
  tfpstate = record
    cw: Cardinal;
    sw: Cardinal;
    tag: Cardinal;
    ipoff: Cardinal;
    cssel: Cardinal;
    dataoff: Cardinal;
    datasel: Cardinal;
    st: Array[0..7] of tfpreg = record
  significand : Array[0..3] of Word;
  exponent : Word;
end
;
    status: Word;
    magic: Word;
    fxsr_env: Array[0..5] of DWord = LongWord;
    mxcsr: DWord = LongWord;
    reserved: DWord = LongWord;
    fxsr_st: Array[0..7] of tfpxreg = record
  significand : Array[0..3] of Word;
  exponent : Word;
  padding : Array[0..2] of Word;
end
;
    xmmreg: Array[0..7] of txmmreg = record
  element : Array[0..3] of DWord = LongWord;
end
;
    case Byte of
      1: (
        padding : Array[0..43] of DWord = LongWord;
      case Byte of
      1: (
        padding2 : Array[0..11] of DWord = LongWord;
      );
      2: (
        sw_reserved : tfpx_sw_bytes;
      );
      );
      2: (
        padding1 : Array[0..43] of DWord = LongWord;
      );
  end;