From 5f2d216d27bef0ee6f851e1f75d7b79945504ac5 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 17 Aug 2009 10:30:39 +0000 Subject: a-crbtgk.adb, [...]: Minor code reorganization (use conditional expressions) 2009-08-17 Robert Dewar * a-crbtgk.adb, a-crdlli.adb, a-direct.adb: Minor code reorganization (use conditional expressions) From-SVN: r150837 --- gcc/ada/ChangeLog | 7 ++++--- gcc/ada/a-crbtgk.adb | 14 ++------------ gcc/ada/a-crdlli.adb | 10 ++-------- gcc/ada/a-direct.adb | 9 ++------- 4 files changed, 10 insertions(+), 30 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2107917..d77bb1a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,8 +1,9 @@ 2009-08-17 Robert Dewar - * 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). + * a-crbtgk.adb, a-crdlli.adb, a-direct.adb, 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). 2009-08-17 Robert Dewar diff --git a/gcc/ada/a-crbtgk.adb b/gcc/ada/a-crbtgk.adb index c06f31e..59d25be 100644 --- a/gcc/ada/a-crbtgk.adb +++ b/gcc/ada/a-crbtgk.adb @@ -125,12 +125,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Keys is while X /= null loop Y := X; Inserted := Is_Less_Key_Node (Key, X); - - if Inserted then - X := Ops.Left (X); - else - X := Ops.Right (X); - end if; + X := (if Inserted then Ops.Left (X) else Ops.Right (X)); end loop; -- If Inserted is True, then this means either that Tree is @@ -440,12 +435,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Keys is while X /= null loop Y := X; Before := Is_Less_Key_Node (Key, X); - - if Before then - X := Ops.Left (X); - else - X := Ops.Right (X); - end if; + X := (if Before then Ops.Left (X) else Ops.Right (X)); end loop; Insert_Post (Tree, Y, Before, Node); diff --git a/gcc/ada/a-crdlli.adb b/gcc/ada/a-crdlli.adb index acdc57d..137290b1 100644 --- a/gcc/ada/a-crdlli.adb +++ b/gcc/ada/a-crdlli.adb @@ -561,15 +561,9 @@ package body Ada.Containers.Restricted_Doubly_Linked_Lists is ---------- procedure Sort (Front, Back : Count_Type) is - Pivot : Count_Type; - + Pivot : constant Count_Type := + (if Front = 0 then Container.First else N (Front).Next); begin - if Front = 0 then - Pivot := Container.First; - else - Pivot := N (Front).Next; - end if; - if Pivot /= Back then Partition (Pivot, Back); Sort (Front, Pivot); diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb index d38745f..f0182c6 100644 --- a/gcc/ada/a-direct.adb +++ b/gcc/ada/a-direct.adb @@ -1065,14 +1065,9 @@ package body Ada.Directories is Cut_End : Natural; begin - -- Cut_Start point to the first simple name character + -- Cut_Start pointS to the first simple name character - if Cut_Start = 0 then - Cut_Start := Path'First; - - else - Cut_Start := Cut_Start + 1; - end if; + Cut_Start := (if Cut_Start = 0 then Path'First else Cut_Start + 1); -- Cut_End point to the last simple name character -- cgit v1.1