@@ -42,7 +42,7 @@ find_struct_member(char *name, char *str, struct ECPGstruct_member * members, in
4242switch (members -> type -> type )
4343{
4444case ECPGt_array :
45- return (new_variable (name ,ECPGmake_array_type (members -> type -> u .element ,members -> type -> size ),brace_level ));
45+ return (new_variable (name ,ECPGmake_array_type (ECPGmake_simple_type ( members -> type -> u .element -> type , members -> type -> u . element -> size ) ,members -> type -> size ),brace_level ));
4646case ECPGt_struct :
4747case ECPGt_union :
4848return (new_variable (name ,ECPGmake_struct_type (members -> type -> u .members ,members -> type -> type ,members -> type -> struct_sizeof ),brace_level ));
@@ -92,7 +92,7 @@ find_struct_member(char *name, char *str, struct ECPGstruct_member * members, in
9292switch (members -> type -> u .element -> type )
9393{
9494case ECPGt_array :
95- return (new_variable (name ,ECPGmake_array_type (members -> type -> u .element -> u .element ,members -> type -> u .element -> size ),brace_level ));
95+ return (new_variable (name ,ECPGmake_array_type (ECPGmake_simple_type ( members -> type -> u .element -> u .element -> type , members -> type -> u . element -> u . element -> size ) ,members -> type -> u .element -> size ),brace_level ));
9696case ECPGt_struct :
9797case ECPGt_union :
9898return (new_variable (name ,ECPGmake_struct_type (members -> type -> u .element -> u .members ,members -> type -> u .element -> type ,members -> type -> u .element -> struct_sizeof ),brace_level ));
@@ -251,7 +251,7 @@ find_variable(char *name)
251251switch (p -> type -> u .element -> type )
252252{
253253case ECPGt_array :
254- return (new_variable (name ,ECPGmake_array_type (p -> type -> u .element -> u .element ,p -> type -> u .element -> size ),p -> brace_level ));
254+ return (new_variable (name ,ECPGmake_array_type (ECPGmake_simple_type ( p -> type -> u .element -> u .element -> type , p -> type -> u . element -> u . element -> size ) ,p -> type -> u .element -> size ),p -> brace_level ));
255255case ECPGt_struct :
256256case ECPGt_union :
257257return (new_variable (name ,ECPGmake_struct_type (p -> type -> u .element -> u .members ,p -> type -> u .element -> type ,p -> type -> u .element -> struct_sizeof ),p -> brace_level ));
