1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#ifndef EMUGENS_COMMON_H
#define EMUGENS_COMMON_H
#include "csoundCore.h"
#define INITERR(m) (csound->InitError(csound, "%s", m))
#define INITERRF(fmt, ...) (csound->InitError(csound, fmt, __VA_ARGS__))
// VL this is needed for -Wformat-security
#define MSG(m) (csound->Message(csound, "%s", m))
#define MSGF(fmt, ...) (csound->Message(csound, fmt, __VA_ARGS__))
#define PERFERR(m) (csound->PerfError(csound, &(p->h), "%s", m))
#define PERFERRF(fmt, ...) (csound->PerfError(csound, &(p->h), fmt, __VA_ARGS__))
#define CHECKARR1D(arr) \
if((arr)->dimensions != 1) \
return INITERRF(Str("Array should be of 1D, but has %d dimensions"), \
(arr)->dimensions);
// This must be called for each array at each perf pass
// (at init call tabinit)
#define ARRAY_ENSURESIZE_PERF(csound, arr, size) tabcheck(csound, arr, size, &(p->h))
// This is deprecated, we use the new methods (6.13) tabinit and tabcheck
// as defined in arrays.h
// Ensure the existence and size of the array at i-time ONLY if
// array has not been initialized, so we don't need to check intialization
// at k-time
static inline void
tabensure_init(CSOUND *csound, ARRAYDAT *p, int size)
{
size_t ss;
if (p->dimensions==0) {
p->dimensions = 1;
p->sizes = (int32_t*)csound->Malloc(csound, sizeof(int32_t));
}
if (p->data == NULL) {
CS_VARIABLE* var = p->arrayType->createVariable(csound, NULL);
p->arrayMemberSize = var->memBlockSize;
ss = p->arrayMemberSize*size;
p->data = (MYFLT*)csound->Calloc(csound, ss);
p->allocated = ss;
} else if( (ss = p->arrayMemberSize*size) > p->allocated) {
p->data = (MYFLT*) csound->ReAlloc(csound, p->data, ss);
p->allocated = ss;
}
p->sizes[0] = size;
p->dimensions = 1;
}
/*
#define TABENSURE_PERF(csound, arr, size) {
if(UNLIKELY(arr->sizes[0] != size)) { \
size_t _ss = arr->arrayMemberSize*size; \
if (_ss > arr->allocated) { \
return PERFERRF(Str("Array is too small (allocated %zu " \
"< needed %zu), but cannot allocate " \
"during performance pass. Allocate a " \
"bigger array "at init time"), \
arr->allocated, _ss); \
} \
arr->sizes[0] = size; \
}}
*/
static inline
int em_isnan(MYFLT d) {
union {
unsigned long long l;
double d;
} u;
u.d=d;
return (u.l==0x7FF8000000000000ll ||
u.l==0x7FF0000000000000ll ||
u.l==0xfff8000000000000ll);
}
static inline
int em_isinf(MYFLT d) {
union {
unsigned long long l;
double d;
} u;
u.d=d;
return (u.l==0x7FF0000000000000ll?1:u.l==0xFFF0000000000000ll?-1:0);
}
static inline
int em_isinfornan(MYFLT d) {
union {
unsigned long long l;
double d;
} u;
u.d=d;
return (u.l==0x7FF8000000000000ll ||
u.l==0x7FF0000000000000ll ||
u.l==0xfff8000000000000ll ||
u.l==0xFFF0000000000000ll);
}
#endif
|
