aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/scos.ads
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2010-01-26 10:55:29 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2010-01-26 11:55:29 +0100
commitec80da28b6bb82771044cf4c1120d24d30902873 (patch)
tree59379fcad2fca9a4afe77d876a200d2f8c352fae /gcc/ada/scos.ads
parent9dbf1c3e7f70bf9ecdf8a61340c9f76ff04251d3 (diff)
downloadgcc-ec80da28b6bb82771044cf4c1120d24d30902873.zip
gcc-ec80da28b6bb82771044cf4c1120d24d30902873.tar.gz
gcc-ec80da28b6bb82771044cf4c1120d24d30902873.tar.bz2
get_scos.adb (Get_SCOs): Implement new form of CS entries (multiple entries per line...
2010-01-26 Robert Dewar <dewar@adacore.com> * get_scos.adb (Get_SCOs): Implement new form of CS entries (multiple entries per line, one for each statement in the sequence). * par_sco.adb (Traverse_Declarations_Or_Statements): Increase array size from 100 to 10_000 for SC_Array to avoid any real possibility of overflow. Output decisions in for loops. Exclude labels from CS lines. * scos.ads: Clarify that label is not included in the entry point From-SVN: r156243
Diffstat (limited to 'gcc/ada/scos.ads')
-rw-r--r--gcc/ada/scos.ads3
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/scos.ads b/gcc/ada/scos.ads
index e9c1d15..b8dd08d 100644
--- a/gcc/ada/scos.ads
+++ b/gcc/ada/scos.ads
@@ -127,7 +127,8 @@ package SCOs is
-- body or block statement that has a non-empty declarative part
-- the first statement after a compound statement
-- the first statement after an EXIT, RAISE or GOTO statement
- -- any statement with a label
+ -- any statement with a label (the label itself is not part of the
+ -- entry point that is recorded).
-- Each entry point must appear as the first entry on a CS line.
-- The idea is that if any simple statement on a CS line is known to have