/* $OpenBSD: tc_bus_mem.c,v 1.11 2001/11/06 19:53:13 miod Exp $ */ /* $NetBSD: tc_bus_mem.c,v 1.13 1996/12/02 22:19:34 cgd Exp $ */ /* * Copyright (c) 1996 Carnegie-Mellon University. * All rights reserved. * * Author: Chris G. Demetriou * * Permission to use, copy, modify and distribute this software and * its documentation is hereby granted, provided that both the copyright * notice and this permission notice appear in all copies of the * software, derivative works or modified versions, and any portions * thereof, and that both notices appear in supporting documentation. * * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS" * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE. * * Carnegie Mellon requests users of this software to return to * * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU * School of Computer Science * Carnegie Mellon University * Pittsburgh PA 15213-3890 * * any improvements or extensions that they make and grant Carnegie the * rights to redistribute these changes. */ /* * Common TurboChannel Chipset "bus memory" functions. */ #include #include #include #include #include #include #include #include /* mapping/unmapping */ int tc_mem_map __P((void *, bus_addr_t, bus_size_t, int, bus_space_handle_t *)); void tc_mem_unmap __P((void *, bus_space_handle_t, bus_size_t)); int tc_mem_subregion __P((void *, bus_space_handle_t, bus_size_t, bus_size_t, bus_space_handle_t *)); /* allocation/deallocation */ int tc_mem_alloc __P((void *, bus_addr_t, bus_addr_t, bus_size_t, bus_size_t, bus_addr_t, int, bus_addr_t *, bus_space_handle_t *)); void tc_mem_free __P((void *, bus_space_handle_t, bus_size_t)); /* barrier */ inline void tc_mem_barrier __P((void *, bus_space_handle_t, bus_size_t, bus_size_t, int)); /* read (single) */ inline u_int8_t tc_mem_read_1 __P((void *, bus_space_handle_t, bus_size_t)); inline u_int16_t tc_mem_read_2 __P((void *, bus_space_handle_t, bus_size_t)); inline u_int32_t tc_mem_read_4 __P((void *, bus_space_handle_t, bus_size_t)); inline u_int64_t tc_mem_read_8 __P((void *, bus_space_handle_t, bus_size_t)); /* read multiple */ void tc_mem_read_multi_1 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t *, bus_size_t)); void tc_mem_read_multi_2 __P((void *, bus_space_handle_t, bus_size_t, u_int16_t *, bus_size_t)); void tc_mem_read_multi_4 __P((void *, bus_space_handle_t, bus_size_t, u_int32_t *, bus_size_t)); void tc_mem_read_multi_8 __P((void *, bus_space_handle_t, bus_size_t, u_int64_t *, bus_size_t)); /* read region */ void tc_mem_read_region_1 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t *, bus_size_t)); void tc_mem_read_region_2 __P((void *, bus_space_handle_t, bus_size_t, u_int16_t *, bus_size_t)); void tc_mem_read_region_4 __P((void *, bus_space_handle_t, bus_size_t, u_int32_t *, bus_size_t)); void tc_mem_read_region_8 __P((void *, bus_space_handle_t, bus_size_t, u_int64_t *, bus_size_t)); /* write (single) */ inline void tc_mem_write_1 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t)); inline void tc_mem_write_2 __P((void *, bus_space_handle_t, bus_size_t, u_int16_t)); inline void tc_mem_write_4 __P((void *, bus_space_handle_t, bus_size_t, u_int32_t)); inline void tc_mem_write_8 __P((void *, bus_space_handle_t, bus_size_t, u_int64_t)); /* write multiple */ void tc_mem_write_multi_1 __P((void *, bus_space_handle_t, bus_size_t, const u_int8_t *, bus_size_t)); void tc_mem_write_multi_2 __P((void *, bus_space_handle_t, bus_size_t, const u_int16_t *, bus_size_t)); void tc_mem_write_multi_4 __P((void *, bus_space_handle_t, bus_size_t, const u_int32_t *, bus_size_t)); void tc_mem_write_multi_8 __P((void *, bus_space_handle_t, bus_size_t, const u_int64_t *, bus_size_t)); /* write region */ void tc_mem_write_region_1 __P((void *, bus_space_handle_t, bus_size_t, const u_int8_t *, bus_size_t)); void tc_mem_write_region_2 __P((void *, bus_space_handle_t, bus_size_t, const u_int16_t *, bus_size_t)); void tc_mem_write_region_4 __P((void *, bus_space_handle_t, bus_size_t, const u_int32_t *, bus_size_t)); void tc_mem_write_region_8 __P((void *, bus_space_handle_t, bus_size_t, const u_int64_t *, bus_size_t)); /* set multiple */ void tc_mem_set_multi_1 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t, bus_size_t)); void tc_mem_set_multi_2 __P((void *, bus_space_handle_t, bus_size_t, u_int16_t, bus_size_t)); void tc_mem_set_multi_4 __P((void *, bus_space_handle_t, bus_size_t, u_int32_t, bus_size_t)); void tc_mem_set_multi_8 __P((void *, bus_space_handle_t, bus_size_t, u_int64_t, bus_size_t)); /* set region */ void tc_mem_set_region_1 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t, bus_size_t)); void tc_mem_set_region_2 __P((void *, bus_space_handle_t, bus_size_t, u_int16_t, bus_size_t)); void tc_mem_set_region_4 __P((void *, bus_space_handle_t, bus_size_t, u_int32_t, bus_size_t)); void tc_mem_set_region_8 __P((void *, bus_space_handle_t, bus_size_t, u_int64_t, bus_size_t)); /* copy */ void tc_mem_copy_1 __P((void *, bus_space_handle_t, bus_size_t, bus_space_handle_t, bus_size_t, bus_size_t)); void tc_mem_copy_2 __P((void *, bus_space_handle_t, bus_size_t, bus_space_handle_t, bus_size_t, bus_size_t)); void tc_mem_copy_4 __P((void *, bus_space_handle_t, bus_size_t, bus_space_handle_t, bus_size_t, bus_size_t)); void tc_mem_copy_8 __P((void *, bus_space_handle_t, bus_size_t, bus_space_handle_t, bus_size_t, bus_size_t)); /* read multiple raw */ void tc_mem_read_raw_multi_2 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t *, bus_size_t)); void tc_mem_read_raw_multi_4 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t *, bus_size_t)); void tc_mem_read_raw_multi_8 __P((void *, bus_space_handle_t, bus_size_t, u_int8_t *, bus_size_t)); /* write multiple raw */ void tc_mem_write_raw_multi_2 __P((void *, bus_space_handle_t, bus_size_t, const u_int8_t *, bus_size_t)); void tc_mem_write_raw_multi_4 __P((void *, bus_space_handle_t, bus_size_t, const u_int8_t *, bus_size_t)); void tc_mem_write_raw_multi_8 __P((void *, bus_space_handle_t, bus_size_t, const u_int8_t *, bus_size_t)); static struct alpha_bus_space tc_mem_space = { /* cookie */ NULL, /* mapping/unmapping */ tc_mem_map, tc_mem_unmap, tc_mem_subregion, /* allocation/deallocation */ tc_mem_alloc, tc_mem_free, /* barrier */ tc_mem_barrier, /* read (single) */ tc_mem_read_1, tc_mem_read_2, tc_mem_read_4, tc_mem_read_8, /* read multiple */ tc_mem_read_multi_1, tc_mem_read_multi_2, tc_mem_read_multi_4, tc_mem_read_multi_8, /* read region */ tc_mem_read_region_1, tc_mem_read_region_2, tc_mem_read_region_4, tc_mem_read_region_8, /* write (single) */ tc_mem_write_1, tc_mem_write_2, tc_mem_write_4, tc_mem_write_8, /* write multiple */ tc_mem_write_multi_1, tc_mem_write_multi_2, tc_mem_write_multi_4, tc_mem_write_multi_8, /* write region */ tc_mem_write_region_1, tc_mem_write_region_2, tc_mem_write_region_4, tc_mem_write_region_8, /* set multiple */ tc_mem_set_multi_1, tc_mem_set_multi_2, tc_mem_set_multi_4, tc_mem_set_multi_8, /* set region */ tc_mem_set_region_1, tc_mem_set_region_2, tc_mem_set_region_4, tc_mem_set_region_8, /* copy */ tc_mem_copy_1, tc_mem_copy_2, tc_mem_copy_4, tc_mem_copy_8, /* write multiple raw */ tc_mem_read_raw_multi_2, tc_mem_read_raw_multi_4, tc_mem_read_raw_multi_8, /* write multiple raw*/ tc_mem_write_raw_multi_2, tc_mem_write_raw_multi_4, tc_mem_write_raw_multi_8, }; bus_space_tag_t tc_bus_mem_init(memv) void *memv; { bus_space_tag_t h = &tc_mem_space; h->abs_cookie = memv; return (h); } int tc_mem_map(v, memaddr, memsize, cacheable, memhp) void *v; bus_addr_t memaddr; bus_size_t memsize; int cacheable; bus_space_handle_t *memhp; { if (memaddr & 0x7) panic("tc_mem_map needs 8 byte alignment"); if (cacheable) *memhp = ALPHA_PHYS_TO_K0SEG(memaddr); else *memhp = ALPHA_PHYS_TO_K0SEG(TC_DENSE_TO_SPARSE(memaddr)); return (0); } void tc_mem_unmap(v, memh, memsize) void *v; bus_space_handle_t memh; bus_size_t memsize; { /* XXX XX XXX nothing to do. */ } int tc_mem_subregion(v, memh, offset, size, nmemh) void *v; bus_space_handle_t memh, *nmemh; bus_size_t offset, size; { /* Disallow subregioning that would make the handle unaligned. */ if ((offset & 0x7) != 0) return (1); if ((memh & TC_SPACE_SPARSE) != 0) *nmemh = memh + (offset << 1); else *nmemh = memh + offset; return (0); } int tc_mem_alloc(v, rstart, rend, size, align, boundary, cacheable, addrp, bshp) void *v; bus_addr_t rstart, rend, *addrp; bus_size_t size, align, boundary; int cacheable; bus_space_handle_t *bshp; { /* XXX XXX XXX XXX XXX XXX */ panic("tc_mem_alloc unimplemented"); } void tc_mem_free(v, bsh, size) void *v; bus_space_handle_t bsh; bus_size_t size; { /* XXX XXX XXX XXX XXX XXX */ panic("tc_mem_free unimplemented"); } inline void tc_mem_barrier(v, h, o, l, f) void *v; bus_space_handle_t h; bus_size_t o, l; int f; { if ((f & BUS_BARRIER_READ) != 0) alpha_mb(); else if ((f & BUS_BARRIER_WRITE) != 0) alpha_wmb(); } inline u_int8_t tc_mem_read_1(v, memh, off) void *v; bus_space_handle_t memh; bus_size_t off; { volatile u_int8_t *p; alpha_mb(); /* XXX XXX XXX */ if ((memh & TC_SPACE_SPARSE) != 0) panic("tc_mem_read_1 not implemented for sparse space"); p = (u_int8_t *)(memh + off); return (*p); } inline u_int16_t tc_mem_read_2(v, memh, off) void *v; bus_space_handle_t memh; bus_size_t off; { volatile u_int16_t *p; alpha_mb(); /* XXX XXX XXX */ if ((memh & TC_SPACE_SPARSE) != 0) panic("tc_mem_read_2 not implemented for sparse space"); p = (u_int16_t *)(memh + off); return (*p); } inline u_int32_t tc_mem_read_4(v, memh, off) void *v; bus_space_handle_t memh; bus_size_t off; { volatile u_int32_t *p; alpha_mb(); /* XXX XXX XXX */ if ((memh & TC_SPACE_SPARSE) != 0) /* Nothing special to do for 4-byte sparse space accesses */ p = (u_int32_t *)(memh + (off << 1)); else p = (u_int32_t *)(memh + off); return (*p); } inline u_int64_t tc_mem_read_8(v, memh, off) void *v; bus_space_handle_t memh; bus_size_t off; { volatile u_int64_t *p; alpha_mb(); /* XXX XXX XXX */ if ((memh & TC_SPACE_SPARSE) != 0) panic("tc_mem_read_8 not implemented for sparse space"); p = (u_int64_t *)(memh + off); return (*p); } #define tc_mem_read_multi_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_read_multi_,BYTES)(v, h, o, a, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ TYPE *a; \ { \ \ while (c-- > 0) { \ tc_mem_barrier(v, h, o, sizeof *a, BUS_BARRIER_READ); \ *a++ = __abs_c(tc_mem_read_,BYTES)(v, h, o); \ } \ } tc_mem_read_multi_N(1,u_int8_t) tc_mem_read_multi_N(2,u_int16_t) tc_mem_read_multi_N(4,u_int32_t) tc_mem_read_multi_N(8,u_int64_t) #define tc_mem_read_region_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_read_region_,BYTES)(v, h, o, a, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ TYPE *a; \ { \ \ while (c-- > 0) { \ *a++ = __abs_c(tc_mem_read_,BYTES)(v, h, o); \ o += sizeof *a; \ } \ } tc_mem_read_region_N(1,u_int8_t) tc_mem_read_region_N(2,u_int16_t) tc_mem_read_region_N(4,u_int32_t) tc_mem_read_region_N(8,u_int64_t) inline void tc_mem_write_1(v, memh, off, val) void *v; bus_space_handle_t memh; bus_size_t off; u_int8_t val; { if ((memh & TC_SPACE_SPARSE) != 0) { volatile u_int64_t *p, v; u_int64_t shift, msk; shift = off & 0x3; off &= 0x3; p = (u_int64_t *)(memh + (off << 1)); msk = ~(0x1 << shift) & 0xf; v = (msk << 32) | (((u_int64_t)val) << (shift * 8)); *p = val; } else { volatile u_int8_t *p; p = (u_int8_t *)(memh + off); *p = val; } alpha_mb(); /* XXX XXX XXX */ } inline void tc_mem_write_2(v, memh, off, val) void *v; bus_space_handle_t memh; bus_size_t off; u_int16_t val; { if ((memh & TC_SPACE_SPARSE) != 0) { volatile u_int64_t *p, v; u_int64_t shift, msk; shift = off & 0x2; off &= 0x3; p = (u_int64_t *)(memh + (off << 1)); msk = ~(0x3 << shift) & 0xf; v = (msk << 32) | (((u_int64_t)val) << (shift * 8)); *p = val; } else { volatile u_int16_t *p; p = (u_int16_t *)(memh + off); *p = val; } alpha_mb(); /* XXX XXX XXX */ } inline void tc_mem_write_4(v, memh, off, val) void *v; bus_space_handle_t memh; bus_size_t off; u_int32_t val; { volatile u_int32_t *p; if ((memh & TC_SPACE_SPARSE) != 0) /* Nothing special to do for 4-byte sparse space accesses */ p = (u_int32_t *)(memh + (off << 1)); else p = (u_int32_t *)(memh + off); *p = val; alpha_mb(); /* XXX XXX XXX */ } inline void tc_mem_write_8(v, memh, off, val) void *v; bus_space_handle_t memh; bus_size_t off; u_int64_t val; { volatile u_int64_t *p; if ((memh & TC_SPACE_SPARSE) != 0) panic("tc_mem_read_8 not implemented for sparse space"); p = (u_int64_t *)(memh + off); *p = val; alpha_mb(); /* XXX XXX XXX */ } #define tc_mem_write_multi_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_write_multi_,BYTES)(v, h, o, a, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ const TYPE *a; \ { \ \ while (c-- > 0) { \ __abs_c(tc_mem_write_,BYTES)(v, h, o, *a++); \ tc_mem_barrier(v, h, o, sizeof *a, BUS_BARRIER_WRITE); \ } \ } tc_mem_write_multi_N(1,u_int8_t) tc_mem_write_multi_N(2,u_int16_t) tc_mem_write_multi_N(4,u_int32_t) tc_mem_write_multi_N(8,u_int64_t) #define tc_mem_write_region_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_write_region_,BYTES)(v, h, o, a, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ const TYPE *a; \ { \ \ while (c-- > 0) { \ __abs_c(tc_mem_write_,BYTES)(v, h, o, *a++); \ o += sizeof *a; \ } \ } tc_mem_write_region_N(1,u_int8_t) tc_mem_write_region_N(2,u_int16_t) tc_mem_write_region_N(4,u_int32_t) tc_mem_write_region_N(8,u_int64_t) #define tc_mem_set_multi_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_set_multi_,BYTES)(v, h, o, val, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ TYPE val; \ { \ \ while (c-- > 0) { \ __abs_c(tc_mem_write_,BYTES)(v, h, o, val); \ tc_mem_barrier(v, h, o, sizeof val, BUS_BARRIER_WRITE); \ } \ } tc_mem_set_multi_N(1,u_int8_t) tc_mem_set_multi_N(2,u_int16_t) tc_mem_set_multi_N(4,u_int32_t) tc_mem_set_multi_N(8,u_int64_t) #define tc_mem_set_region_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_set_region_,BYTES)(v, h, o, val, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ TYPE val; \ { \ \ while (c-- > 0) { \ __abs_c(tc_mem_write_,BYTES)(v, h, o, val); \ o += sizeof val; \ } \ } tc_mem_set_region_N(1,u_int8_t) tc_mem_set_region_N(2,u_int16_t) tc_mem_set_region_N(4,u_int32_t) tc_mem_set_region_N(8,u_int64_t) #define tc_mem_copy_N(BYTES) \ void \ __abs_c(tc_mem_copy_,BYTES)(v, h1, o1, h2, o2, c) \ void *v; \ bus_space_handle_t h1, h2; \ bus_size_t o1, o2, c; \ { \ bus_size_t i, o; \ \ if ((h1 & TC_SPACE_SPARSE) != 0 && \ (h2 & TC_SPACE_SPARSE) != 0) { \ bcopy((void *)(h1 + o1), (void *)(h2 + o2), c * BYTES); \ return; \ } \ \ /* Circumvent a common case of overlapping problems */ \ if (h1 == h2 && o2 > o1) \ for (i = 0, o = (c - 1) * BYTES; i < c; i++, o -= BYTES)\ __abs_c(tc_mem_write_,BYTES)(v, h2, o2 + o, \ __abs_c(tc_mem_read_,BYTES)(v, h1, o1 + o));\ else \ for (i = 0, o = 0; i < c; i++, o += BYTES) \ __abs_c(tc_mem_write_,BYTES)(v, h2, o2 + o, \ __abs_c(tc_mem_read_,BYTES)(v, h1, o1 + o));\ } tc_mem_copy_N(1) tc_mem_copy_N(2) tc_mem_copy_N(4) tc_mem_copy_N(8) #define tc_mem_read_raw_multi_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_read_raw_multi_,BYTES)(v, h, o, a, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ u_int8_t *a; \ { \ TYPE temp; \ int i; \ \ while (c > 0) { \ tc_mem_barrier(v, h, o, BYTES, BUS_BARRIER_READ); \ temp = __abs_c(tc_mem_read_,BYTES)(v, h, o); \ for (i = 0; i < BYTES; i++) { \ *a++ = temp & 0xff; \ temp >>= 8; \ } \ c -= BYTES; \ } \ } tc_mem_read_raw_multi_N(2,u_int16_t) tc_mem_read_raw_multi_N(4,u_int32_t) tc_mem_read_raw_multi_N(8,u_int64_t) #define tc_mem_write_raw_multi_N(BYTES,TYPE) \ void \ __abs_c(tc_mem_write_raw_multi_,BYTES)(v, h, o, a, c) \ void *v; \ bus_space_handle_t h; \ bus_size_t o, c; \ const u_int8_t *a; \ { \ TYPE temp; \ int i; \ \ while (c > 0) { \ temp = 0; \ for (i = BYTES - 1; i >= 0; i--) { \ temp <<= 8; \ temp |= *(a + i); \ } \ __abs_c(tc_mem_write_,BYTES)(v, h, o, temp); \ tc_mem_barrier(v, h, o, BYTES, BUS_BARRIER_WRITE); \ c -= BYTES; \ a += BYTES; \ } \ } tc_mem_write_raw_multi_N(2,u_int16_t) tc_mem_write_raw_multi_N(4,u_int32_t) tc_mem_write_raw_multi_N(8,u_int64_t)