diff options
Diffstat (limited to 'gcc/ada/repinfo-input.adb')
| -rw-r--r-- | gcc/ada/repinfo-input.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/repinfo-input.adb b/gcc/ada/repinfo-input.adb index 78de441..c5cc34a 100644 --- a/gcc/ada/repinfo-input.adb +++ b/gcc/ada/repinfo-input.adb @@ -341,7 +341,8 @@ package body Repinfo.Input is else declare - S : String (Integer (Lo) .. Integer (Hi)); + S : constant String (Integer (Lo) .. Integer (Hi)); + pragma Import (Ada, S); for S'Address use Text (Lo)'Address; begin @@ -627,7 +628,8 @@ package body Repinfo.Input is else declare - S : String (Integer (Lo) .. Integer (Hi)); + S : constant String (Integer (Lo) .. Integer (Hi)); + pragma Import (Ada, S); for S'Address use Text (Lo)'Address; begin |