Source position: _crw_ef.pas line 113
procedure fxtract(
X: Extended;
var Mantissa: Extended;
var Exponent: Integer
);