diff options
| author | aoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-03 04:48:56 +0000 |
|---|---|---|
| committer | aoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-03 04:48:56 +0000 |
| commit | f3f03d1ef01ae945da02a8d1fc3972459b1df5c3 (patch) | |
| tree | c8721229a0c70ed62bda3f6f75cc67cdb2c88a37 /gcc/ada/gnatvsn.adb | |
| parent | e440a3286bc89368b8d3a8fd6accd47191790bf2 (diff) | |
| download | gcc-f3f03d1ef01ae945da02a8d1fc3972459b1df5c3.tar.gz | |
* gnatvsn.adb (Gnat_Version_String): Don't overrun Ver_Len_Max.
* gnatvsn.ads (Ver_Len_Max): Bump up to 256.
* g-comver.adb (Ver_Len_Max): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167408 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnatvsn.adb')
| -rw-r--r-- | gcc/ada/gnatvsn.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/gnatvsn.adb b/gcc/ada/gnatvsn.adb index 34f72e746fa..6d76f7e5150 100644 --- a/gcc/ada/gnatvsn.adb +++ b/gcc/ada/gnatvsn.adb @@ -74,6 +74,8 @@ package body Gnatvsn is S (Pos + 1) := Version_String (Pos); Pos := Pos + 1; + + exit when Pos = Ver_Len_Max; end loop; return S (1 .. Pos); |