require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&__ASM_ARM_SEMAPHORE_H)) {
    eval 'sub __ASM_ARM_SEMAPHORE_H () {1;}' unless defined(&__ASM_ARM_SEMAPHORE_H);
    require 'linux/linkage.ph';
    require 'linux/spinlock.ph';
    require 'linux/wait.ph';
    require 'linux/rwsem.ph';
    require 'asm/atomic.ph';
    require 'asm/locks.ph';
    eval 'sub __SEMAPHORE_INIT {
        my($name, $cnt) = @_;
	    eval q({ . &count =  &ATOMIC_INIT($cnt), . &wait =  &__WAIT_QUEUE_HEAD_INITIALIZER(($name). &wait), });
    }' unless defined(&__SEMAPHORE_INIT);
    eval 'sub __DECLARE_SEMAPHORE_GENERIC {
        my($name,$count) = @_;
	    eval q(1;
    }' unless defined(&__DECLARE_SEMAPHORE_GENERIC);
    eval 'sub DECLARE_MUTEX {
        my($name) = @_;
	    eval q( &__DECLARE_SEMAPHORE_GENERIC($name,1));
    }' unless defined(&DECLARE_MUTEX);
    eval 'sub DECLARE_MUTEX_LOCKED {
        my($name) = @_;
	    eval q( &__DECLARE_SEMAPHORE_GENERIC($name,0));
    }' unless defined(&DECLARE_MUTEX_LOCKED);
    eval 'sub sema_init {
        my($sem,$val) = @_;
	    eval q({  &atomic_set( ($sem->{count}), $val);  ($sem->{sleepers}) = 0;  &init_waitqueue_head( ($sem->{wait})); });
    }' unless defined(&sema_init);
    eval 'sub init_MUTEX {
        my($sem) = @_;
	    eval q({  &sema_init($sem, 1); });
    }' unless defined(&init_MUTEX);
    eval 'sub init_MUTEX_LOCKED {
        my($sem) = @_;
	    eval q({  &sema_init($sem, 0); });
    }' unless defined(&init_MUTEX_LOCKED);
    eval 'sub down_trylock {
        my($sem) = @_;
	    eval q({  &__down_op_ret($sem,  &__down_trylock_failed); });
    }' unless defined(&down_trylock);
}
1;