resolve symbol-types for struct elements

src/libsac2c/typecheck/resolvesymboltypes.c

@@ -117,6 +117,10 @@ RSTmodule (node *arg_node, info *arg_info)
         MODULE_FUNS (arg_node) = TRAVdo (MODULE_FUNS (arg_node), arg_info);
     }
 
+    if (MODULE_STRUCTS (arg_node) != NULL) {
+        MODULE_STRUCTS (arg_node) = TRAVdo (MODULE_STRUCTS (arg_node), arg_info);
+    }
+
     DBUG_RETURN (arg_node);
 }
 
@@ -361,6 +365,15 @@ RSTtype (node *arg_node, info *arg_info)
     DBUG_RETURN (arg_node);
 }
 
+node *
+RSTstructelem (node *arg_node, info *arg_info){
+    DBUG_ENTER ();
+
+    STRUCTELEM_TYPE (arg_node) = RSTntype (STRUCTELEM_TYPE (arg_node), arg_info);
+
+    DBUG_RETURN(arg_node);
+}
+
 node *
 RSTdoResolveSymbolTypes (node *syntax_tree)
 {

src/libsac2c/typecheck/resolvesymboltypes.h

@@ -22,6 +22,7 @@ extern node *RSTavis (node *arg_node, info *arg_info);
 extern node *RSTarray (node *arg_node, info *arg_info);
 extern node *RSTcast (node *arg_node, info *arg_info);
 extern node *RSTtype (node *arg_node, info *arg_info);
+extern node *RSTstructelem (node *arg_node, info *arg_info);
 
 extern node *RSTdoResolveSymbolTypes (node *syntax_tree);
 #endif

src/libsac2c/xml/ast.xml

@@ -1458,6 +1458,7 @@
 		  <node name="Objdef" />
 		  <node name="Type" />
 		  <node name="Cast" />
+      <node name="Structelem" />
 		</travuser>
 	      </traversal>
 	      <traversal id="OI" name="Object Initializer" default="sons" include="object_init.h">