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

Minor reformmating. complete previous change on s-traceb.adb.

Browse source 
From-SVN: r213358
This commit is contained in:
Arnaud Charlet 2014-07-31 14:59:27 +02:00
parent 67b6938303
commit 8f1bcdb1fa
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gcc/ada/s-traceb.ads
View file

@ -78,10 +78,22 @@ package System.Traceback is
-- number of stored entries. The first entry is the most recent call,
-- and the last entry is the highest level call.
procedure Call_Chain
(Traceback : System.Address;
Max_Len : Natural;
Len : out Natural;
Exclude_Min : System.Address := System.Null_Address;
Exclude_Max : System.Address := System.Null_Address;
Skip_Frames : Natural := 1);
-- Same as the previous version, but takes Traceback as an Address. The
-- previous version is preferred. ???This version should be removed from
-- this spec, and calls replaced with calls to the previous version. This
-- declaration can be moved to the bodies (s-traceb.adb, s-traceb-hpux.adb,
-- and s-traceb-mastop.adb), but it should not be visible to clients.
function C_Call_Chain
(Traceback : System.Address;
Max_Len : Natural)
return Natural;
Max_Len : Natural) return Natural;
pragma Export (C, C_Call_Chain, "system__traceback__c_call_chain");
-- Version that can be used directly from C