diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-11-15 14:52:10 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-11-15 14:52:10 +0100 |
| commit | ec09262ef15744e8266f0f064872c678670c5934 (patch) | |
| tree | 5dda4ec2592d28c0713f545a2b36a8425529c2d3 /gcc/ada/s-traces-default.adb | |
| parent | 2b6659ab10cf18b508e70bbff09b81275f740da3 (diff) | |
| download | gcc-ec09262ef15744e8266f0f064872c678670c5934.zip gcc-ec09262ef15744e8266f0f064872c678670c5934.tar.gz gcc-ec09262ef15744e8266f0f064872c678670c5934.tar.bz2 | |
s-traces-default.adb, [...]: Fix compilation errors.
2005-11-14 Arnaud Charlet <charlet@adacore.com>
* s-traces-default.adb, s-trafor-default.ads,
s-tratas-default.adb: Fix compilation errors.
From-SVN: r106955
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 b452331..2790c33 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 |