2009-11-30 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-stchop.adb

diff --git a/gcc/ada/s-stchop.adb b/gcc/ada/s-stchop.adb
index 7c62aa5..d4aa675 100644 (file)
--- a/gcc/ada/s-stchop.adb
+++ b/gcc/ada/s-stchop.adb
@@ -149,11 +149,9 @@ package body System.Stack_Checking.Operations is
          --  If a stack base address has been registered, honor it. Fallback to
          --  the address of a local object otherwise.
 
-         if My_Stack.Limit /= System.Null_Address then
-            My_Stack.Base := My_Stack.Limit;
-         else
-            My_Stack.Base := Frame_Address;
-         end if;
+         My_Stack.Base :=
+           (if My_Stack.Limit /= System.Null_Address
+            then My_Stack.Limit else Frame_Address);
 
          if Stack_Grows_Down then