diff options
| author | Tristan Gingold <gingold@adacore.com> | 2017-05-02 08:40:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-05-02 10:40:12 +0200 |
| commit | 05b95f633306a41c792044b1bf47d2ee77791716 (patch) | |
| tree | bfe35ae8f95be46fa4d0afac9de1bbff0d222210 | |
| parent | 6fdc25c4a37d71887bbde1738523d6880eeae50b (diff) | |
| download | gcc-05b95f633306a41c792044b1bf47d2ee77791716.zip gcc-05b95f633306a41c792044b1bf47d2ee77791716.tar.gz gcc-05b95f633306a41c792044b1bf47d2ee77791716.tar.bz2 | |
* s-trasym.ads, s-trasym.adb (Enable_Cache): New.
From-SVN: r247471
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/s-trasym.adb | 11 | ||||
| -rw-r--r-- | gcc/ada/s-trasym.ads | 8 |
3 files changed, 21 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index fb54ab7..15ae2ab 100644 --- 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 b98d1c3..e1f72db 100644 --- 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 2aa1d1f..7165437 100644 --- 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; |