From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Sun, 11 Jul 2004 23:04:01 +0000 (+0000)
Subject: Damn idiot, double where declared being as big as float (not more); do dump structure... 
X-Git-Tag: v3.3~5096
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/057d8c7a4f707ada90d967e23cfe8aa09a97888b?hp=0385040feb261512220a4f0f66b07d48541bf896

Damn idiot, double where declared being as big as float (not more); do dump structure fields in datadesc_dump()


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@250 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---

diff --git a/src/gras/DataDesc/datadesc.c b/src/gras/DataDesc/datadesc.c
index f5a41d8a74..d5807090d7 100644
--- a/src/gras/DataDesc/datadesc.c
+++ b/src/gras/DataDesc/datadesc.c
@@ -10,7 +10,7 @@
 
 #include "DataDesc/datadesc_private.h"
 
-GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(DataDesc,GRAS);
+GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(datadesc,GRAS);
 /* FIXME: make this host-dependent using a trick such as UserData*/
 gras_set_t *gras_datadesc_set_local=NULL;
 
@@ -124,7 +124,7 @@ gras_datadesc_init(void) {
 				       e_gras_dd_scalar_encoding_float, 
 				       NULL, &ddt));
   TRYFAIL(gras_datadesc_declare_scalar("double", 
-				       gras_ddt_scalar_float, 
+				       gras_ddt_scalar_double, 
 				       e_gras_dd_scalar_encoding_float, 
 				       NULL,&ddt));
 
@@ -185,7 +185,8 @@ int gras_datadesc_size(gras_datadesc_type_t *type) {
  * For debugging purpose
  */
 void gras_datadesc_type_dump(const gras_datadesc_type_t *ddt){
-  int i;
+  int cpt;
+  gras_error_t errcode;
 
   printf("DataDesc dump:");
   if(!ddt) {
@@ -197,33 +198,52 @@ void gras_datadesc_type_dump(const gras_datadesc_type_t *ddt){
   printf ("  category: %s\n",gras_datadesc_cat_names[ddt->category_code]);
 
   printf ("  size[");
-  for (i=0; i<gras_arch_count; i++) {
+  for (cpt=0; cpt<gras_arch_count; cpt++) {
     printf("%s%s%ld%s",
-	   i>0?", ":"",
-	   i == GRAS_THISARCH ? "*":"",
-	   ddt->size[i],
-	   i == GRAS_THISARCH ? "*":"");
+	   cpt>0?", ":"",
+	   cpt == GRAS_THISARCH ? "*":"",
+	   ddt->size[cpt],
+	   cpt == GRAS_THISARCH ? "*":"");
   }
   printf ("]\n");
 
   printf ("  alignment[");
-  for (i=0; i<gras_arch_count; i++) {
+  for (cpt=0; cpt<gras_arch_count; cpt++) {
     printf("%s%s%ld%s",
-	   i>0?", ":"",
-	   i == GRAS_THISARCH ? "*":"",
-	   ddt->alignment[i],
-	   i == GRAS_THISARCH ? "*":"");
+	   cpt>0?", ":"",
+	   cpt == GRAS_THISARCH ? "*":"",
+	   ddt->alignment[cpt],
+	   cpt == GRAS_THISARCH ? "*":"");
   }
   printf ("]\n");
 
   printf ("  aligned_size[");
-  for (i=0; i<gras_arch_count; i++) {
+  for (cpt=0; cpt<gras_arch_count; cpt++) {
     printf("%s%s%ld%s",
-	   i>0?", ":"",
-	   i == GRAS_THISARCH ? "*":"",
-	   ddt->aligned_size[i],
-	   i == GRAS_THISARCH ? "*":"");
+	   cpt>0?", ":"",
+	   cpt == GRAS_THISARCH ? "*":"",
+	   ddt->aligned_size[cpt],
+	   cpt == GRAS_THISARCH ? "*":"");
   }
   printf ("]\n");
-  
+  if (ddt->category_code == e_gras_datadesc_type_cat_struct) {
+    gras_dd_cat_struct_t  struct_data;
+    gras_dd_cat_field_t  *field;
+    gras_datadesc_type_t *sub_type;
+
+    struct_data = ddt->category.struct_data;
+    gras_dynar_foreach(struct_data.fields, cpt, field) {
+    printf(">>> Dump field #%d (%s) (offset=%ld)\n",
+	   cpt,field->name,field->offset[GRAS_THISARCH]);
+    errcode=gras_datadesc_by_id(field->code, &sub_type);
+    if (errcode != no_error) {
+      ERROR4("Got %s while searching for the sub type %d, #%d of %s",
+	     gras_error_name(errcode),field->code,cpt,ddt->name);
+      gras_abort();
+    }
+    gras_datadesc_type_dump(sub_type);
+    printf("<<< end dump field #%d (%s)\n",cpt,field->name);
+    }
+ }
+  fflush(stdout);
 }