2011-03-25 14:19:20 -05:00
|
|
|
// xfail-boot
|
|
|
|
// xfail-stage0
|
2011-04-19 15:35:49 -05:00
|
|
|
fn main() -> () {
|
2010-08-09 08:53:37 -05:00
|
|
|
log "===== WITHOUT THREADS =====";
|
2010-07-19 16:05:18 -05:00
|
|
|
test00(false);
|
2010-08-09 08:53:37 -05:00
|
|
|
log "====== WITH THREADS ======";
|
|
|
|
test00(true);
|
2010-07-19 16:05:18 -05:00
|
|
|
}
|
|
|
|
|
2011-04-19 15:35:49 -05:00
|
|
|
fn test00_start(chan[int] ch, int message, int count) {
|
2010-07-19 16:05:18 -05:00
|
|
|
log "Starting test00_start";
|
|
|
|
let int i = 0;
|
|
|
|
while (i < count) {
|
|
|
|
log "Sending Message";
|
|
|
|
ch <| message;
|
|
|
|
i = i + 1;
|
|
|
|
}
|
|
|
|
log "Ending test00_start";
|
|
|
|
}
|
|
|
|
|
2011-04-19 15:35:49 -05:00
|
|
|
fn test00(bool is_multithreaded) {
|
2010-08-09 08:53:37 -05:00
|
|
|
let int number_of_tasks = 16;
|
|
|
|
let int number_of_messages = 4;
|
|
|
|
|
2010-07-19 16:05:18 -05:00
|
|
|
log "Creating tasks";
|
|
|
|
|
|
|
|
let port[int] po = port();
|
|
|
|
let chan[int] ch = chan(po);
|
|
|
|
|
|
|
|
let int i = 0;
|
|
|
|
|
|
|
|
// Create and spawn tasks...
|
|
|
|
let vec[task] tasks = vec();
|
|
|
|
while (i < number_of_tasks) {
|
|
|
|
if (is_multithreaded) {
|
|
|
|
tasks += vec(
|
|
|
|
spawn thread test00_start(ch, i, number_of_messages));
|
|
|
|
} else {
|
|
|
|
tasks += vec(spawn test00_start(ch, i, number_of_messages));
|
|
|
|
}
|
2010-08-09 08:53:37 -05:00
|
|
|
i = i + 1;
|
2010-07-19 16:05:18 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
// Read from spawned tasks...
|
|
|
|
let int sum = 0;
|
|
|
|
for (task t in tasks) {
|
|
|
|
i = 0;
|
|
|
|
while (i < number_of_messages) {
|
|
|
|
let int value <- po;
|
|
|
|
sum += value;
|
|
|
|
i = i + 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// Join spawned tasks...
|
|
|
|
for (task t in tasks) {
|
|
|
|
join t;
|
|
|
|
}
|
|
|
|
|
|
|
|
log "Completed: Final number is: ";
|
2010-08-09 08:53:37 -05:00
|
|
|
// check (sum == (((number_of_tasks * (number_of_tasks - 1)) / 2) *
|
|
|
|
// number_of_messages));
|
|
|
|
check (sum == 480);
|
|
|
|
}
|