Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use Config; package F128;
...

F128::test( 0.45e-10 );
  2. or download this
    TYPEMAP
const char  * T_PV
...
        sv_setref_pv( $arg, (char *)CLASS, (void*)$var );
  3. or download this
    0001010010001001000101011011101111110100101111010001001110111100
0.0000000000450000 mantissa:2403864 exponent:-875 sign:0
...
C:\test\mandlebrot>F128.pl
0001010010001001000101011011101111110100101111010001001110111100
0.0000000000450000 mantissa:2338328 exponent:-875 sign:0