require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&PUC_MAX_PORTS)) {
    sub PUC_MAX_PORTS () {	8;}
}
unless(defined(&PUC_REG_VEND)) {
    sub PUC_REG_VEND () {	0;}
}
unless(defined(&PUC_REG_PROD)) {
    sub PUC_REG_PROD () {	1;}
}
unless(defined(&PUC_REG_SVEND)) {
    sub PUC_REG_SVEND () {	2;}
}
unless(defined(&PUC_REG_SPROD)) {
    sub PUC_REG_SPROD () {	3;}
}
unless(defined(&PUC_PORT_TYPE_NONE)) {
    sub PUC_PORT_TYPE_NONE () {	0;}
}
unless(defined(&PUC_PORT_TYPE_COM)) {
    sub PUC_PORT_TYPE_COM () {	1;}
}
unless(defined(&PUC_PORT_TYPE_LPT)) {
    sub PUC_PORT_TYPE_LPT () {	2;}
}
unless(defined(&PUC_PORT_VALID)) {
    sub PUC_PORT_VALID {
	my($desc, $port) = @_;
	eval q((($port) <  &PUC_MAX_PORTS  && ($desc)-> ($ports[&(port)]->{type}) !=  &PUC_PORT_TYPE_NONE));
    }
}
unless(defined(&PUC_PORT_BAR_INDEX)) {
    sub PUC_PORT_BAR_INDEX {
	my($bar) = @_;
	eval q(((($bar) -  &PCI_MAPREG_START) / 4));
    }
}
unless(defined(&PUC_COM_CLOCKMASK)) {
    sub PUC_COM_CLOCKMASK () {	0xffffff00;}
}
unless(defined(&PUC_NBARS)) {
    sub PUC_NBARS () {	6;}
}
1;
