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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
/*
* Scan with multiple tasklets (Scan-scan-add)
*
*/
#include <stdint.h>
#include <stdio.h>
#include <defs.h>
#include <mram.h>
#include <alloc.h>
#include <perfcounter.h>
#include <handshake.h>
#include <barrier.h>
#include "../support/common.h"
__host dpu_arguments_t DPU_INPUT_ARGUMENTS;
__host dpu_results_t DPU_RESULTS[NR_TASKLETS];
// Array for communication between adjacent tasklets
T message[NR_TASKLETS];
T message_partial_count;
// Scan in each tasklet
static T scan(T *output, T *input){
output[0] = input[0];
#if UNROLL
#pragma unroll
for(unsigned int j = 1; j < REGS; j++) {
output[j] = output[j - 1] + input[j];
}
#else
for(unsigned int j = 1; j < REGS; j++) {
output[j] = output[j - 1] + input[j];
}
#endif
return output[REGS - 1];
}
// Handshake with adjacent tasklets
static T handshake_sync(T l_count, unsigned int tasklet_id){
T p_count;
// Wait and read message
if(tasklet_id != 0){
handshake_wait_for(tasklet_id - 1);
p_count = message[tasklet_id];
}
else
p_count = 0;
// Write message and notify
if(tasklet_id < NR_TASKLETS - 1){
message[tasklet_id + 1] = p_count + l_count;
handshake_notify();
}
return p_count;
}
// Barrier
BARRIER_INIT(my_barrier, NR_TASKLETS);
// Add in each tasklet
static void add(T *output, T p_count){
#if UNROLL
#pragma unroll
for(unsigned int j = 0; j < REGS; j++) {
output[j] += p_count;
}
#else
for(unsigned int j = 0; j < REGS; j++) {
output[j] += p_count;
}
#endif
}
extern int main_kernel1(void);
extern int main_kernel2(void);
int (*kernels[nr_kernels])(void) = {main_kernel1, main_kernel2};
int main(void) {
// Kernel
return kernels[DPU_INPUT_ARGUMENTS.kernel]();
}
// Scan-(handshake)scan
int main_kernel1() {
#if 1 // Comment out for appendix experiment
unsigned int tasklet_id = me();
#if PRINT
printf("tasklet_id = %u\n", tasklet_id);
#endif
if (tasklet_id == 0){ // Initialize once the cycle counter
mem_reset(); // Reset the heap
}
// Barrier
barrier_wait(&my_barrier);
dpu_results_t *result = &DPU_RESULTS[tasklet_id];
uint32_t input_size_dpu_bytes = DPU_INPUT_ARGUMENTS.size; // Input size per DPU in bytes
// Address of the current processing block in MRAM
uint32_t base_tasklet = tasklet_id << BLOCK_SIZE_LOG2;
uint32_t mram_base_addr_A = (uint32_t)DPU_MRAM_HEAP_POINTER;
uint32_t mram_base_addr_B = (uint32_t)(DPU_MRAM_HEAP_POINTER + input_size_dpu_bytes);
// Initialize a local cache to store the MRAM block
T *cache_A = (T *) mem_alloc(BLOCK_SIZE);
T *cache_B = (T *) mem_alloc(BLOCK_SIZE);
// Initialize shared variable
if(tasklet_id == NR_TASKLETS - 1)
message_partial_count = DPU_INPUT_ARGUMENTS.t_count;
// Barrier
barrier_wait(&my_barrier);
for(unsigned int byte_index = base_tasklet; byte_index < input_size_dpu_bytes; byte_index += BLOCK_SIZE * NR_TASKLETS){
// Load cache with current MRAM block
mram_read((const __mram_ptr void*)(mram_base_addr_A + byte_index), cache_A, BLOCK_SIZE);
// Scan in each tasklet
T l_count = scan(cache_B, cache_A);
// Sync with adjacent tasklets
T p_count = handshake_sync(l_count, tasklet_id);
// Barrier
barrier_wait(&my_barrier);
// Add in each tasklet
add(cache_B, message_partial_count + p_count);
// Write cache to current MRAM block
mram_write(cache_B, (__mram_ptr void*)(mram_base_addr_B + byte_index), BLOCK_SIZE);
// Total count in this DPU
if(tasklet_id == NR_TASKLETS - 1){
result->t_count = message_partial_count + p_count + l_count;
message_partial_count = result->t_count;
}
}
#endif
return 0;
}
// Add
int main_kernel2() {
unsigned int tasklet_id = me();
#if PRINT
printf("tasklet_id = %u\n", tasklet_id);
#endif
if (tasklet_id == 0){ // Initialize once the cycle counter
mem_reset(); // Reset the heap
}
// Barrier
barrier_wait(&my_barrier);
uint32_t input_size_dpu_bytes = DPU_INPUT_ARGUMENTS.size; // Input size per DPU in bytes
// Address of the current processing block in MRAM
uint32_t base_tasklet = tasklet_id << BLOCK_SIZE_LOG2;
uint32_t mram_base_addr_B = (uint32_t)(DPU_MRAM_HEAP_POINTER + input_size_dpu_bytes);
// Initialize a local cache to store the MRAM block
T *cache_A = (T *) mem_alloc(BLOCK_SIZE);
T t_count = DPU_INPUT_ARGUMENTS.t_count;
for(unsigned int byte_index = base_tasklet; byte_index < input_size_dpu_bytes; byte_index += BLOCK_SIZE * NR_TASKLETS){
// Load cache with current MRAM block
mram_read((__mram_ptr void const*)(mram_base_addr_B + byte_index), cache_A, BLOCK_SIZE);
// Add in each tasklet
add(cache_A, t_count);
// Write cache to current MRAM block
mram_write(cache_A, (__mram_ptr void*)(mram_base_addr_B + byte_index), BLOCK_SIZE);
}
return 0;
}
|
