diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:52:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-11-15 13:52:10 +0000 |
| commit | 7c24d85a1e55beb8aa16a7f5817ea9f0e9e1b295 (patch) | |
| tree | 5dda4ec2592d28c0713f545a2b36a8425529c2d3 /gcc/ada/s-traces-default.adb | |
| parent | 3054e9a8a4faf364503d23900c8dd629b077acc2 (diff) | |
| download | gcc-7c24d85a1e55beb8aa16a7f5817ea9f0e9e1b295.tar.gz | |
2005-11-14 Arnaud Charlet <charlet@adacore.com>
* s-traces-default.adb, s-trafor-default.ads,
s-tratas-default.adb: Fix compilation errors.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106955 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-traces-default.adb')
| -rw-r--r-- | gcc/ada/s-traces-default.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/s-traces-default.adb b/gcc/ada/s-traces-default.adb index b4523315eeb..2790c33e24c 100644 --- a/gcc/ada/s-traces-default.adb +++ b/gcc/ada/s-traces-default.adb @@ -45,7 +45,7 @@ package body System.Traces is ---------------------- procedure Send_Trace_Info (Id : Trace_T) is - Task_S : String := SSL.Task_Name.all; + Task_S : constant String := SSL.Task_Name.all; Trace_S : String (1 .. 3 + Task_S'Length); begin @@ -57,8 +57,8 @@ package body System.Traces is end Send_Trace_Info; procedure Send_Trace_Info (Id : Trace_T; Timeout : Duration) is - Task_S : String := SSL.Task_Name.all; - Timeout_S : String := Duration'Image (Timeout); + Task_S : constant String := SSL.Task_Name.all; + Timeout_S : constant String := Duration'Image (Timeout); Trace_S : String (1 .. 6 + Task_S'Length + Timeout_S'Length); begin |