[Ada] Strip too long expressions in debug routines

2018-05-25  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* pprint.adb (Expression_Name): Strip too long expressions to avoid
	carrying very large strings.

From-SVN: r260732

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f3a0f38de6c54c7e1ba7e5d172ad0b17eb08fb6b..256ecb83c6deb9e39437713e38f5e7d6ebd1505e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-05-25  Arnaud Charlet  <charlet@adacore.com>
+
+       * pprint.adb (Expression_Name): Strip too long expressions to avoid
+       carrying very large strings.
+
 2018-05-25  Patrick Bernardi  <bernardi@adacore.com>
 
        * switch-b.adb (Scan_Binder_Switches): binder switch -Q accepts Natural

diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb
index 24c9aa1e447881b4e660d66e0496608f00501f9f..230a3d37c40378dc2bc63909ff00b09f68c2dd68 100644 (file)
--- a/gcc/ada/pprint.adb
+++ b/gcc/ada/pprint.adb
@@ -883,6 +883,7 @@ package body Pprint is
          end if;
 
          declare
+            Threshold        : constant := 256;
             Buffer           : String (1 .. Natural (End_Sloc - Scn));
             Index            : Natural := 0;
             Skipping_Comment : Boolean := False;
@@ -935,6 +936,12 @@ package body Pprint is
                         end if;
                   end case;
 
+                  --  Give up on too long strings
+
+                  if Index >= Threshold then
+                     return Buffer (1 .. Index) & "...";
+                  end if;
+
                   Scn := Scn + 1;
                end loop;
             end if;