Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/sys/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/sys/bus.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_SYS_BUS_H_)) { eval 'sub _SYS_BUS_H_ () {1;}' unless defined(&_SYS_BUS_H_); require 'machine/_limits.ph'; require 'sys/_bus_dma.ph'; eval 'sub BUS_USER_VERSION () {1;}' unless defined(&BUS_USER_VERSION); eval("sub DS_NOTPRESENT () { 10; }") unless defined(&DS_NOTPRESENT); eval("sub DS_ALIVE () { 20; }") unless defined(&DS_ALIVE); eval("sub DS_ATTACHING () { 25; }") unless defined(&DS_ATTACHING); eval("sub DS_ATTACHED () { 30; }") unless defined(&DS_ATTACHED); eval("sub DS_BUSY () { 40; }") unless defined(&DS_BUSY); if(defined(&_KERNEL)) { require 'sys/queue.ph'; require 'sys/kobj.ph'; eval 'sub device_method_t () { &kobj_method_t;}' unless defined(&device_method_t); eval 'sub FILTER_STRAY () {0x1;}' unless defined(&FILTER_STRAY); eval 'sub FILTER_HANDLED () {0x2;}' unless defined(&FILTER_HANDLED); eval 'sub FILTER_SCHEDULE_THREAD () {0x4;}' unless defined(&FILTER_SCHEDULE_THREAD); eval("sub INTR_TYPE_TTY () { 1; }") unless defined(&INTR_TYPE_TTY); eval("sub INTR_TYPE_BIO () { 2; }") unless defined(&INTR_TYPE_BIO); eval("sub INTR_TYPE_NET () { 4; }") unless defined(&INTR_TYPE_NET); eval("sub INTR_TYPE_CAM () { 8; }") unless defined(&INTR_TYPE_CAM); eval("sub INTR_TYPE_MISC () { 16; }") unless defined(&INTR_TYPE_MISC); eval("sub INTR_TYPE_CLK () { 32; }") unless defined(&INTR_TYPE_CLK); eval("sub INTR_TYPE_AV () { 64; }") unless defined(&INTR_TYPE_AV); eval("sub INTR_EXCL () { 256; }") unless defined(&INTR_EXCL); eval("sub INTR_MPSAFE () { 512; }") unless defined(&INTR_MPSAFE); eval("sub INTR_ENTROPY () { 1024; }") unless defined(&INTR_ENTROPY); eval("sub INTR_MD1 () { 4096; }") unless defined(&INTR_MD1); eval("sub INTR_MD2 () { 8192; }") unless defined(&INTR_MD2); eval("sub INTR_MD3 () { 16384; }") unless defined(&INTR_MD3); eval("sub INTR_MD4 () { 32768; }") unless defined(&INTR_MD4); eval("sub INTR_TRIGGER_CONFORM () { 0; }") unless defined(&INTR_TRIGGER_CONFORM); eval("sub INTR_TRIGGER_EDGE () { 1; }") unless defined(&INTR_TRIGGER_EDGE); eval("sub INTR_TRIGGER_LEVEL () { 2; }") unless defined(&INTR_TRIGGER_LEVEL); eval("sub INTR_POLARITY_CONFORM () { 0; }") unless defined(&INTR_POLARITY_CONFORM); eval("sub INTR_POLARITY_HIGH () { 1; }") unless defined(&INTR_POLARITY_HIGH); eval("sub INTR_POLARITY_LOW () { 2; }") unless defined(&INTR_POLARITY_LOW); eval 'sub RLE_RESERVED () {0x1;}' unless defined(&RLE_RESERVED); eval 'sub RLE_ALLOCATED () {0x2;}' unless defined(&RLE_ALLOCATED); eval 'sub RLE_PREFETCH () {0x4;}' unless defined(&RLE_PREFETCH); eval 'sub bus_alloc_resource_any { my($dev,$type,$rid,$flags) = @_; eval q({ ( &bus_alloc_resource($dev, $type, $rid, 0, ~0, 1, $flags)); }); }' unless defined(&bus_alloc_resource_any); eval 'sub BUS_PROBE_SPECIFIC () {0;}' unless defined(&BUS_PROBE_SPECIFIC); eval 'sub BUS_PROBE_VENDOR () {(-10);}' unless defined(&BUS_PROBE_VENDOR); eval 'sub BUS_PROBE_DEFAULT () {(-20);}' unless defined(&BUS_PROBE_DEFAULT); eval 'sub BUS_PROBE_LOW_PRIORITY () {(-40);}' unless defined(&BUS_PROBE_LOW_PRIORITY); eval 'sub BUS_PROBE_GENERIC () {(-100);}' unless defined(&BUS_PROBE_GENERIC); eval 'sub BUS_PROBE_HOOVER () {(-500);}' unless defined(&BUS_PROBE_HOOVER); eval 'sub BUS_PROBE_NOWILDCARD () {(-2000000000);}' unless defined(&BUS_PROBE_NOWILDCARD); eval 'sub BUS_PASS_ROOT () {0;}' unless defined(&BUS_PASS_ROOT); eval 'sub BUS_PASS_BUS () {10;}' unless defined(&BUS_PASS_BUS); eval 'sub BUS_PASS_CPU () {20;}' unless defined(&BUS_PASS_CPU); eval 'sub BUS_PASS_RESOURCE () {30;}' unless defined(&BUS_PASS_RESOURCE); eval 'sub BUS_PASS_INTERRUPT () {40;}' unless defined(&BUS_PASS_INTERRUPT); eval 'sub BUS_PASS_TIMER () {50;}' unless defined(&BUS_PASS_TIMER); eval 'sub BUS_PASS_SCHEDULER () {60;}' unless defined(&BUS_PASS_SCHEDULER); eval 'sub BUS_PASS_DEFAULT () { &__INT_MAX;}' unless defined(&BUS_PASS_DEFAULT); eval 'sub DEVMETHOD () { &KOBJMETHOD;}' unless defined(&DEVMETHOD); eval 'sub DEVMETHOD_END () { &KOBJMETHOD_END;}' unless defined(&DEVMETHOD_END); require 'sys/device_if.ph'; require 'sys/bus_if.ph'; eval 'sub EARLY_DRIVER_MODULE_ORDERED { my($name, $busname, $driver, $devclass, $evh, $arg, $order, $pass) = @_; eval q( &static \'struct driver_module_data\' $name &_$busname &_driver_mod = { $evh, $arg, $busname, ( &kobj_class_t) $driver, $devclass, $pass }; &static &moduledata_t $name &_$busname &_mod = { $busname \\"/\\" $name, &driver_module_handler, $name &_$busname &_driver_mod }; &DECLARE_MODULE($name &_$busname, $name &_$busname &_mod, &SI_SUB_DRIVERS, $order)); }' unless defined(&EARLY_DRIVER_MODULE_ORDERED); eval 'sub EARLY_DRIVER_MODULE { my($name, $busname, $driver, $devclass, $evh, $arg, $pass) = @_; eval q( &EARLY_DRIVER_MODULE_ORDERED($name, $busname, $driver, $devclass, $evh, $arg, &SI_ORDER_MIDDLE, $pass)); }' unless defined(&EARLY_DRIVER_MODULE); eval 'sub DRIVER_MODULE_ORDERED { my($name, $busname, $driver, $devclass, $evh, $arg, $order) = @_; eval q( &EARLY_DRIVER_MODULE_ORDERED($name, $busname, $driver, $devclass, $evh, $arg, $order, &BUS_PASS_DEFAULT)); }' unless defined(&DRIVER_MODULE_ORDERED); eval 'sub DRIVER_MODULE { my($name, $busname, $driver, $devclass, $evh, $arg) = @_; eval q( &EARLY_DRIVER_MODULE($name, $busname, $driver, $devclass, $evh, $arg, &BUS_PASS_DEFAULT)); }' unless defined(&DRIVER_MODULE); eval 'sub __BUS_ACCESSOR { my($varp, $var, $ivarp, $ivar, $type) = @_; eval q( &static &__inline $type $varp &_get_ $var( &device_t &dev) { &uintptr_t &v; &BUS_READ_IVAR( &device_get_parent( &dev), &dev, $ivarp &_IVAR_ $ivar, &v); &return (($type) &v); } &static &__inline &void $varp &_set_ $var( &device_t &dev, $type &t) { &uintptr_t &v = ( &uintptr_t) &t; &BUS_WRITE_IVAR( &device_get_parent( &dev), &dev, $ivarp &_IVAR_ $ivar, &v); }); }' unless defined(&__BUS_ACCESSOR); eval 'sub bus_barrier { my($r, $o, $l, $f) = @_; eval q( &bus_space_barrier(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($l), ($f))); }' unless defined(&bus_barrier); eval 'sub bus_read_1 { my($r, $o) = @_; eval q( &bus_space_read_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_1); eval 'sub bus_read_multi_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_1); eval 'sub bus_read_region_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_1); eval 'sub bus_set_multi_1 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_1); eval 'sub bus_set_region_1 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_1); eval 'sub bus_write_1 { my($r, $o, $v) = @_; eval q( &bus_space_write_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_1); eval 'sub bus_write_multi_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_1); eval 'sub bus_write_region_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_1); eval 'sub bus_read_stream_1 { my($r, $o) = @_; eval q( &bus_space_read_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_stream_1); eval 'sub bus_read_multi_stream_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_stream_1); eval 'sub bus_read_region_stream_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_stream_1); eval 'sub bus_set_multi_stream_1 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_stream_1); eval 'sub bus_set_region_stream_1 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_stream_1); eval 'sub bus_write_stream_1 { my($r, $o, $v) = @_; eval q( &bus_space_write_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_stream_1); eval 'sub bus_write_multi_stream_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_stream_1); eval 'sub bus_write_region_stream_1 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_stream_1(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_stream_1); eval 'sub bus_read_2 { my($r, $o) = @_; eval q( &bus_space_read_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_2); eval 'sub bus_read_multi_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_2); eval 'sub bus_read_region_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_2); eval 'sub bus_set_multi_2 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_2); eval 'sub bus_set_region_2 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_2); eval 'sub bus_write_2 { my($r, $o, $v) = @_; eval q( &bus_space_write_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_2); eval 'sub bus_write_multi_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_2); eval 'sub bus_write_region_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_2); eval 'sub bus_read_stream_2 { my($r, $o) = @_; eval q( &bus_space_read_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_stream_2); eval 'sub bus_read_multi_stream_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_stream_2); eval 'sub bus_read_region_stream_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_stream_2); eval 'sub bus_set_multi_stream_2 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_stream_2); eval 'sub bus_set_region_stream_2 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_stream_2); eval 'sub bus_write_stream_2 { my($r, $o, $v) = @_; eval q( &bus_space_write_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_stream_2); eval 'sub bus_write_multi_stream_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_stream_2); eval 'sub bus_write_region_stream_2 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_stream_2(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_stream_2); eval 'sub bus_read_4 { my($r, $o) = @_; eval q( &bus_space_read_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_4); eval 'sub bus_read_multi_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_4); eval 'sub bus_read_region_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_4); eval 'sub bus_set_multi_4 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_4); eval 'sub bus_set_region_4 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_4); eval 'sub bus_write_4 { my($r, $o, $v) = @_; eval q( &bus_space_write_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_4); eval 'sub bus_write_multi_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_4); eval 'sub bus_write_region_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_4); eval 'sub bus_read_stream_4 { my($r, $o) = @_; eval q( &bus_space_read_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_stream_4); eval 'sub bus_read_multi_stream_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_stream_4); eval 'sub bus_read_region_stream_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_stream_4); eval 'sub bus_set_multi_stream_4 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_stream_4); eval 'sub bus_set_region_stream_4 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_stream_4); eval 'sub bus_write_stream_4 { my($r, $o, $v) = @_; eval q( &bus_space_write_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_stream_4); eval 'sub bus_write_multi_stream_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_stream_4); eval 'sub bus_write_region_stream_4 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_stream_4(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_stream_4); eval 'sub bus_read_8 { my($r, $o) = @_; eval q( &bus_space_read_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_8); eval 'sub bus_read_multi_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_8); eval 'sub bus_read_region_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_8); eval 'sub bus_set_multi_8 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_8); eval 'sub bus_set_region_8 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_8); eval 'sub bus_write_8 { my($r, $o, $v) = @_; eval q( &bus_space_write_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_8); eval 'sub bus_write_multi_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_8); eval 'sub bus_write_region_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_8); eval 'sub bus_read_stream_8 { my($r, $o) = @_; eval q( &bus_space_read_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o))); }' unless defined(&bus_read_stream_8); eval 'sub bus_read_multi_stream_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_multi_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_multi_stream_8); eval 'sub bus_read_region_stream_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_read_region_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_read_region_stream_8); eval 'sub bus_set_multi_stream_8 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_multi_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_multi_stream_8); eval 'sub bus_set_region_stream_8 { my($r, $o, $v, $c) = @_; eval q( &bus_space_set_region_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v), ($c))); }' unless defined(&bus_set_region_stream_8); eval 'sub bus_write_stream_8 { my($r, $o, $v) = @_; eval q( &bus_space_write_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($v))); }' unless defined(&bus_write_stream_8); eval 'sub bus_write_multi_stream_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_multi_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_multi_stream_8); eval 'sub bus_write_region_stream_8 { my($r, $o, $d, $c) = @_; eval q( &bus_space_write_region_stream_8(($r)-> &r_bustag, ($r)-> &r_bushandle, ($o), ($d), ($c))); }' unless defined(&bus_write_region_stream_8); } } 1;