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");
100 while (refcount_ > 1) { // Pass all the refcounts we had to the underlying pimpl since we are delegating the
101 // refcounting to it afterward
108 xbt_assert(state_ == started || state_ == inited);
110 if (state_ == started)
111 simcall_comm_wait(pimpl_, -1/*timeout*/);
112 else { // state_ == inited. Save a simcall and do directly a blocking send/recv
113 if (srcBuff_ != nullptr) {
114 simcall_comm_send(sender_, mailbox_->getImpl(), remains_, rate_,
115 srcBuff_, srcBuffSize_,
116 matchFunction_, copyDataFunction_,
117 userData_, -1 /*timeout*/);
119 simcall_comm_recv(receiver_, mailbox_->getImpl(), dstBuff_, &dstBuffSize_,
120 matchFunction_, copyDataFunction_,
121 userData_, -1/*timeout*/, rate_);
126 void Comm::wait(double timeout) {
127 xbt_assert(state_ == started || state_ == inited);
129 if (state_ == started) {
130 simcall_comm_wait(pimpl_, timeout);
135 // It's not started yet. Do it in one simcall
136 if (srcBuff_ != nullptr) {
137 simcall_comm_send(sender_, mailbox_->getImpl(), remains_, rate_,
138 srcBuff_, srcBuffSize_,
139 matchFunction_, copyDataFunction_,
142 simcall_comm_recv(receiver_, mailbox_->getImpl(), dstBuff_, &dstBuffSize_,
143 matchFunction_, copyDataFunction_,
144 userData_, timeout, rate_);
149 void Comm::send_detached(MailboxPtr dest, void* data, int simulatedSize)
151 s4u::CommPtr res = CommPtr(s4u::Comm::send_init(dest));
152 res->setRemains(simulatedSize);
153 res->srcBuff_ = data;
154 res->srcBuffSize_ = sizeof(void*);
155 res->detached_ = true;
158 s4u::CommPtr Comm::send_async(MailboxPtr dest, void* data, int simulatedSize)
160 s4u::CommPtr res = CommPtr(s4u::Comm::send_init(dest));
161 res->setRemains(simulatedSize);
162 res->srcBuff_ = data;
163 res->srcBuffSize_ = sizeof(void*);
168 s4u::CommPtr Comm::recv_async(MailboxPtr dest, void** data)
170 s4u::CommPtr res = CommPtr(s4u::Comm::recv_init(dest));
171 res->setDstData(data, sizeof(*data));
178 simgrid::kernel::activity::Comm* commPimpl = static_cast<simgrid::kernel::activity::Comm*>(pimpl_);
182 xbt_assert(state_ == inited || state_ == started || state_ == finished);
184 if (state_ == finished)
185 xbt_die("Don't call test on a finished comm.");
187 if (state_ == inited) {
191 if(simcall_comm_test(pimpl_)){
198 void intrusive_ptr_release(simgrid::s4u::Comm* c)
200 if (c->pimpl_ != nullptr) {
201 if (c->pimpl_->unref()) {
205 } else if (c->refcount_.fetch_sub(1, std::memory_order_release) == 1) {
206 std::atomic_thread_fence(std::memory_order_acquire);
210 void intrusive_ptr_add_ref(simgrid::s4u::Comm* c)
212 if (c->pimpl_ != nullptr) {
215 c->refcount_.fetch_add(1, std::memory_order_relaxed);