{
tracker_answer_t a = (tracker_answer_t)data;
xbt_dynar_free(&a->peers);
- free(a);
+ xbt_free(a);
}
static int is_in_list(const_xbt_dynar_t peers, int id)
static void broadcaster_destroy(broadcaster_t bc)
{
- free(bc->pending_sends);
- free(bc->mailboxes);
- free(bc);
+ xbt_free(bc->pending_sends);
+ xbt_free(bc->mailboxes);
+ xbt_free(bc);
}
/** Emitter function */
p->total_pieces = msg->num_pieces;
XBT_DEBUG("Peer %s got a 'BUILD_CHAIN' message (prev: %s / next: %s)", sg_mailbox_get_name(p->me),
p->prev ? sg_mailbox_get_name(p->prev) : NULL, p->next ? sg_mailbox_get_name(p->next) : NULL);
- free(msg);
+ xbt_free(msg);
}
static void peer_forward_file(peer_t p)
static void peer_delete(peer_t p)
{
- free(p->pending_recvs);
- free(p->pending_sends);
+ xbt_free(p->pending_recvs);
+ xbt_free(p->pending_sends);
- free(p);
+ xbt_free(p);
}
void peer(int argc, char* argv[])
double* payload = (double*)sg_mailbox_get(mailbox);
if (*payload == FINALIZE) {
- free(payload); /* - Exit if 'finalize' is received */
+ xbt_free(payload); /* - Exit if 'finalize' is received */
break;
}
sg_actor_execute(*payload); /* - Otherwise, process the received number of flops*/
- free(payload);
+ xbt_free(payload);
}
XBT_INFO("I'm done. See you!");
}
XBT_INFO("%s received from mailbox(%s)", pr_name, mbox_name);
if (*payload == FINALIZE) {
- free(payload);
+ xbt_free(payload);
break;
}
sg_actor_execute(*payload);
XBT_INFO("%s executed", pr_name);
- free(payload);
+ xbt_free(payload);
}
}
}
XBT_INFO("# Goodbye now!");
- free(vms);
+ xbt_free(vms);
}
int main(int argc, char* argv[])
for (int i = 0; i < 2; i++)
worker_pms[i] = pms[i + 1];
- free(pms);
+ xbt_free(pms);
sg_actor_t actor = sg_actor_init("master", master_pm);
sg_actor_set_data(actor, worker_pms);
simgrid_run();
XBT_INFO("Bye (simulation time %g)", simgrid_get_clock());
- free(worker_pms);
+ xbt_free(worker_pms);
return 0;
}
XBT_INFO("%s:%s to %s:%s => %g sec", sg_host_get_name(priv->tx_host), sg_actor_get_name(priv->tx_proc), host_name,
pr_name, clock_end - priv->clock_sta);
- free(priv);
+ xbt_free(priv);
}
static void launch_communication_worker(sg_host_t tx_host, sg_host_t rx_host)
/* Now that all message exchanges were initiated, wait for their completion in one single call */
sg_comm_wait_all(pending_comms, pending_comms_count);
- free(pending_comms);
- free(mboxes);
+ xbt_free(pending_comms);
+ xbt_free(mboxes);
XBT_INFO("Goodbye now!");
}
changed_pos);
}
- free(pending_comms);
- free(mboxes);
+ xbt_free(pending_comms);
+ xbt_free(mboxes);
XBT_INFO("Goodbye now!");
}
const kademlia_message_t msg = (kademlia_message_t)message;
if (msg)
answer_free(msg->answer);
- free(msg);
+ xbt_free(msg);
}
} else {
handle_find_node(node, msg);
}
- answer_free(msg->answer);
- free(msg);
+ free_message(msg);
} else {
sg_actor_sleep_for(1);
}
timeout += simgrid_get_clock() - time_beginreceive;
time_beginreceive = simgrid_get_clock();
}
- answer_free(msg->answer);
- free(msg);
+ free_message(msg);
} else {
sg_actor_sleep_for(1);
}
XBT_INFO("%d activities remain pending", pending_execs_count);
}
- free(pending_execs);
+ xbt_free(pending_execs);
}
int main(int argc, char* argv[])
break;
case SG_ERROR_NETWORK:
XBT_INFO("Mmh. The communication with '%s' failed. Nevermind. Let's keep going!", mailbox_name);
- free(payload);
+ xbt_free(payload);
break;
case SG_ERROR_TIMEOUT:
XBT_INFO("Mmh. Got timeouted while speaking to '%s'. Nevermind. Let's keep going!", mailbox_name);
- free(payload);
+ xbt_free(payload);
break;
default:
xbt_die("Unexpected behavior");
switch (sg_comm_wait_for(comm, 1.0)) {
case SG_ERROR_NETWORK:
XBT_INFO("Mmh. Can't reach '%s'! Nevermind. Let's keep going!", mailbox_name);
- free(payload);
+ xbt_free(payload);
break;
case SG_ERROR_TIMEOUT:
XBT_INFO("Mmh. Got timeouted while speaking to '%s'. Nevermind. Let's keep going!", mailbox_name);
- free(payload);
+ xbt_free(payload);
break;
case SG_OK:
/* nothing */
sg_error_t retcode = sg_comm_wait(comm);
if (retcode == SG_OK) {
if (*payload == FINALIZE) {
- free(payload);
+ xbt_free(payload);
break;
} else {
double comp_size = *payload;
- free(payload);
+ xbt_free(payload);
XBT_INFO("Start execution...");
sg_actor_execute(comp_size);
XBT_INFO("Execution complete.");
printf("Alltoallv TEST COMPLETE.\n");
fflush(stdout);
}
- free(sdispls);
- free(rdispls);
- free(recvcounts);
- free(sendcounts);
- free(rbuf);
- free(sbuf);
+ xbt_free(sdispls);
+ xbt_free(rdispls);
+ xbt_free(recvcounts);
+ xbt_free(sendcounts);
+ xbt_free(rbuf);
+ xbt_free(sbuf);
MPI_Finalize();
return 0;
fflush(stdout);
}
}
- free(sb);
- free(rb);
+ xbt_free(sb);
+ xbt_free(rb);
MPI_Finalize();
return EXIT_SUCCESS;
}
the_global_rank);
SMPI_thread_create();
t->f(t->param);
- free(t);
+ xbt_free(t);
}
static void mpi_thread_create(const char* name, void* (*f)(void*), void* param)
MPI_Error_string(ret, err_string, &length);
XBT_INFO("%d request done, return %s", rank, err_string);
XBT_INFO("%d still has MPI rank %d and global variable %d", param->rank, rank, global_rank);
- free(param);
+ xbt_free(param);
return NULL;
}