[SCM] Gerris Flow Solver branch, upstream, updated. b3aa46814a06c9cb2912790b23916ffb44f1f203

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit 83b58fdd419b18f4e4183c5947f1df307bf13f4f
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Thu Jan 22 08:07:21 2009 +1100

    Log timing statistics for events
    
    darcs-hash:20090121210721-d4795-070c65cf09b02de40617016ff5931f4edc279403.gz

diff --git a/src/event.c b/src/event.c
index 6d46504..094ab3a 100644
--- a/src/event.c
+++ b/src/event.c
@@ -419,11 +419,16 @@ void gfs_event_do (GfsEvent * event, GfsSimulation * sim)
 
   g_return_if_fail (event != NULL);
   g_return_if_fail (sim != NULL);
+  
+  gchar * name = GTS_OBJECT (event)->klass->info.name;
+  gfs_domain_timer_start (GFS_DOMAIN (sim), name);
 
   klass = GFS_EVENT_CLASS (GTS_OBJECT (event)->klass);
   g_assert (klass->event);
   if ((* klass->event) (event, sim) && klass->post_event)
     (* klass->post_event) (event, sim);
+
+  gfs_domain_timer_stop (GFS_DOMAIN (sim), name);
 }
 
 /**

-- 
Gerris Flow Solver