require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&SNG_EXPBITS)) {
    sub SNG_EXPBITS () {	8;}
}
unless(defined(&SNG_FRACBITS)) {
    sub SNG_FRACBITS () {	23;}
}
unless(defined(&DBL_EXPBITS)) {
    sub DBL_EXPBITS () {	11;}
}
unless(defined(&DBL_FRACHBITS)) {
    sub DBL_FRACHBITS () {	20;}
}
unless(defined(&DBL_FRACLBITS)) {
    sub DBL_FRACLBITS () {	32;}
}
unless(defined(&DBL_FRACBITS)) {
    sub DBL_FRACBITS () {	52;}
}
if(defined(&notyet)) {
    eval 'sub E80_EXPBITS () {15;}' unless defined(&E80_EXPBITS);
    eval 'sub E80_FRACBITS () {64;}' unless defined(&E80_FRACBITS);
}
unless(defined(&EXT_EXPBITS)) {
    sub EXT_EXPBITS () {	15;}
}
unless(defined(&EXT_FRACHBITS)) {
    sub EXT_FRACHBITS () {	16;}
}
unless(defined(&EXT_FRACHMBITS)) {
    sub EXT_FRACHMBITS () {	32;}
}
unless(defined(&EXT_FRACLMBITS)) {
    sub EXT_FRACLMBITS () {	32;}
}
unless(defined(&EXT_FRACLBITS)) {
    sub EXT_FRACLBITS () {	32;}
}
unless(defined(&EXT_FRACBITS)) {
    sub EXT_FRACBITS () {	112;}
}
unless(defined(&EXT_IMPLICIT_NBIT)) {
    sub EXT_IMPLICIT_NBIT () {	1;}
}
unless(defined(&EXT_TO_ARRAY32)) {
    sub EXT_TO_ARRAY32 {
	my($p, $a) = @_;
	eval q( &do { ($a)[0] = ( &uint32_t)($p)-> &ext_fracl; ($a)[1] = ( &uint32_t)($p)-> &ext_fraclm; ($a)[2] = ( &uint32_t)($p)-> &ext_frachm; ($a)[3] = ( &uint32_t)($p)-> &ext_frach; }  &while(0));
    }
}
unless(defined(&SNG_EXP_INFNAN)) {
    sub SNG_EXP_INFNAN () {	255;}
}
unless(defined(&DBL_EXP_INFNAN)) {
    sub DBL_EXP_INFNAN () {	2047;}
}
unless(defined(&EXT_EXP_INFNAN)) {
    sub EXT_EXP_INFNAN () {	32767;}
}
if(0) {
    eval 'sub SNG_QUIETNAN () {(1<< 22);}' unless defined(&SNG_QUIETNAN);
    eval 'sub DBL_QUIETNAN () {(1<< 19);}' unless defined(&DBL_QUIETNAN);
    eval 'sub EXT_QUIETNAN () {(1<< 15);}' unless defined(&EXT_QUIETNAN);
}
unless(defined(&SNG_EXP_BIAS)) {
    sub SNG_EXP_BIAS () {	127;}
}
unless(defined(&DBL_EXP_BIAS)) {
    sub DBL_EXP_BIAS () {	1023;}
}
unless(defined(&EXT_EXP_BIAS)) {
    sub EXT_EXP_BIAS () {	16383;}
}
1;
