@ -34,7 +34,7 @@ let decl_get_sub_decls decl =
| NamespaceDecl ( _ , _ , decl_list , _ , _ ) ->
| NamespaceDecl ( _ , _ , decl_list , _ , _ ) ->
decl_list
decl_list
| ClassTemplateDecl ( _ , _ , class_template_decl_info ) ->
| ClassTemplateDecl ( _ , _ , class_template_decl_info ) ->
class_template_decl_info . c tdi_specializations
class_template_decl_info . tdi_specializations
| _ ->
| _ ->
[]
[]
@ -66,7 +66,7 @@ let decl_set_sub_decls decl decl_list' =
| NamespaceDecl ( decl_info , name , decl_list , decl_context_info , namespace_decl_info ) ->
| NamespaceDecl ( decl_info , name , decl_list , decl_context_info , namespace_decl_info ) ->
NamespaceDecl ( decl_info , name , decl_list' , decl_context_info , namespace_decl_info )
NamespaceDecl ( decl_info , name , decl_list' , decl_context_info , namespace_decl_info )
| ClassTemplateDecl ( decl_info , name , class_template_decl_info ) ->
| ClassTemplateDecl ( decl_info , name , class_template_decl_info ) ->
let class_template_decl_info' = { c tdi_specializations = decl_list' } in
let class_template_decl_info' = { tdi_specializations = decl_list' } in
ClassTemplateDecl ( decl_info , name , class_template_decl_info' )
ClassTemplateDecl ( decl_info , name , class_template_decl_info' )
| _ ->
| _ ->
decl
decl