X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/f2d062a16daf5602b56944a78c51c36ae317a7fa..6a6209ae617ba25152ddd80cd3b79d72748d7bd5:/src/mc/memory_map.c diff --git a/src/mc/memory_map.c b/src/mc/memory_map.c index 0868ccc537..25a49ca511 100644 --- a/src/mc/memory_map.c +++ b/src/mc/memory_map.c @@ -1,30 +1,43 @@ -#define _GNU_SOURCE -#include "private.h" +/* Copyright (c) 2008-2012 Da 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 "mc_private.h" #include +XBT_LOG_NEW_DEFAULT_SUBCATEGORY(mc_memory_map, mc, + "Logging specific to algorithms for memory_map"); + memory_map_t get_memory_map(void) { - 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 */ - + 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 */ + s_map_region_t 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"); + fp = fopen("/proc/self/maps", "r"); + + if(fp == NULL) + perror("fopen failed"); + + xbt_assert(fp, + "Cannot open /proc/self/maps to investigate the memory map of the process. Please report this bug."); + + ret = xbt_new0(s_memory_map_t, 1); - xbt_assert0(fp,"Cannot open /proc/self/maps to investigate the memory map of the process. Please report this bug."); - - 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) { + /* 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) { + + //fprintf(stderr,"%s", line); /* Wipeout the new line character */ line[read - 1] = '\0'; @@ -32,93 +45,119 @@ memory_map_t get_memory_map(void) /* Tokenize the line using spaces as delimiters and store each token */ /* in lfields array. We expect 5 tokens/fields */ lfields[0] = strtok(line, " "); - - for(i=1; i < 6 && lfields[i - 1] != NULL; i++){ - lfields[i] = strtok(NULL, " "); + + 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) + tok = strtok(lfields[0], "-"); + if (tok == NULL) xbt_abort(); - - memreg.start_addr = (void *)strtoul(tok, &endptr, 16); + + 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++; + 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 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); +}