diff options
| author | Patrick Bernardi <bernardi@adacore.com> | 2023-02-28 17:30:46 -0500 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-23 09:59:07 +0200 |
| commit | b0245ee3b3729fb961d203a580f21ecc49efb197 (patch) | |
| tree | 70ceca5b491c117a3d6a7925d8304716023f00a5 | |
| parent | e77a66ee9a6049c7a6b0d351772ad61be775c447 (diff) | |
| download | gcc-b0245ee3b3729fb961d203a580f21ecc49efb197.zip gcc-b0245ee3b3729fb961d203a580f21ecc49efb197.tar.gz gcc-b0245ee3b3729fb961d203a580f21ecc49efb197.tar.bz2 | |
ada: Remove redundant parentheses from System.Stack_Checking.Operations
gcc/ada/
* libgnat/s-stchop.adb (Stack_Check): Remove redundant parentheses.
| -rw-r--r-- | gcc/ada/libgnat/s-stchop.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/libgnat/s-stchop.adb b/gcc/ada/libgnat/s-stchop.adb index 8d8cc60..e0efcef 100644 --- a/gcc/ada/libgnat/s-stchop.adb +++ b/gcc/ada/libgnat/s-stchop.adb @@ -234,11 +234,10 @@ package body System.Stack_Checking.Operations is -- it is essential to use our local copy of Stack. begin - if (Stack_Grows_Down and then - (not (Frame_Address <= My_Stack.Base))) + if (Stack_Grows_Down and then not (Frame_Address <= My_Stack.Base)) or else (not Stack_Grows_Down and then - (not (Frame_Address >= My_Stack.Base))) + not (Frame_Address >= My_Stack.Base)) then -- The returned Base is lower than the stored one, so assume that -- the original one wasn't right and use the current Frame_Address |