require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&tc_mb)) {
    sub tc_mb () {
	eval q( &alpha_mb());
    }
}
unless(defined(&tc_wmb)) {
    sub tc_wmb () {
	eval q( &alpha_wmb());
    }
}
unless(defined(&tc_syncbus)) {
    sub tc_syncbus () {
	eval q( &do {  &volatile  &u_int32_t  &no_optimize;  &no_optimize = *( &volatile  &u_int32_t *) &ALPHA_PHYS_TO_K0SEG(0x1f0080220); }  &while (0));
    }
}
unless(defined(&tc_badaddr)) {
    sub tc_badaddr {
	my($tcaddr) = @_;
	eval q( &badaddr(( &void *)($tcaddr), $sizeof{ &u_int32_t}));
    }
}
unless(defined(&TC_SPACE_IND)) {
    sub TC_SPACE_IND () {	0xffffffffe0000003;}
}
unless(defined(&TC_SPACE_DENSE)) {
    sub TC_SPACE_DENSE () {	0x;}
}
unless(defined(&TC_SPACE_DENSE_OFFSET)) {
    sub TC_SPACE_DENSE_OFFSET () {	0x7fffffc;}
}
unless(defined(&TC_SPACE_SPARSE)) {
    sub TC_SPACE_SPARSE () {	0x10000000;}
}
unless(defined(&TC_SPACE_SPARSE_OFFSET)) {
    sub TC_SPACE_SPARSE_OFFSET () {	0xffffff8;}
}
unless(defined(&TC_DENSE_TO_SPARSE)) {
    sub TC_DENSE_TO_SPARSE {
	my($addr) = @_;
	eval q(((($addr) &  &TC_SPACE_IND) |  &TC_SPACE_SPARSE | ((($addr) &  &TC_SPACE_DENSE_OFFSET) << 1)));
    }
}
unless(defined(&TC_PHYS_TO_UNCACHED)) {
    sub TC_PHYS_TO_UNCACHED {
	my($addr) = @_;
	eval q(($addr));
    }
}
unless(defined(&TC_SGSRAM_DENSE)) {
    sub TC_SGSRAM_DENSE () {	0x1c2800000;}
}
unless(defined(&TC_SGSRAM_SPARSE)) {
    sub TC_SGSRAM_SPARSE () {	0x1d5000000;}
}
1;
