diff options
Diffstat (limited to 'src/libraries.adb')
-rw-r--r-- | src/libraries.adb | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index 1dfd8dea9..01bf46faf 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -45,8 +45,8 @@ package body Libraries is -- A location for any implicit declarations (such as library WORK). Implicit_Location: Location_Type; - -- Table of library pathes. - package Pathes is new Tables + -- Table of library paths. + package Paths is new Tables (Table_Index_Type => Integer, Table_Component_Type => Name_Id, Table_Low_Bound => 1, @@ -63,18 +63,18 @@ package body Libraries is Report_Msg (Msgid_Error, Library, No_Location, Msg, (1 => Arg1)); end Error_Lib_Msg; - -- Initialize pathes table. + -- Initialize paths table. -- Set the local path. - procedure Init_Pathes + procedure Init_Paths is begin -- Always look in current directory first. Name_Nil := Get_Identifier (""); - Pathes.Append (Name_Nil); + Paths.Append (Name_Nil); Local_Directory := Name_Nil; Work_Directory := Name_Nil; - end Init_Pathes; + end Init_Paths; function Path_To_Id (Path : String) return Name_Id is begin @@ -96,21 +96,21 @@ package body Libraries is Error_Lib_Msg ("argument of -P is too long"); return; end if; - Pathes.Append (Path_To_Id (Path)); + Paths.Append (Path_To_Id (Path)); end Add_Library_Path; - function Get_Nbr_Pathes return Natural is + function Get_Nbr_Paths return Natural is begin - return Pathes.Last; - end Get_Nbr_Pathes; + return Paths.Last; + end Get_Nbr_Paths; function Get_Path (N : Natural) return Name_Id is begin - if N not in Pathes.First .. Pathes.Last then + if N not in Paths.First .. Paths.Last then raise Constraint_Error; end if; - return Pathes.Table (N); + return Paths.Table (N); end Get_Path; -- Transform a library identifier into a file name. @@ -141,8 +141,8 @@ package body Libraries is L : Natural; Path_Len : Natural; begin - for I in Pathes.First .. Pathes.Last loop - Image (Pathes.Table (I)); + for I in Paths.First .. Paths.Last loop + Image (Paths.Table (I)); Path_Len := Nam_Length; -- Try PATH/LIBxxx.cf @@ -150,7 +150,7 @@ package body Libraries is Nam_Buffer (Path_Len + 1 .. L) := File_Name; Nam_Buffer (L + 1) := Character'Val (0); if GNAT.OS_Lib.Is_Regular_File (Nam_Buffer'Address) then - Set_Library_Directory (Library, Pathes.Table (I)); + Set_Library_Directory (Library, Paths.Table (I)); exit; end if; |