config root man

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_FENV_H_)) {
    eval 'sub _FENV_H_ () {1;}' unless defined(&_FENV_H_);
    require 'sys/cdefs.ph';
    require 'sys/_types.ph';
    eval 'sub FE_INVALID () {0x1;}' unless defined(&FE_INVALID);
    eval 'sub FE_DENORMAL () {0x2;}' unless defined(&FE_DENORMAL);
    eval 'sub FE_DIVBYZERO () {0x4;}' unless defined(&FE_DIVBYZERO);
    eval 'sub FE_OVERFLOW () {0x8;}' unless defined(&FE_OVERFLOW);
    eval 'sub FE_UNDERFLOW () {0x10;}' unless defined(&FE_UNDERFLOW);
    eval 'sub FE_INEXACT () {0x20;}' unless defined(&FE_INEXACT);
    eval 'sub FE_ALL_EXCEPT () {( &FE_DIVBYZERO |  &FE_DENORMAL |  &FE_INEXACT |  &FE_INVALID |  &FE_OVERFLOW |  &FE_UNDERFLOW);}' unless defined(&FE_ALL_EXCEPT);
    eval 'sub FE_TONEAREST () {0x;}' unless defined(&FE_TONEAREST);
    eval 'sub FE_DOWNWARD () {0x400;}' unless defined(&FE_DOWNWARD);
    eval 'sub FE_UPWARD () {0x800;}' unless defined(&FE_UPWARD);
    eval 'sub FE_TOWARDZERO () {0xc00;}' unless defined(&FE_TOWARDZERO);
    eval 'sub _ROUND_MASK () {( &FE_TONEAREST |  &FE_DOWNWARD |  &FE_UPWARD |  &FE_TOWARDZERO);}' unless defined(&_ROUND_MASK);
    eval 'sub _SSE_ROUND_SHIFT () {3;}' unless defined(&_SSE_ROUND_SHIFT);
    eval 'sub _SSE_EMASK_SHIFT () {7;}' unless defined(&_SSE_EMASK_SHIFT);
    eval 'sub FE_DFL_ENV () {(& &__fe_dfl_env);}' unless defined(&FE_DFL_ENV);
    eval 'sub __fldcw {
        my($__cw) = @_;
	    eval q( &__asm  &__volatile(\\"fldcw %0\\" : : \\"m\\" ($__cw)));
    }' unless defined(&__fldcw);
    eval 'sub __fldenv {
        my($__env) = @_;
	    eval q( &__asm  &__volatile(\\"fldenv %0\\" : : \\"m\\" ($__env)));
    }' unless defined(&__fldenv);
    eval 'sub __fldenvx {
        my($__env) = @_;
	    eval q( &__asm  &__volatile(\\"fldenv %0\\" : : \\"m\\" ($__env) : \\"st\\", \\"st(1)\\", \\"st(2)\\", \\"st(3)\\", \\"st(4)\\", \\"st(5)\\", \\"st(6)\\", \\"st(7)\\"));
    }' unless defined(&__fldenvx);
    eval 'sub __fnclex () {
        eval q( &__asm  &__volatile(\\"fnclex\\"));
    }' unless defined(&__fnclex);
    eval 'sub __fnstenv {
        my($__env) = @_;
	    eval q( &__asm  &__volatile(\\"fnstenv %0\\" : \\"=m\\" (*($__env))));
    }' unless defined(&__fnstenv);
    eval 'sub __fnstcw {
        my($__cw) = @_;
	    eval q( &__asm  &__volatile(\\"fnstcw %0\\" : \\"=m\\" (*($__cw))));
    }' unless defined(&__fnstcw);
    eval 'sub __fnstsw {
        my($__sw) = @_;
	    eval q( &__asm  &__volatile(\\"fnstsw %0\\" : \\"=am\\" (*($__sw))));
    }' unless defined(&__fnstsw);
    eval 'sub __fwait () {
        eval q( &__asm  &__volatile(\\"fwait\\"));
    }' unless defined(&__fwait);
    eval 'sub __ldmxcsr {
        my($__csr) = @_;
	    eval q( &__asm  &__volatile(\\"ldmxcsr %0\\" : : \\"m\\" ($__csr)));
    }' unless defined(&__ldmxcsr);
    eval 'sub __stmxcsr {
        my($__csr) = @_;
	    eval q( &__asm  &__volatile(\\"stmxcsr %0\\" : \\"=m\\" (*($__csr))));
    }' unless defined(&__stmxcsr);
    eval 'sub feclearexcept {
        my($__excepts) = @_;
	    eval q({  &fenv_t  &__env;  &if ($__excepts ==  &FE_ALL_EXCEPT) {  &__fnclex(); }  &else {  &__fnstenv(& ($__env->{__x87}));  ($__env->{__x87}->{__status}) &= ~$__excepts;  &__fldenv( ($__env->{__x87})); }  &__stmxcsr(& ($__env->{__mxcsr}));  ($__env->{__mxcsr}) &= ~$__excepts;  &__ldmxcsr( ($__env->{__mxcsr})); (0); });
    }' unless defined(&feclearexcept);
    eval 'sub fegetexceptflag {
        my($__flagp,$__excepts) = @_;
	    eval q({  &__uint32_t  &__mxcsr;  &__uint16_t  &__status;  &__stmxcsr(& &__mxcsr);  &__fnstsw(& &__status); *$__flagp = ( &__mxcsr |  &__status) & $__excepts; (0); });
    }' unless defined(&fegetexceptflag);
    eval 'sub fetestexcept {
        my($__excepts) = @_;
	    eval q({  &__uint32_t  &__mxcsr;  &__uint16_t  &__status;  &__stmxcsr(& &__mxcsr);  &__fnstsw(& &__status); (( &__status |  &__mxcsr) & $__excepts); });
    }' unless defined(&fetestexcept);
    eval 'sub fegetround {
        my($void) = @_;
	    eval q({  &__uint16_t  &__control;  &__fnstcw(& &__control); ( &__control &  &_ROUND_MASK); });
    }' unless defined(&fegetround);
    eval 'sub fesetround {
        my($__round) = @_;
	    eval q({  &__uint32_t  &__mxcsr;  &__uint16_t  &__control;  &if ($__round & ~ &_ROUND_MASK) (-1);  &__fnstcw(& &__control);  &__control &= ~ &_ROUND_MASK;  &__control |= $__round;  &__fldcw( &__control);  &__stmxcsr(& &__mxcsr);  &__mxcsr &= ~( &_ROUND_MASK <<  &_SSE_ROUND_SHIFT);  &__mxcsr |= $__round <<  &_SSE_ROUND_SHIFT;  &__ldmxcsr( &__mxcsr); (0); });
    }' unless defined(&fesetround);
    eval 'sub fesetenv {
        my($__envp) = @_;
	    eval q({  &__fldenvx( ($__envp->{__x87}));  &__ldmxcsr( ($__envp->{__mxcsr})); (0); });
    }' unless defined(&fesetenv);
    if((defined(&__BSD_VISIBLE) ? &__BSD_VISIBLE : undef)) {
	eval 'sub fegetexcept {
	    my($void) = @_;
    	    eval q({  &__uint16_t  &__control;  &__fnstcw(& &__control); (~ &__control &  &FE_ALL_EXCEPT); });
	}' unless defined(&fegetexcept);
    }
}
1;