-- Derivations from [Limited_]Controlled
elsif Is_Controlled (Utyp) then
- if Has_Controlled_Component (Utyp) then
- Adj_Id := Find_Optional_Prim_Op (Utyp, TSS_Deep_Adjust);
- else
- Adj_Id := Find_Optional_Prim_Op (Utyp, Name_Of (Adjust_Case));
- end if;
+ Adj_Id := Find_Optional_Prim_Op (Utyp, Name_Of (Adjust_Case));
-- Tagged types
-- Derivations from [Limited_]Controlled
elsif Is_Controlled (Utyp) then
- if Has_Controlled_Component (Utyp) then
- Fin_Id := Find_Optional_Prim_Op (Utyp, TSS_Deep_Finalize);
- else
- Fin_Id := Find_Optional_Prim_Op (Utyp, Name_Of (Finalize_Case));
- end if;
+ Fin_Id := Find_Optional_Prim_Op (Utyp, Name_Of (Finalize_Case));
-- Tagged types