diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 12:27:49 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 12:27:49 +0200 |
| commit | 47e11d08d66896ebf33e023c1724925ff2a1546e (patch) | |
| tree | 4cb0f919732a8780906712f099f44e28f97f78a4 /gcc/ada/a-strfix.adb | |
| parent | a3a16b218709b07f98329f42bc805d1c7731f71b (diff) | |
| download | gcc-47e11d08d66896ebf33e023c1724925ff2a1546e.zip gcc-47e11d08d66896ebf33e023c1724925ff2a1546e.tar.gz gcc-47e11d08d66896ebf33e023c1724925ff2a1546e.tar.bz2 | |
[multiple changes]
2011-08-01 Robert Dewar <dewar@adacore.com>
* atree.ads: Minor comment fix.
* a-stwifi.adb, a-stzfix.adb, a-strfix.adb, a-ztexio.ads, a-textio.ads,
a-witeio.ads, sem_prag.adb: Minor reformatting.
2011-08-01 Doug Rupp <rupp@adacore.com>
* env.c (__gnat_setenv) [VMS]: Force 32bit on item list structure
pointers. Use descrip.h header file for convenience. Add some
comments.
2011-08-01 Robert Dewar <dewar@adacore.com>
* freeze.adb (Freeze_Entity): Call Check_Aspect_At_Freeze_Point
(Freeze_All): Call Check_Aspect_At_End_Of_Declarations
* sem_ch13.ads, sem_ch13.adb (Check_Aspect_At_Freeze_Point):
New procedure.
(Check_Aspect_At_End_Of_Declarations): New procedure
(Analye_Aspect_Specification): Minor changes for above procedures
* sinfo.ads, sinfo.adb (Is_Delayed_Aspect): Now set in aspect
specification node as well.
2011-08-01 Pascal Obry <obry@adacore.com>
* adaint.c (_gnat_stat): GetFilesAttributesEx() would fail on special
Windows files. Use GetFilesAttributes() in this case to check for file
existence instead of returning with an error code.
From-SVN: r177008
Diffstat (limited to 'gcc/ada/a-strfix.adb')
| -rw-r--r-- | gcc/ada/a-strfix.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/a-strfix.adb b/gcc/ada/a-strfix.adb index 6bb0229..0f33958 100644 --- a/gcc/ada/a-strfix.adb +++ b/gcc/ada/a-strfix.adb @@ -485,8 +485,8 @@ package body Ada.Strings.Fixed is Integer'Max (0, Low - Source'First); -- Length of prefix of Source copied to result - Back_Len : constant Integer := - Integer'Max (0, Source'Last - High); + Back_Len : constant Integer := + Integer'Max (0, Source'Last - High); -- Length of suffix of Source copied to result Result_Length : constant Integer := @@ -496,13 +496,10 @@ package body Ada.Strings.Fixed is Result : String (1 .. Result_Length); begin - Result (1 .. Front_Len) := - Source (Source'First .. Low - 1); - Result (Front_Len + 1 .. Front_Len + By'Length) := - By; + Result (1 .. Front_Len) := Source (Source'First .. Low - 1); + Result (Front_Len + 1 .. Front_Len + By'Length) := By; Result (Front_Len + By'Length + 1 .. Result'Length) := Source (High + 1 .. Source'Last); - return Result; end; |