* s-trasym.ads, s-trasym.adb (Enable_Cache): New.

From-SVN: r247471

gcc/ada/ChangeLog

+2017-05-02  Tristan Gingold  <gingold@adacore.com>
+
+	* s-trasym.ads, s-trasym.adb (Enable_Cache): New.
+
 2017-05-02  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_ch4.adb (Find_Equality_Types, Try_One_Interp): The same relaxed

gcc/ada/s-trasym.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1999-2015, AdaCore                     --
+--                     Copyright (C) 1999-2017, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -83,4 +83,13 @@ package body System.Traceback.Symbolic is
       return Symbolic_Traceback (Ada.Exceptions.Traceback.Tracebacks (E));
    end Symbolic_Traceback;
 
+   ------------------
+   -- Enable_Cache --
+   ------------------
+
+   procedure Enable_Cache (Include_Modules : Boolean := False) is
+   begin
+      null;
+   end Enable_Cache;
+
 end System.Traceback.Symbolic;

gcc/ada/s-trasym.ads

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1999-2015, AdaCore                     --
+--                     Copyright (C) 1999-2017, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -82,4 +82,10 @@ package System.Traceback.Symbolic is
      (E : Ada.Exceptions.Exception_Occurrence) return String;
    --  Build string containing symbolic traceback of given exception occurrence
 
+   procedure Enable_Cache (Include_Modules : Boolean := False);
+   --  Read symbolic information from binary files and cache them in memory.
+   --  This will speed up the above functions but will require more memory.
+   --  If Include_Modules is true, shared modules (or DLL) will also be cached.
+   --  This procedure may do nothing if not supported.
+
 end System.Traceback.Symbolic;