Mercurial > pub > dyncall > dyncall

comparison test/callback_suite_aggrs/globals.c @ 548:a6d00ee46731

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- dyncallback test: added aggregate arg bounds check
author Tassilo Philipp
date Mon, 20 Jun 2022 11:04:20 +0200
parents cd46e111bc4c
children d60f741e5eae
comparison
equal deleted inserted replaced
547:917d5d213815 548:a6d00ee46731
83 K_J[i] = (unsigned long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2))); 83 K_J[i] = (unsigned long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2)));
84 K_L[i] = (unsigned long long)(((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2))); 84 K_L[i] = (unsigned long long)(((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2)));
85 K_p[i] = (void*)(long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(void*)*8-1))); 85 K_p[i] = (void*)(long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(void*)*8-1)));
86 K_f[i] = (float) (rand_d() * FLT_MAX); 86 K_f[i] = (float) (rand_d() * FLT_MAX);
87 K_d[i] = (double) (((rand_d()-0.5)*2) * DBL_MAX); 87 K_d[i] = (double) (((rand_d()-0.5)*2) * DBL_MAX);
88 K_a[i] = malloc(maxaggrsize+AGGR_MISALIGN); 88 K_a[i] = malloc(maxaggrsize+AGGR_MISALIGN+AGGR_BND_CHECK_PAD);
89 rand_mem__fp_friendly(K_a[i], maxaggrsize+AGGR_MISALIGN); 89 rand_mem__fp_friendly(K_a[i], maxaggrsize+AGGR_MISALIGN+AGGR_BND_CHECK_PAD);
90 K_a[i] = (char*)K_a[i]+AGGR_MISALIGN; 90 K_a[i] = (char*)K_a[i]+AGGR_MISALIGN;
91 } 91 }
92 } 92 }
93 93
94 void clear_V() 94 void clear_V()
101 if(aggr_init) 101 if(aggr_init)
102 free((char*)V_a[i]-AGGR_MISALIGN); 102 free((char*)V_a[i]-AGGR_MISALIGN);
103 #define X(CH,T) V_##CH[i] = (T) 0; 103 #define X(CH,T) V_##CH[i] = (T) 0;
104 DEF_TYPES 104 DEF_TYPES
105 #undef X 105 #undef X
106 V_a[i] = malloc(maxaggrsize+AGGR_MISALIGN); 106 V_a[i] = malloc(maxaggrsize+AGGR_MISALIGN+AGGR_BND_CHECK_PAD);
107 memset(V_a[i], 0, maxaggrsize+AGGR_MISALIGN); 107 memset(V_a[i], 0, maxaggrsize+AGGR_MISALIGN+AGGR_BND_CHECK_PAD);
108 V_a[i] = (char*)V_a[i]+AGGR_MISALIGN; 108 V_a[i] = (char*)V_a[i]+AGGR_MISALIGN;
109 } 109 }
110 aggr_init = 1; 110 aggr_init = 1;
111 } 111 }
112 112