diff options
Diffstat (limited to 'gcc/ada/a-exctra.ads')
| -rw-r--r-- | gcc/ada/a-exctra.ads | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/gcc/ada/a-exctra.ads b/gcc/ada/a-exctra.ads index 622db08c778..97a110f2cf2 100644 --- a/gcc/ada/a-exctra.ads +++ b/gcc/ada/a-exctra.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2003 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -35,20 +35,23 @@ -- -- ------------------------------------------------------------------------------ --- This package is part of the support for tracebacks on exceptions. It is --- used ONLY from GNAT.Traceback.Symbolic and is provided to get access to --- the tracebacks in an exception occurrence. It may not be used directly --- from the Ada hierarchy (since it references GNAT.Traceback). +-- This package is part of the support for tracebacks on exceptions. -with GNAT.Traceback; +with System.Traceback_Entries; package Ada.Exceptions.Traceback is - function Tracebacks - (E : Exception_Occurrence) - return GNAT.Traceback.Tracebacks_Array; + package TBE renames System.Traceback_Entries; + + subtype Code_Loc is System.Address; + -- Code location in executing program + + type Tracebacks_Array is array (Positive range <>) of TBE.Traceback_Entry; + -- A traceback array is an array of traceback entries. + + function Tracebacks (E : Exception_Occurrence) return Tracebacks_Array; -- This function extracts the traceback information from an exception -- occurrence, and returns it formatted in the manner required for - -- processing in GNAT.Traceback. See g-traceb.ads for details. + -- processing in GNAT.Traceback. See g-traceb.ads for further details. end Ada.Exceptions.Traceback; |