Mercurial > pub > dyncall > dyncall

comparison test/call_suite_aggrs/globals.c @ 515:c9c546f8598b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- added _Bool type to call_suite* tests
author Tassilo Philipp
date Sun, 10 Apr 2022 21:05:33 +0200
parents 29d09d10ecd9
children d60f741e5eae
comparison
equal deleted inserted replaced
514:01f928eb9584 515:c9c546f8598b
69 #define X(CH,T) V_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); K_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); 69 #define X(CH,T) V_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); K_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1));
70 DEF_TYPES 70 DEF_TYPES
71 #undef X 71 #undef X
72 72
73 for(i=0;i<G_maxargs+1;++i) { 73 for(i=0;i<G_maxargs+1;++i) {
74 K_B[i] = (DCbool) ((int)rand_d() & 1);
74 K_c[i] = (char) (((rand_d()-0.5)*2) * (1<<7)); 75 K_c[i] = (char) (((rand_d()-0.5)*2) * (1<<7));
75 K_s[i] = (short) (((rand_d()-0.5)*2) * (1<<(sizeof(short)*8-1))); 76 K_s[i] = (short) (((rand_d()-0.5)*2) * (1<<(sizeof(short)*8-1)));
76 K_i[i] = (int) (((rand_d()-0.5)*2) * (1<<(sizeof(int)*8-2))); 77 K_i[i] = (int) (((rand_d()-0.5)*2) * (1<<(sizeof(int)*8-2)));
77 K_j[i] = (long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2))); 78 K_j[i] = (long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2)));
78 K_l[i] = (long long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2))); 79 K_l[i] = (long long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2)));