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
|
/*
VASP modular - vector assembling signal processor / objects for Max/MSP and PD
Copyright (c) 2002 Thomas Grill (xovo@gmx.net)
For information on usage and redistribution, and for a DISCLAIMER OF ALL
WARRANTIES, see the file, "license.txt," in this distribution.
*/
#ifndef __VASP_OPLOOP_H
#define __VASP_OPLOOP_H
#define _D_BLOCK 4096
#define _D_MIN(a,b) ((a) < (b)?(a):(b))
#ifdef FLEXT_THREADS
/*
#define _D_LOOP(VAR,LEN) { \
register I __i__; \
for(__i__ = 0; __i__ < LEN; flext_base::ThrYield()) { \
I __m__ = _D_MIN(LEN,__i__+_D_BLOCK); for(; (VAR = __i__) < __m__; ++__i__) {
#define _E_LOOP } if(__i__ < __m__) break; }}
*/
#define _D_LOOP(VAR,LEN) { \
for(VAR = 0; VAR < LEN; flext_base::ThrYield()) { \
register const I __m__ = _D_MIN(LEN,VAR+_D_BLOCK); \
for(; VAR < __m__; ++VAR) {
#define _E_LOOP }}}
#define _D_WHILE(COND) { \
for(; (COND) ; flext_base::ThrYield()) { \
register I __i__ = 0; \
for(; __i__ < _D_BLOCK && (COND); ++__i__) {
#define _E_WHILE } if(__i__ < _D_BLOCK) break; }}
#else
#define _D_LOOP(VAR,LEN) { \
for(VAR = 0; VAR < LEN; ++VAR) {
#define _E_LOOP }}
#define _D_WHILE(COND) { \
while(COND) {
#define _E_WHILE }}
#endif
#define _DE_WHILE(COND,BODY) { _D_WHILE(COND) BODY; _E_WHILE }
#define _DF_LOOP(VAR,LEN,BODY) { _D_LOOP(VAR,LEN) BODY; _E_LOOP }
#ifdef VASP_COMPACT
#define _DE_LOOP(VAR,LEN,BODY) _DF_LOOP(VAR,LEN,BODY)
#else
#ifdef FLEXT_THREADS
#define _DE_LOOP(VAR,LEN,BODY) { \
for(VAR = 0; VAR < LEN; flext_base::ThrYield()) { \
register const I __m__ = _D_MIN(LEN,VAR+_D_BLOCK); \
for(; VAR <= __m__-4; ) { \
BODY; ++VAR; \
BODY; ++VAR; \
BODY; ++VAR; \
BODY; ++VAR; \
} \
for(; VAR < __m__; ++VAR) { \
BODY; \
} \
} \
}
#else
#define _DE_LOOP(VAR,LEN,BODY) { \
for(VAR = 0; VAR <= LEN-4; ) { \
BODY; ++VAR; \
BODY; ++VAR; \
BODY; ++VAR; \
BODY; ++VAR; \
} \
for(; VAR < LEN; ++VAR) { \
BODY; \
} \
}
#endif
#endif
#define _DQ_LOOP(UNROLL,VAR,LEN,BODY) { if(UNROLL) _DE_LOOP(VAR,LEN,BODY) else _DF_LOOP(VAR,LEN,BODY) }
#endif
|
