commit 195bf4d341ffa7e7e5daf7a776fd7ef9891dbe2f
parent dec6150435ae00b745476125122fa897360f0925
Author: Vincent Forest <vincent.forest@meso-star.com>
Date: Wed, 17 Jan 2018 11:28:45 +0100
Push further the 2D tests on the sdis_solve_probe function
Diffstat:
4 files changed, 630 insertions(+), 0 deletions(-)
diff --git a/cmake/CMakeLists.txt b/cmake/CMakeLists.txt
@@ -120,8 +120,13 @@ if(NOT NO_TEST)
new_test(test_sdis_solve_probe2)
new_test(test_sdis_solve_probe3)
new_test(test_sdis_solve_probe_2d)
+ new_test(test_sdis_solve_probe2_2d)
+ new_test(test_sdis_solve_probe3_2d)
target_link_libraries(test_sdis_solve_probe3 Star3DUT)
+ if(CMAKE_COMPILER_IS_GNUCC)
+ target_link_libraries(test_sdis_solve_probe3_2d m)
+ endif()
endif()
################################################################################
diff --git a/src/test_sdis_solve_probe2_2d.c b/src/test_sdis_solve_probe2_2d.c
@@ -0,0 +1,275 @@
+/* Copyright (C) |Meso|Star> 2016-2018 (contact@meso-star.com)
+ *
+ * This program 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 of the License, or
+ * (at your option) any later version.
+ *
+ * This program 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.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "sdis.h"
+#include "test_sdis_utils.h"
+
+#include <rsys/math.h>
+
+/*
+ * The scene is composed of a solid square whose temperature is unknown. The
+ * convection coefficient with the surrounding fluid is null. The temperature
+ * is fixed at the left and right segment.
+ *
+ * (1,1)
+ * +-------+
+ * | |350K
+ * | |
+ * 300K| |
+ * +-------+
+ * (0,0)
+ */
+
+/*******************************************************************************
+ * Geometry
+ ******************************************************************************/
+struct context {
+ const double* positions;
+ const size_t* indices;
+ struct sdis_interface** interfaces; /* Per primitive interfaces */
+};
+
+static void
+get_indices(const size_t iseg, size_t ids[2], void* context)
+{
+ struct context* ctx = context;
+ ids[0] = ctx->indices[iseg*2+0];
+ ids[1] = ctx->indices[iseg*2+1];
+}
+
+static void
+get_position(const size_t ivert, double pos[2], void* context)
+{
+ struct context* ctx = context;
+ pos[0] = ctx->positions[ivert*2+0];
+ pos[1] = ctx->positions[ivert*2+1];
+}
+
+static void
+get_interface(const size_t iseg, struct sdis_interface** bound, void* context)
+{
+ struct context* ctx = context;
+ *bound = ctx->interfaces[iseg];
+}
+
+/*******************************************************************************
+ * Medium data
+ ******************************************************************************/
+static double
+temperature_unknown(const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return -1;
+}
+
+static double
+solid_get_calorific_capacity
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL && data == NULL);
+ return 2.0;
+}
+
+static double
+solid_get_thermal_conductivity
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 50.0;
+}
+
+static double
+solid_get_volumic_mass
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 25.0;
+}
+
+static double
+solid_get_delta
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 1.0/20.0;
+}
+
+static double
+solid_get_delta_boundary
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 2.1/20.0;
+}
+
+/*******************************************************************************
+ * Interface
+ ******************************************************************************/
+struct interf {
+ double temperature;
+};
+
+static double
+null_convection_coef
+ (const struct sdis_interface_fragment* frag, struct sdis_data* data)
+{
+ CHK(frag != NULL);
+ (void)data;
+ return 0;
+}
+
+static double
+interface_get_temperature
+ (const struct sdis_interface_fragment* frag, struct sdis_data* data)
+{
+ CHK(data != NULL && frag != NULL);
+ return ((const struct interf*)sdis_data_cget(data))->temperature;
+}
+
+/*******************************************************************************
+ * Test
+ ******************************************************************************/
+int
+main(int argc, char** argv)
+{
+ struct mem_allocator allocator;
+ struct sdis_mc T = SDIS_MC_NULL;
+ struct sdis_device* dev = NULL;
+ struct sdis_data* data = NULL;
+ struct sdis_estimator* estimator = NULL;
+ struct sdis_medium* solid = NULL;
+ struct sdis_medium* fluid = NULL;
+ struct sdis_interface* Tnone = NULL;
+ struct sdis_interface* T300 = NULL;
+ struct sdis_interface* T350 = NULL;
+ struct sdis_scene* scn = NULL;
+ struct sdis_fluid_shader fluid_shader = DUMMY_FLUID_SHADER;
+ struct sdis_solid_shader solid_shader = DUMMY_SOLID_SHADER;
+ struct sdis_interface_shader interface_shader = DUMMY_INTERFACE_SHADER;
+ struct sdis_interface* interfaces[4];
+ struct context ctx;
+ struct interf* interface_param = NULL;
+ double pos[2];
+ double time;
+ double ref;
+ const size_t N = 10000;
+ size_t nreals;
+ size_t nfails;
+ (void)argc, (void)argv;
+
+ CHK(mem_init_proxy_allocator(&allocator, &mem_default_allocator) == RES_OK);
+ CHK(sdis_device_create
+ (NULL, &allocator, SDIS_NTHREADS_DEFAULT, 0, &dev) == RES_OK);
+
+ /* Create the fluid medium */
+ fluid_shader.temperature = temperature_unknown;
+ CHK(sdis_fluid_create(dev, &fluid_shader, NULL, &fluid) == RES_OK);
+
+ /* Create the solid medium */
+ solid_shader.calorific_capacity = solid_get_calorific_capacity;
+ solid_shader.thermal_conductivity = solid_get_thermal_conductivity;
+ solid_shader.volumic_mass = solid_get_volumic_mass;
+ solid_shader.delta_solid = solid_get_delta;
+ solid_shader.delta_boundary = solid_get_delta_boundary;
+ solid_shader.temperature = temperature_unknown;
+ CHK(sdis_solid_create(dev, &solid_shader, NULL, &solid) == RES_OK);
+
+ /* Create the fluid/solid interface with no limit conidition */
+ interface_shader.convection_coef = null_convection_coef;
+ interface_shader.temperature = NULL;
+ CHK(sdis_interface_create
+ (dev, solid, fluid, &interface_shader, NULL, &Tnone) == RES_OK);
+
+ /* Create the fluid/solid interface with a fixed temperature of 300K */
+ CHK(sdis_data_create(dev, sizeof(struct interf),
+ ALIGNOF(struct interf), NULL, &data) == RES_OK);
+ interface_param = sdis_data_get(data);
+ interface_param->temperature = 300;
+ interface_shader.convection_coef = null_convection_coef;
+ interface_shader.temperature = interface_get_temperature;
+ CHK(sdis_interface_create
+ (dev, solid, fluid, &interface_shader, data, &T300) == RES_OK);
+ CHK(sdis_data_ref_put(data) == RES_OK);
+
+ /* Create the fluid/solid interface with a fixed temperature of 350K */
+ CHK(sdis_data_create(dev, sizeof(struct interf),
+ ALIGNOF(struct interf), NULL, &data) == RES_OK);
+ interface_param = sdis_data_get(data);
+ interface_param->temperature = 350;
+ interface_shader.convection_coef = null_convection_coef;
+ interface_shader.temperature = interface_get_temperature;
+ CHK(sdis_interface_create
+ (dev, solid, fluid, &interface_shader, data, &T350) == RES_OK);
+ CHK(sdis_data_ref_put(data) == RES_OK);
+
+ /* Release the media */
+ CHK(sdis_medium_ref_put(solid) == RES_OK);
+ CHK(sdis_medium_ref_put(fluid) == RES_OK);
+
+ /* Setup the per primitive scene interfaces */
+ CHK(sizeof(interfaces)/sizeof(struct sdis_interface*) == square_nsegments);
+ interfaces[0] = Tnone; /* Bottom segment */
+ interfaces[1] = T300; /* Left segment */
+ interfaces[2] = Tnone; /* Top segment */
+ interfaces[3] = T350; /* Right segment */
+
+ /* Create the scene */
+ ctx.positions = square_vertices;
+ ctx.indices = square_indices;
+ ctx.interfaces = interfaces;
+ CHK(sdis_scene_2d_create(dev, square_nsegments, get_indices, get_interface,
+ square_nvertices, get_position, &ctx, &scn) == RES_OK);
+
+ /* Release the interfaces */
+ CHK(sdis_interface_ref_put(Tnone) == RES_OK);
+ CHK(sdis_interface_ref_put(T300) == RES_OK);
+ CHK(sdis_interface_ref_put(T350) == RES_OK);
+
+ /* Launch the solver */
+ pos[0] = 0.5;
+ pos[1] = 0.5;
+ time = INF;
+ CHK(sdis_solve_probe( scn, N, pos, time, 1.0, &estimator) == RES_OK);
+ CHK(sdis_estimator_get_realisation_count(estimator, &nreals) == RES_OK);
+ CHK(sdis_estimator_get_failure_count(estimator, &nfails) == RES_OK);
+ CHK(sdis_estimator_get_temperature(estimator, &T) == RES_OK);
+
+ /* Print the estimation results */
+ ref = 350 * pos[0] + (1-pos[0]) * 300;
+ printf("Temperature at (%g, %g) = %g ~ %g +/- %g\n",
+ SPLIT2(pos), ref, T.E, T.SE);
+ printf("#realisations: %lu; #failures: %lu\n",
+ (unsigned long)nreals, (unsigned long)nfails);
+
+ /* Check the results */
+ CHK(nfails + nreals == N);
+ CHK(eq_eps(T.E, ref, T.SE));
+
+ /* Release data */
+ CHK(sdis_estimator_ref_put(estimator) == RES_OK);
+ CHK(sdis_scene_ref_put(scn) == RES_OK);
+ CHK(sdis_device_ref_put(dev) == RES_OK);
+
+ check_memory_allocator(&allocator);
+ mem_shutdown_proxy_allocator(&allocator);
+ CHK(mem_allocated_size() == 0);
+ return 0;
+}
diff --git a/src/test_sdis_solve_probe3_2d.c b/src/test_sdis_solve_probe3_2d.c
@@ -0,0 +1,329 @@
+/* Copyright (C) |Meso|Star> 2016-2018 (contact@meso-star.com)
+ *
+ * This program 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 of the License, or
+ * (at your option) any later version.
+ *
+ * This program 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.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>. */
+
+#include "sdis.h"
+#include "test_sdis_utils.h"
+
+#include <star/ssp.h>
+
+#include <rsys/stretchy_array.h>
+#include <rsys/math.h>
+
+/*
+ * The scene is composed of a solid square whose temperature is unknown. The
+ * convection coefficient with the surrounding fluid is null. The temperature
+ * is fixed at the left and right face. At the center of the cube there is a
+ * solid disk whose physical properties are the same of the solid square; i.e.
+ * the disk influences the random walks but not the result.
+ *
+ * (1,1)
+ * +--------------+
+ * | # # |
+ * | # # |350K
+ * | # # |
+ * | # # |
+ * 300K| # # |
+ * | # # |
+ * +--------------+
+ * (0,0)
+ */
+
+/*******************************************************************************
+ * Geometry
+ ******************************************************************************/
+struct context {
+ double* positions;
+ size_t* indices;
+ struct sdis_interface* solid_fluid_Tnone;
+ struct sdis_interface* solid_fluid_T300;
+ struct sdis_interface* solid_fluid_T350;
+ struct sdis_interface* solid_solid;
+};
+static const struct context CONTEXT_NULL = { NULL };
+
+static void
+get_indices(const size_t iseg, size_t ids[2], void* context)
+{
+ struct context* ctx = context;
+ ids[0] = ctx->indices[iseg*2+0];
+ ids[1] = ctx->indices[iseg*2+1];
+}
+
+static void
+get_position(const size_t ivert, double pos[2], void* context)
+{
+ struct context* ctx = context;
+ pos[0] = ctx->positions[ivert*2+0];
+ pos[1] = ctx->positions[ivert*2+1];
+}
+
+static void
+get_interface(const size_t iseg, struct sdis_interface** bound, void* context)
+{
+ struct context* ctx = context;
+ CHK(bound != NULL && context != NULL);
+
+ if(iseg == 1) { /* Square left segment */
+ *bound = ctx->solid_fluid_T300;
+ } else if(iseg == 3 ) { /* Square right segment */
+ *bound = ctx->solid_fluid_T350;
+ } else if(iseg < square_nsegments) { /* Square remaining segments */
+ *bound = ctx->solid_fluid_Tnone;
+ } else { /* Faces of the internal geometry */
+ *bound = ctx->solid_solid;
+ }
+}
+
+/*******************************************************************************
+ * Medium data
+ ******************************************************************************/
+static double
+temperature_unknown(const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return -1;
+}
+
+static double
+solid_get_calorific_capacity
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL && data == NULL);
+ return 2.0;
+}
+
+static double
+solid_get_thermal_conductivity
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 50.0;
+}
+
+static double
+solid_get_volumic_mass
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 25.0;
+}
+
+static double
+solid_get_delta
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 1.0/20.0;
+}
+
+static double
+solid_get_delta_boundary
+ (const struct sdis_rwalk_vertex* vtx, struct sdis_data* data)
+{
+ (void)data;
+ CHK(vtx != NULL);
+ return 2.1/20.0;
+}
+
+/*******************************************************************************
+ * Interface
+ ******************************************************************************/
+struct interf {
+ double temperature;
+};
+
+static double
+null_convection_coef
+ (const struct sdis_interface_fragment* frag, struct sdis_data* data)
+{
+ CHK(frag != NULL);
+ (void)data;
+ return 0;
+}
+
+static double
+interface_get_temperature
+ (const struct sdis_interface_fragment* frag, struct sdis_data* data)
+{
+ CHK(data != NULL && frag != NULL);
+ return ((const struct interf*)sdis_data_cget(data))->temperature;
+}
+
+/*******************************************************************************
+ * Test
+ ******************************************************************************/
+int
+main(int argc, char** argv)
+{
+ struct mem_allocator allocator;
+ struct sdis_mc T = SDIS_MC_NULL;
+ struct sdis_device* dev = NULL;
+ struct sdis_data* data = NULL;
+ struct sdis_estimator* estimator = NULL;
+ struct sdis_medium* solid = NULL;
+ struct sdis_medium* fluid = NULL;
+ struct sdis_interface* Tnone = NULL;
+ struct sdis_interface* T300 = NULL;
+ struct sdis_interface* T350 = NULL;
+ struct sdis_interface* solid_solid = NULL;
+ struct sdis_scene* scn = NULL;
+ struct sdis_fluid_shader fluid_shader = DUMMY_FLUID_SHADER;
+ struct sdis_solid_shader solid_shader = DUMMY_SOLID_SHADER;
+ struct sdis_interface_shader interface_shader = DUMMY_INTERFACE_SHADER;
+ struct context ctx = CONTEXT_NULL;
+ struct interf* interface_param = NULL;
+ double pos[2];
+ double time;
+ double ref;
+ const size_t N = 10000;
+ size_t nsegs;
+ size_t nverts;
+ size_t nreals;
+ size_t nfails;
+ size_t i;
+ (void)argc, (void)argv;
+
+ CHK(mem_init_proxy_allocator(&allocator, &mem_default_allocator) == RES_OK);
+ CHK(sdis_device_create
+ (NULL, &allocator, SDIS_NTHREADS_DEFAULT, 0, &dev) == RES_OK);
+
+ /* Create the fluid medium */
+ fluid_shader.temperature = temperature_unknown;
+ CHK(sdis_fluid_create(dev, &fluid_shader, NULL, &fluid) == RES_OK);
+
+ /* Create the solid medium */
+ solid_shader.calorific_capacity = solid_get_calorific_capacity;
+ solid_shader.thermal_conductivity = solid_get_thermal_conductivity;
+ solid_shader.volumic_mass = solid_get_volumic_mass;
+ solid_shader.delta_solid = solid_get_delta;
+ solid_shader.delta_boundary = solid_get_delta_boundary;
+ solid_shader.temperature = temperature_unknown;
+ CHK(sdis_solid_create(dev, &solid_shader, NULL, &solid) == RES_OK);
+
+ /* Create the fluid/solid interface with no limit conidition */
+ interface_shader.convection_coef = null_convection_coef;
+ interface_shader.temperature = NULL;
+ CHK(sdis_interface_create
+ (dev, solid, fluid, &interface_shader, NULL, &Tnone) == RES_OK);
+
+ /* Create the fluid/solid interface with a fixed temperature of 300K */
+ CHK(sdis_data_create(dev, sizeof(struct interf),
+ ALIGNOF(struct interf), NULL, &data) == RES_OK);
+ interface_param = sdis_data_get(data);
+ interface_param->temperature = 300;
+ interface_shader.convection_coef = null_convection_coef;
+ interface_shader.temperature = interface_get_temperature;
+ CHK(sdis_interface_create
+ (dev, solid, fluid, &interface_shader, data, &T300) == RES_OK);
+ CHK(sdis_data_ref_put(data) == RES_OK);
+
+ /* Create the fluid/solid interface with a fixed temperature of 350K */
+ CHK(sdis_data_create(dev, sizeof(struct interf),
+ ALIGNOF(struct interf), NULL, &data) == RES_OK);
+ interface_param = sdis_data_get(data);
+ interface_param->temperature = 350;
+ interface_shader.convection_coef = null_convection_coef;
+ interface_shader.temperature = interface_get_temperature;
+ CHK(sdis_interface_create
+ (dev, solid, fluid, &interface_shader, data, &T350) == RES_OK);
+ CHK(sdis_data_ref_put(data) == RES_OK);
+
+ /* Create the solid/solid interface */
+ interface_shader.convection_coef = NULL;
+ interface_shader.temperature = NULL;
+ CHK(sdis_interface_create
+ (dev, solid, solid, &interface_shader, NULL, &solid_solid) == RES_OK);
+
+ /* Release the media */
+ CHK(sdis_medium_ref_put(solid) == RES_OK);
+ CHK(sdis_medium_ref_put(fluid) == RES_OK);
+
+ /* Register the square geometry */
+ FOR_EACH(i, 0, square_nvertices) {
+ sa_push(ctx.positions, square_vertices[i*2+0]);
+ sa_push(ctx.positions, square_vertices[i*2+1]);
+ }
+ FOR_EACH(i, 0, square_nsegments) {
+ sa_push(ctx.indices, square_indices[i*2+0]);
+ sa_push(ctx.indices, square_indices[i*2+1]);
+ }
+
+ /* Setup a disk at the center of the square */
+ nverts = 64;
+ FOR_EACH(i, 0, nverts) {
+ const float theta = (float)i * (2*(float)PI)/(float)nverts;
+ const float r = 0.25f; /* radius */
+ sa_push(ctx.positions, (float)cos(theta) * r + 0.5f);
+ sa_push(ctx.positions, (float)sin(theta) * r + 0.5f);
+ }
+ FOR_EACH(i, 0, nverts) {
+ sa_push(ctx.indices, i + square_nvertices);
+ sa_push(ctx.indices, (i+1)%nverts + square_nvertices);
+ }
+
+ /* Create the scene */
+ ctx.solid_fluid_Tnone = Tnone;
+ ctx.solid_fluid_T300 = T300;
+ ctx.solid_fluid_T350 = T350;
+ ctx.solid_solid = solid_solid;
+ nverts = sa_size(ctx.positions) / 2;
+ nsegs = sa_size(ctx.indices) / 2;
+ CHK(sdis_scene_2d_create(dev, nsegs, get_indices, get_interface, nverts,
+ get_position, &ctx, &scn) == RES_OK);
+
+ /* Release the scene data */
+ CHK(sdis_interface_ref_put(Tnone) == RES_OK);
+ CHK(sdis_interface_ref_put(T300) == RES_OK);
+ CHK(sdis_interface_ref_put(T350) == RES_OK);
+ CHK(sdis_interface_ref_put(solid_solid) == RES_OK);
+ sa_release(ctx.positions);
+ sa_release(ctx.indices);
+
+ /* Launch the solver */
+ pos[0] = 0.5;
+ pos[1] = 0.5;
+ time = INF;
+ CHK(sdis_solve_probe( scn, N, pos, time, 1.0, &estimator) == RES_OK);
+ CHK(sdis_estimator_get_realisation_count(estimator, &nreals) == RES_OK);
+ CHK(sdis_estimator_get_failure_count(estimator, &nfails) == RES_OK);
+ CHK(sdis_estimator_get_temperature(estimator, &T) == RES_OK);
+
+ /* Print the estimation results */
+ ref = 350 * pos[0] + (1-pos[0]) * 300;
+ printf("Temperature at (%g, %g) = %g ~ %g +/- %g\n",
+ SPLIT2(pos), ref, T.E, T.SE);
+ printf("#realisations: %lu; #failures: %lu\n",
+ (unsigned long)nreals, (unsigned long)nfails);
+
+ /* Check the results */
+ CHK(nfails + nreals == N);
+ CHK(eq_eps(T.E, ref, 3*T.SE));
+
+ /* Release data */
+ CHK(sdis_estimator_ref_put(estimator) == RES_OK);
+ CHK(sdis_scene_ref_put(scn) == RES_OK);
+ CHK(sdis_device_ref_put(dev) == RES_OK);
+
+ check_memory_allocator(&allocator);
+ mem_shutdown_proxy_allocator(&allocator);
+ CHK(mem_allocated_size() == 0);
+ return 0;
+
+}
diff --git a/src/test_sdis_utils.h b/src/test_sdis_utils.h
@@ -140,6 +140,27 @@ dump_mesh
}
static INLINE void
+dump_segments
+ (FILE* stream,
+ const double* pos,
+ const size_t npos,
+ const size_t* ids,
+ const size_t nids)
+{
+ size_t i;
+ CHK(pos != NULL && npos != 0);
+ CHK(ids != NULL && nids != 0);
+ FOR_EACH(i, 0, npos) {
+ fprintf(stream, "v %g %g 0\n", SPLIT2(pos+i*2));
+ }
+ FOR_EACH(i, 0, nids) {
+ fprintf(stream, "l %lu %lu\n",
+ (unsigned long)(ids[i*2+0] + 1),
+ (unsigned long)(ids[i*2+1] + 1));
+ }
+}
+
+static INLINE void
check_memory_allocator(struct mem_allocator* allocator)
{
if(MEM_ALLOCATED_SIZE(allocator)) {
