diff options
Diffstat (limited to 'gcc/ada/s-secsta.adb')
-rw-r--r-- | gcc/ada/s-secsta.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb index 449d986d511..f88589d8324 100644 --- a/gcc/ada/s-secsta.adb +++ b/gcc/ada/s-secsta.adb @@ -423,7 +423,8 @@ package body System.Secondary_Stack is if not SS_Ratio_Dynamic then declare - Fixed_Stack : Fixed_Stack_Ptr := To_Fixed_Stack_Ptr (Stk); + Fixed_Stack : constant Fixed_Stack_Ptr := + To_Fixed_Stack_Ptr (Stk); begin Fixed_Stack.Top := 0; |