microsoft/qdk
Publicmirrored from https://github.com/microsoft/qdkAvailable
source/allocator/mimalloc-sys/mimalloc/src/alloc-posix.c
185lines · modeblame
91589c3aIan Davis2 years ago | 1 | /* ---------------------------------------------------------------------------- |
| 2 | Copyright (c) 2018-2021, Microsoft Research, Daan Leijen | |
| 3 | This is free software; you can redistribute it and/or modify it under the | |
| 4 | terms of the MIT license. A copy of the license can be found in the file | |
| 5 | "LICENSE" at the root of this distribution. | |
| 6 | -----------------------------------------------------------------------------*/ | |
| 7 | | |
| 8 | // ------------------------------------------------------------------------ | |
| 9 | // mi prefixed publi definitions of various Posix, Unix, and C++ functions | |
| 10 | // for convenience and used when overriding these functions. | |
| 11 | // ------------------------------------------------------------------------ | |
| 12 | #include "mimalloc.h" | |
| 13 | #include "mimalloc/internal.h" | |
| 14 | | |
| 15 | // ------------------------------------------------------ | |
| 16 | // Posix & Unix functions definitions | |
| 17 | // ------------------------------------------------------ | |
| 18 | | |
| 19 | #include <errno.h> | |
| 20 | #include <string.h> // memset | |
| 21 | #include <stdlib.h> // getenv | |
| 22 | | |
| 23 | #ifdef _MSC_VER | |
| 24 | #pragma warning(disable:4996) // getenv _wgetenv | |
| 25 | #endif | |
| 26 | | |
| 27 | #ifndef EINVAL | |
| 28 | #define EINVAL 22 | |
| 29 | #endif | |
| 30 | #ifndef ENOMEM | |
| 31 | #define ENOMEM 12 | |
| 32 | #endif | |
| 33 | | |
| 34 | | |
| 35 | mi_decl_nodiscard size_t mi_malloc_size(const void* p) mi_attr_noexcept { | |
| 36 | // if (!mi_is_in_heap_region(p)) return 0; | |
| 37 | return mi_usable_size(p); | |
| 38 | } | |
| 39 | | |
| 40 | mi_decl_nodiscard size_t mi_malloc_usable_size(const void *p) mi_attr_noexcept { | |
| 41 | // if (!mi_is_in_heap_region(p)) return 0; | |
| 42 | return mi_usable_size(p); | |
| 43 | } | |
| 44 | | |
| 45 | mi_decl_nodiscard size_t mi_malloc_good_size(size_t size) mi_attr_noexcept { | |
| 46 | return mi_good_size(size); | |
| 47 | } | |
| 48 | | |
| 49 | void mi_cfree(void* p) mi_attr_noexcept { | |
| 50 | if (mi_is_in_heap_region(p)) { | |
| 51 | mi_free(p); | |
| 52 | } | |
| 53 | } | |
| 54 | | |
| 55 | int mi_posix_memalign(void** p, size_t alignment, size_t size) mi_attr_noexcept { | |
| 56 | // Note: The spec dictates we should not modify `*p` on an error. (issue#27) | |
| 57 | // <http://man7.org/linux/man-pages/man3/posix_memalign.3.html> | |
| 58 | if (p == NULL) return EINVAL; | |
| 59 | if ((alignment % sizeof(void*)) != 0) return EINVAL; // natural alignment | |
| 60 | // it is also required that alignment is a power of 2 and > 0; this is checked in `mi_malloc_aligned` | |
| 61 | if (alignment==0 || !_mi_is_power_of_two(alignment)) return EINVAL; // not a power of 2 | |
| 62 | void* q = mi_malloc_aligned(size, alignment); | |
| 63 | if (q==NULL && size != 0) return ENOMEM; | |
| 64 | mi_assert_internal(((uintptr_t)q % alignment) == 0); | |
| 65 | *p = q; | |
| 66 | return 0; | |
| 67 | } | |
| 68 | | |
| 69 | mi_decl_nodiscard mi_decl_restrict void* mi_memalign(size_t alignment, size_t size) mi_attr_noexcept { | |
| 70 | void* p = mi_malloc_aligned(size, alignment); | |
| 71 | mi_assert_internal(((uintptr_t)p % alignment) == 0); | |
| 72 | return p; | |
| 73 | } | |
| 74 | | |
| 75 | mi_decl_nodiscard mi_decl_restrict void* mi_valloc(size_t size) mi_attr_noexcept { | |
| 76 | return mi_memalign( _mi_os_page_size(), size ); | |
| 77 | } | |
| 78 | | |
| 79 | mi_decl_nodiscard mi_decl_restrict void* mi_pvalloc(size_t size) mi_attr_noexcept { | |
| 80 | size_t psize = _mi_os_page_size(); | |
| 81 | if (size >= SIZE_MAX - psize) return NULL; // overflow | |
| 82 | size_t asize = _mi_align_up(size, psize); | |
| 83 | return mi_malloc_aligned(asize, psize); | |
| 84 | } | |
| 85 | | |
| 86 | mi_decl_nodiscard mi_decl_restrict void* mi_aligned_alloc(size_t alignment, size_t size) mi_attr_noexcept { | |
| 87 | // C11 requires the size to be an integral multiple of the alignment, see <https://en.cppreference.com/w/c/memory/aligned_alloc>. | |
| 88 | // unfortunately, it turns out quite some programs pass a size that is not an integral multiple so skip this check.. | |
| 89 | /* if mi_unlikely((size & (alignment - 1)) != 0) { // C11 requires alignment>0 && integral multiple, see <https://en.cppreference.com/w/c/memory/aligned_alloc> | |
| 90 | #if MI_DEBUG > 0 | |
| 91 | _mi_error_message(EOVERFLOW, "(mi_)aligned_alloc requires the size to be an integral multiple of the alignment (size %zu, alignment %zu)\n", size, alignment); | |
| 92 | #endif | |
| 93 | return NULL; | |
| 94 | } | |
| 95 | */ | |
| 96 | // C11 also requires alignment to be a power-of-two (and > 0) which is checked in mi_malloc_aligned | |
| 97 | void* p = mi_malloc_aligned(size, alignment); | |
| 98 | mi_assert_internal(((uintptr_t)p % alignment) == 0); | |
| 99 | return p; | |
| 100 | } | |
| 101 | | |
| 102 | mi_decl_nodiscard void* mi_reallocarray( void* p, size_t count, size_t size ) mi_attr_noexcept { // BSD | |
| 103 | void* newp = mi_reallocn(p,count,size); | |
| 104 | if (newp==NULL) { errno = ENOMEM; } | |
| 105 | return newp; | |
| 106 | } | |
| 107 | | |
| 108 | mi_decl_nodiscard int mi_reallocarr( void* p, size_t count, size_t size ) mi_attr_noexcept { // NetBSD | |
| 109 | mi_assert(p != NULL); | |
| 110 | if (p == NULL) { | |
| 111 | errno = EINVAL; | |
| 112 | return EINVAL; | |
| 113 | } | |
| 114 | void** op = (void**)p; | |
| 115 | void* newp = mi_reallocarray(*op, count, size); | |
| 116 | if mi_unlikely(newp == NULL) { return errno; } | |
| 117 | *op = newp; | |
| 118 | return 0; | |
| 119 | } | |
| 120 | | |
| 121 | void* mi__expand(void* p, size_t newsize) mi_attr_noexcept { // Microsoft | |
| 122 | void* res = mi_expand(p, newsize); | |
| 123 | if (res == NULL) { errno = ENOMEM; } | |
| 124 | return res; | |
| 125 | } | |
| 126 | | |
| 127 | mi_decl_nodiscard mi_decl_restrict unsigned short* mi_wcsdup(const unsigned short* s) mi_attr_noexcept { | |
| 128 | if (s==NULL) return NULL; | |
| 129 | size_t len; | |
| 130 | for(len = 0; s[len] != 0; len++) { } | |
| 131 | size_t size = (len+1)*sizeof(unsigned short); | |
| 132 | unsigned short* p = (unsigned short*)mi_malloc(size); | |
| 133 | if (p != NULL) { | |
| 134 | _mi_memcpy(p,s,size); | |
| 135 | } | |
| 136 | return p; | |
| 137 | } | |
| 138 | | |
| 139 | mi_decl_nodiscard mi_decl_restrict unsigned char* mi_mbsdup(const unsigned char* s) mi_attr_noexcept { | |
| 140 | return (unsigned char*)mi_strdup((const char*)s); | |
| 141 | } | |
| 142 | | |
| 143 | int mi_dupenv_s(char** buf, size_t* size, const char* name) mi_attr_noexcept { | |
| 144 | if (buf==NULL || name==NULL) return EINVAL; | |
| 145 | if (size != NULL) *size = 0; | |
| 146 | char* p = getenv(name); // mscver warning 4996 | |
| 147 | if (p==NULL) { | |
| 148 | *buf = NULL; | |
| 149 | } | |
| 150 | else { | |
| 151 | *buf = mi_strdup(p); | |
| 152 | if (*buf==NULL) return ENOMEM; | |
| 153 | if (size != NULL) *size = _mi_strlen(p); | |
| 154 | } | |
| 155 | return 0; | |
| 156 | } | |
| 157 | | |
| 158 | int mi_wdupenv_s(unsigned short** buf, size_t* size, const unsigned short* name) mi_attr_noexcept { | |
| 159 | if (buf==NULL || name==NULL) return EINVAL; | |
| 160 | if (size != NULL) *size = 0; | |
| 161 | #if !defined(_WIN32) || (defined(WINAPI_FAMILY) && (WINAPI_FAMILY != WINAPI_FAMILY_DESKTOP_APP)) | |
| 162 | // not supported | |
| 163 | *buf = NULL; | |
| 164 | return EINVAL; | |
| 165 | #else | |
| 166 | unsigned short* p = (unsigned short*)_wgetenv((const wchar_t*)name); // msvc warning 4996 | |
| 167 | if (p==NULL) { | |
| 168 | *buf = NULL; | |
| 169 | } | |
| 170 | else { | |
| 171 | *buf = mi_wcsdup(p); | |
| 172 | if (*buf==NULL) return ENOMEM; | |
| 173 | if (size != NULL) *size = wcslen((const wchar_t*)p); | |
| 174 | } | |
| 175 | return 0; | |
| 176 | #endif | |
| 177 | } | |
| 178 | | |
| 179 | mi_decl_nodiscard void* mi_aligned_offset_recalloc(void* p, size_t newcount, size_t size, size_t alignment, size_t offset) mi_attr_noexcept { // Microsoft | |
| 180 | return mi_recalloc_aligned_at(p, newcount, size, alignment, offset); | |
| 181 | } | |
| 182 | | |
| 183 | mi_decl_nodiscard void* mi_aligned_recalloc(void* p, size_t newcount, size_t size, size_t alignment) mi_attr_noexcept { // Microsoft | |
| 184 | return mi_recalloc_aligned(p, newcount, size, alignment); | |
| 185 | } |