require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&__ASM_PROC_DOMAIN_H)) {
    eval 'sub __ASM_PROC_DOMAIN_H () {1;}' unless defined(&__ASM_PROC_DOMAIN_H);
    unless(defined(&CONFIG_IO_36)) {
	eval 'sub DOMAIN_KERNEL () {0;}' unless defined(&DOMAIN_KERNEL);
	eval 'sub DOMAIN_TABLE () {0;}' unless defined(&DOMAIN_TABLE);
	eval 'sub DOMAIN_USER () {1;}' unless defined(&DOMAIN_USER);
	eval 'sub DOMAIN_IO () {2;}' unless defined(&DOMAIN_IO);
    } else {
	eval 'sub DOMAIN_KERNEL () {2;}' unless defined(&DOMAIN_KERNEL);
	eval 'sub DOMAIN_TABLE () {2;}' unless defined(&DOMAIN_TABLE);
	eval 'sub DOMAIN_USER () {1;}' unless defined(&DOMAIN_USER);
	eval 'sub DOMAIN_IO () {0;}' unless defined(&DOMAIN_IO);
    }
    eval 'sub DOMAIN_NOACCESS () {0;}' unless defined(&DOMAIN_NOACCESS);
    eval 'sub DOMAIN_CLIENT () {1;}' unless defined(&DOMAIN_CLIENT);
    eval 'sub DOMAIN_MANAGER () {3;}' unless defined(&DOMAIN_MANAGER);
    eval 'sub domain_val {
        my($dom,$type) = @_;
	    eval q((($type) << (2*($dom))));
    }' unless defined(&domain_val);
    unless(defined(&__ASSEMBLY__)) {
	if(defined(&CONFIG_MMU)) {
	    eval 'sub set_domain {
	        my($x) = @_;
    		eval q(\\"(assembly code)\\");
	    }' unless defined(&set_domain);
	    eval 'sub modify_domain {
	        my($dom,$type) = @_;
    		eval q( &do { 1; \'unsigned int domain\' =  ($thread->{cpu_domain});  &domain &= ~ &domain_val($dom,  &DOMAIN_MANAGER);  ($thread->{cpu_domain}) =  &domain |  &domain_val($dom, $type);  &set_domain( ($thread->{cpu_domain})); }  &while (0));
	    }' unless defined(&modify_domain);
	} else {
	    eval 'sub set_domain {
	        my($x) = @_;
    		eval q( &do { }  &while (0));
	    }' unless defined(&set_domain);
	    eval 'sub modify_domain {
	        my($dom,$type) = @_;
    		eval q( &do { }  &while (0));
	    }' unless defined(&modify_domain);
	}
    }
}
1;