1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
/* Copyright (c) 2010-2018. 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. */
/**************** Shared buffer between asynchronous receives *****************/
/* Server process assumes that the data from the second communication comm2 */
/* will overwrite the one from the first communication, because of the order */
/* of the wait calls. This is not true because data copy can be triggered by */
/* a call to wait on the other end of the communication (client). */
/* NOTE that the communications use different mailboxes, but they share the */
/* same buffer for reception (task1). */
/******************************************************************************/
#include <simgrid/msg.h>
#include <simgrid/modelchecker.h>
XBT_LOG_NEW_DEFAULT_CATEGORY(bugged3, "this example");
static int server(int argc, char *argv[])
{
msg_task_t task1 = NULL;
msg_task_t task2 = NULL;
msg_comm_t comm1 = MSG_task_irecv(&task1, "mymailbox1");
msg_comm_t comm2 = MSG_task_irecv(&task2, "mymailbox2");
MSG_comm_wait(comm1, -1);
MSG_comm_wait(comm2, -1);
long val1 = xbt_str_parse_int(MSG_task_get_name(task1), "Task name is not a numerical ID: %s");
XBT_INFO("Received %ld", val1);
MC_assert(val1 == 2);
XBT_INFO("OK");
return 0;
}
static int client(int argc, char *argv[])
{
msg_task_t task1 = MSG_task_create(argv[1], 0, 10000, NULL);
char *mbox = bprintf("mymailbox%s", argv[1]);
XBT_INFO("Send %s!", argv[1]);
msg_comm_t comm = MSG_task_isend(task1, mbox);
MSG_comm_wait(comm, -1);
xbt_free(mbox);
return 0;
}
int main(int argc, char *argv[])
{
MSG_init(&argc, argv);
MSG_create_environment("platform.xml");
MSG_function_register("server", server);
MSG_function_register("client", client);
MSG_launch_application("deploy_bugged3.xml");
MSG_main();
return 0;
}
|
