require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&PUC_MAX_PORTS)) {
    sub PUC_MAX_PORTS () {	16;}
}
unless(defined(&PUC_LPT)) {
    sub PUC_LPT () {	(0x | 0x40);}
}
unless(defined(&PUC_COM_MUL)) {
    sub PUC_COM_MUL {
	my($mul) = @_;
	eval q((0x80 | 0x40 | ($mul)));
    }
}
unless(defined(&PUC_COM_POW2)) {
    sub PUC_COM_POW2 {
	my($pow2) = @_;
	eval q((0x80 | ($pow2)));
    }
}
unless(defined(&PUC_IS_LPT)) {
    sub PUC_IS_LPT {
	my($type) = @_;
	eval q(((($type) & 0xc0) == 0x40));
    }
}
unless(defined(&PUC_IS_COM)) {
    sub PUC_IS_COM {
	my($type) = @_;
	eval q(((($type) & 0x80) == 0x80));
    }
}
unless(defined(&PUC_IS_COM_MUL)) {
    sub PUC_IS_COM_MUL {
	my($type) = @_;
	eval q((($type) & 0x40));
    }
}
unless(defined(&PUC_COM_GET_MUL)) {
    sub PUC_COM_GET_MUL {
	my($type) = @_;
	eval q((($type) & 0x3f));
    }
}
unless(defined(&PUC_COM_GET_POW2)) {
    sub PUC_COM_GET_POW2 {
	my($type) = @_;
	eval q((($type) & 0x3f));
    }
}
unless(defined(&PUC_PORT_BAR_INDEX)) {
    sub PUC_PORT_BAR_INDEX {
	my($bar) = @_;
	eval q(((($bar) -  &PCI_MAPREG_START) / 4));
    }
}
unless(defined(&PUC_NBARS)) {
    sub PUC_NBARS () {	6;}
}
1;
