require '_h2ph_pre.ph';

unless(defined(&MBFLAG)) {
    sub MBFLAG () {	0x00000010;}
}
unless(defined(&SPFLAG)) {
    sub SPFLAG () {	0x000000e0;}
}
unless(defined(&GSFLAG)) {
    sub GSFLAG () {	0x00000100;}
}
unless(defined(&FI_CFLAG)) {
    sub FI_CFLAG {
	local($x) = @_;
	eval q(((($x)-> &flag &MBFLAG)>>4));
    }
}
unless(defined(&FI_SPURE)) {
    sub FI_SPURE {
	local($x) = @_;
	eval q(((($x)-> &flag &SPFLAG)>>5));
    }
}
unless(defined(&FI_GSHAR)) {
    sub FI_GSHAR {
	local($x) = @_;
	eval q(((($x)-> &flag &GSFLAG)>>8));
    }
}
unless(defined(&FI_ENDOF)) {
    sub FI_ENDOF {
	local($x) = @_;
	eval q((($x)-> &end_of_file));
    }
}
unless(defined(&FI_SET_CF)) {
    sub FI_SET_CF {
	local($x,$y) = @_;
	eval q((($x)-> &flag= (($x)-> &flag & (~ &MBFLAG))|(($y<<4) &MBFLAG)));
    }
}
unless(defined(&FI_SET_SP)) {
    sub FI_SET_SP {
	local($x,$y) = @_;
	eval q((($x)-> &flag= (($x)-> &flag & (~ &SPFLAG))|(($y<<5) &SPFLAG)));
    }
}
unless(defined(&FI_SET_GS)) {
    sub FI_SET_GS {
	local($x,$y) = @_;
	eval q((($x)-> &flag= (($x)-> &flag & (~ &GSFLAG))|(($y<<8) &GSFLAG)));
    }
}
1;
