FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
From-SVN: r247471
This commit is contained in:
Tristan Gingold 2017-05-02 08:40:12 +00:00 • committed by Arnaud Charlet
parent 6fdc25c4a3
commit 05b95f6333
3 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/ChangeLog
View file

@ -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

11
gcc/ada/s-trasym.adb
View file

@ -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;

8
gcc/ada/s-trasym.ads
View file

@ -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;