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

Stephane Popinet s.popinet at niwa.co.nz
Fri May 15 02:52:47 UTC 2009


The following commit has been merged in the upstream branch:
commit 952a82e895373dba1d3e17d2d7f38b498c9970f5
Author: Stephane Popinet <s.popinet at niwa.co.nz>
Date:   Tue Oct 4 14:54:58 2005 +1000

    Fix for type cast bothering gcc
    
    darcs-hash:20051004045458-fbd8f-2d9fd5b53b853dcb49817ca67558fca0b24bf1ff.gz

diff --git a/src/domain.c b/src/domain.c
index 2c96494..12a45aa 100644
--- a/src/domain.c
+++ b/src/domain.c
@@ -1698,7 +1698,7 @@ static void box_split (GfsBox * box, gpointer * data)
 	  FttCell * neighbor = ftt_cell_neighbor (child.c[i], d);
 	  GfsBox * newbox = GFS_DOUBLE_TO_POINTER (GFS_VARIABLE (child.c[i], newboxp->i));
 	  GfsBoundaryClass * klass = GFS_BOUNDARY_CLASS (GTS_OBJECT (boundary)->klass);
-	  GfsBoundary * newboundary = gfs_boundary_new (klass, newbox, d);
+	  GtsObject * newboundary = GTS_OBJECT (gfs_boundary_new (klass, newbox, d));
 	  gchar fname[] = "/tmp/XXXXXX";
 	  gint fd = mkstemp (fname);
 	  FILE * fp = fdopen (fd, "w");
@@ -1710,13 +1710,13 @@ static void box_split (GfsBox * box, gpointer * data)
 	  fp = fopen (fname, "r");
 	  unlink (fname);
 	  gfp = gts_file_new (fp);
-	  (* GTS_OBJECT_CLASS (klass)->read) ((GtsObject **) &newboundary, gfp);
+	  (* GTS_OBJECT_CLASS (klass)->read) (&newboundary, gfp);
 	  g_assert (gfp->type != GTS_ERROR);
 	  gts_file_destroy (gfp);
 	  fclose (fp);
 
 	  g_assert (neighbor);
-	  newboundary->root = neighbor;
+	  GFS_BOUNDARY (newboundary)->root = neighbor;
 	}
       gts_object_destroy (GTS_OBJECT (boundary));
     }

-- 
Gerris Flow Solver



More information about the debian-science-commits mailing list