diff options
Diffstat (limited to 'gcc/ada/s-traent.ads')
| -rw-r--r-- | gcc/ada/s-traent.ads | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/s-traent.ads b/gcc/ada/s-traent.ads index 1dbb9ec15d6..74f53fd361d 100644 --- a/gcc/ada/s-traent.ads +++ b/gcc/ada/s-traent.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2003-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2014, 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 -- @@ -49,6 +49,8 @@ package System.Traceback_Entries is Null_TB_Entry : constant Traceback_Entry := System.Null_Address; -- This is the value to be used when initializing an entry + type Tracebacks_Array is array (Positive range <>) of Traceback_Entry; + function PC_For (TB_Entry : Traceback_Entry) return System.Address; pragma Inline (PC_For); -- Returns the address of the call instruction associated with the |