Searched refs:Name_s (Results 1 – 1 of 1) sorted by relevance
129 Name_s : Natural; -- start of a possible entity name variable137 Test => Ada.Strings.Outside, From => Name_s);150 if Name_e < Name_s then153 Name := To_Unbounded_String (Code (Name_s .. Name_e-1));163 Put_Line(Standard_Error, "Entity : """ & Code(Name_s .. I-1) & """ not valid");174 Name_s := Index(Code, Ada.Strings.Maps.To_Set(CharSet), From => Ent + 6);176 if Name_s = 0 then -- entity name must be on a subsequent line183 Name_s := Index(Code, Ada.Strings.Maps.To_Set(CharSet), From => Ent + 6);184 if Name_s > 0 then