require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&COREMAGIC)) {
    sub COREMAGIC () {	0507;}
}
unless(defined(&CORESEGMAGIC)) {
    sub CORESEGMAGIC () {	0510;}
}
unless(defined(&CORE_GETMAGIC)) {
    sub CORE_GETMAGIC {
	my($c) = @_;
	eval q((  &ntohl((($c). &c_midmag)) & 0xffff ));
    }
}
unless(defined(&CORE_GETMID)) {
    sub CORE_GETMID {
	my($c) = @_;
	eval q(( ( &ntohl((($c). &c_midmag)) >> 16) & 0x3ff ));
    }
}
unless(defined(&CORE_GETFLAG)) {
    sub CORE_GETFLAG {
	my($c) = @_;
	eval q(( ( &ntohl((($c). &c_midmag)) >> 26) & 0x3f ));
    }
}
unless(defined(&CORE_SETMAGIC)) {
    sub CORE_SETMAGIC {
	my($c,$mag,$mid,$flag) = @_;
	eval q(( ($c). &c_midmag =  &htonl ( ( (($flag) & 0x3f) << 26) | ( (($mid) & 0x3ff) << 16) | ( (($mag) & 0xffff) ) ) ));
    }
}
unless(defined(&CORE_CPU)) {
    sub CORE_CPU () {	1;}
}
unless(defined(&CORE_DATA)) {
    sub CORE_DATA () {	2;}
}
unless(defined(&CORE_STACK)) {
    sub CORE_STACK () {	4;}
}
1;
