require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&DMAADDR)) {
    sub DMAADDR {
	my($dma, $o) = @_;
	eval q((($dma)-> ($block->{map}->{dm_segs[0]}->{ds_addr}) + ($dma)-> &offs + ($o)));
    }
}
unless(defined(&KERNADDR)) {
    sub KERNADDR {
	my($dma, $o) = @_;
	eval q((( &void *)((($dma)-> ($block->{kaddr}) + ($dma)-> &offs) + ($o))));
    }
}
1;
