From ec09262ef15744e8266f0f064872c678670c5934 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 15 Nov 2005 14:52:10 +0100 Subject: s-traces-default.adb, [...]: Fix compilation errors. 2005-11-14 Arnaud Charlet * s-traces-default.adb, s-trafor-default.ads, s-tratas-default.adb: Fix compilation errors. From-SVN: r106955 --- gcc/ada/s-traces-default.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/ada/s-traces-default.adb') 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 -- cgit v1.1