require '_h2ph_pre.ph';

unless(defined(&TCF_PERM)) {
    sub TCF_PERM () {	1;}
}
unless(defined(&ADDCARRY)) {
    sub ADDCARRY {
	local($x) = @_;
	eval q(($x >= 65535? $x -= 65535: $x));
    }
}
unless(defined(&REDUCE)) {
    sub REDUCE {
	local($a, $b) = @_;
	eval q({ 'union union' { 'u_short s'[2]; 'long l';}  &l_util; 'long x';  ($l_util->{l}) = ($b);  &x =  ($l_util->{s[0]}) +  ($l_util->{s[1]});  &ADDCARRY( &x);  &if ( &x == 0)  &x = 0xffff; $a =  &x;});
    }
}
unless(defined(&SWAB)) {
    sub SWAB {
	local($a, $b) = @_;
	eval q({ 'union union' { 'u_char'  $c[2]; 'u_short s';}  &s; 'u_char'  &t;  ($s->{s}) = ($b);  &t =  ($s->{c[0]});  ($s->{c[0]}) =  ($s->{c[1]});  ($s->{c[1]}) =  &t; $a =  ($s->{s});});
    }
}
if(defined(&_KERNEL)) {
}
1;
