diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 11:45:39 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 11:45:39 +0100 |
| commit | 196b199369f3e1f24c391891fcf9ab90de2a2739 (patch) | |
| tree | 3b261d5a5445f547021de9cc6066149576f1ce31 /gcc/ada/s-stausa.adb | |
| parent | ffab1d071ca78b02490bb39ae784d1ad45f4eb04 (diff) | |
| download | gcc-196b199369f3e1f24c391891fcf9ab90de2a2739.zip gcc-196b199369f3e1f24c391891fcf9ab90de2a2739.tar.gz gcc-196b199369f3e1f24c391891fcf9ab90de2a2739.tar.bz2 | |
[multiple changes]
2009-11-30 Robert Dewar <dewar@adacore.com>
* osint.ads, prj.adb, prj.ads: Minor reformatting
* s-stchop.adb, s-taprop-vxworks.adb, s-taprop-tru64.adb,
s-taprop-vms.adb, s-taprop-linux.adb, s-taprop-solaris.adb,
s-strxdr.adb, s-taprop-irix.adb,
s-osinte-hpux-dce.adb, s-osinte-tru64.adb, s-taenca.adb,
s-taprop-hpux-dce.adb, s-stausa.adb, s-taprop-posix.adb: Minor code
reorganization (use conditional expressions).
2009-11-30 Bob Duff <duff@adacore.com>
* g-sttsne-locking.adb (Copy_Service_Entry): Complete previous change.
From-SVN: r154779
Diffstat (limited to 'gcc/ada/s-stausa.adb')
| -rw-r--r-- | gcc/ada/s-stausa.adb | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/gcc/ada/s-stausa.adb b/gcc/ada/s-stausa.adb index dfa8a1f..37dda6f 100644 --- a/gcc/ada/s-stausa.adb +++ b/gcc/ada/s-stausa.adb @@ -609,20 +609,18 @@ package body System.Stack_Usage is -- Take either the label size or the number image size for the -- size of the column "Stack Size". - if Size_Str_Len > Stack_Size_Str'Length then - Max_Stack_Size_Len := Size_Str_Len; - else - Max_Stack_Size_Len := Stack_Size_Str'Length; - end if; + Max_Stack_Size_Len := + (if Size_Str_Len > Stack_Size_Str'Length + then Size_Str_Len + else Stack_Size_Str'Length); -- Take either the label size or the number image size for the - -- size of the column "Stack Usage" + -- size of the column "Stack Usage". - if Result_Str_Len > Actual_Size_Str'Length then - Max_Actual_Use_Len := Result_Str_Len; - else - Max_Actual_Use_Len := Actual_Size_Str'Length; - end if; + Max_Actual_Use_Len := + (if Result_Str_Len > Actual_Size_Str'Length + then Result_Str_Len + else Actual_Size_Str'Length); Output_Result (Analyzer.Result_Id, |