From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Wed, 29 Feb 2012 09:16:27 +0000 (+0100)
Subject: Really get the first host (fixes failing test).
X-Git-Tag: exp_20120308~8
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/ab9929a50965863c0a8dea275cdf1da3aadbb68c?hp=dd32904d9a6e22c3357109d5e854203e6099d744

Really get the first host (fixes failing test).
---

diff --git a/examples/msg/parallel_task/parallel_task.c b/examples/msg/parallel_task/parallel_task.c
index e6ac43a8c9..11f7251e39 100644
--- a/examples/msg/parallel_task/parallel_task.c
+++ b/examples/msg/parallel_task/parallel_task.c
@@ -71,7 +71,7 @@ MSG_error_t test_all(const char *platform_file)
   MSG_create_environment(platform_file);
 
   all_hosts = MSG_hosts_as_dynar();
-  first_host = xbt_dynar_pop_as(all_hosts,m_host_t);
+  first_host = xbt_dynar_getfirst_as(all_hosts,m_host_t);
   MSG_process_create("test", test, NULL, first_host);
   res = MSG_main();
   xbt_dynar_free(&all_hosts);