X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/6f7770e785538575e79f146844d089cd9f02a686..f2df13795e01302813a6aef10825ec7e922ce530:/src/surf/network_smpi.cpp diff --git a/src/surf/network_smpi.cpp b/src/surf/network_smpi.cpp index f0be52e899..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" @@ -34,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); @@ -80,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; @@ -117,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) { @@ -161,6 +186,7 @@ double NetworkSmpiModel::bandwidthFactor(double size) return current; } + double NetworkSmpiModel::latencyFactor(double size) { if (!smpi_lat_factor)