Mercurial > pub > dyncall > dyncall
diff test/call_suite_aggrs/globals.c @ 485:0c68b3f91367
- renamed suite_aggrs to call_suite_aggrs for consistency (callback version will be called callback_suite_aggrs)
author | Tassilo Philipp |
---|---|
date | Thu, 17 Mar 2022 15:41:26 +0100 |
parents | test/suite_aggrs/globals.c@0f3b6898078d |
children | 29d09d10ecd9 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/call_suite_aggrs/globals.c Thu Mar 17 15:41:26 2022 +0100 @@ -0,0 +1,119 @@ +/* + + Package: dyncall + Library: test + File: test/call_suite_aggrs/globals.c + Description: + License: + + Copyright (c) 2022 Tassilo Philipp <tphilipp@potion-studios.com> + + Permission to use, copy, modify, and distribute this software for any + purpose with or without fee is hereby granted, provided that the above + copyright notice and this permission notice appear in all copies. + + THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES + WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF + MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR + ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES + WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN + ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF + OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. + +*/ + +#include <stdlib.h> +#include "globals.h" +#include <float.h> +#include <string.h> + +#define X(CH,T) T *V_##CH; T *K_##CH; +DEF_TYPES +#undef X + +#define AGGR_MISALIGN 1 + +static double rand_d() { return ( ( (double) rand() ) / ( (double) RAND_MAX ) ); } + +/* fill mem with random values, make sure no float aligned memory location + * results in a NaN, as they always compare to false; so avaid all ones in + * exporent (for simplicity we just look at first 7 exponent bits and make sure + * they aren't all set, which would work for all IEEE754 precision formats) */ +static void rand_mem__fp_friendly(void* p, size_t s) +{ + int i; + for(i = 0; i<s; ++i) { + char* c = (char*)p; + c[i] = (char)rand(); /* slowish, byte by byte, but whatev */ + if((c[i]&0x7f) == 0x7f) + c[i] ^= 1; + } +} + +int get_max_aggr_size() +{ + static int s = 0; + int i; + if(s == 0) { + for(i=0; i<G_naggs; ++i) + if(G_agg_sizes[i] > s) + s = G_agg_sizes[i]; + } + return s; +} + +void init_test_data() +{ + int i; + int maxaggrsize = get_max_aggr_size(); +#define X(CH,T) V_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); K_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); +DEF_TYPES +#undef X + + for(i=0;i<G_maxargs+1;++i) { + K_c[i] = (char) (((rand_d()-0.5)*2) * (1<<7)); + K_s[i] = (short) (((rand_d()-0.5)*2) * (1<<(sizeof(short)*8-1))); + K_i[i] = (int) (((rand_d()-0.5)*2) * (1<<(sizeof(int)*8-2))); + K_j[i] = (long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2))); + K_l[i] = (long long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2))); + K_p[i] = (void*) (long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(void*)*8-1))); + K_f[i] = (float) (rand_d() * FLT_MAX); + K_d[i] = (double) (((rand_d()-0.5)*2) * DBL_MAX); + K_a[i] = malloc(maxaggrsize+AGGR_MISALIGN); + rand_mem__fp_friendly(K_a[i], maxaggrsize+AGGR_MISALIGN); + K_a[i] = (char*)K_a[i]+AGGR_MISALIGN; + } +} + +void clear_V() +{ + static int aggr_init = 0; + int maxaggrsize = get_max_aggr_size(); + + int i; + for(i=0;i<G_maxargs+1;++i) { + if(aggr_init) + free((char*)V_a[i]-AGGR_MISALIGN); +#define X(CH,T) V_##CH[i] = (T) 0; +DEF_TYPES +#undef X + V_a[i] = malloc(maxaggrsize+AGGR_MISALIGN); + memset(V_a[i], 0, maxaggrsize+AGGR_MISALIGN); + V_a[i] = (char*)V_a[i]+AGGR_MISALIGN; + } + aggr_init = 1; +} + +void deinit_test_data() +{ + int i; + for(i=0;i<G_maxargs+1;++i) { + free((char*)V_a[i]-AGGR_MISALIGN); + free((char*)K_a[i]-AGGR_MISALIGN); + } + +#define X(CH,T) free(V_##CH); free(K_##CH); +DEF_TYPES +#undef X +} +