summaryrefslogtreecommitdiffstats
path: root/libparc/parc/algol/parc_Memory.c
diff options
context:
space:
mode:
Diffstat (limited to 'libparc/parc/algol/parc_Memory.c')
-rwxr-xr-xlibparc/parc/algol/parc_Memory.c144
1 files changed, 144 insertions, 0 deletions
diff --git a/libparc/parc/algol/parc_Memory.c b/libparc/parc/algol/parc_Memory.c
new file mode 100755
index 00000000..e444baba
--- /dev/null
+++ b/libparc/parc/algol/parc_Memory.c
@@ -0,0 +1,144 @@
+/*
+ * Copyright (c) 2017 Cisco and/or its affiliates.
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at:
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+/**
+ */
+#include <config.h>
+
+#include <LongBow/runtime.h>
+
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <string.h>
+#include <stdio.h>
+
+#include <stdint.h>
+#include <stdbool.h>
+
+#include <parc/algol/parc_Memory.h>
+#include <parc/algol/parc_SafeMemory.h>
+#include <parc/algol/parc_StdlibMemory.h>
+
+static const PARCMemoryInterface *parcMemory = &PARCStdlibMemoryAsPARCMemory;
+
+const PARCMemoryInterface *
+parcMemory_SetInterface(const PARCMemoryInterface *memoryProvider)
+{
+ assertFalse(memoryProvider == &PARCMemoryAsPARCMemory,
+ "You cannot use PARCMemoryAsPARCMemory as a memory provider for parcMemory.");
+ const PARCMemoryInterface *result = parcMemory;
+ parcMemory = memoryProvider;
+
+ return result;
+}
+
+size_t
+parcMemory_RoundUpToCacheLine(const size_t size)
+{
+ return parcMemory_RoundUpToMultiple(size, LEVEL1_DCACHE_LINESIZE);
+}
+
+size_t
+parcMemory_RoundUpToMultiple(const size_t size, const size_t multiple)
+{
+ if (size == 0) {
+ return multiple;
+ }
+
+ if (multiple == 0) {
+ return size;
+ }
+
+ size_t remainder = size % multiple;
+ if (remainder == 0) {
+ return size;
+ }
+ return size + multiple - remainder;
+}
+
+void *
+parcMemory_Allocate(const size_t size)
+{
+ return ((PARCMemoryAllocate *) parcMemory->Allocate)(size);
+}
+
+void *
+parcMemory_AllocateAndClear(const size_t size)
+{
+ return ((PARCMemoryAllocateAndClear *) parcMemory->AllocateAndClear)(size);
+}
+
+int
+parcMemory_MemAlign(void **pointer, const size_t alignment, const size_t size)
+{
+ return ((PARCMemoryMemAlign *) parcMemory->MemAlign)(pointer, alignment, size);
+}
+
+void
+parcMemory_DeallocateImpl(void **pointer)
+{
+ ((PARCMemoryDeallocate *) parcMemory->Deallocate)(pointer);
+}
+
+void *
+parcMemory_Reallocate(void *pointer, size_t newSize)
+{
+ return ((PARCMemoryReallocate *) parcMemory->Reallocate)(pointer, newSize);
+}
+
+char *
+parcMemory_StringDuplicate(const char *string, const size_t length)
+{
+ return ((PARCMemoryStringDuplicate *) parcMemory->StringDuplicate)(string, length);
+}
+
+uint32_t
+parcMemory_Outstanding(void)
+{
+ return ((PARCMemoryOutstanding *) parcMemory->Outstanding)();
+}
+
+char *
+parcMemory_Format(const char *format, ...)
+{
+ va_list ap;
+ va_start(ap, format);
+
+ va_list copy;
+ va_copy(copy, ap);
+ int length = vsnprintf(NULL, 0, format, copy);
+ va_end(copy);
+
+ char *result = NULL;
+ if (length >= 0) {
+ result = parcMemory_Allocate(length + 1);
+
+ if (result != NULL) {
+ vsprintf(result, format, ap);
+ }
+ }
+ return result;
+}
+
+PARCMemoryInterface PARCMemoryAsPARCMemory = {
+ .Allocate = (uintptr_t) parcMemory_Allocate,
+ .AllocateAndClear = (uintptr_t) parcMemory_AllocateAndClear,
+ .MemAlign = (uintptr_t) parcMemory_MemAlign,
+ .Deallocate = (uintptr_t) parcMemory_DeallocateImpl,
+ .Reallocate = (uintptr_t) parcMemory_Reallocate,
+ .StringDuplicate = (uintptr_t) parcMemory_StringDuplicate,
+ .Outstanding = (uintptr_t) parcMemory_Outstanding
+};