#include <sys/wait.h>
#include <sys/time.h>
+#include "simgrid/sg_config.h"
#include "../surf/surf_private.h"
#include "../simix/smx_private.h"
#include "../xbt/mmalloc/mmprivate.h"
/* Configuration support */
e_mc_reduce_t mc_reduce_kind=e_mc_reduce_unset;
+int _sg_do_model_check = 0;
+int _sg_mc_checkpoint=0;
+char* _sg_mc_property_file=NULL;
+int _sg_mc_timeout=0;
+int _sg_mc_max_depth=1000;
+int _sg_mc_visited=0;
-extern int _surf_init_status;
+extern int _sg_init_status;
void _mc_cfg_cb_reduce(const char *name, int pos) {
- if (_surf_init_status && !_surf_do_model_check) {
+ if (_sg_init_status && !_sg_do_model_check) {
xbt_die("You are specifying a reduction strategy after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
}
- char *val= xbt_cfg_get_string(_surf_cfg_set, name);
+ char *val= xbt_cfg_get_string(_sg_cfg_set, name);
if (!strcasecmp(val,"none")) {
mc_reduce_kind = e_mc_reduce_none;
} else if (!strcasecmp(val,"dpor")) {
}
void _mc_cfg_cb_checkpoint(const char *name, int pos) {
- if (_surf_init_status && !_surf_do_model_check) {
+ if (_sg_init_status && !_sg_do_model_check) {
xbt_die("You are specifying a checkpointing value after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
}
- _surf_mc_checkpoint = xbt_cfg_get_int(_surf_cfg_set, name);
+ _sg_mc_checkpoint = xbt_cfg_get_int(_sg_cfg_set, name);
}
void _mc_cfg_cb_property(const char *name, int pos) {
- if (_surf_init_status && !_surf_do_model_check) {
+ if (_sg_init_status && !_sg_do_model_check) {
xbt_die("You are specifying a property after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
}
- _surf_mc_property_file= xbt_cfg_get_string(_surf_cfg_set, name);
+ _sg_mc_property_file= xbt_cfg_get_string(_sg_cfg_set, name);
}
void _mc_cfg_cb_timeout(const char *name, int pos) {
- if (_surf_init_status && !_surf_do_model_check) {
+ if (_sg_init_status && !_sg_do_model_check) {
xbt_die("You are specifying a value to enable/disable timeout for wait requests after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
}
- _surf_mc_timeout= xbt_cfg_get_int(_surf_cfg_set, name);
+ _sg_mc_timeout= xbt_cfg_get_int(_sg_cfg_set, name);
}
void _mc_cfg_cb_max_depth(const char *name, int pos) {
- if (_surf_init_status && !_surf_do_model_check) {
+ if (_sg_init_status && !_sg_do_model_check) {
xbt_die("You are specifying a max depth value after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
}
- _surf_mc_max_depth= xbt_cfg_get_int(_surf_cfg_set, name);
+ _sg_mc_max_depth= xbt_cfg_get_int(_sg_cfg_set, name);
}
void _mc_cfg_cb_visited(const char *name, int pos) {
- if (_surf_init_status && !_surf_do_model_check) {
+ if (_sg_init_status && !_sg_do_model_check) {
xbt_die("You are specifying a number of stored visited states after the initialization (through MSG_config?), but model-checking was not activated at config time (through --cfg=model-check:1). This won't work, sorry.");
}
- _surf_mc_visited= xbt_cfg_get_int(_surf_cfg_set, name);
+ _sg_mc_visited= xbt_cfg_get_int(_sg_cfg_set, name);
}
static void MC_get_global_variables(char *elf_file);
void MC_do_the_modelcheck_for_real() {
- if (!_surf_mc_property_file || _surf_mc_property_file[0]=='\0') {
+ if (!_sg_mc_property_file || _sg_mc_property_file[0]=='\0') {
if (mc_reduce_kind==e_mc_reduce_unset)
mc_reduce_kind=e_mc_reduce_dpor;
if (mc_reduce_kind==e_mc_reduce_unset)
mc_reduce_kind=e_mc_reduce_none;
- XBT_INFO("Check the liveness property %s",_surf_mc_property_file);
- MC_automaton_load(_surf_mc_property_file);
+ XBT_INFO("Check the liveness property %s",_sg_mc_property_file);
+ MC_automaton_load(_sg_mc_property_file);
MC_modelcheck_liveness();
}
}
get_libsimgrid_plt_section();
get_binary_plt_section();
+ MC_ignore_data_bss(&end_raw_heap, sizeof(end_raw_heap));
+ MC_ignore_data_bss(&nb_visited_states, sizeof(nb_visited_states));
+
/* Get global variables */
MC_get_global_variables(xbt_binary_name);
MC_get_global_variables(libsimgrid_path);
MC_ignore_stack("__ex_cleanup", "*");
MC_ignore_stack("__ex_mctx_en", "*");
MC_ignore_stack("__ex_mctx_me", "*");
+ MC_ignore_stack("__xbt_ex_ctx_ptr", "*");
MC_ignore_stack("_log_ev", "*");
MC_ignore_stack("_throw_ctx", "*");
MC_ignore_stack("ctx", "*");
+ MC_ignore_stack("next_context", "smx_ctx_sysv_suspend_serial");
+ MC_ignore_stack("i", "smx_ctx_sysv_suspend_serial");
if(raw_mem_set)
MC_SET_RAW_MEM;
MC_UNSET_RAW_MEM;
- if(_surf_mc_visited > 0){
+ if(_sg_mc_visited > 0){
MC_init();
}else{
+ MC_SET_RAW_MEM;
MC_init_memory_map_info();
get_libsimgrid_plt_section();
get_binary_plt_section();
+ MC_UNSET_RAW_MEM;
}
MC_dpor_init();
initial_state_safety->snapshot = MC_take_snapshot();
MC_UNSET_RAW_MEM;
+ MC_dpor();
+
if(raw_mem_set)
MC_SET_RAW_MEM;
- MC_dpor();
-
MC_exit();
}
void MC_exit(void)
{
- MC_print_statistics(mc_stats);
xbt_free(mc_time);
MC_memory_exit();
+ xbt_abort();
}
MC_show_stack_safety(stack);
- if(!_surf_mc_checkpoint){
+ if(!_sg_mc_checkpoint){
mc_state_t state;
MC_SET_RAW_MEM;
}
+static size_t data_bss_ignore_size(void *address){
+ unsigned int cursor = 0;
+ int start = 0;
+ int end = xbt_dynar_length(mc_data_bss_comparison_ignore) - 1;
+ mc_data_bss_ignore_variable_t var;
+
+ while(start <= end){
+ cursor = (start + end) / 2;
+ var = (mc_data_bss_ignore_variable_t)xbt_dynar_get_as(mc_data_bss_comparison_ignore, cursor, mc_data_bss_ignore_variable_t);
+ if(var->address == address)
+ return var->size;
+ if(var->address < address){
+ if((void *)((char *)var->address + var->size) > address)
+ return (char *)var->address + var->size - (char*)address;
+ else
+ start = cursor + 1;
+ }
+ if(var->address > address)
+ end = cursor - 1;
+ }
+
+ return 0;
+}
+
+
+
void MC_ignore_stack(const char *var_name, const char *frame){
int raw_mem_set = (mmalloc_get_current_heap() == raw_heap);
return location_list;
}
-char *get_libsimgrid_path(){
-
- char *command = bprintf("ldd %s", xbt_binary_name);
-
- FILE *fp = popen(command, "r");
-
- if(fp == NULL){
- perror("popen for ldd failed");
- xbt_abort();
- }
-
- char *line;
- ssize_t read;
- size_t n = 0;
- xbt_dynar_t split;
-
- while((read = getline(&line, &n, fp)) != -1){
-
- if(n == 0)
- continue;
-
- /* Wipeout the new line character */
- line[read - 1] = '\0';
-
- xbt_str_strip_spaces(line);
- xbt_str_ltrim(line, NULL);
- split = xbt_str_split(line, " ");
-
- if(strncmp((char *)xbt_dynar_get_as(split, 0, char *), "libsimgrid.so", 13) == 0){
- free(line);
- free(command);
- pclose(fp);
- return ((char *)xbt_dynar_get_as(split, 2, char *));
- }
-
- xbt_dynar_free(&split);
-
- }
-
- free(line);
- free(command);
- pclose(fp);
-
- return NULL;
-
-}
-
static dw_frame_t get_frame_by_offset(xbt_dict_t all_variables, unsigned long int offset){
xbt_dict_cursor_t cursor = NULL;
}
-static size_t data_bss_ignore_size(void *address){
- unsigned int cursor = 0;
- int start = 0;
- int end = xbt_dynar_length(mc_data_bss_comparison_ignore) - 1;
- mc_data_bss_ignore_variable_t var;
-
- while(start <= end){
- cursor = (start + end) / 2;
- var = (mc_data_bss_ignore_variable_t)xbt_dynar_get_as(mc_data_bss_comparison_ignore, cursor, mc_data_bss_ignore_variable_t);
- if(var->address == address)
- return var->size;
- if(var->address < address){
- if((void *)((char *)var->address + var->size) > address)
- return (char *)var->address + var->size - (char*)address;
- else
- start = cursor + 1;
- }
- if(var->address > address)
- end = cursor - 1;
- }
-
- return 0;
-}
-
-
static void MC_get_global_variables(char *elf_file){
FILE *fp;
|| (strcmp(xbt_dynar_get_as(line_tokens, xbt_dynar_length(line_tokens) - 1, char*), ".data") == 0)
|| (strcmp(xbt_dynar_get_as(line_tokens, xbt_dynar_length(line_tokens) - 1, char*), ".bss") == 0)
|| (strncmp(xbt_dynar_get_as(line_tokens, xbt_dynar_length(line_tokens) - 1, char*), "stderr", 6) == 0)
+ || (strncmp(xbt_dynar_get_as(line_tokens, xbt_dynar_length(line_tokens) - 1, char*), "counter", 7) == 0)
|| ((size_t)strtoul(xbt_dynar_get_as(line_tokens, xbt_dynar_length(line_tokens) - 2, char*), NULL, 16) == 0))
continue;
