X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/199b029b33b5b9fbe1eacb50828914f3b38bde2f..41626f8a47c96f54fa3b1ee61a90fb0af699dcbc:/src/mc/memory_map.c diff --git a/src/mc/memory_map.c b/src/mc/memory_map.c index fb91333798..337ed9da2c 100644 --- a/src/mc/memory_map.c +++ b/src/mc/memory_map.c @@ -1,125 +1,166 @@ -#define _GNU_SOURCE -#include "private.h" +/* Copyright (c) 2008-2014. 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. */ + #include -memory_map_t get_memory_map(void) +#include + +#include "mc_memory_map.h" +#include "mc_private.h" + +XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_memory_map, mc, + "Logging specific to algorithms for memory_map"); + +memory_map_t MC_get_memory_map(pid_t pid) { - FILE *fp; /* File pointer to process's proc maps file */ - char *line = NULL; /* Temporal storage for each line that is readed */ - ssize_t read; /* Number of bytes readed */ - size_t n = 0; /* Amount of bytes to read by getline */ - memory_map_t ret = NULL; /* The memory map to return */ - -/* The following variables are used during the parsing of the file "maps" */ - s_map_region memreg; /* temporal map region used for creating the map */ - char *lfields[6], *tok, *endptr; - int i; - -/* Open the actual process's proc maps file and create the memory_map_t */ -/* to be returned. */ - fp = fopen("/proc/self/maps","r"); - - if(!fp) - xbt_abort(); - - ret = xbt_new0(s_memory_map_t,1); - - /* Read one line at the time, parse it and add it to the memory map to be returned */ - while((read = getline(&line, &n, fp)) != -1) { + /* Open the actual process's proc maps file and create the memory_map_t */ + /* to be returned. */ + char* path = bprintf("/proc/%i/maps", (int) pid); + FILE *fp = fopen(path, "r"); + free(path); + if(fp == NULL) + perror("fopen failed"); + xbt_assert(fp, + "Cannot open %s to investigate the memory map of the process.", path); + setbuf(fp, NULL); + + memory_map_t ret = xbt_new0(s_memory_map_t, 1); + + /* Read one line at the time, parse it and add it to the memory map to be returned */ + ssize_t read; /* Number of bytes readed */ + char* line = NULL; + size_t n = 0; /* Amount of bytes to read by xbt_getline */ + while ((read = xbt_getline(&line, &n, fp)) != -1) { + + //fprintf(stderr,"%s", line); /* Wipeout the new line character */ line[read - 1] = '\0'; /* Tokenize the line using spaces as delimiters and store each token */ /* in lfields array. We expect 5 tokens/fields */ + char* lfields[6]; lfields[0] = strtok(line, " "); - - for(i=1; i < 6 && lfields[i - 1] != NULL; i++){ - lfields[i] = strtok(NULL, " "); + + int i; + for (i = 1; i < 6 && lfields[i - 1] != NULL; i++) { + lfields[i] = strtok(NULL, " "); } /* Check to see if we got the expected amount of columns */ - if(i < 6) + if (i < 6) xbt_abort(); /* Ok we are good enough to try to get the info we need */ /* First get the start and the end address of the map */ - tok = strtok(lfields[0], "-"); - if(tok == NULL) + char *tok = strtok(lfields[0], "-"); + if (tok == NULL) xbt_abort(); - - memreg.start_addr = (void *)strtoul(tok, &endptr, 16); + + s_map_region_t memreg; /* temporal map region used for creating the map */ + char *endptr; + memreg.start_addr = (void *) strtoul(tok, &endptr, 16); /* Make sure that the entire string was an hex number */ - if(*endptr != '\0') + if (*endptr != '\0') xbt_abort(); - + tok = strtok(NULL, "-"); - if(tok == NULL) + if (tok == NULL) xbt_abort(); - - memreg.end_addr = (void *)strtoul(tok, &endptr, 16); + + memreg.end_addr = (void *) strtoul(tok, &endptr, 16); /* Make sure that the entire string was an hex number */ - if(*endptr != '\0') + if (*endptr != '\0') xbt_abort(); - + /* Get the permissions flags */ - if(strlen(lfields[1]) < 4) + if (strlen(lfields[1]) < 4) xbt_abort(); - - memreg.perms = 0; - - for(i=0; i<3; i++) - if(lfields[1][i] != '-') - memreg.perms |= 1 << i; - - if(lfields[1][4] == 'p') - memreg.perms |= MAP_PRIV; - + + memreg.prot = 0; + + for (i = 0; i < 3; i++){ + switch(lfields[1][i]){ + case 'r': + memreg.prot |= PROT_READ; + break; + case 'w': + memreg.prot |= PROT_WRITE; + break; + case 'x': + memreg.prot |= PROT_EXEC; + break; + default: + break; + } + } + if (memreg.prot == 0) + memreg.prot |= PROT_NONE; + + if (lfields[1][4] == 'p') + memreg.flags |= MAP_PRIVATE; + else if (lfields[1][4] == 's') - memreg.perms |= MAP_SHARED; - + memreg.flags |= MAP_SHARED; + /* Get the offset value */ - memreg.offset = (void *)strtoul(lfields[2], &endptr, 16); + memreg.offset = (void *) strtoul(lfields[2], &endptr, 16); /* Make sure that the entire string was an hex number */ - if(*endptr != '\0') + if (*endptr != '\0') xbt_abort(); - + /* Get the device major:minor bytes */ tok = strtok(lfields[3], ":"); - if(tok == NULL) + if (tok == NULL) xbt_abort(); - memreg.dev_major = (char)strtoul(tok, &endptr, 16); + memreg.dev_major = (char) strtoul(tok, &endptr, 16); /* Make sure that the entire string was an hex number */ - if(*endptr != '\0') + if (*endptr != '\0') xbt_abort(); tok = strtok(NULL, ":"); - if(tok == NULL) + if (tok == NULL) xbt_abort(); - memreg.dev_minor = (char)strtoul(tok, &endptr, 16); + memreg.dev_minor = (char) strtoul(tok, &endptr, 16); /* Make sure that the entire string was an hex number */ - if(*endptr != '\0') + if (*endptr != '\0') xbt_abort(); - - /* Get the inode number and make sure that the entire string was a long int*/ + + /* Get the inode number and make sure that the entire string was a long int */ memreg.inode = strtoul(lfields[4], &endptr, 10); - if(*endptr != '\0') + if (*endptr != '\0') xbt_abort(); /* And finally get the pathname */ memreg.pathname = xbt_strdup(lfields[5]); - + /* Create space for a new map region in the region's array and copy the */ /* parsed stuff from the temporal memreg variable */ - ret->regions = xbt_realloc(ret->regions, sizeof(memreg) * (ret->mapsize + 1)); - memcpy(ret->regions + ret->mapsize, &memreg, sizeof(memreg)); - ret->mapsize++; + XBT_DEBUG("Found region for %s", + memreg.pathname ? memreg.pathname : "(null)"); + ret->regions = + xbt_realloc(ret->regions, sizeof(memreg) * (ret->mapsize + 1)); + memcpy(ret->regions + ret->mapsize, &memreg, sizeof(memreg)); + ret->mapsize++; + } - - if(line) - free(line); - + + free(line); + fclose(fp); return ret; } + +void MC_free_memory_map(memory_map_t map){ + + int i; + for(i=0; i< map->mapsize; i++){ + xbt_free(map->regions[i].pathname); + } + xbt_free(map->regions); + xbt_free(map); +}