From 8f1bcdb1fa4c2d75fec1a6b64ad324669f1f6203 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 31 Jul 2014 14:59:27 +0200 Subject: [PATCH] Minor reformmating. complete previous change on s-traceb.adb. From-SVN: r213358 --- gcc/ada/s-traceb.ads | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/gcc/ada/s-traceb.ads b/gcc/ada/s-traceb.ads index 67affcd0147..dbfea6a6f6f 100644 --- a/gcc/ada/s-traceb.ads +++ b/gcc/ada/s-traceb.ads @@ -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