X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/eee21ec5f99218189fc98898a09150294cd0fbf4..5e3e50f757f70251b3fdf0b6610fe65071dd0d5b:/src/surf/network_smpi.cpp diff --git a/src/surf/network_smpi.cpp b/src/surf/network_smpi.cpp index ee6e415d36..68174dae76 100644 --- a/src/surf/network_smpi.cpp +++ b/src/surf/network_smpi.cpp @@ -1,3 +1,9 @@ +/* Copyright (c) 2013-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 "network_smpi.hpp" #include "simgrid/sg_config.h" @@ -16,7 +22,8 @@ xbt_dict_t gap_lookup = NULL; static int factor_cmp(const void *pa, const void *pb) { - return (((s_smpi_factor_t*)pa)->factor > ((s_smpi_factor_t*)pb)->factor); + return (((s_smpi_factor_t*)pa)->factor > ((s_smpi_factor_t*)pb)->factor) ? 1 : + (((s_smpi_factor_t*)pa)->factor < ((s_smpi_factor_t*)pb)->factor) ? -1 : 0; } @@ -33,7 +40,7 @@ static xbt_dynar_t parse_factor(const char *smpi_coef_string) radical_elements2 = xbt_str_split(value, ":"); if (xbt_dynar_length(radical_elements2) != 2) - xbt_die("Malformed radical for smpi factor!"); + surf_parse_error("Malformed radical for smpi factor!"); fact.factor = atol(xbt_dynar_get_as(radical_elements2, 0, char *)); fact.value = atof(xbt_dynar_get_as(radical_elements2, 1, char *)); xbt_dynar_push_as(smpi_factor, s_smpi_factor_t, fact); @@ -79,9 +86,28 @@ void surf_network_model_init_SMPI(void) xbt_cfg_setdefault_double(_sg_cfg_set, "network/weight_S", 8775); } -void NetworkSmpiModel::gapAppend(double size, const NetworkCm02LinkLmmPtr link, NetworkCm02ActionLmmPtr action) +NetworkSmpiModel::NetworkSmpiModel() + : NetworkCm02Model() { + m_haveGap=true; +} + +NetworkSmpiModel::~NetworkSmpiModel(){ + if (gap_lookup) { + xbt_dict_free(&gap_lookup); + } + if (smpi_bw_factor) { + xbt_dynar_free(&smpi_bw_factor); + smpi_bw_factor = NULL; + } + if (smpi_lat_factor) { + xbt_dynar_free(&smpi_lat_factor); + smpi_lat_factor = NULL; + } +} + +void NetworkSmpiModel::gapAppend(double size, const NetworkLinkPtr link, NetworkActionPtr action) { - const char *src = link->m_name; + const char *src = link->getName(); xbt_fifo_t fifo; //surf_action_network_CM02_t last_action; //double bw; @@ -116,11 +142,11 @@ void NetworkSmpiModel::gapAppend(double size, const NetworkCm02LinkLmmPtr link, } } -void NetworkSmpiModel::gapRemove(ActionLmmPtr lmm_action) +void NetworkSmpiModel::gapRemove(ActionPtr lmm_action) { xbt_fifo_t fifo; size_t size; - NetworkCm02ActionLmmPtr action = (NetworkCm02ActionLmmPtr)(lmm_action); + NetworkCm02ActionPtr action = static_cast(lmm_action); if (sg_sender_gap > 0.0 && action->p_senderLinkName && action->p_senderFifoItem) { @@ -160,6 +186,7 @@ double NetworkSmpiModel::bandwidthFactor(double size) return current; } + double NetworkSmpiModel::latencyFactor(double size) { if (!smpi_lat_factor)