2003-10-21 Arnaud Charlet <charlet@act-europe.fr>

[thirdparty/gcc.git] / gcc / ada / i-cpp.adb

diff --git a/gcc/ada/i-cpp.adb b/gcc/ada/i-cpp.adb
index 42ab384e18b38d8b39f67f72c8dd0a597d62d476..b54d6d98e9cb93a0c2554df6ec39a59b6eb3b088 100644 (file)
--- a/gcc/ada/i-cpp.adb
+++ b/gcc/ada/i-cpp.adb
@@ -320,7 +320,7 @@ package body Interfaces.CPP is
    -------------------
 
    function Expanded_Name (T : Vtable_Ptr) return String is
-      Result : Cstring_Ptr := T.TSD.Expanded_Name;
+      Result : constant Cstring_Ptr := T.TSD.Expanded_Name;
 
    begin
       return Result (1 .. Length (Result));
@@ -331,7 +331,7 @@ package body Interfaces.CPP is
    ------------------
 
    function External_Tag (T : Vtable_Ptr) return String is
-      Result : Cstring_Ptr := T.TSD.External_Tag;
+      Result : constant Cstring_Ptr := T.TSD.External_Tag;
 
    begin
       return Result (1 .. Length (Result));