From 22b13ca246cbef5c7ad5b9cd5eef5cb238494c5a Mon Sep 17 00:00:00 2001
From: Vasiliy Fofanov <fofanov@adacore.com>
Date: Fri, 30 Jun 2023 12:22:47 +0000
Subject: [PATCH] ada: Refactor s-pack* units to remove multiple returns
The aim of this refactoring is to replace multiple returns from
branches of case and if statements by a single return statement
with a conditional expression. This is more readable and
maintainable, and also conformant with a Highly Recommended
design principle of ISO 26262-6.
gcc/ada/
* libgnat/s-pack03.adb: Update copyright year; refactor return statements.
* libgnat/s-pack05.adb: Likewise.
* libgnat/s-pack06.adb: Likewise.
* libgnat/s-pack07.adb: Likewise.
* libgnat/s-pack09.adb: Likewise.
* libgnat/s-pack10.adb: Likewise.
* libgnat/s-pack100.adb: Likewise.
* libgnat/s-pack101.adb: Likewise.
* libgnat/s-pack102.adb: Likewise.
* libgnat/s-pack103.adb: Likewise.
* libgnat/s-pack104.adb: Likewise.
* libgnat/s-pack105.adb: Likewise.
* libgnat/s-pack106.adb: Likewise.
* libgnat/s-pack107.adb: Likewise.
* libgnat/s-pack108.adb: Likewise.
* libgnat/s-pack109.adb: Likewise.
* libgnat/s-pack11.adb: Likewise.
* libgnat/s-pack110.adb: Likewise.
* libgnat/s-pack111.adb: Likewise.
* libgnat/s-pack112.adb: Likewise.
* libgnat/s-pack113.adb: Likewise.
* libgnat/s-pack114.adb: Likewise.
* libgnat/s-pack115.adb: Likewise.
* libgnat/s-pack116.adb: Likewise.
* libgnat/s-pack117.adb: Likewise.
* libgnat/s-pack118.adb: Likewise.
* libgnat/s-pack119.adb: Likewise.
* libgnat/s-pack12.adb: Likewise.
* libgnat/s-pack120.adb: Likewise.
* libgnat/s-pack121.adb: Likewise.
* libgnat/s-pack122.adb: Likewise.
* libgnat/s-pack123.adb: Likewise.
* libgnat/s-pack124.adb: Likewise.
* libgnat/s-pack125.adb: Likewise.
* libgnat/s-pack126.adb: Likewise.
* libgnat/s-pack127.adb: Likewise.
* libgnat/s-pack13.adb: Likewise.
* libgnat/s-pack14.adb: Likewise.
* libgnat/s-pack15.adb: Likewise.
* libgnat/s-pack17.adb: Likewise.
* libgnat/s-pack18.adb: Likewise.
* libgnat/s-pack19.adb: Likewise.
* libgnat/s-pack20.adb: Likewise.
* libgnat/s-pack21.adb: Likewise.
* libgnat/s-pack22.adb: Likewise.
* libgnat/s-pack23.adb: Likewise.
* libgnat/s-pack24.adb: Likewise.
* libgnat/s-pack25.adb: Likewise.
* libgnat/s-pack26.adb: Likewise.
* libgnat/s-pack27.adb: Likewise.
* libgnat/s-pack28.adb: Likewise.
* libgnat/s-pack29.adb: Likewise.
* libgnat/s-pack30.adb: Likewise.
* libgnat/s-pack31.adb: Likewise.
* libgnat/s-pack33.adb: Likewise.
* libgnat/s-pack34.adb: Likewise.
* libgnat/s-pack35.adb: Likewise.
* libgnat/s-pack36.adb: Likewise.
* libgnat/s-pack37.adb: Likewise.
* libgnat/s-pack38.adb: Likewise.
* libgnat/s-pack39.adb: Likewise.
* libgnat/s-pack40.adb: Likewise.
* libgnat/s-pack41.adb: Likewise.
* libgnat/s-pack42.adb: Likewise.
* libgnat/s-pack43.adb: Likewise.
* libgnat/s-pack44.adb: Likewise.
* libgnat/s-pack45.adb: Likewise.
* libgnat/s-pack46.adb: Likewise.
* libgnat/s-pack47.adb: Likewise.
* libgnat/s-pack48.adb: Likewise.
* libgnat/s-pack49.adb: Likewise.
* libgnat/s-pack50.adb: Likewise.
* libgnat/s-pack51.adb: Likewise.
* libgnat/s-pack52.adb: Likewise.
* libgnat/s-pack53.adb: Likewise.
* libgnat/s-pack54.adb: Likewise.
* libgnat/s-pack55.adb: Likewise.
* libgnat/s-pack56.adb: Likewise.
* libgnat/s-pack57.adb: Likewise.
* libgnat/s-pack58.adb: Likewise.
* libgnat/s-pack59.adb: Likewise.
* libgnat/s-pack60.adb: Likewise.
* libgnat/s-pack61.adb: Likewise.
* libgnat/s-pack62.adb: Likewise.
* libgnat/s-pack63.adb: Likewise.
* libgnat/s-pack65.adb: Likewise.
* libgnat/s-pack66.adb: Likewise.
* libgnat/s-pack67.adb: Likewise.
* libgnat/s-pack68.adb: Likewise.
* libgnat/s-pack69.adb: Likewise.
* libgnat/s-pack70.adb: Likewise.
* libgnat/s-pack71.adb: Likewise.
* libgnat/s-pack72.adb: Likewise.
* libgnat/s-pack73.adb: Likewise.
* libgnat/s-pack74.adb: Likewise.
* libgnat/s-pack75.adb: Likewise.
* libgnat/s-pack76.adb: Likewise.
* libgnat/s-pack77.adb: Likewise.
* libgnat/s-pack78.adb: Likewise.
* libgnat/s-pack79.adb: Likewise.
* libgnat/s-pack80.adb: Likewise.
* libgnat/s-pack81.adb: Likewise.
* libgnat/s-pack82.adb: Likewise.
* libgnat/s-pack83.adb: Likewise.
* libgnat/s-pack84.adb: Likewise.
* libgnat/s-pack85.adb: Likewise.
* libgnat/s-pack86.adb: Likewise.
* libgnat/s-pack87.adb: Likewise.
* libgnat/s-pack88.adb: Likewise.
* libgnat/s-pack89.adb: Likewise.
* libgnat/s-pack90.adb: Likewise.
* libgnat/s-pack91.adb: Likewise.
* libgnat/s-pack92.adb: Likewise.
* libgnat/s-pack93.adb: Likewise.
* libgnat/s-pack94.adb: Likewise.
* libgnat/s-pack95.adb: Likewise.
* libgnat/s-pack96.adb: Likewise.
* libgnat/s-pack97.adb: Likewise.
* libgnat/s-pack98.adb: Likewise.
* libgnat/s-pack99.adb: Likewise.
---
gcc/ada/libgnat/s-pack03.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack05.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack06.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack07.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack09.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack10.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack100.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack101.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack102.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack103.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack104.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack105.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack106.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack107.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack108.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack109.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack11.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack110.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack111.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack112.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack113.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack114.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack115.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack116.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack117.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack118.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack119.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack12.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack120.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack121.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack122.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack123.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack124.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack125.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack126.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack127.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack13.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack14.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack15.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack17.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack18.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack19.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack20.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack21.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack22.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack23.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack24.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack25.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack26.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack27.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack28.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack29.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack30.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack31.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack33.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack34.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack35.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack36.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack37.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack38.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack39.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack40.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack41.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack42.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack43.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack44.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack45.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack46.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack47.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack48.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack49.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack50.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack51.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack52.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack53.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack54.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack55.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack56.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack57.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack58.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack59.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack60.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack61.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack62.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack63.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack65.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack66.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack67.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack68.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack69.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack70.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack71.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack72.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack73.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack74.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack75.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack76.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack77.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack78.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack79.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack80.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack81.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack82.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack83.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack84.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack85.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack86.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack87.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack88.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack89.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack90.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack91.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack92.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack93.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack94.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack95.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack96.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack97.adb | 47 +++++++++---------
gcc/ada/libgnat/s-pack98.adb | 94 +++++++++++++++++------------------
gcc/ada/libgnat/s-pack99.adb | 47 +++++++++---------
120 files changed, 4071 insertions(+), 4248 deletions(-)
diff --git a/gcc/ada/libgnat/s-pack03.adb b/gcc/ada/libgnat/s-pack03.adb
index c9fb9380abc2..85e18a2ee76a 100644
--- a/gcc/ada/libgnat/s-pack03.adb
+++ b/gcc/ada/libgnat/s-pack03.adb
@@ -89,30 +89,29 @@ package body System.Pack_03 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_03;
------------
diff --git a/gcc/ada/libgnat/s-pack05.adb b/gcc/ada/libgnat/s-pack05.adb
index e899a5d329c0..6ed9f98ded54 100644
--- a/gcc/ada/libgnat/s-pack05.adb
+++ b/gcc/ada/libgnat/s-pack05.adb
@@ -89,30 +89,29 @@ package body System.Pack_05 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_05;
------------
diff --git a/gcc/ada/libgnat/s-pack06.adb b/gcc/ada/libgnat/s-pack06.adb
index 83602ca9f01e..9e5b5948baea 100644
--- a/gcc/ada/libgnat/s-pack06.adb
+++ b/gcc/ada/libgnat/s-pack06.adb
@@ -104,30 +104,29 @@ package body System.Pack_06 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_06;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_06 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_06;
------------
diff --git a/gcc/ada/libgnat/s-pack07.adb b/gcc/ada/libgnat/s-pack07.adb
index 0a59dd24de7d..222d864d9a53 100644
--- a/gcc/ada/libgnat/s-pack07.adb
+++ b/gcc/ada/libgnat/s-pack07.adb
@@ -89,30 +89,29 @@ package body System.Pack_07 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_07;
------------
diff --git a/gcc/ada/libgnat/s-pack09.adb b/gcc/ada/libgnat/s-pack09.adb
index 06cf6690e733..7643e8a6d4c2 100644
--- a/gcc/ada/libgnat/s-pack09.adb
+++ b/gcc/ada/libgnat/s-pack09.adb
@@ -89,30 +89,29 @@ package body System.Pack_09 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_09;
------------
diff --git a/gcc/ada/libgnat/s-pack10.adb b/gcc/ada/libgnat/s-pack10.adb
index 864fec033981..1b42cfd24968 100644
--- a/gcc/ada/libgnat/s-pack10.adb
+++ b/gcc/ada/libgnat/s-pack10.adb
@@ -104,30 +104,29 @@ package body System.Pack_10 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_10;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_10 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_10;
------------
diff --git a/gcc/ada/libgnat/s-pack100.adb b/gcc/ada/libgnat/s-pack100.adb
index cf856d7f3f4b..3318f2ec542c 100644
--- a/gcc/ada/libgnat/s-pack100.adb
+++ b/gcc/ada/libgnat/s-pack100.adb
@@ -104,30 +104,29 @@ package body System.Pack_100 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_100;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_100 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_100;
------------
diff --git a/gcc/ada/libgnat/s-pack101.adb b/gcc/ada/libgnat/s-pack101.adb
index c416d0c68658..947ace2d78fa 100644
--- a/gcc/ada/libgnat/s-pack101.adb
+++ b/gcc/ada/libgnat/s-pack101.adb
@@ -89,30 +89,29 @@ package body System.Pack_101 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_101;
------------
diff --git a/gcc/ada/libgnat/s-pack102.adb b/gcc/ada/libgnat/s-pack102.adb
index 5409c7d144d4..6f91469a3805 100644
--- a/gcc/ada/libgnat/s-pack102.adb
+++ b/gcc/ada/libgnat/s-pack102.adb
@@ -104,30 +104,29 @@ package body System.Pack_102 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_102;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_102 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_102;
------------
diff --git a/gcc/ada/libgnat/s-pack103.adb b/gcc/ada/libgnat/s-pack103.adb
index 8d70ae6b8a0a..fa014b336f5c 100644
--- a/gcc/ada/libgnat/s-pack103.adb
+++ b/gcc/ada/libgnat/s-pack103.adb
@@ -89,30 +89,29 @@ package body System.Pack_103 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_103;
------------
diff --git a/gcc/ada/libgnat/s-pack104.adb b/gcc/ada/libgnat/s-pack104.adb
index 137127e14096..d699ae23aa55 100644
--- a/gcc/ada/libgnat/s-pack104.adb
+++ b/gcc/ada/libgnat/s-pack104.adb
@@ -104,30 +104,29 @@ package body System.Pack_104 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_104;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_104 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_104;
------------
diff --git a/gcc/ada/libgnat/s-pack105.adb b/gcc/ada/libgnat/s-pack105.adb
index 0685c9519da4..694315e4ae6d 100644
--- a/gcc/ada/libgnat/s-pack105.adb
+++ b/gcc/ada/libgnat/s-pack105.adb
@@ -89,30 +89,29 @@ package body System.Pack_105 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_105;
------------
diff --git a/gcc/ada/libgnat/s-pack106.adb b/gcc/ada/libgnat/s-pack106.adb
index 21436c19a548..5d50459e5652 100644
--- a/gcc/ada/libgnat/s-pack106.adb
+++ b/gcc/ada/libgnat/s-pack106.adb
@@ -104,30 +104,29 @@ package body System.Pack_106 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_106;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_106 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_106;
------------
diff --git a/gcc/ada/libgnat/s-pack107.adb b/gcc/ada/libgnat/s-pack107.adb
index 255c53684aa0..d3f3aa18b547 100644
--- a/gcc/ada/libgnat/s-pack107.adb
+++ b/gcc/ada/libgnat/s-pack107.adb
@@ -89,30 +89,29 @@ package body System.Pack_107 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_107;
------------
diff --git a/gcc/ada/libgnat/s-pack108.adb b/gcc/ada/libgnat/s-pack108.adb
index 8ba37dbd56ec..711442d9ae7a 100644
--- a/gcc/ada/libgnat/s-pack108.adb
+++ b/gcc/ada/libgnat/s-pack108.adb
@@ -104,30 +104,29 @@ package body System.Pack_108 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_108;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_108 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_108;
------------
diff --git a/gcc/ada/libgnat/s-pack109.adb b/gcc/ada/libgnat/s-pack109.adb
index a719b1edb131..5751a62987b0 100644
--- a/gcc/ada/libgnat/s-pack109.adb
+++ b/gcc/ada/libgnat/s-pack109.adb
@@ -89,30 +89,29 @@ package body System.Pack_109 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_109;
------------
diff --git a/gcc/ada/libgnat/s-pack11.adb b/gcc/ada/libgnat/s-pack11.adb
index c4903b470eac..d16fe8e126a2 100644
--- a/gcc/ada/libgnat/s-pack11.adb
+++ b/gcc/ada/libgnat/s-pack11.adb
@@ -89,30 +89,29 @@ package body System.Pack_11 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_11;
------------
diff --git a/gcc/ada/libgnat/s-pack110.adb b/gcc/ada/libgnat/s-pack110.adb
index 0642474ee7f1..2d70d48b9f6b 100644
--- a/gcc/ada/libgnat/s-pack110.adb
+++ b/gcc/ada/libgnat/s-pack110.adb
@@ -104,30 +104,29 @@ package body System.Pack_110 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_110;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_110 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_110;
------------
diff --git a/gcc/ada/libgnat/s-pack111.adb b/gcc/ada/libgnat/s-pack111.adb
index 04faca428095..7ee38037aec1 100644
--- a/gcc/ada/libgnat/s-pack111.adb
+++ b/gcc/ada/libgnat/s-pack111.adb
@@ -89,30 +89,29 @@ package body System.Pack_111 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_111;
------------
diff --git a/gcc/ada/libgnat/s-pack112.adb b/gcc/ada/libgnat/s-pack112.adb
index c12ee83d063b..56447c1d055c 100644
--- a/gcc/ada/libgnat/s-pack112.adb
+++ b/gcc/ada/libgnat/s-pack112.adb
@@ -104,30 +104,29 @@ package body System.Pack_112 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_112;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_112 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_112;
------------
diff --git a/gcc/ada/libgnat/s-pack113.adb b/gcc/ada/libgnat/s-pack113.adb
index 60d7f88a5a44..e456f81e372c 100644
--- a/gcc/ada/libgnat/s-pack113.adb
+++ b/gcc/ada/libgnat/s-pack113.adb
@@ -89,30 +89,29 @@ package body System.Pack_113 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_113;
------------
diff --git a/gcc/ada/libgnat/s-pack114.adb b/gcc/ada/libgnat/s-pack114.adb
index 26821e1c24d2..9f48f4b5e003 100644
--- a/gcc/ada/libgnat/s-pack114.adb
+++ b/gcc/ada/libgnat/s-pack114.adb
@@ -104,30 +104,29 @@ package body System.Pack_114 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_114;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_114 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_114;
------------
diff --git a/gcc/ada/libgnat/s-pack115.adb b/gcc/ada/libgnat/s-pack115.adb
index ff03f1c84f01..0cf3318ed97c 100644
--- a/gcc/ada/libgnat/s-pack115.adb
+++ b/gcc/ada/libgnat/s-pack115.adb
@@ -89,30 +89,29 @@ package body System.Pack_115 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_115;
------------
diff --git a/gcc/ada/libgnat/s-pack116.adb b/gcc/ada/libgnat/s-pack116.adb
index 26b1420f7ede..8bfc5b994fdb 100644
--- a/gcc/ada/libgnat/s-pack116.adb
+++ b/gcc/ada/libgnat/s-pack116.adb
@@ -104,30 +104,29 @@ package body System.Pack_116 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_116;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_116 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_116;
------------
diff --git a/gcc/ada/libgnat/s-pack117.adb b/gcc/ada/libgnat/s-pack117.adb
index b748b097910f..b4afc61c1d69 100644
--- a/gcc/ada/libgnat/s-pack117.adb
+++ b/gcc/ada/libgnat/s-pack117.adb
@@ -89,30 +89,29 @@ package body System.Pack_117 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_117;
------------
diff --git a/gcc/ada/libgnat/s-pack118.adb b/gcc/ada/libgnat/s-pack118.adb
index f7bb29de3d54..4e0fd5e68697 100644
--- a/gcc/ada/libgnat/s-pack118.adb
+++ b/gcc/ada/libgnat/s-pack118.adb
@@ -104,30 +104,29 @@ package body System.Pack_118 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_118;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_118 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_118;
------------
diff --git a/gcc/ada/libgnat/s-pack119.adb b/gcc/ada/libgnat/s-pack119.adb
index b871f9e26942..0e42d1495e5a 100644
--- a/gcc/ada/libgnat/s-pack119.adb
+++ b/gcc/ada/libgnat/s-pack119.adb
@@ -89,30 +89,29 @@ package body System.Pack_119 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_119;
------------
diff --git a/gcc/ada/libgnat/s-pack12.adb b/gcc/ada/libgnat/s-pack12.adb
index 9a60be78987a..41d36a64b3b1 100644
--- a/gcc/ada/libgnat/s-pack12.adb
+++ b/gcc/ada/libgnat/s-pack12.adb
@@ -104,30 +104,29 @@ package body System.Pack_12 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_12;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_12 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_12;
------------
diff --git a/gcc/ada/libgnat/s-pack120.adb b/gcc/ada/libgnat/s-pack120.adb
index 16491a264a9b..5fdde24fa5d5 100644
--- a/gcc/ada/libgnat/s-pack120.adb
+++ b/gcc/ada/libgnat/s-pack120.adb
@@ -104,30 +104,29 @@ package body System.Pack_120 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_120;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_120 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_120;
------------
diff --git a/gcc/ada/libgnat/s-pack121.adb b/gcc/ada/libgnat/s-pack121.adb
index 5092db345c6c..4c7ad22bca15 100644
--- a/gcc/ada/libgnat/s-pack121.adb
+++ b/gcc/ada/libgnat/s-pack121.adb
@@ -89,30 +89,29 @@ package body System.Pack_121 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_121;
------------
diff --git a/gcc/ada/libgnat/s-pack122.adb b/gcc/ada/libgnat/s-pack122.adb
index 1ebe18b014a9..45cb06bd8a32 100644
--- a/gcc/ada/libgnat/s-pack122.adb
+++ b/gcc/ada/libgnat/s-pack122.adb
@@ -104,30 +104,29 @@ package body System.Pack_122 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_122;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_122 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_122;
------------
diff --git a/gcc/ada/libgnat/s-pack123.adb b/gcc/ada/libgnat/s-pack123.adb
index 0ea7d62ed333..b524cac6ebfb 100644
--- a/gcc/ada/libgnat/s-pack123.adb
+++ b/gcc/ada/libgnat/s-pack123.adb
@@ -89,30 +89,29 @@ package body System.Pack_123 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_123;
------------
diff --git a/gcc/ada/libgnat/s-pack124.adb b/gcc/ada/libgnat/s-pack124.adb
index abf42d822780..328d7dccc7b3 100644
--- a/gcc/ada/libgnat/s-pack124.adb
+++ b/gcc/ada/libgnat/s-pack124.adb
@@ -104,30 +104,29 @@ package body System.Pack_124 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_124;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_124 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_124;
------------
diff --git a/gcc/ada/libgnat/s-pack125.adb b/gcc/ada/libgnat/s-pack125.adb
index 6e7fd5b32e5a..93fb70f9364c 100644
--- a/gcc/ada/libgnat/s-pack125.adb
+++ b/gcc/ada/libgnat/s-pack125.adb
@@ -89,30 +89,29 @@ package body System.Pack_125 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_125;
------------
diff --git a/gcc/ada/libgnat/s-pack126.adb b/gcc/ada/libgnat/s-pack126.adb
index 606ab952a3a3..abaab528f4f0 100644
--- a/gcc/ada/libgnat/s-pack126.adb
+++ b/gcc/ada/libgnat/s-pack126.adb
@@ -104,30 +104,29 @@ package body System.Pack_126 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_126;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_126 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_126;
------------
diff --git a/gcc/ada/libgnat/s-pack127.adb b/gcc/ada/libgnat/s-pack127.adb
index c5ca67b1a0d0..f45d8b353f82 100644
--- a/gcc/ada/libgnat/s-pack127.adb
+++ b/gcc/ada/libgnat/s-pack127.adb
@@ -89,30 +89,29 @@ package body System.Pack_127 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_127;
------------
diff --git a/gcc/ada/libgnat/s-pack13.adb b/gcc/ada/libgnat/s-pack13.adb
index 894faa403724..aa40ef96d484 100644
--- a/gcc/ada/libgnat/s-pack13.adb
+++ b/gcc/ada/libgnat/s-pack13.adb
@@ -89,30 +89,29 @@ package body System.Pack_13 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_13;
------------
diff --git a/gcc/ada/libgnat/s-pack14.adb b/gcc/ada/libgnat/s-pack14.adb
index 731b56446e5d..c458e411ee64 100644
--- a/gcc/ada/libgnat/s-pack14.adb
+++ b/gcc/ada/libgnat/s-pack14.adb
@@ -104,30 +104,29 @@ package body System.Pack_14 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_14;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_14 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_14;
------------
diff --git a/gcc/ada/libgnat/s-pack15.adb b/gcc/ada/libgnat/s-pack15.adb
index 530c2051fddc..e08cb960fcd2 100644
--- a/gcc/ada/libgnat/s-pack15.adb
+++ b/gcc/ada/libgnat/s-pack15.adb
@@ -89,30 +89,29 @@ package body System.Pack_15 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_15;
------------
diff --git a/gcc/ada/libgnat/s-pack17.adb b/gcc/ada/libgnat/s-pack17.adb
index 95454bff9e0b..db109ef87b8a 100644
--- a/gcc/ada/libgnat/s-pack17.adb
+++ b/gcc/ada/libgnat/s-pack17.adb
@@ -89,30 +89,29 @@ package body System.Pack_17 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_17;
------------
diff --git a/gcc/ada/libgnat/s-pack18.adb b/gcc/ada/libgnat/s-pack18.adb
index cfc05ff1b135..4c04564de466 100644
--- a/gcc/ada/libgnat/s-pack18.adb
+++ b/gcc/ada/libgnat/s-pack18.adb
@@ -104,30 +104,29 @@ package body System.Pack_18 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_18;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_18 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_18;
------------
diff --git a/gcc/ada/libgnat/s-pack19.adb b/gcc/ada/libgnat/s-pack19.adb
index b3895bf7c260..9a0b3e527288 100644
--- a/gcc/ada/libgnat/s-pack19.adb
+++ b/gcc/ada/libgnat/s-pack19.adb
@@ -89,30 +89,29 @@ package body System.Pack_19 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_19;
------------
diff --git a/gcc/ada/libgnat/s-pack20.adb b/gcc/ada/libgnat/s-pack20.adb
index e6f1cc7ac0b1..c11b04371a12 100644
--- a/gcc/ada/libgnat/s-pack20.adb
+++ b/gcc/ada/libgnat/s-pack20.adb
@@ -104,30 +104,29 @@ package body System.Pack_20 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_20;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_20 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_20;
------------
diff --git a/gcc/ada/libgnat/s-pack21.adb b/gcc/ada/libgnat/s-pack21.adb
index 6adafc82444c..429aa13d1e4e 100644
--- a/gcc/ada/libgnat/s-pack21.adb
+++ b/gcc/ada/libgnat/s-pack21.adb
@@ -89,30 +89,29 @@ package body System.Pack_21 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_21;
------------
diff --git a/gcc/ada/libgnat/s-pack22.adb b/gcc/ada/libgnat/s-pack22.adb
index bf9fdfa34e4c..f50fa152544f 100644
--- a/gcc/ada/libgnat/s-pack22.adb
+++ b/gcc/ada/libgnat/s-pack22.adb
@@ -104,30 +104,29 @@ package body System.Pack_22 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_22;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_22 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_22;
------------
diff --git a/gcc/ada/libgnat/s-pack23.adb b/gcc/ada/libgnat/s-pack23.adb
index 5ef5e25fbca3..8f5cf547cabc 100644
--- a/gcc/ada/libgnat/s-pack23.adb
+++ b/gcc/ada/libgnat/s-pack23.adb
@@ -89,30 +89,29 @@ package body System.Pack_23 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_23;
------------
diff --git a/gcc/ada/libgnat/s-pack24.adb b/gcc/ada/libgnat/s-pack24.adb
index aa69a87c2f73..504e1ce65245 100644
--- a/gcc/ada/libgnat/s-pack24.adb
+++ b/gcc/ada/libgnat/s-pack24.adb
@@ -104,30 +104,29 @@ package body System.Pack_24 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_24;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_24 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_24;
------------
diff --git a/gcc/ada/libgnat/s-pack25.adb b/gcc/ada/libgnat/s-pack25.adb
index 71a1589ef441..ee12a4bbe8ba 100644
--- a/gcc/ada/libgnat/s-pack25.adb
+++ b/gcc/ada/libgnat/s-pack25.adb
@@ -89,30 +89,29 @@ package body System.Pack_25 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_25;
------------
diff --git a/gcc/ada/libgnat/s-pack26.adb b/gcc/ada/libgnat/s-pack26.adb
index 82ce3ee3061c..9d54c92e7117 100644
--- a/gcc/ada/libgnat/s-pack26.adb
+++ b/gcc/ada/libgnat/s-pack26.adb
@@ -104,30 +104,29 @@ package body System.Pack_26 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_26;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_26 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_26;
------------
diff --git a/gcc/ada/libgnat/s-pack27.adb b/gcc/ada/libgnat/s-pack27.adb
index 6d75a6e50124..9609a2b48ffa 100644
--- a/gcc/ada/libgnat/s-pack27.adb
+++ b/gcc/ada/libgnat/s-pack27.adb
@@ -89,30 +89,29 @@ package body System.Pack_27 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_27;
------------
diff --git a/gcc/ada/libgnat/s-pack28.adb b/gcc/ada/libgnat/s-pack28.adb
index 5ad408655f96..883932fa3b05 100644
--- a/gcc/ada/libgnat/s-pack28.adb
+++ b/gcc/ada/libgnat/s-pack28.adb
@@ -104,30 +104,29 @@ package body System.Pack_28 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_28;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_28 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_28;
------------
diff --git a/gcc/ada/libgnat/s-pack29.adb b/gcc/ada/libgnat/s-pack29.adb
index 0d8e60757cec..c531f1a0ae02 100644
--- a/gcc/ada/libgnat/s-pack29.adb
+++ b/gcc/ada/libgnat/s-pack29.adb
@@ -89,30 +89,29 @@ package body System.Pack_29 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_29;
------------
diff --git a/gcc/ada/libgnat/s-pack30.adb b/gcc/ada/libgnat/s-pack30.adb
index 9fac8b97086a..ca5ead71c3c0 100644
--- a/gcc/ada/libgnat/s-pack30.adb
+++ b/gcc/ada/libgnat/s-pack30.adb
@@ -104,30 +104,29 @@ package body System.Pack_30 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_30;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_30 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_30;
------------
diff --git a/gcc/ada/libgnat/s-pack31.adb b/gcc/ada/libgnat/s-pack31.adb
index 4c300e5470b2..537b5d293d7f 100644
--- a/gcc/ada/libgnat/s-pack31.adb
+++ b/gcc/ada/libgnat/s-pack31.adb
@@ -89,30 +89,29 @@ package body System.Pack_31 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_31;
------------
diff --git a/gcc/ada/libgnat/s-pack33.adb b/gcc/ada/libgnat/s-pack33.adb
index 333b5339cf0f..815b5bba7d95 100644
--- a/gcc/ada/libgnat/s-pack33.adb
+++ b/gcc/ada/libgnat/s-pack33.adb
@@ -89,30 +89,29 @@ package body System.Pack_33 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_33;
------------
diff --git a/gcc/ada/libgnat/s-pack34.adb b/gcc/ada/libgnat/s-pack34.adb
index 44366aae5216..8a8ceeab01ca 100644
--- a/gcc/ada/libgnat/s-pack34.adb
+++ b/gcc/ada/libgnat/s-pack34.adb
@@ -104,30 +104,29 @@ package body System.Pack_34 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_34;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_34 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_34;
------------
diff --git a/gcc/ada/libgnat/s-pack35.adb b/gcc/ada/libgnat/s-pack35.adb
index e65da9a3dd43..7f3ce98b6743 100644
--- a/gcc/ada/libgnat/s-pack35.adb
+++ b/gcc/ada/libgnat/s-pack35.adb
@@ -89,30 +89,29 @@ package body System.Pack_35 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_35;
------------
diff --git a/gcc/ada/libgnat/s-pack36.adb b/gcc/ada/libgnat/s-pack36.adb
index 84f394116995..75963d195901 100644
--- a/gcc/ada/libgnat/s-pack36.adb
+++ b/gcc/ada/libgnat/s-pack36.adb
@@ -104,30 +104,29 @@ package body System.Pack_36 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_36;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_36 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_36;
------------
diff --git a/gcc/ada/libgnat/s-pack37.adb b/gcc/ada/libgnat/s-pack37.adb
index d9d48cdcba31..2fe4d7ca8346 100644
--- a/gcc/ada/libgnat/s-pack37.adb
+++ b/gcc/ada/libgnat/s-pack37.adb
@@ -89,30 +89,29 @@ package body System.Pack_37 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_37;
------------
diff --git a/gcc/ada/libgnat/s-pack38.adb b/gcc/ada/libgnat/s-pack38.adb
index 9d6e48979425..5aa4d076b91c 100644
--- a/gcc/ada/libgnat/s-pack38.adb
+++ b/gcc/ada/libgnat/s-pack38.adb
@@ -104,30 +104,29 @@ package body System.Pack_38 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_38;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_38 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_38;
------------
diff --git a/gcc/ada/libgnat/s-pack39.adb b/gcc/ada/libgnat/s-pack39.adb
index bd0b481b9b98..47772675f5de 100644
--- a/gcc/ada/libgnat/s-pack39.adb
+++ b/gcc/ada/libgnat/s-pack39.adb
@@ -89,30 +89,29 @@ package body System.Pack_39 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_39;
------------
diff --git a/gcc/ada/libgnat/s-pack40.adb b/gcc/ada/libgnat/s-pack40.adb
index da3addebfcac..35281d4563e9 100644
--- a/gcc/ada/libgnat/s-pack40.adb
+++ b/gcc/ada/libgnat/s-pack40.adb
@@ -104,30 +104,29 @@ package body System.Pack_40 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_40;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_40 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_40;
------------
diff --git a/gcc/ada/libgnat/s-pack41.adb b/gcc/ada/libgnat/s-pack41.adb
index 7a79f8b5fbaa..7fe456876272 100644
--- a/gcc/ada/libgnat/s-pack41.adb
+++ b/gcc/ada/libgnat/s-pack41.adb
@@ -89,30 +89,29 @@ package body System.Pack_41 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_41;
------------
diff --git a/gcc/ada/libgnat/s-pack42.adb b/gcc/ada/libgnat/s-pack42.adb
index 09159b2394ce..ee099e436297 100644
--- a/gcc/ada/libgnat/s-pack42.adb
+++ b/gcc/ada/libgnat/s-pack42.adb
@@ -104,30 +104,29 @@ package body System.Pack_42 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_42;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_42 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_42;
------------
diff --git a/gcc/ada/libgnat/s-pack43.adb b/gcc/ada/libgnat/s-pack43.adb
index 5921d3e92a56..bd46efb27438 100644
--- a/gcc/ada/libgnat/s-pack43.adb
+++ b/gcc/ada/libgnat/s-pack43.adb
@@ -89,30 +89,29 @@ package body System.Pack_43 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_43;
------------
diff --git a/gcc/ada/libgnat/s-pack44.adb b/gcc/ada/libgnat/s-pack44.adb
index 57420fec5e8e..fa6390e8acea 100644
--- a/gcc/ada/libgnat/s-pack44.adb
+++ b/gcc/ada/libgnat/s-pack44.adb
@@ -104,30 +104,29 @@ package body System.Pack_44 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_44;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_44 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_44;
------------
diff --git a/gcc/ada/libgnat/s-pack45.adb b/gcc/ada/libgnat/s-pack45.adb
index 13753bc6fa57..798c1eaa995e 100644
--- a/gcc/ada/libgnat/s-pack45.adb
+++ b/gcc/ada/libgnat/s-pack45.adb
@@ -89,30 +89,29 @@ package body System.Pack_45 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_45;
------------
diff --git a/gcc/ada/libgnat/s-pack46.adb b/gcc/ada/libgnat/s-pack46.adb
index 3911743bfdd3..a3e637f5eb53 100644
--- a/gcc/ada/libgnat/s-pack46.adb
+++ b/gcc/ada/libgnat/s-pack46.adb
@@ -104,30 +104,29 @@ package body System.Pack_46 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_46;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_46 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_46;
------------
diff --git a/gcc/ada/libgnat/s-pack47.adb b/gcc/ada/libgnat/s-pack47.adb
index ffe4edd7d489..14b8efd5de44 100644
--- a/gcc/ada/libgnat/s-pack47.adb
+++ b/gcc/ada/libgnat/s-pack47.adb
@@ -89,30 +89,29 @@ package body System.Pack_47 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_47;
------------
diff --git a/gcc/ada/libgnat/s-pack48.adb b/gcc/ada/libgnat/s-pack48.adb
index 6ab832920685..4ae6cff6ca91 100644
--- a/gcc/ada/libgnat/s-pack48.adb
+++ b/gcc/ada/libgnat/s-pack48.adb
@@ -104,30 +104,29 @@ package body System.Pack_48 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_48;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_48 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_48;
------------
diff --git a/gcc/ada/libgnat/s-pack49.adb b/gcc/ada/libgnat/s-pack49.adb
index 745d774f86ae..a3df22a7cbdc 100644
--- a/gcc/ada/libgnat/s-pack49.adb
+++ b/gcc/ada/libgnat/s-pack49.adb
@@ -89,30 +89,29 @@ package body System.Pack_49 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_49;
------------
diff --git a/gcc/ada/libgnat/s-pack50.adb b/gcc/ada/libgnat/s-pack50.adb
index 674b61f8e361..b0910b78a954 100644
--- a/gcc/ada/libgnat/s-pack50.adb
+++ b/gcc/ada/libgnat/s-pack50.adb
@@ -104,30 +104,29 @@ package body System.Pack_50 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_50;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_50 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_50;
------------
diff --git a/gcc/ada/libgnat/s-pack51.adb b/gcc/ada/libgnat/s-pack51.adb
index 12ec499032cf..3f65265656a2 100644
--- a/gcc/ada/libgnat/s-pack51.adb
+++ b/gcc/ada/libgnat/s-pack51.adb
@@ -89,30 +89,29 @@ package body System.Pack_51 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_51;
------------
diff --git a/gcc/ada/libgnat/s-pack52.adb b/gcc/ada/libgnat/s-pack52.adb
index 2a515134ab97..0fb5d41be2d0 100644
--- a/gcc/ada/libgnat/s-pack52.adb
+++ b/gcc/ada/libgnat/s-pack52.adb
@@ -104,30 +104,29 @@ package body System.Pack_52 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_52;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_52 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_52;
------------
diff --git a/gcc/ada/libgnat/s-pack53.adb b/gcc/ada/libgnat/s-pack53.adb
index 87f8ce4e35a2..8fbbb2834fb2 100644
--- a/gcc/ada/libgnat/s-pack53.adb
+++ b/gcc/ada/libgnat/s-pack53.adb
@@ -89,30 +89,29 @@ package body System.Pack_53 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_53;
------------
diff --git a/gcc/ada/libgnat/s-pack54.adb b/gcc/ada/libgnat/s-pack54.adb
index 87da1cb5157e..06fe56a2109c 100644
--- a/gcc/ada/libgnat/s-pack54.adb
+++ b/gcc/ada/libgnat/s-pack54.adb
@@ -104,30 +104,29 @@ package body System.Pack_54 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_54;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_54 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_54;
------------
diff --git a/gcc/ada/libgnat/s-pack55.adb b/gcc/ada/libgnat/s-pack55.adb
index 0ca2b10534c8..85e0114fc0f7 100644
--- a/gcc/ada/libgnat/s-pack55.adb
+++ b/gcc/ada/libgnat/s-pack55.adb
@@ -89,30 +89,29 @@ package body System.Pack_55 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_55;
------------
diff --git a/gcc/ada/libgnat/s-pack56.adb b/gcc/ada/libgnat/s-pack56.adb
index c49841e2d5be..9346f9f3ec4d 100644
--- a/gcc/ada/libgnat/s-pack56.adb
+++ b/gcc/ada/libgnat/s-pack56.adb
@@ -104,30 +104,29 @@ package body System.Pack_56 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_56;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_56 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_56;
------------
diff --git a/gcc/ada/libgnat/s-pack57.adb b/gcc/ada/libgnat/s-pack57.adb
index 8bcb56ec967d..1ff0cd8e57b7 100644
--- a/gcc/ada/libgnat/s-pack57.adb
+++ b/gcc/ada/libgnat/s-pack57.adb
@@ -89,30 +89,29 @@ package body System.Pack_57 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_57;
------------
diff --git a/gcc/ada/libgnat/s-pack58.adb b/gcc/ada/libgnat/s-pack58.adb
index ebbc4710fb9f..c8fd96717cfa 100644
--- a/gcc/ada/libgnat/s-pack58.adb
+++ b/gcc/ada/libgnat/s-pack58.adb
@@ -104,30 +104,29 @@ package body System.Pack_58 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_58;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_58 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_58;
------------
diff --git a/gcc/ada/libgnat/s-pack59.adb b/gcc/ada/libgnat/s-pack59.adb
index 373a856ebc3b..970b7ed12e3d 100644
--- a/gcc/ada/libgnat/s-pack59.adb
+++ b/gcc/ada/libgnat/s-pack59.adb
@@ -89,30 +89,29 @@ package body System.Pack_59 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_59;
------------
diff --git a/gcc/ada/libgnat/s-pack60.adb b/gcc/ada/libgnat/s-pack60.adb
index eab65752e0c5..1b7bb6bb7db7 100644
--- a/gcc/ada/libgnat/s-pack60.adb
+++ b/gcc/ada/libgnat/s-pack60.adb
@@ -104,30 +104,29 @@ package body System.Pack_60 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_60;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_60 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_60;
------------
diff --git a/gcc/ada/libgnat/s-pack61.adb b/gcc/ada/libgnat/s-pack61.adb
index 1b17fbcd484e..1a431691f0c0 100644
--- a/gcc/ada/libgnat/s-pack61.adb
+++ b/gcc/ada/libgnat/s-pack61.adb
@@ -89,30 +89,29 @@ package body System.Pack_61 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_61;
------------
diff --git a/gcc/ada/libgnat/s-pack62.adb b/gcc/ada/libgnat/s-pack62.adb
index 98725faede5a..1d8e62b973c4 100644
--- a/gcc/ada/libgnat/s-pack62.adb
+++ b/gcc/ada/libgnat/s-pack62.adb
@@ -104,30 +104,29 @@ package body System.Pack_62 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_62;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_62 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_62;
------------
diff --git a/gcc/ada/libgnat/s-pack63.adb b/gcc/ada/libgnat/s-pack63.adb
index 8795fdc36717..905cacf6524c 100644
--- a/gcc/ada/libgnat/s-pack63.adb
+++ b/gcc/ada/libgnat/s-pack63.adb
@@ -89,30 +89,29 @@ package body System.Pack_63 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_63;
------------
diff --git a/gcc/ada/libgnat/s-pack65.adb b/gcc/ada/libgnat/s-pack65.adb
index ee92a1278bb4..c9a3b5a3bdb9 100644
--- a/gcc/ada/libgnat/s-pack65.adb
+++ b/gcc/ada/libgnat/s-pack65.adb
@@ -89,30 +89,29 @@ package body System.Pack_65 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_65;
------------
diff --git a/gcc/ada/libgnat/s-pack66.adb b/gcc/ada/libgnat/s-pack66.adb
index abc08b57bbfc..86551919d107 100644
--- a/gcc/ada/libgnat/s-pack66.adb
+++ b/gcc/ada/libgnat/s-pack66.adb
@@ -104,30 +104,29 @@ package body System.Pack_66 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_66;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_66 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_66;
------------
diff --git a/gcc/ada/libgnat/s-pack67.adb b/gcc/ada/libgnat/s-pack67.adb
index 1d2ac946027b..d8db3b5c91ce 100644
--- a/gcc/ada/libgnat/s-pack67.adb
+++ b/gcc/ada/libgnat/s-pack67.adb
@@ -89,30 +89,29 @@ package body System.Pack_67 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_67;
------------
diff --git a/gcc/ada/libgnat/s-pack68.adb b/gcc/ada/libgnat/s-pack68.adb
index 8174c3d939e0..46fb4c221750 100644
--- a/gcc/ada/libgnat/s-pack68.adb
+++ b/gcc/ada/libgnat/s-pack68.adb
@@ -104,30 +104,29 @@ package body System.Pack_68 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_68;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_68 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_68;
------------
diff --git a/gcc/ada/libgnat/s-pack69.adb b/gcc/ada/libgnat/s-pack69.adb
index 681022a4e244..f9edfeb61bb0 100644
--- a/gcc/ada/libgnat/s-pack69.adb
+++ b/gcc/ada/libgnat/s-pack69.adb
@@ -89,30 +89,29 @@ package body System.Pack_69 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_69;
------------
diff --git a/gcc/ada/libgnat/s-pack70.adb b/gcc/ada/libgnat/s-pack70.adb
index bd4362e6b337..284d43187322 100644
--- a/gcc/ada/libgnat/s-pack70.adb
+++ b/gcc/ada/libgnat/s-pack70.adb
@@ -104,30 +104,29 @@ package body System.Pack_70 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_70;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_70 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_70;
------------
diff --git a/gcc/ada/libgnat/s-pack71.adb b/gcc/ada/libgnat/s-pack71.adb
index 7bcec8ae48d5..5e2a2d0ec845 100644
--- a/gcc/ada/libgnat/s-pack71.adb
+++ b/gcc/ada/libgnat/s-pack71.adb
@@ -89,30 +89,29 @@ package body System.Pack_71 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_71;
------------
diff --git a/gcc/ada/libgnat/s-pack72.adb b/gcc/ada/libgnat/s-pack72.adb
index a4562802cafa..968dcf6e7b70 100644
--- a/gcc/ada/libgnat/s-pack72.adb
+++ b/gcc/ada/libgnat/s-pack72.adb
@@ -104,30 +104,29 @@ package body System.Pack_72 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_72;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_72 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_72;
------------
diff --git a/gcc/ada/libgnat/s-pack73.adb b/gcc/ada/libgnat/s-pack73.adb
index a3c61b53bc50..a775196bddf4 100644
--- a/gcc/ada/libgnat/s-pack73.adb
+++ b/gcc/ada/libgnat/s-pack73.adb
@@ -89,30 +89,29 @@ package body System.Pack_73 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_73;
------------
diff --git a/gcc/ada/libgnat/s-pack74.adb b/gcc/ada/libgnat/s-pack74.adb
index 566a697e8648..b7af42217912 100644
--- a/gcc/ada/libgnat/s-pack74.adb
+++ b/gcc/ada/libgnat/s-pack74.adb
@@ -104,30 +104,29 @@ package body System.Pack_74 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_74;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_74 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_74;
------------
diff --git a/gcc/ada/libgnat/s-pack75.adb b/gcc/ada/libgnat/s-pack75.adb
index 4c46cf82ffb2..9990b257b675 100644
--- a/gcc/ada/libgnat/s-pack75.adb
+++ b/gcc/ada/libgnat/s-pack75.adb
@@ -89,30 +89,29 @@ package body System.Pack_75 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_75;
------------
diff --git a/gcc/ada/libgnat/s-pack76.adb b/gcc/ada/libgnat/s-pack76.adb
index 3839d1536325..5f66fe3843e4 100644
--- a/gcc/ada/libgnat/s-pack76.adb
+++ b/gcc/ada/libgnat/s-pack76.adb
@@ -104,30 +104,29 @@ package body System.Pack_76 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_76;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_76 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_76;
------------
diff --git a/gcc/ada/libgnat/s-pack77.adb b/gcc/ada/libgnat/s-pack77.adb
index ca51862d5fd8..1b0971aa1ea6 100644
--- a/gcc/ada/libgnat/s-pack77.adb
+++ b/gcc/ada/libgnat/s-pack77.adb
@@ -89,30 +89,29 @@ package body System.Pack_77 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_77;
------------
diff --git a/gcc/ada/libgnat/s-pack78.adb b/gcc/ada/libgnat/s-pack78.adb
index 0c302d5bbcff..7859a0fba7e5 100644
--- a/gcc/ada/libgnat/s-pack78.adb
+++ b/gcc/ada/libgnat/s-pack78.adb
@@ -104,30 +104,29 @@ package body System.Pack_78 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_78;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_78 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_78;
------------
diff --git a/gcc/ada/libgnat/s-pack79.adb b/gcc/ada/libgnat/s-pack79.adb
index 0d2a21da70ba..6f002e1f983e 100644
--- a/gcc/ada/libgnat/s-pack79.adb
+++ b/gcc/ada/libgnat/s-pack79.adb
@@ -89,30 +89,29 @@ package body System.Pack_79 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_79;
------------
diff --git a/gcc/ada/libgnat/s-pack80.adb b/gcc/ada/libgnat/s-pack80.adb
index 107175df781f..2b5a8a64068a 100644
--- a/gcc/ada/libgnat/s-pack80.adb
+++ b/gcc/ada/libgnat/s-pack80.adb
@@ -104,30 +104,29 @@ package body System.Pack_80 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_80;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_80 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_80;
------------
diff --git a/gcc/ada/libgnat/s-pack81.adb b/gcc/ada/libgnat/s-pack81.adb
index 8a64906987a3..bc7420ae9108 100644
--- a/gcc/ada/libgnat/s-pack81.adb
+++ b/gcc/ada/libgnat/s-pack81.adb
@@ -89,30 +89,29 @@ package body System.Pack_81 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_81;
------------
diff --git a/gcc/ada/libgnat/s-pack82.adb b/gcc/ada/libgnat/s-pack82.adb
index d3cc6d1a793c..8883d05641f8 100644
--- a/gcc/ada/libgnat/s-pack82.adb
+++ b/gcc/ada/libgnat/s-pack82.adb
@@ -104,30 +104,29 @@ package body System.Pack_82 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_82;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_82 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_82;
------------
diff --git a/gcc/ada/libgnat/s-pack83.adb b/gcc/ada/libgnat/s-pack83.adb
index a030eee383f5..2eb74e7c507a 100644
--- a/gcc/ada/libgnat/s-pack83.adb
+++ b/gcc/ada/libgnat/s-pack83.adb
@@ -89,30 +89,29 @@ package body System.Pack_83 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_83;
------------
diff --git a/gcc/ada/libgnat/s-pack84.adb b/gcc/ada/libgnat/s-pack84.adb
index 017bb758eff5..4518402f0784 100644
--- a/gcc/ada/libgnat/s-pack84.adb
+++ b/gcc/ada/libgnat/s-pack84.adb
@@ -104,30 +104,29 @@ package body System.Pack_84 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_84;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_84 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_84;
------------
diff --git a/gcc/ada/libgnat/s-pack85.adb b/gcc/ada/libgnat/s-pack85.adb
index 45a35b604902..b383072923e6 100644
--- a/gcc/ada/libgnat/s-pack85.adb
+++ b/gcc/ada/libgnat/s-pack85.adb
@@ -89,30 +89,29 @@ package body System.Pack_85 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_85;
------------
diff --git a/gcc/ada/libgnat/s-pack86.adb b/gcc/ada/libgnat/s-pack86.adb
index 487407b5cacb..d302c182d305 100644
--- a/gcc/ada/libgnat/s-pack86.adb
+++ b/gcc/ada/libgnat/s-pack86.adb
@@ -104,30 +104,29 @@ package body System.Pack_86 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_86;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_86 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_86;
------------
diff --git a/gcc/ada/libgnat/s-pack87.adb b/gcc/ada/libgnat/s-pack87.adb
index 7f75617e66f6..0a40c2fbbb50 100644
--- a/gcc/ada/libgnat/s-pack87.adb
+++ b/gcc/ada/libgnat/s-pack87.adb
@@ -89,30 +89,29 @@ package body System.Pack_87 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_87;
------------
diff --git a/gcc/ada/libgnat/s-pack88.adb b/gcc/ada/libgnat/s-pack88.adb
index 7a4f2a920306..936dc64a4b85 100644
--- a/gcc/ada/libgnat/s-pack88.adb
+++ b/gcc/ada/libgnat/s-pack88.adb
@@ -104,30 +104,29 @@ package body System.Pack_88 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_88;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_88 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_88;
------------
diff --git a/gcc/ada/libgnat/s-pack89.adb b/gcc/ada/libgnat/s-pack89.adb
index babbaa033732..f1da5b910ccb 100644
--- a/gcc/ada/libgnat/s-pack89.adb
+++ b/gcc/ada/libgnat/s-pack89.adb
@@ -89,30 +89,29 @@ package body System.Pack_89 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_89;
------------
diff --git a/gcc/ada/libgnat/s-pack90.adb b/gcc/ada/libgnat/s-pack90.adb
index 51cf2d2b8750..d808da83bdc9 100644
--- a/gcc/ada/libgnat/s-pack90.adb
+++ b/gcc/ada/libgnat/s-pack90.adb
@@ -104,30 +104,29 @@ package body System.Pack_90 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_90;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_90 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_90;
------------
diff --git a/gcc/ada/libgnat/s-pack91.adb b/gcc/ada/libgnat/s-pack91.adb
index 9dbbc1baacaf..6bf3bc724426 100644
--- a/gcc/ada/libgnat/s-pack91.adb
+++ b/gcc/ada/libgnat/s-pack91.adb
@@ -89,30 +89,29 @@ package body System.Pack_91 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_91;
------------
diff --git a/gcc/ada/libgnat/s-pack92.adb b/gcc/ada/libgnat/s-pack92.adb
index d9c88ea81164..1b0d97d87d42 100644
--- a/gcc/ada/libgnat/s-pack92.adb
+++ b/gcc/ada/libgnat/s-pack92.adb
@@ -104,30 +104,29 @@ package body System.Pack_92 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_92;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_92 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_92;
------------
diff --git a/gcc/ada/libgnat/s-pack93.adb b/gcc/ada/libgnat/s-pack93.adb
index eef512af32d0..23ed5636780e 100644
--- a/gcc/ada/libgnat/s-pack93.adb
+++ b/gcc/ada/libgnat/s-pack93.adb
@@ -89,30 +89,29 @@ package body System.Pack_93 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_93;
------------
diff --git a/gcc/ada/libgnat/s-pack94.adb b/gcc/ada/libgnat/s-pack94.adb
index 5cc01ebfcae5..cb5bc1c9ef57 100644
--- a/gcc/ada/libgnat/s-pack94.adb
+++ b/gcc/ada/libgnat/s-pack94.adb
@@ -104,30 +104,29 @@ package body System.Pack_94 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_94;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_94 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_94;
------------
diff --git a/gcc/ada/libgnat/s-pack95.adb b/gcc/ada/libgnat/s-pack95.adb
index 5eb5b864d71f..824adf10ebe0 100644
--- a/gcc/ada/libgnat/s-pack95.adb
+++ b/gcc/ada/libgnat/s-pack95.adb
@@ -89,30 +89,29 @@ package body System.Pack_95 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_95;
------------
diff --git a/gcc/ada/libgnat/s-pack96.adb b/gcc/ada/libgnat/s-pack96.adb
index dcd1d68c0c19..531fb97c78e1 100644
--- a/gcc/ada/libgnat/s-pack96.adb
+++ b/gcc/ada/libgnat/s-pack96.adb
@@ -104,30 +104,29 @@ package body System.Pack_96 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_96;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_96 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_96;
------------
diff --git a/gcc/ada/libgnat/s-pack97.adb b/gcc/ada/libgnat/s-pack97.adb
index d428f01e90ab..b6c766be8de1 100644
--- a/gcc/ada/libgnat/s-pack97.adb
+++ b/gcc/ada/libgnat/s-pack97.adb
@@ -89,30 +89,29 @@ package body System.Pack_97 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_97;
------------
diff --git a/gcc/ada/libgnat/s-pack98.adb b/gcc/ada/libgnat/s-pack98.adb
index 97a65288d4de..981411990c44 100644
--- a/gcc/ada/libgnat/s-pack98.adb
+++ b/gcc/ada/libgnat/s-pack98.adb
@@ -104,30 +104,29 @@ package body System.Pack_98 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_98;
-------------
@@ -143,30 +142,29 @@ package body System.Pack_98 is
C : ClusterU_Ref with Address => A'Address, Import;
RC : Rev_ClusterU_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end GetU_98;
------------
diff --git a/gcc/ada/libgnat/s-pack99.adb b/gcc/ada/libgnat/s-pack99.adb
index b2850533bec3..2c89be8c303b 100644
--- a/gcc/ada/libgnat/s-pack99.adb
+++ b/gcc/ada/libgnat/s-pack99.adb
@@ -89,30 +89,29 @@ package body System.Pack_99 is
C : Cluster_Ref with Address => A'Address, Import;
RC : Rev_Cluster_Ref with Address => A'Address, Import;
begin
- if Rev_SSO then
- case N07 (Uns (N) mod 8) is
- when 0 => return RC.E0;
- when 1 => return RC.E1;
- when 2 => return RC.E2;
- when 3 => return RC.E3;
- when 4 => return RC.E4;
- when 5 => return RC.E5;
- when 6 => return RC.E6;
- when 7 => return RC.E7;
- end case;
-
- else
- case N07 (Uns (N) mod 8) is
- when 0 => return C.E0;
- when 1 => return C.E1;
- when 2 => return C.E2;
- when 3 => return C.E3;
- when 4 => return C.E4;
- when 5 => return C.E5;
- when 6 => return C.E6;
- when 7 => return C.E7;
- end case;
- end if;
+ return
+ (if Rev_SSO then
+ (case N07 (Uns (N) mod 8) is
+ when 0 => RC.E0,
+ when 1 => RC.E1,
+ when 2 => RC.E2,
+ when 3 => RC.E3,
+ when 4 => RC.E4,
+ when 5 => RC.E5,
+ when 6 => RC.E6,
+ when 7 => RC.E7)
+
+ else
+ (case N07 (Uns (N) mod 8) is
+ when 0 => C.E0,
+ when 1 => C.E1,
+ when 2 => C.E2,
+ when 3 => C.E3,
+ when 4 => C.E4,
+ when 5 => C.E5,
+ when 6 => C.E6,
+ when 7 => C.E7)
+ );
end Get_99;
------------
--
GitLab