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

[Stephane Popinet]

The following commit has been merged in the upstream branch:
commit c2cb81bbcac4a1ba146fcff4923449471484dd2f
Author: Stephane Popinet <popinet at users.sf.net>
Date:   Tue Jan 15 11:12:36 2008 +1100

    Force reference of domain in Variable and DerivedVariable
    
    darcs-hash:20080115001236-d4795-b5fcb607b20954ca5caaf52908cb182ba00f9583.gz

diff --git a/src/domain.c b/src/domain.c
index 91a71db..4d97d59 100644
--- a/src/domain.c
+++ b/src/domain.c
@@ -3412,6 +3412,7 @@ GfsDerivedVariable * gfs_domain_add_derived_variable (GfsDomain * domain,
   v->func = info.func;
   v->data = info.data;
   domain->derived_variables = g_slist_prepend (domain->derived_variables, v);
+  GTS_OBJECT (v)->reserved = domain;
   return v;
 }
 
diff --git a/src/variable.c b/src/variable.c
index 28663a2..61748fc 100644
--- a/src/variable.c
+++ b/src/variable.c
@@ -25,8 +25,9 @@
 
 static void variable_init_domain (GfsVariable * v, GfsDomain * domain)
 {
-   v->i = gfs_domain_alloc (domain);
-   v->domain = domain;
+  v->i = gfs_domain_alloc (domain);
+  v->domain = domain;
+  GTS_OBJECT (v)->reserved = domain;
 }
 
 static void gfs_variable_read (GtsObject ** o, GtsFile * fp)

-- 
Gerris Flow Solver