1 /* Copyright (c) 2008-2023. 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. */
6 #include "simgrid/simix.hpp"
7 #include "src/kernel/actor/ActorImpl.hpp"
8 #include "src/mc/mc_config.hpp"
9 #include "src/mc/mc_private.hpp"
10 #include "src/mc/mc_record.hpp"
11 #include "src/mc/mc_replay.hpp"
12 #include "src/mc/remote/AppSide.hpp"
13 #include "xbt/asserts.h"
14 #include "xbt/random.hpp"
16 /* Implementation of the user API from the App to the Checker (see modelchecker.h) */
18 int MC_random(int min, int max)
20 xbt_assert(simgrid::mc::model_checking_mode != simgrid::mc::ModelCheckingMode::CHECKER_SIDE,
21 "This should be called from the client side");
23 if (not MC_is_active() && not MC_record_replay_is_active()) { // no need to do a simcall in this case
24 static simgrid::xbt::random::XbtRandom prng;
25 return prng.uniform_int(min, max);
27 simgrid::kernel::actor::RandomSimcall observer{simgrid::kernel::actor::ActorImpl::self(), min, max};
28 return simgrid::kernel::actor::simcall_answered([&observer] { return observer.get_value(); }, &observer);
31 void MC_assert(int prop)
33 // Cannot used xbt_assert here, or it would be an infinite recursion.
34 xbt_assert(simgrid::mc::model_checking_mode != simgrid::mc::ModelCheckingMode::CHECKER_SIDE,
35 "This should be called from the client side");
39 simgrid::mc::AppSide::get()->report_assertion_failure();
40 if (MC_record_replay_is_active())
41 xbt_die("MC assertion failed");
45 xbt_die("Safety property violation detected without the model-checker");
51 return simgrid::mc::model_checking_mode == simgrid::mc::ModelCheckingMode::APP_SIDE ||
52 simgrid::mc::model_checking_mode == simgrid::mc::ModelCheckingMode::CHECKER_SIDE;
55 void MC_automaton_new_propositional_symbol_pointer(const char *name, int* value)
58 xbt_assert(simgrid::mc::model_checking_mode != simgrid::mc::ModelCheckingMode::CHECKER_SIDE,
59 "This should be called from the client side");
60 simgrid::mc::AppSide::get()->declare_symbol(name, value);
64 void MC_ignore(void* addr, size_t size)
67 xbt_assert(simgrid::mc::model_checking_mode != simgrid::mc::ModelCheckingMode::CHECKER_SIDE,
68 "This should be called from the client side");
69 simgrid::mc::AppSide::get()->ignore_memory(addr, size);
73 void MC_ignore_heap(void *address, size_t size)
76 xbt_assert(simgrid::mc::model_checking_mode != simgrid::mc::ModelCheckingMode::CHECKER_SIDE,
77 "This should be called from the client side");
78 simgrid::mc::AppSide::get()->ignore_heap(address, size);
82 void MC_unignore_heap(void* address, size_t size)
85 xbt_assert(simgrid::mc::model_checking_mode != simgrid::mc::ModelCheckingMode::CHECKER_SIDE,
86 "This should be called from the client side");
87 simgrid::mc::AppSide::get()->unignore_heap(address, size);