diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 10:08:23 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-01 10:08:23 +0000 |
| commit | 357686dd02920410208b716583a61d1947c39c2d (patch) | |
| tree | 0247822eace17cf34469977f4d8fed4b47516f78 /gcc/ada/inline.adb | |
| parent | c74100a661674696b3aed9db9435bb7ec992b6a5 (diff) | |
| download | gcc-357686dd02920410208b716583a61d1947c39c2d.tar.gz | |
2014-08-01 Robert Dewar <dewar@adacore.com>
* inline.adb, s-os_lib.ads: Minor reformatting.
2014-08-01 Arnaud Charlet <charlet@adacore.com>
* s-tasdeb.ads, s-tasdeb.adb (Master_Hook, Master_Completed_Hook): New.
* s-tassta.adb (Task_Wrapper, Vulnerable_Complete_Master): Call new
hooks.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213444 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index b9531c6c068..36631c2d68f 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -1239,10 +1239,14 @@ package body Inline is and then Msg (Msg'First .. Msg'First + 12) = "cannot inline" then declare - Len1 : constant Positive := 13; -- length of "cannot inline" + Len1 : constant Positive := 13; + -- Length of "cannot inline" + Len2 : constant Positive := 31; - -- lenth of "info: no contextual analysis of" + -- Length of "info: no contextual analysis of" + New_Msg : String (1 .. Msg'Length + Len2 - Len1); + begin New_Msg (1 .. Len2) := "info: no contextual analysis of"; New_Msg (Len2 + 1 .. Msg'Length + Len2 - Len1) := |