diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 10:07:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 10:07:32 +0000 |
| commit | 9cdffbc8e4a21e2ebd91c33264a250b3d0328129 (patch) | |
| tree | 7bec3cf8139da8c3fc9ab89202f6b0894c50fe0e /gcc/ada/g-arrspl.adb | |
| parent | 92d7a451bc1093930f14896b59bf02d61843d5b6 (diff) | |
| download | gcc-9cdffbc8e4a21e2ebd91c33264a250b3d0328129.tar.gz | |
2009-11-30 Thomas Quinot <quinot@adacore.com>
* s-crtl.ads, g-stseme.adb, s-fileio.adb (System.CRTL.strerror): Change
return type to Interfaces.C.Strings.chars_ptr to eliminate need for
dubious unchecked conversion at call sites.
* s-errrep.adb, s-errrep.ads, Makefile.rtl (System.Error_Reporting):
Remove obsolete, unused runtime unit.
* gcc-interface/Make-lang.in: Update dependencies.
* gcc-interface/Makefile.in: Remove VMS specialization of s-crtl, not
required anymore.
2009-11-30 Vincent Celier <celier@adacore.com>
* gnatlink.adb: Delete an eventual existing executable file, in case it
is a symbolic link, to avoid modifying the target of the symbolic link.
2009-11-30 Bob Duff <duff@adacore.com>
* socket.c: Add accessor functions for struct servent.
* g-sothco.ads (Servent): Declare interfaces to C accessor functions
for struct servent.
* g-socket.adb (To_Service_Entry): Use accessor functions for struct
servent.
2009-11-30 Robert Dewar <dewar@adacore.com>
* g-arrspl.adb: Minor reformatting
* g-dyntab.adb: Add missing pragma Compiler_Unit
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154769 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-arrspl.adb')
| -rw-r--r-- | gcc/ada/g-arrspl.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/g-arrspl.adb b/gcc/ada/g-arrspl.adb index 9a08b8282df..a897b13f913 100644 --- a/gcc/ada/g-arrspl.adb +++ b/gcc/ada/g-arrspl.adb @@ -238,10 +238,10 @@ package body GNAT.Array_Split is loop if K > Count_Sep then - -- No more separators, last slice ends at the end of the source - -- string. + -- No more separators, last slice ends at end of source string Stop := S.Source'Last; + else Stop := S.Indexes (K) - 1; end if; |