src/vhdl/vhdl-sem_types.adb

769                if Get_Constraint_State (El_Type) /= Constraint then
777          Constraint := Get_Constraint_State (El_Type);
787          case Get_Constraint_State (El_Type) is
1194                if Get_Constraint_State (Type_Mark) /= Fully_Constrained then
1503             Set_Constraint_State (Res, Get_Constraint_State (Def));
1513             Set_Constraint_State (Res, Get_Constraint_State (Def));
1525             Set_Constraint_State (Res, Get_Constraint_State (Def));
1988             Set_Constraint_State (Res, Get_Constraint_State (Type_Mark));
2165          Set_Constraint_State (Res, Get_Constraint_State (Type_Mark));
2528             Set_Constraint_State (St_Def, Get_Constraint_State (Def));
2766             Set_Constraint_State (St_Def, Get_Constraint_State (Def));