diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:09:55 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-17 10:09:55 +0000 |
commit | e2c9a0153d4c7bde3f380ec853788b7147684da0 (patch) | |
tree | 413a1ca4724e02b6fd1f64e1fe14e1d496bbffa8 /gcc/ada/a-cidlli.adb | |
parent | 447e605f4566b27ff6da22c7dca9671073f49508 (diff) | |
download | gcc-e2c9a0153d4c7bde3f380ec853788b7147684da0.tar.gz |
2009-08-17 Robert Dewar <dewar@adacore.com>
* a-caldel-vms.adb, a-calend-vms.adb, a-calfor.adb, a-cdlili.adb,
a-chahan.adb, a-cidlli.adb, a-coinve.adb, a-comlin.adb: Minor code
reorganization (use conditional expressions).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150834 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-cidlli.adb')
-rw-r--r-- | gcc/ada/a-cidlli.adb | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/gcc/ada/a-cidlli.adb b/gcc/ada/a-cidlli.adb index 510b7707b09..0d01502e05d 100644 --- a/gcc/ada/a-cidlli.adb +++ b/gcc/ada/a-cidlli.adb @@ -605,15 +605,9 @@ package body Ada.Containers.Indefinite_Doubly_Linked_Lists is ---------- procedure Sort (Front, Back : Node_Access) is - Pivot : Node_Access; - + Pivot : constant Node_Access := + (if Front = null then Container.First else Front.Next); begin - if Front = null then - Pivot := Container.First; - else - Pivot := Front.Next; - end if; - if Pivot /= Back then Partition (Pivot, Back); Sort (Front, Pivot); |