/* $OpenBSD: rbus.c,v 1.16 2010/09/22 02:28:37 jsg Exp $ */ /* $NetBSD: rbus.c,v 1.3 1999/11/06 06:20:53 soren Exp $ */ /* * Copyright (c) 1999 * HAYAKAWA Koichi. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #include #include #include #include #include #include /* #define RBUS_DEBUG */ #if defined RBUS_DEBUG #define STATIC #define DPRINTF(a) printf a #else #ifdef DDB #define STATIC #else #define STATIC static #endif #define DPRINTF(a) #endif int rbus_space_alloc(rbus_tag_t rbt, bus_addr_t addr, bus_size_t size, bus_addr_t mask, bus_addr_t align, int flags, bus_addr_t *addrp, bus_space_handle_t *bshp) { return (rbus_space_alloc_subregion(rbt, rbt->rb_start, rbt->rb_end, addr, size, mask, align, flags, addrp, bshp)); } int rbus_space_alloc_subregion(rbus_tag_t rbt, bus_addr_t substart, bus_addr_t subend, bus_addr_t addr, bus_size_t size, bus_addr_t mask, bus_addr_t align, int flags, bus_addr_t *addrp, bus_space_handle_t *bshp) { bus_addr_t decodesize = mask + 1; bus_addr_t boundary, search_addr; int val; u_long result; int exflags = EX_FAST | EX_NOWAIT | EX_MALLOCOK; DPRINTF(("rbus_space_alloc: addr %lx, size %lx, mask %lx, align %lx\n", (u_long)addr, (u_long)size, (u_long)mask, (u_long)align)); if (mask == 0) { /* FULL Decode */ decodesize = 0; } if (rbt->rb_flags == RBUS_SPACE_SHARE || rbt->rb_flags == RBUS_SPACE_DEDICATE) { /* rbt has its own sh_extent */ /* sanity check: the subregion [substart, subend] should be smaller than the region included in sh_extent */ if (substart < rbt->rb_ext->ex_start || subend > rbt->rb_ext->ex_end) { DPRINTF(("rbus: out of range\n")); return (1); } if (decodesize == align) { if (extent_alloc_subregion(rbt->rb_ext, substart, subend, size, align, 0, 0, exflags, &result)) return (1); } else if (decodesize == 0) { /* maybe, the register is overflowed. */ if (extent_alloc_subregion(rbt->rb_ext, addr, addr + size, size, 1, 0, 0, exflags, &result)) return (1); } else { boundary = decodesize > align ? decodesize : align; search_addr = (substart & ~(boundary - 1)) + addr; if (search_addr < substart) search_addr += boundary; val = 1; for (; search_addr + size <= subend; search_addr += boundary) { val = extent_alloc_subregion( rbt->rb_ext,search_addr, search_addr + size, size, align, 0, 0, exflags, &result); DPRINTF(("rbus: trying [%lx:%lx] %lx\n", (u_long)search_addr, (u_long)search_addr + size, (u_long)align)); if (val == 0) break; } if (val != 0) { /* no space found */ DPRINTF(("rbus: no space found\n")); return (1); } } if (md_space_map(rbt, result, size, flags, bshp)) { /* map failed */ extent_free(rbt->rb_ext, result, size, exflags); return (1); } if (addrp != NULL) *addrp = result; return (0); } else { /* error!! */ DPRINTF(("rbus: no rbus type\n")); return (1); } } int rbus_space_free(rbus_tag_t rbt, bus_space_handle_t bsh, bus_size_t size, bus_addr_t *addrp) { int exflags = EX_FAST | EX_NOWAIT; bus_addr_t addr; int status = 1; if (rbt->rb_flags == RBUS_SPACE_SHARE || rbt->rb_flags == RBUS_SPACE_DEDICATE) { md_space_unmap(rbt, bsh, size, &addr); extent_free(rbt->rb_ext, addr, size, exflags); status = 0; } else { /* error. INVALID rbustag */ status = 1; } if (addrp != NULL) *addrp = addr; return (status); } /* * rbus_tag_t * rbus_new_body(bus_space_tag_t bt, * struct extent *ex, bus_addr_t start, bus_size_t end, * int flags) * */ rbus_tag_t rbus_new_body(bus_space_tag_t bt, struct extent *ex, bus_addr_t start, bus_addr_t end, int flags) { rbus_tag_t rb; if ((rb = (rbus_tag_t)malloc(sizeof(struct rbustag), M_DEVBUF, M_NOWAIT)) == NULL) { panic("no memory for rbus instance"); } rb->rb_bt = bt; rb->rb_start = start; rb->rb_end = end; rb->rb_flags = flags; rb->rb_ext = ex; DPRINTF(("rbus_new_body: [%lx, %lx] type %s name [%s]\n", (u_long)start, (u_long)end, flags == RBUS_SPACE_SHARE ? "share" : flags == RBUS_SPACE_DEDICATE ? "dedicated" : "invalid", ex != NULL ? ex->ex_name : "noname")); return (rb); } /* * rbus_tag_t rbus_new_root_delegate(bus_space_tag, bus_addr_t, * bus_size_t) * * This function makes a root rbus instance. */ rbus_tag_t rbus_new_root_delegate(bus_space_tag_t bt, bus_addr_t start, bus_size_t size) { rbus_tag_t rb; struct extent *ex; if ((ex = extent_create("rbus root", start, start + size, M_DEVBUF, NULL, 0, EX_NOCOALESCE|EX_NOWAIT)) == NULL) return (NULL); rb = rbus_new_body(bt, ex, start, start + size, RBUS_SPACE_DEDICATE); if (rb == NULL) extent_destroy(ex); return (rb); } /* * rbus_tag_t rbus_new_root_share(bus_space_tag, struct extent *, * bus_addr_t, bus_size_t) * * This function makes a root rbus instance. */ rbus_tag_t rbus_new_root_share(bus_space_tag_t bt, struct extent *ex, bus_addr_t start, bus_size_t size) { /* sanity check */ if (start < ex->ex_start || start + size > ex->ex_end) { /* out of range: [start, size] should be contained in * parent space */ return (0); /* Should I invoke panic? */ } return (rbus_new_body(bt, ex, start, start + size, RBUS_SPACE_SHARE)); }