diff options
Diffstat (limited to 'gcc/ada/s-os_lib.adb')
-rwxr-xr-x | gcc/ada/s-os_lib.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index 3c89fd38184..ff65720d6e4 100755 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -293,7 +293,7 @@ package body System.OS_Lib is -- Internal exception raised to signal error in copy function Build_Path (Dir : String; File : String) return String; - -- Returns pathname Dir catenated with File adding the directory + -- Returns pathname Dir concatenated with File adding the directory -- separator only if needed. procedure Copy (From, To : File_Descriptor); @@ -1833,7 +1833,7 @@ package body System.OS_Lib is -- First, convert VMS file spec to Unix file spec. -- If Name is not in VMS syntax, then this is equivalent - -- to put Name at the begining of Path_Buffer. + -- to put Name at the beginning of Path_Buffer. VMS_Conversion : begin The_Name (1 .. Name'Length) := Name; |