Mercurial > pub > dyncall > dyncall

comparison test/call_suite/globals.c @ 491:e3bf15207d93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- added unsigned types to call_suite test
author Tassilo Philipp
date Mon, 21 Mar 2022 10:02:04 +0100
parents 94c7904977aa
children c9c546f8598b
comparison
equal deleted inserted replaced
490:17287342e273 491:e3bf15207d93
38 int i; 38 int i;
39 #define X(CH,T) V_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); K_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); 39 #define X(CH,T) V_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1)); K_##CH = (T*) malloc(sizeof(T)*(G_maxargs+1));
40 DEF_TYPES 40 DEF_TYPES
41 #undef X 41 #undef X
42 for(i=0;i<G_maxargs+1;++i) { 42 for(i=0;i<G_maxargs+1;++i) {
43 K_c[i] = (char) (((rand_d()-0.5)*2) * (1<<7)); 43 K_c[i] = (char) (((rand_d()-0.5)*2) * (1<<7));
44 K_s[i] = (short) (((rand_d()-0.5)*2) * (1<<(sizeof(short)*8-1))); 44 K_s[i] = (short) (((rand_d()-0.5)*2) * (1<<(sizeof(short)*8-1)));
45 K_i[i] = (int) (((rand_d()-0.5)*2) * (1<<(sizeof(int)*8-2))); 45 K_i[i] = (int) (((rand_d()-0.5)*2) * (1<<(sizeof(int)*8-2)));
46 K_j[i] = (long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2))); 46 K_j[i] = (long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2)));
47 K_l[i] = (long long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2))); 47 K_l[i] = (long long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2)));
48 K_p[i] = (void*) (long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(void*)*8-1))); 48 K_C[i] = (unsigned char) (((rand_d()-0.5)*2) * (1<<7));
49 K_f[i] = (float) (rand_d() * FLT_MAX); 49 K_S[i] = (unsigned short) (((rand_d()-0.5)*2) * (1<<(sizeof(short)*8-1)));
50 K_d[i] = (double) (((rand_d()-0.5)*2) * DBL_MAX); 50 K_I[i] = (unsigned int) (((rand_d()-0.5)*2) * (1<<(sizeof(int)*8-2)));
51 K_J[i] = (unsigned long) (((rand_d()-0.5)*2) * (1L<<(sizeof(long)*8-2)));
52 K_L[i] = (unsigned long long)(((rand_d()-0.5)*2) * (1LL<<(sizeof(long long)*8-2)));
53 K_p[i] = (void*)(long) (((rand_d()-0.5)*2) * (1LL<<(sizeof(void*)*8-1)));
54 K_f[i] = (float) (rand_d() * FLT_MAX);
55 K_d[i] = (double) (((rand_d()-0.5)*2) * DBL_MAX);
51 } 56 }
52 } 57 }
53 58
54 void clear_V() 59 void clear_V()
55 { 60 {
65 { 70 {
66 #define X(CH,T) free(V_##CH); free(K_##CH); 71 #define X(CH,T) free(V_##CH); free(K_##CH);
67 DEF_TYPES 72 DEF_TYPES
68 #undef X 73 #undef X
69 } 74 }
75