diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 10:03:25 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-31 10:03:25 +0000 |
| commit | 051378617c7c9093275018fb0c471f006072c507 (patch) | |
| tree | 65e23005d0906424d6085b9a4be1298abd71f4fb /gcc/ada/s-traceb-mastop.adb | |
| parent | 49373644e78cc7d0c928bd11f41561fe7dad914c (diff) | |
| download | gcc-051378617c7c9093275018fb0c471f006072c507.tar.gz | |
2014-07-31 Robert Dewar <dewar@adacore.com>
* inline.adb, s-traceb.adb, s-traceb-hpux.adb, memtrack.adb,
s-traceb-mastop.adb: Minor reformatting.
2014-07-31 Ed Schonberg <schonberg@adacore.com>
* exp_ch3.adb (Expand_Record_Extension): In ASIS_Mode perform
expansion, to handle properly visibility of selected components
in instance bodies.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213337 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-traceb-mastop.adb')
| -rw-r--r-- | gcc/ada/s-traceb-mastop.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/s-traceb-mastop.adb b/gcc/ada/s-traceb-mastop.adb index 79b8eccc61a..0ce7c50f933 100644 --- a/gcc/ada/s-traceb-mastop.adb +++ b/gcc/ada/s-traceb-mastop.adb @@ -114,8 +114,11 @@ package body System.Traceback is begin Call_Chain (Traceback'Address, Max_Len, Len, - Exclude_Min, Exclude_Max, Skip_Frames + 1); - -- Skip one extra frame so we skip the other Call_Chain as well + Exclude_Min, Exclude_Max, + + -- Skip one extra frame to skip the other Call_Chain entry as well + + Skip_Frames => Skip_Frames + 1); end Call_Chain; ------------------ |