diff options
Diffstat (limited to 'gcc/ada/s-stache.adb')
-rw-r--r-- | gcc/ada/s-stache.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-stache.adb b/gcc/ada/s-stache.adb index aa403c3f988..a784ed154cb 100644 --- a/gcc/ada/s-stache.adb +++ b/gcc/ada/s-stache.adb @@ -214,7 +214,7 @@ package body System.Stack_Checking is Full_Check : declare - My_Stack : Stack_Access := Set_Stack_Info (Cache'Access); + My_Stack : constant Stack_Access := Set_Stack_Info (Cache'Access); -- At this point Stack.all might already be invalid, so -- it is essential to use our local copy of Stack! |