diff options
Diffstat (limited to 'libgupc/smp/upc_mem.h')
| -rw-r--r-- | libgupc/smp/upc_mem.h | 136 |
1 files changed, 136 insertions, 0 deletions
diff --git a/libgupc/smp/upc_mem.h b/libgupc/smp/upc_mem.h new file mode 100644 index 00000000000..15273fab2fc --- /dev/null +++ b/libgupc/smp/upc_mem.h @@ -0,0 +1,136 @@ +/* Copyright (C) 2006-2016 Free Software Foundation, Inc. + This file is part of the UPC runtime library. + Written by Gary Funck <gary@intrepid.com> + and Nenad Vukicevic <nenad@intrepid.com> + +This file is part of GCC. + +GCC is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 3, or (at your option) +any later version. + +GCC is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +Under Section 7 of GPL version 3, you are granted additional +permissions described in the GCC Runtime Library Exception, version +3.1, as published by the Free Software Foundation. + +You should have received a copy of the GNU General Public License and +a copy of the GCC Runtime Library Exception along with this program; +see the files COPYING3 and COPYING.RUNTIME respectively. If not, see +<http://www.gnu.org/licenses/>. */ + + +#ifndef _UPC_MEM_H_ +#define _UPC_MEM_H_ + +/* The following memory-to-memory operations have been + factored into this file because they are needed both + by upc_access.c and upc_mem.c */ + +//begin lib_inline_mem_sup + +__attribute__((__always_inline__)) +static inline +void +__upc_memcpy (upc_shared_ptr_t dest, upc_shared_ptr_t src, size_t n) +{ + if (GUPCR_PTS_IS_NULL (src)) + __upc_fatal ("Invalid access via null shared pointer"); + if (GUPCR_PTS_IS_NULL (dest)) + __upc_fatal ("Invalid access via null shared pointer"); + for (;;) + { + char *srcp = (char *)__upc_sptr_to_addr (src); + size_t s_offset = GUPCR_PTS_OFFSET(src); + size_t ps_offset = (s_offset & GUPCR_VM_OFFSET_MASK); + size_t ns_copy = GUPCR_VM_PAGE_SIZE - ps_offset; + char *destp = (char *)__upc_sptr_to_addr (dest); + size_t d_offset = GUPCR_PTS_OFFSET(dest); + size_t pd_offset = (d_offset & GUPCR_VM_OFFSET_MASK); + size_t nd_copy = GUPCR_VM_PAGE_SIZE - pd_offset; + size_t n_copy = GUPCR_MIN (GUPCR_MIN (ns_copy, nd_copy), n); + memcpy (destp, srcp, n_copy); + n -= n_copy; + if (!n) + break; + GUPCR_PTS_INCR_VADDR (src, n_copy); + GUPCR_PTS_INCR_VADDR (dest, n_copy); + } +} + +__attribute__((__always_inline__)) +static inline +void +__upc_memget (void *dest, upc_shared_ptr_t src, size_t n) +{ + if (!dest) + __upc_fatal ("Invalid access via null shared pointer"); + if (GUPCR_PTS_IS_NULL (src)) + __upc_fatal ("Invalid access via null shared pointer"); + for (;;) + { + char *srcp = (char *)__upc_sptr_to_addr (src); + size_t offset = GUPCR_PTS_OFFSET(src); + size_t p_offset = (offset & GUPCR_VM_OFFSET_MASK); + size_t n_copy = GUPCR_MIN (GUPCR_VM_PAGE_SIZE - p_offset, n); + memcpy (dest, srcp, n_copy); + n -= n_copy; + if (!n) + break; + GUPCR_PTS_INCR_VADDR (src, n_copy); + dest = (char *) dest + n_copy; + } +} + +__attribute__((__always_inline__)) +static inline +void +__upc_memput (upc_shared_ptr_t dest, const void *src, size_t n) +{ + if (!src) + __upc_fatal ("Invalid access via null shared pointer"); + if (GUPCR_PTS_IS_NULL (dest)) + __upc_fatal ("Invalid access via null shared pointer"); + for (;;) + { + char *destp = (char *)__upc_sptr_to_addr (dest); + size_t offset = GUPCR_PTS_OFFSET(dest); + size_t p_offset = (offset & GUPCR_VM_OFFSET_MASK); + size_t n_copy = GUPCR_MIN (GUPCR_VM_PAGE_SIZE - p_offset, n); + memcpy (destp, src, n_copy); + n -= n_copy; + if (!n) + break; + GUPCR_PTS_INCR_VADDR (dest, n_copy); + src = (char *) src + n_copy; + } +} + +__attribute__((__always_inline__)) +static inline +void +__upc_memset (upc_shared_ptr_t dest, int c, size_t n) +{ + if (GUPCR_PTS_IS_NULL (dest)) + __upc_fatal ("Invalid access via null shared pointer"); + for (;;) + { + char *destp = (char *)__upc_sptr_to_addr (dest); + size_t offset = GUPCR_PTS_OFFSET(dest); + size_t p_offset = (offset & GUPCR_VM_OFFSET_MASK); + size_t n_set = GUPCR_MIN (GUPCR_VM_PAGE_SIZE - p_offset, n); + memset (destp, c, n_set); + n -= n_set; + if (!n) + break; + GUPCR_PTS_INCR_VADDR (dest, n_set); + } +} +//end lib_inline_mem_sup + +#endif /* _UPC_MEM_H_ */ |