Home | History | Annotate | Line # | Download | only in marvell
mvsoc_space.c revision 1.2.2.1
      1  1.2.2.1      yamt /*	$NetBSD: mvsoc_space.c,v 1.2.2.1 2012/10/30 17:19:06 yamt Exp $	*/
      2      1.1  kiyohara /*
      3      1.1  kiyohara  * Copyright (c) 2007 KIYOHARA Takashi
      4      1.1  kiyohara  * All rights reserved.
      5      1.1  kiyohara  *
      6      1.1  kiyohara  * Redistribution and use in source and binary forms, with or without
      7      1.1  kiyohara  * modification, are permitted provided that the following conditions
      8      1.1  kiyohara  * are met:
      9      1.1  kiyohara  * 1. Redistributions of source code must retain the above copyright
     10      1.1  kiyohara  *    notice, this list of conditions and the following disclaimer.
     11      1.1  kiyohara  * 2. Redistributions in binary form must reproduce the above copyright
     12      1.1  kiyohara  *    notice, this list of conditions and the following disclaimer in the
     13      1.1  kiyohara  *    documentation and/or other materials provided with the distribution.
     14      1.1  kiyohara  *
     15      1.1  kiyohara  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     16      1.1  kiyohara  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
     17      1.1  kiyohara  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
     18      1.1  kiyohara  * DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
     19      1.1  kiyohara  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
     20      1.1  kiyohara  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
     21      1.1  kiyohara  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     22      1.1  kiyohara  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
     23      1.1  kiyohara  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
     24      1.1  kiyohara  * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     25      1.1  kiyohara  * POSSIBILITY OF SUCH DAMAGE.
     26      1.1  kiyohara  */
     27      1.1  kiyohara 
     28      1.1  kiyohara #include <sys/cdefs.h>
     29  1.2.2.1      yamt __KERNEL_RCSID(0, "$NetBSD: mvsoc_space.c,v 1.2.2.1 2012/10/30 17:19:06 yamt Exp $");
     30      1.1  kiyohara 
     31      1.1  kiyohara #include "opt_mvsoc.h"
     32      1.1  kiyohara #include "mvpex.h"
     33      1.1  kiyohara #include "gtpci.h"
     34      1.1  kiyohara 
     35      1.1  kiyohara #include <sys/param.h>
     36      1.1  kiyohara #include <sys/systm.h>
     37      1.1  kiyohara 
     38      1.1  kiyohara #include <uvm/uvm_extern.h>
     39      1.1  kiyohara 
     40      1.2    dyoung #include <sys/bus.h>
     41      1.1  kiyohara 
     42      1.1  kiyohara #include <arm/marvell/mvsocreg.h>
     43      1.1  kiyohara #include <arm/marvell/mvsocvar.h>
     44      1.1  kiyohara 
     45      1.1  kiyohara 
     46      1.1  kiyohara /* Proto types for all the bus_space structure functions */
     47      1.1  kiyohara bs_protos(mvsoc);
     48      1.1  kiyohara bs_protos(generic);
     49      1.1  kiyohara bs_protos(generic_armv4);
     50      1.1  kiyohara bs_protos(bs_notimpl);
     51      1.1  kiyohara 
     52  1.2.2.1      yamt #define MVSOC_BUS_SPACE_NORMAL_FUNCS		\
     53      1.1  kiyohara 	/* read (single) */			\
     54      1.1  kiyohara 	generic_bs_r_1,				\
     55      1.1  kiyohara 	generic_armv4_bs_r_2,			\
     56      1.1  kiyohara 	generic_bs_r_4,				\
     57      1.1  kiyohara 	bs_notimpl_bs_r_8,			\
     58      1.1  kiyohara 						\
     59      1.1  kiyohara 	/* read multiple */			\
     60      1.1  kiyohara 	generic_bs_rm_1,			\
     61      1.1  kiyohara 	generic_armv4_bs_rm_2,			\
     62      1.1  kiyohara 	generic_bs_rm_4,			\
     63      1.1  kiyohara 	bs_notimpl_bs_rm_8,			\
     64      1.1  kiyohara 						\
     65      1.1  kiyohara 	/* read region */			\
     66      1.1  kiyohara 	generic_bs_rr_1,			\
     67      1.1  kiyohara 	generic_armv4_bs_rr_2,			\
     68      1.1  kiyohara 	generic_bs_rr_4,			\
     69      1.1  kiyohara 	bs_notimpl_bs_rr_8,			\
     70      1.1  kiyohara 						\
     71      1.1  kiyohara 	/* write (single) */			\
     72      1.1  kiyohara 	generic_bs_w_1,				\
     73      1.1  kiyohara 	generic_armv4_bs_w_2,			\
     74      1.1  kiyohara 	generic_bs_w_4,				\
     75      1.1  kiyohara 	bs_notimpl_bs_w_8,			\
     76      1.1  kiyohara 						\
     77      1.1  kiyohara 	/* write multiple */			\
     78      1.1  kiyohara 	generic_bs_wm_1,			\
     79      1.1  kiyohara 	generic_armv4_bs_wm_2,			\
     80      1.1  kiyohara 	generic_bs_wm_4,			\
     81      1.1  kiyohara 	bs_notimpl_bs_wm_8,			\
     82      1.1  kiyohara 						\
     83      1.1  kiyohara 	/* write region */			\
     84      1.1  kiyohara 	generic_bs_wr_1,			\
     85      1.1  kiyohara 	generic_armv4_bs_wr_2,			\
     86      1.1  kiyohara 	generic_bs_wr_4,			\
     87  1.2.2.1      yamt 	bs_notimpl_bs_wr_8
     88  1.2.2.1      yamt 
     89  1.2.2.1      yamt #define MVSOC_BUS_SPACE_DEFAULT_FUNCS		\
     90  1.2.2.1      yamt 	/* mapping/unmapping */			\
     91  1.2.2.1      yamt 	mvsoc_bs_map,				\
     92  1.2.2.1      yamt 	mvsoc_bs_unmap,				\
     93  1.2.2.1      yamt 	mvsoc_bs_subregion,			\
     94  1.2.2.1      yamt 						\
     95  1.2.2.1      yamt 	/* allocation/deallocation */		\
     96  1.2.2.1      yamt 	mvsoc_bs_alloc,				\
     97  1.2.2.1      yamt 	mvsoc_bs_free,				\
     98  1.2.2.1      yamt 						\
     99  1.2.2.1      yamt 	/* get kernel virtual address */	\
    100  1.2.2.1      yamt 	mvsoc_bs_vaddr,				\
    101  1.2.2.1      yamt 						\
    102  1.2.2.1      yamt 	/* mmap bus space for userland */	\
    103  1.2.2.1      yamt 	bs_notimpl_bs_mmap,			\
    104  1.2.2.1      yamt 						\
    105  1.2.2.1      yamt 	/* barrier */				\
    106  1.2.2.1      yamt 	mvsoc_bs_barrier,			\
    107  1.2.2.1      yamt 						\
    108  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,		\
    109      1.1  kiyohara 						\
    110      1.1  kiyohara 	/* set multiple */			\
    111      1.1  kiyohara 	bs_notimpl_bs_sm_1,			\
    112      1.1  kiyohara 	bs_notimpl_bs_sm_2,			\
    113      1.1  kiyohara 	bs_notimpl_bs_sm_4,			\
    114      1.1  kiyohara 	bs_notimpl_bs_sm_8,			\
    115      1.1  kiyohara 						\
    116      1.1  kiyohara 	/* set region */			\
    117      1.1  kiyohara 	bs_notimpl_bs_sr_1,			\
    118      1.1  kiyohara 	generic_armv4_bs_sr_2,			\
    119      1.1  kiyohara 	generic_bs_sr_4,			\
    120      1.1  kiyohara 	bs_notimpl_bs_sr_8,			\
    121      1.1  kiyohara 						\
    122      1.1  kiyohara 	/* copy */				\
    123      1.1  kiyohara 	bs_notimpl_bs_c_1,			\
    124      1.1  kiyohara 	generic_armv4_bs_c_2,			\
    125      1.1  kiyohara 	bs_notimpl_bs_c_4,			\
    126  1.2.2.1      yamt 	bs_notimpl_bs_c_8
    127      1.1  kiyohara 
    128      1.1  kiyohara 
    129      1.1  kiyohara struct bus_space mvsoc_bs_tag = {
    130      1.1  kiyohara 	/* cookie */
    131      1.1  kiyohara 	(void *)0,
    132      1.1  kiyohara 
    133  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    134  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    135  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    136  1.2.2.1      yamt #endif
    137      1.1  kiyohara };
    138      1.1  kiyohara 
    139      1.1  kiyohara #if NMVPEX > 0
    140      1.1  kiyohara #if defined(ORION)
    141      1.1  kiyohara struct bus_space orion_pex0_mem_bs_tag = {
    142      1.1  kiyohara 	/* cookie */
    143      1.1  kiyohara 	(void *)ORION_TAG_PEX0_MEM,
    144      1.1  kiyohara 
    145  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    146  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    147  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    148  1.2.2.1      yamt #endif
    149      1.1  kiyohara };
    150      1.1  kiyohara struct bus_space orion_pex0_io_bs_tag = {
    151      1.1  kiyohara 	/* cookie */
    152      1.1  kiyohara 	(void *)ORION_TAG_PEX0_IO,
    153      1.1  kiyohara 
    154  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    155  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    156  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    157  1.2.2.1      yamt #endif
    158      1.1  kiyohara };
    159      1.1  kiyohara struct bus_space orion_pex1_mem_bs_tag = {
    160      1.1  kiyohara 	/* cookie */
    161      1.1  kiyohara 	(void *)ORION_TAG_PEX1_MEM,
    162      1.1  kiyohara 
    163  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    164  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    165  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    166  1.2.2.1      yamt #endif
    167      1.1  kiyohara };
    168      1.1  kiyohara struct bus_space orion_pex1_io_bs_tag = {
    169      1.1  kiyohara 	/* cookie */
    170      1.1  kiyohara 	(void *)ORION_TAG_PEX1_IO,
    171      1.1  kiyohara 
    172  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    173  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    174  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    175  1.2.2.1      yamt #endif
    176      1.1  kiyohara };
    177      1.1  kiyohara #endif
    178      1.1  kiyohara 
    179      1.1  kiyohara #if defined(KIRKWOOD)
    180      1.1  kiyohara struct bus_space kirkwood_pex_mem_bs_tag = {
    181      1.1  kiyohara 	/* cookie */
    182      1.1  kiyohara 	(void *)KIRKWOOD_TAG_PEX_MEM,
    183      1.1  kiyohara 
    184  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    185  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    186  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    187  1.2.2.1      yamt #endif
    188      1.1  kiyohara };
    189      1.1  kiyohara struct bus_space kirkwood_pex_io_bs_tag = {
    190      1.1  kiyohara 	/* cookie */
    191      1.1  kiyohara 	(void *)KIRKWOOD_TAG_PEX_IO,
    192      1.1  kiyohara 
    193  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    194  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    195  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    196  1.2.2.1      yamt #endif
    197  1.2.2.1      yamt };
    198  1.2.2.1      yamt struct bus_space kirkwood_pex1_mem_bs_tag = {
    199  1.2.2.1      yamt 	/* cookie */
    200  1.2.2.1      yamt 	(void *)KIRKWOOD_TAG_PEX1_MEM,
    201  1.2.2.1      yamt 
    202  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    203  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    204  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    205  1.2.2.1      yamt #endif
    206  1.2.2.1      yamt };
    207  1.2.2.1      yamt struct bus_space kirkwood_pex1_io_bs_tag = {
    208  1.2.2.1      yamt 	/* cookie */
    209  1.2.2.1      yamt 	(void *)KIRKWOOD_TAG_PEX1_IO,
    210  1.2.2.1      yamt 
    211  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    212  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    213  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    214  1.2.2.1      yamt #endif
    215      1.1  kiyohara };
    216      1.1  kiyohara #endif
    217      1.1  kiyohara #endif
    218      1.1  kiyohara 
    219      1.1  kiyohara #if NGTPCI > 0
    220      1.1  kiyohara #if defined(ORION)
    221      1.1  kiyohara struct bus_space orion_pci_mem_bs_tag = {
    222      1.1  kiyohara 	/* cookie */
    223      1.1  kiyohara 	(void *)ORION_TAG_PCI_MEM,
    224      1.1  kiyohara 
    225  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    226  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    227  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    228  1.2.2.1      yamt #endif
    229      1.1  kiyohara };
    230      1.1  kiyohara struct bus_space orion_pci_io_bs_tag = {
    231      1.1  kiyohara 	/* cookie */
    232      1.1  kiyohara 	(void *)ORION_TAG_PCI_IO,
    233      1.1  kiyohara 
    234  1.2.2.1      yamt 	MVSOC_BUS_SPACE_DEFAULT_FUNCS,
    235  1.2.2.1      yamt #ifdef __BUS_SPACE_HAS_STREAM_METHODS
    236  1.2.2.1      yamt 	MVSOC_BUS_SPACE_NORMAL_FUNCS,
    237  1.2.2.1      yamt #endif
    238      1.1  kiyohara };
    239      1.1  kiyohara #endif
    240      1.1  kiyohara #endif
    241      1.1  kiyohara 
    242      1.1  kiyohara 
    243      1.1  kiyohara int
    244      1.1  kiyohara mvsoc_bs_map(void *space, bus_addr_t address, bus_size_t size, int flags,
    245      1.1  kiyohara 	     bus_space_handle_t *handlep)
    246      1.1  kiyohara {
    247      1.1  kiyohara 	const struct pmap_devmap *pd;
    248      1.1  kiyohara 	paddr_t startpa, endpa, offset, pa;
    249      1.1  kiyohara 	pt_entry_t *pte;
    250      1.1  kiyohara 	vaddr_t va;
    251      1.1  kiyohara 	int tag = (int)space;
    252      1.1  kiyohara 
    253      1.1  kiyohara 	if (tag != 0) {
    254      1.1  kiyohara 		bus_addr_t remap;
    255      1.1  kiyohara 		uint32_t base;
    256      1.1  kiyohara 		int window;
    257      1.1  kiyohara 
    258      1.1  kiyohara 		window = mvsoc_target(tag, NULL, NULL, &base, NULL);
    259      1.1  kiyohara 		if (window == -1)
    260      1.1  kiyohara 			return ENOMEM;
    261      1.1  kiyohara 		if (window < nremap) {
    262      1.1  kiyohara 			remap = read_mlmbreg(MVSOC_MLMB_WRLR(window)) &
    263      1.1  kiyohara 			    MVSOC_MLMB_WRLR_REMAP_MASK;
    264      1.1  kiyohara 			remap |=
    265      1.1  kiyohara 			    (read_mlmbreg(MVSOC_MLMB_WRHR(window)) << 16) << 16;
    266      1.1  kiyohara 			address = address - remap + base;
    267      1.1  kiyohara 		}
    268      1.1  kiyohara 	}
    269      1.1  kiyohara 
    270      1.1  kiyohara 	if ((pd = pmap_devmap_find_pa(address, size)) != NULL) {
    271      1.1  kiyohara 		/* Device was statically mapped. */
    272      1.1  kiyohara 		*handlep = pd->pd_va + (address - pd->pd_pa);
    273      1.1  kiyohara 		return 0;
    274      1.1  kiyohara 	}
    275      1.1  kiyohara 
    276      1.1  kiyohara 	startpa = trunc_page(address);
    277      1.1  kiyohara 	endpa = round_page(address + size);
    278      1.1  kiyohara 	offset = address & PAGE_MASK;
    279      1.1  kiyohara 
    280      1.1  kiyohara 	/* XXX use extent manager to check duplicate mapping */
    281      1.1  kiyohara 
    282      1.1  kiyohara 	va = uvm_km_alloc(kernel_map, endpa - startpa, 0,
    283      1.1  kiyohara 	    UVM_KMF_VAONLY | UVM_KMF_NOWAIT);
    284      1.1  kiyohara 	if (va == 0x00000000)
    285      1.1  kiyohara 		return ENOMEM;
    286      1.1  kiyohara 
    287      1.1  kiyohara 	*handlep = va + offset;
    288      1.1  kiyohara 
    289      1.1  kiyohara 	/* Now map the pages */
    290      1.1  kiyohara 	for (pa = startpa; pa < endpa; pa += PAGE_SIZE, va += PAGE_SIZE) {
    291      1.1  kiyohara 		pmap_kenter_pa(va, pa, VM_PROT_READ | VM_PROT_WRITE, 0);
    292      1.1  kiyohara 		if ((flags & BUS_SPACE_MAP_CACHEABLE) == 0) {
    293      1.1  kiyohara 			pte = vtopte(va);
    294      1.1  kiyohara 			*pte &= ~L2_S_CACHE_MASK;
    295      1.1  kiyohara 			PTE_SYNC(pte);
    296      1.1  kiyohara 			/*
    297      1.1  kiyohara 			 * XXX: pmap_kenter_pa() also does PTE_SYNC(). a bit of
    298      1.1  kiyohara 			 *      waste.
    299      1.1  kiyohara 			 */
    300      1.1  kiyohara 		}
    301      1.1  kiyohara 	}
    302      1.1  kiyohara 	pmap_update(pmap_kernel());
    303      1.1  kiyohara 
    304      1.1  kiyohara 	return 0;
    305      1.1  kiyohara }
    306      1.1  kiyohara 
    307      1.1  kiyohara void
    308      1.1  kiyohara mvsoc_bs_unmap(void *space, bus_space_handle_t handle, bus_size_t size)
    309      1.1  kiyohara {
    310      1.1  kiyohara 	vaddr_t va, sz;
    311      1.1  kiyohara 
    312      1.1  kiyohara 	if (pmap_devmap_find_va(handle, size) != NULL)
    313      1.1  kiyohara 		/* Device was statically mapped; nothing to do. */
    314      1.1  kiyohara 		return;
    315      1.1  kiyohara 
    316      1.1  kiyohara 	va = trunc_page(handle);
    317      1.1  kiyohara         sz = round_page(handle + size) - va;
    318      1.1  kiyohara 
    319      1.1  kiyohara 	pmap_kremove(va, sz);
    320      1.1  kiyohara 	pmap_update(pmap_kernel());
    321      1.1  kiyohara 	uvm_km_free(kernel_map, va, sz, UVM_KMF_VAONLY);
    322      1.1  kiyohara }
    323      1.1  kiyohara 
    324      1.1  kiyohara /* ARGSUSED */
    325      1.1  kiyohara int
    326      1.1  kiyohara mvsoc_bs_subregion(void *space, bus_space_handle_t handle,
    327      1.1  kiyohara 		       bus_size_t offset, bus_size_t size,
    328      1.1  kiyohara 		       bus_space_handle_t *nhandlep)
    329      1.1  kiyohara {
    330      1.1  kiyohara 
    331      1.1  kiyohara 	*nhandlep = handle + offset;
    332      1.1  kiyohara 	return 0;
    333      1.1  kiyohara }
    334      1.1  kiyohara 
    335      1.1  kiyohara /* ARGSUSED */
    336      1.1  kiyohara int
    337      1.1  kiyohara mvsoc_bs_alloc(void *space, bus_addr_t reg_start, bus_addr_t reg_end,
    338      1.1  kiyohara 	       bus_size_t size, bus_size_t alignment, bus_size_t boundary,
    339      1.1  kiyohara 	       int flags, bus_addr_t *addrp, bus_space_handle_t *handlep)
    340      1.1  kiyohara {
    341      1.1  kiyohara 
    342      1.1  kiyohara 	panic("%s(): not implemented\n", __func__);
    343      1.1  kiyohara }
    344      1.1  kiyohara 
    345      1.1  kiyohara /* ARGSUSED */
    346      1.1  kiyohara void
    347      1.1  kiyohara mvsoc_bs_free(void *space, bus_space_handle_t handle, bus_size_t size)
    348      1.1  kiyohara {
    349      1.1  kiyohara 
    350      1.1  kiyohara 	panic("%s(): not implemented\n", __func__);
    351      1.1  kiyohara }
    352      1.1  kiyohara 
    353      1.1  kiyohara /* ARGSUSED */
    354      1.1  kiyohara void
    355      1.1  kiyohara mvsoc_bs_barrier(void *space, bus_space_handle_t handle, bus_size_t offset,
    356      1.1  kiyohara 		 bus_size_t length, int flags)
    357      1.1  kiyohara {
    358      1.1  kiyohara 
    359      1.1  kiyohara 	/* Nothing to do. */
    360      1.1  kiyohara }
    361      1.1  kiyohara 
    362      1.1  kiyohara /* ARGSUSED */
    363      1.1  kiyohara void *
    364      1.1  kiyohara mvsoc_bs_vaddr(void *space, bus_space_handle_t handle)
    365      1.1  kiyohara {
    366      1.1  kiyohara 
    367      1.1  kiyohara 	return (void *)handle;
    368      1.1  kiyohara }
    369