From 05b95f633306a41c792044b1bf47d2ee77791716 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 2 May 2017 08:40:12 +0000 Subject: [PATCH] * s-trasym.ads, s-trasym.adb (Enable_Cache): New. From-SVN: r247471 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/s-trasym.adb | 11 ++++++++++- gcc/ada/s-trasym.ads | 8 +++++++- 3 files changed, 21 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index fb54ab70c2c..15ae2ab9192 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2017-05-02 Tristan Gingold + + * s-trasym.ads, s-trasym.adb (Enable_Cache): New. + 2017-05-02 Ed Schonberg * 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 b98d1c334dd..e1f72dba521 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 2aa1d1f335a..7165437bb75 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; -- 2.30.2