%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/lib/perl5/site_perl/mach/5.32/machine/
Upload File :
Create Path :
Current File : //usr/local/lib/perl5/site_perl/mach/5.32/machine/csan.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

require 'machine/cpufunc.ph';
require 'machine/stack.ph';
require 'machine/vmparam.ph';
unless(defined(&kcsan_md_unsupported)) {
    sub kcsan_md_unsupported {
	my($addr) = @_;
	eval q({  &false; });
    }
}
unless(defined(&kcsan_md_is_avail)) {
    sub kcsan_md_is_avail {
	my($void) = @_;
	eval q({  &true; });
    }
}
unless(defined(&kcsan_md_disable_intrs)) {
    sub kcsan_md_disable_intrs {
	my($state) = @_;
	eval q({ *$state =  &intr_disable(); });
    }
}
unless(defined(&kcsan_md_enable_intrs)) {
    sub kcsan_md_enable_intrs {
	my($state) = @_;
	eval q({  &intr_restore(*$state); });
    }
}
unless(defined(&kcsan_md_delay)) {
    sub kcsan_md_delay {
	my($us) = @_;
	eval q({  &DELAY($us); });
    }
}
1;

Zerion Mini Shell 1.0