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

From-SVN: r247471

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index fb54ab70c2c6722c6f63b8560521f0c5117394ea..15ae2ab91927ec194ae4b8a0c6f486af47704a92 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/ada/s-trasym.adb b/gcc/ada/s-trasym.adb
index b98d1c334dd3a41044102d3ae8a6cc5b09193906..e1f72dba521b112a6039f4cfd969d2659cff4e72 100644 (file)
--- a/gcc/ada/s-trasym.adb
+++ b/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;

diff --git a/gcc/ada/s-trasym.ads b/gcc/ada/s-trasym.ads
index 2aa1d1f335a1cf34e0a282a4a7cc1f39ca0c43ce..7165437bb759830d489ee8ae05a95948ca30bc2c 100644 (file)
--- a/gcc/ada/s-trasym.ads
+++ b/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;