/* pmm - parallel matrix multiplication "double diffusion" */
-/* Copyright (c) 2006-2013. The SimGrid Team.
+/* Copyright (c) 2006-2015. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
-#include "msg/msg.h"
+
+#include "simgrid/msg.h"
#include "xbt/matrix.h"
#include "xbt/log.h"
static void broadcast_matrix(xbt_matrix_t M, int num_nodes, int *nodes);
static void get_sub_matrix(xbt_matrix_t *sM, int selfid);
static void receive_results(result_t *results);
-static void task_cleanup(void *arg);
int node(int argc, char **argv)
{
msg_error_t err;
snprintf(self_mbox, MAILBOX_NAME_SIZE - 1, "%d", selfid);
err = MSG_task_receive(&task, self_mbox);
- if (err != MSG_OK)
- xbt_die("Error while receiving from %s (%d)", self_mbox, (int)err);
+ xbt_assert(err == MSG_OK, "Error while receiving from %s (%d)",
+ self_mbox, (int)err);
job = (node_job_t)MSG_task_get_data(task);
MSG_task_destroy(task);
XBT_VERB("Got Job (%d,%d)", job->row, job->col);
snprintf(node_mbox, MAILBOX_NAME_SIZE - 1, "%d", nodes[node]);
sM = xbt_matrix_new_sub(M, NODE_MATRIX_SIZE, NODE_MATRIX_SIZE, 0, 0, NULL);
task = MSG_task_create("sub-matrix", 100, 100, sM);
- MSG_task_dsend(task, node_mbox, task_cleanup);
+ MSG_task_dsend(task, node_mbox, NULL);
XBT_DEBUG("sub-matrix sent to %s", node_mbox);
}
MSG_task_destroy(task);
}
-static void task_cleanup(void *arg){
- msg_task_t task = (msg_task_t)arg;
- xbt_matrix_t m = (xbt_matrix_t)MSG_task_get_data(task);
- xbt_matrix_free(m);
- MSG_task_destroy(task);
-}
-
/**
* \brief Main function.
*/
#endif
XBT_CRITICAL("Simulated time: %g", MSG_get_clock());
- if (res == MSG_OK)
- return 0;
- else
- return 1;
+ return res != MSG_OK;
}
static void create_jobs(xbt_matrix_t A, xbt_matrix_t B, node_job_t *jobs)