diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 23:14:07 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 23:14:07 +0000 |
| commit | 9ffca0cd58b37593feacfcbfd9e10c767ab16f49 (patch) | |
| tree | e7c51126c4c56276a05c1955bd4b196956a352c7 /gcc/ada/g-dirope.adb | |
| parent | 23551094631c8b413f1b8d81e05d854b96753f87 (diff) | |
| download | gcc-9ffca0cd58b37593feacfcbfd9e10c767ab16f49.tar.gz | |
* gnatmain.adb: Initial version.
* gnatmain.ads: Initial version.
* prj-attr.adb (Initialisation_Data): Add package Gnatstub.
* snames.adb: Updated to match snames.ads.
* snames.ads: Added Gnatstub.
* prj-attr.adb (Initialization_Data): Change name from
Initialisation_Data.
* g-regpat.adb (Parse_Literal): Properly handle simple operators ?,
+ and * applied to backslashed expressions like \r.
* g-os_lib.ads: String_List type added, Argument_List type is now
subtype of String_List.
* g-os_lib.ads: Change copyright to FSF
Add comments for String_List type
* g-dirope.adb (Expand_Path): Fix bug. (wrong length when adding a
string to the buffer).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47905 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-dirope.adb')
| -rw-r--r-- | gcc/ada/g-dirope.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb index 7d212e8c71b..4755584168d 100644 --- a/gcc/ada/g-dirope.adb +++ b/gcc/ada/g-dirope.adb @@ -253,8 +253,8 @@ package body GNAT.Directory_Operations is Double_Result_Size; end loop; - Result (Result_Last + 1 .. Result_Last + S'Length - 1) := S; - Result_Last := Result_Last + S'Length - 1; + Result (Result_Last + 1 .. Result_Last + S'Length) := S; + Result_Last := Result_Last + S'Length; end Append; ------------------------ |