require '_h2ph_pre.ph';

unless(defined(&_M68K_ASM_SINGLE_H)) {
    eval 'sub _M68K_ASM_SINGLE_H () {1;}' unless defined(&_M68K_ASM_SINGLE_H);
    eval 'sub single_inst_bset_b {
        local($var, $bit) = @_;
	    eval q( &__asm__  &__volatile__ (\\"orb %0,%1\\" : : \\"di\\" ($bit), \\"g\\" ($var)));
    }' unless defined(&single_inst_bset_b);
    eval 'sub single_inst_bclr_b {
        local($var, $bit) = @_;
	    eval q( &__asm__  &__volatile__ (\\"andb %0,%1\\" : : \\"di\\" (~($bit)), \\"g\\" ($var)););
    }' unless defined(&single_inst_bclr_b);
    eval 'sub single_inst_bset_w {
        local($var, $bit) = @_;
	    eval q( &__asm__  &__volatile__ (\\"orw %0,%1\\" : : \\"di\\" ($bit), \\"g\\" ($var)));
    }' unless defined(&single_inst_bset_w);
    eval 'sub single_inst_bclr_w {
        local($var, $bit) = @_;
	    eval q( &__asm__  &__volatile__ (\\"andw %0,%1\\" : : \\"di\\" (~($bit)), \\"g\\" ($var)););
    }' unless defined(&single_inst_bclr_w);
    eval 'sub single_inst_bset_l {
        local($var, $bit) = @_;
	    eval q( &__asm__  &__volatile__ (\\"orl %0,%1\\" : : \\"di\\" ($bit), \\"g\\" ($var)));
    }' unless defined(&single_inst_bset_l);
    eval 'sub single_inst_bclr_l {
        local($var, $bit) = @_;
	    eval q( &__asm__  &__volatile__ (\\"andl %0,%1\\" : : \\"di\\" (~($bit)), \\"g\\" ($var)););
    }' unless defined(&single_inst_bclr_l);
}
1;
