diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 10:02:13 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 10:02:13 +0000 |
| commit | 49373644e78cc7d0c928bd11f41561fe7dad914c (patch) | |
| tree | 98d8ea606ed1b3f97b7d68b09f7679409a6515c0 /gcc/ada/s-traceb-mastop.adb | |
| parent | f3ccbbb3d5bcc113599b1bc7aeb4515fd4d65f1c (diff) | |
| download | gcc-49373644e78cc7d0c928bd11f41561fe7dad914c.tar.gz | |
2014-07-31 Robert Dewar <dewar@adacore.com>
* par-ch13.adb (Get_Aspect_Specifications): Set Inside_Depends.
* par-ch2.adb (P_Pragma): Set Inside_Depends.
* par-ch4.adb (P_Simple_Expression): Pass Inside_Depends to
Check_Unary_Plus_Or_Minus.
* scans.ads (Inside_Depends): New flag.
* scng.adb (Scan): Pass Inside_Depends to Check_Arrow.
* style.ads: Add Inside_Depends parameter to Check_Arrow Add
Inside_Depends parameter to Check_Unary_Plus_Or_Minus.
* styleg.adb (Check_Arrow): Handle Inside_Depends case.
(Check_Unary_Plus_Or_Minus): Handle Inside_Depends case.
* styleg.ads: Add Inside_Depends parameter to Check_Arrow Add.
Inside_Depends parameter to Check_Unary_Plus_Or_Minus.
2014-07-31 Javier Miranda <miranda@adacore.com>
* s-vaflop.adb Move the body of function T_To_G before
T_To_D. Required for frontend inlining.
* inline.adb (Has_Excluded_Contract): New subprogram used to
check if a subprogram inlined by the frontend has contracts
which cannot be inlined.
2014-07-31 Bob Duff <duff@adacore.com>
* s-traceb.adb, s-traceb-hpux.adb, s-traceb-mastop.adb:
(Call_Chain): Add 1 to number of frames to skip, to account for
the fact that there's one more frame on the stack.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213336 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-traceb-mastop.adb')
| -rw-r--r-- | gcc/ada/s-traceb-mastop.adb | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gcc/ada/s-traceb-mastop.adb b/gcc/ada/s-traceb-mastop.adb index f7da8070e77..79b8eccc61a 100644 --- a/gcc/ada/s-traceb-mastop.adb +++ b/gcc/ada/s-traceb-mastop.adb @@ -37,14 +37,15 @@ package body System.Traceback is use System.Machine_State_Operations; - 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 exported version, but takes Traceback as an Address +-- 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 exported version, but takes Traceback as an Address +-- ???See declaration in the spec for why this is temporarily commented out. ---------------- -- Call_Chain -- @@ -113,7 +114,8 @@ package body System.Traceback is begin Call_Chain (Traceback'Address, Max_Len, Len, - Exclude_Min, Exclude_Max, Skip_Frames); + Exclude_Min, Exclude_Max, Skip_Frames + 1); + -- Skip one extra frame so we skip the other Call_Chain as well end Call_Chain; ------------------ |