Lines Matching refs:Xtyp
885 Xtyp : Entity_Id; variable
894 Xtyp := Etype (Prefix (N));
899 if No (Xtyp) then
905 if Is_Access_Type (Xtyp) then
906 Xtyp := Designated_Type (Xtyp);
913 if not Is_Array_Type (Xtyp) then
919 if not Is_Constrained (Xtyp) then
923 if Ekind (Xtyp) = E_String_Literal_Subtype then
925 return String_Literal_Low_Bound (Xtyp);
929 Intval => Intval (String_Literal_Low_Bound (Xtyp)) +
930 String_Literal_Length (Xtyp));
936 Indx := First_Index (Xtyp);
946 Xtyp := Etype (Indx);
949 return Type_Low_Bound (Xtyp);
951 return Type_High_Bound (Xtyp);