1 /* Copyright (c) 2006-2017. The SimGrid Team. All rights reserved. */
3 /* This program is free software; you can redistribute it and/or modify it
4 * under the terms of the license (GNU LGPL) which comes with this package. */
7 #include "src/msg/msg_private.h"
9 #include "simgrid/s4u/Comm.hpp"
10 #include "simgrid/s4u/Mailbox.hpp"
12 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(s4u_comm,s4u_activity,"S4U asynchronous communications");
18 if (state_ == started && not detached_ && (pimpl_ == nullptr || pimpl_->state == SIMIX_RUNNING)) {
19 XBT_INFO("Comm %p freed before its completion. Detached: %d, State: %d", this, detached_, state_);
20 if (pimpl_ != nullptr)
21 XBT_INFO("pimpl_->state: %d", pimpl_->state);
23 XBT_INFO("pimpl_ is null");
24 xbt_backtrace_display_current();
30 s4u::CommPtr Comm::send_init(s4u::MailboxPtr chan)
32 CommPtr res = CommPtr(new s4u::Comm());
33 res->sender_ = SIMIX_process_self();
38 s4u::CommPtr Comm::recv_init(s4u::MailboxPtr chan)
40 CommPtr res = CommPtr(new s4u::Comm());
41 res->receiver_ = SIMIX_process_self();
46 void Comm::setRate(double rate) {
47 xbt_assert(state_==inited);
51 void Comm::setSrcData(void * buff) {
52 xbt_assert(state_==inited);
53 xbt_assert(dstBuff_ == nullptr, "Cannot set the src and dst buffers at the same time");
56 void Comm::setSrcDataSize(size_t size){
57 xbt_assert(state_==inited);
60 void Comm::setSrcData(void * buff, size_t size) {
61 xbt_assert(state_==inited);
63 xbt_assert(dstBuff_ == nullptr, "Cannot set the src and dst buffers at the same time");
67 void Comm::setDstData(void ** buff) {
68 xbt_assert(state_==inited);
69 xbt_assert(srcBuff_ == nullptr, "Cannot set the src and dst buffers at the same time");
72 size_t Comm::getDstDataSize(){
73 xbt_assert(state_==finished);
76 void Comm::setDstData(void ** buff, size_t size) {
77 xbt_assert(state_==inited);
79 xbt_assert(srcBuff_ == nullptr, "Cannot set the src and dst buffers at the same time");
85 xbt_assert(state_ == inited);
87 if (srcBuff_ != nullptr) { // Sender side
88 pimpl_ = simcall_comm_isend(sender_, mailbox_->getImpl(), remains_, rate_,
89 srcBuff_, srcBuffSize_,
90 matchFunction_, cleanFunction_, copyDataFunction_,
91 userData_, detached_);
92 } else if (dstBuff_ != nullptr) { // Receiver side
93 pimpl_ = simcall_comm_irecv(receiver_, mailbox_->getImpl(), dstBuff_, &dstBuffSize_,
94 matchFunction_, copyDataFunction_,
98 xbt_die("Cannot start a communication before specifying whether we are the sender or the receiver");
103 xbt_assert(state_ == started || state_ == inited);
105 if (state_ == started)
106 simcall_comm_wait(pimpl_, -1/*timeout*/);
107 else { // state_ == inited. Save a simcall and do directly a blocking send/recv
108 if (srcBuff_ != nullptr) {
109 simcall_comm_send(sender_, mailbox_->getImpl(), remains_, rate_,
110 srcBuff_, srcBuffSize_,
111 matchFunction_, copyDataFunction_,
112 userData_, -1 /*timeout*/);
114 simcall_comm_recv(receiver_, mailbox_->getImpl(), dstBuff_, &dstBuffSize_,
115 matchFunction_, copyDataFunction_,
116 userData_, -1/*timeout*/, rate_);
121 void Comm::wait(double timeout) {
122 xbt_assert(state_ == started || state_ == inited);
124 if (state_ == started) {
125 simcall_comm_wait(pimpl_, timeout);
130 // It's not started yet. Do it in one simcall
131 if (srcBuff_ != nullptr) {
132 simcall_comm_send(sender_, mailbox_->getImpl(), remains_, rate_,
133 srcBuff_, srcBuffSize_,
134 matchFunction_, copyDataFunction_,
137 simcall_comm_recv(receiver_, mailbox_->getImpl(), dstBuff_, &dstBuffSize_,
138 matchFunction_, copyDataFunction_,
139 userData_, timeout, rate_);
144 void Comm::send_detached(MailboxPtr dest, void* data, int simulatedSize)
146 s4u::CommPtr res = CommPtr(s4u::Comm::send_init(dest));
147 res->setRemains(simulatedSize);
148 res->srcBuff_ = data;
149 res->srcBuffSize_ = sizeof(void*);
150 res->detached_ = true;
153 s4u::CommPtr Comm::send_async(MailboxPtr dest, void* data, int simulatedSize)
155 s4u::CommPtr res = CommPtr(s4u::Comm::send_init(dest));
156 res->setRemains(simulatedSize);
157 res->srcBuff_ = data;
158 res->srcBuffSize_ = sizeof(void*);
163 s4u::CommPtr Comm::recv_async(MailboxPtr dest, void** data)
165 s4u::CommPtr res = CommPtr(s4u::Comm::recv_init(dest));
166 res->setDstData(data, sizeof(*data));
173 simgrid::kernel::activity::CommImpl* commPimpl = static_cast<simgrid::kernel::activity::CommImpl*>(pimpl_);
177 xbt_assert(state_ == inited || state_ == started || state_ == finished);
179 if (state_ == finished)
180 xbt_die("Don't call test on a finished comm.");
182 if (state_ == inited) {
186 if(simcall_comm_test(pimpl_)){
193 void intrusive_ptr_release(simgrid::s4u::Comm* c)
195 if (c->refcount_.fetch_sub(1, std::memory_order_release) == 1) {
196 std::atomic_thread_fence(std::memory_order_acquire);
200 void intrusive_ptr_add_ref(simgrid::s4u::Comm* c)
202 c->refcount_.fetch_add(1, std::memory_order_relaxed);