diff --git a/gcc/ada/libgnat/s-pack03.adb b/gcc/ada/libgnat/s-pack03.adb
index c9fb9380abc248d9f79e7937aa28bf41cb60c9bf..85e18a2ee76a5e7e5ed1f493bbba323ffcb93d2d 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 e899a5d329c0b24a1132b8ab18ddb65405b6656d..6ed9f98ded54c2f01de71ba78d7fa548b8534991 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 83602ca9f01e7a9d61610e0752a874b25188634f..9e5b5948baea55db310d2be7a607eb715c28a719 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 0a59dd24de7d63a222a729fa05e4d7c93f4a8542..222d864d9a53458fee1dbd086ea5e44ac3cdfa0c 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 06cf6690e7337bdec2b959e3fcc10d2b6b912a3c..7643e8a6d4c22d76098a654ac333b2a0c98c5376 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 864fec033981eeb05642c7e383fc980d64547d1a..1b42cfd249683b6c80210db45e930f942ac353c9 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 cf856d7f3f4bb1e887bc158a6e8151b599bce1ec..3318f2ec542c3f9009c405211e52a147c08c99da 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 c416d0c68658d9ee80ba102d2ee964c40700792c..947ace2d78fabde1b55bf8cbf1564fae01a1246c 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 5409c7d144d4c81c90ee356d0a01da78f8709655..6f91469a3805c936f86bd2f5fde4d0e3d83c7f7b 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 8d70ae6b8a0a72617f0f5b38a9a327281b77caf7..fa014b336f5c38b99fb229d875aeffa986fdecc4 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 137127e14096661fc84171dbd8f61c582e65bd8f..d699ae23aa559974dff98a12b54ada5261145f82 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 0685c9519da48c2f370d5f52a42fa9f8fa4e2aab..694315e4ae6de3d17cdccb54b97299d9359a5c1c 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 21436c19a548844471311e8d60349e52e53432b0..5d50459e56526a7b93033b950dde77c701d25812 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 255c53684aa03e9e3e7a127062a0d02f33a2ae67..d3f3aa18b547a0618c0cd87c8940aa5e94ff52dc 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 8ba37dbd56ece449f519ea106638d369e1a36b02..711442d9ae7a6eb5638931106ca687cc6bfeb089 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 a719b1edb131a1a99dc49d729051263d265e1b51..5751a62987b0c71b7cd7283a89d8bfda1bbd6c48 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 c4903b470eac202ed0916509e12f9e70560e1ae1..d16fe8e126a26b000f666c7436708c15391e7c7e 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 0642474ee7f1a7ddd502ad22a86ae7acca25f8d2..2d70d48b9f6b0998b5ec6ec2bf41bcad6e742649 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 04faca42809536c5ec3cd1bc33caefd9f98f748e..7ee38037aec1b67a38d566e16c096ce2e47b3180 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 c12ee83d063bbfb50b67ceef12a45d81951d654c..56447c1d055cf07ba69d4f07ab816c6016c93411 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 60d7f88a5a44d6b45f00b3e0c78be48337036adb..e456f81e372cec1547cccd982e3e7007e06c51cc 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 26821e1c24d2c456b2a377a5db6a4d211e13cf0a..9f48f4b5e00327a5cc82ad3fbbc0faf3887f4bc3 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 ff03f1c84f01cf5298651f58cbcbaa31c32e3b07..0cf3318ed97c7d697b8477cc440554b7cd7e6b26 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 26b1420f7ede897dbd6ab1484d33f18c98c2dd1c..8bfc5b994fdba60fb4afb68960cdff3e6d7b6008 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 b748b097910f60f10f2f47c422212426ff2e4f62..b4afc61c1d69f640ce192388541172df0e273cd6 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 f7bb29de3d541e72228ce5ee190d1e73196c9105..4e0fd5e68697fe11bf104b70cf1109c55f570c7a 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 b871f9e269420c867ab4f1fef49c8ea4ba7bccf9..0e42d1495e5ae4b2308062786ce898753760eadb 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 9a60be78987ad3d99d7626bf7563060f706c7d5b..41d36a64b3b13fbd5fad3b2d79aad2129ef37ab1 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 16491a264a9bf993814484e34640118687d05b12..5fdde24fa5d581352732127b4f82488774336a14 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 5092db345c6c93b1548242d859a05073bf629e5c..4c7ad22bca153d2ec11e6819bf9c49882d09e798 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 1ebe18b014a9048dcb5bf4c44ced5adb4a18b0a6..45cb06bd8a3238f683455c7c439c313aa2be3602 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 0ea7d62ed33326278d4fbab6502b3f48636e0009..b524cac6ebfbf1dff8ad82c258b0f2764a21983f 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 abf42d822780db45ecc3862e19ce328d2ca82f4a..328d7dccc7b38390763c0a53ed30ac42c21a78b4 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 6e7fd5b32e5a0112fd6458b5a1ad509ff009857c..93fb70f9364cb044f3157d97aaaaf0e68a3f2220 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 606ab952a3a3da09b869c389daa988ff2fb97dee..abaab528f4f0069bb2444ccad570c3d0d5fd0663 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 c5ca67b1a0d05dfb9d77f84d13e1e2b65b7937a2..f45d8b353f8210aa20341a9eba1013920e7a7b38 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 894faa4037241f3de08c64cd6b9b8eafa72474b4..aa40ef96d484c7f145e6cd56ddc2f4b44cc4bc58 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 731b56446e5db2af9bbdc12f952585ac07c3598c..c458e411ee64da0f4e23dcbe047052da79530a35 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 530c2051fddc249a88930a75c45f5ae2937d28ed..e08cb960fcd21692649fdb7b20fa87f690920017 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 95454bff9e0b7a7ae5fad98bbfafd766f5b05e9c..db109ef87b8ab28e589dcd0a35417d55f6ed965a 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 cfc05ff1b135b8b7bdf6dc7cbb2a83fc3734eac9..4c04564de466490e53f749c68af411f79a1669a4 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 b3895bf7c26088242e47b02af9a1bcf38745e6be..9a0b3e5272889e87d936f7ad361998e93940be49 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 e6f1cc7ac0b1ab17ca5539157f9aa76c24c5c557..c11b04371a1230730c7724015e034eccde9099d6 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 6adafc82444caae59dcf293fe51a63ddb80bfae7..429aa13d1e4e66a95c46bdfd65045d61f888bb28 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 bf9fdfa34e4c425729f2c58121d6018cbc9c31b7..f50fa152544f4730d8623597f347d71b3dddc7e5 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 5ef5e25fbca342cb745ea6b9b0855142b8c575cd..8f5cf547cabc12bef8891f6d39dfa7526e290b17 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 aa69a87c2f731fcd8d24271b12434d45cfb920f1..504e1ce652455b7ab47d4edadc0ec125c5d85490 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 71a1589ef4410f2afefc3fbc85acec6ae9554392..ee12a4bbe8ba99f7e1e3354e983dc7f27b56fb1b 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 82ce3ee3061cd469c1d75365d861f814f6a3ee3f..9d54c92e711771405f507d5a4709f6aace5bf35a 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 6d75a6e5012453308fea3393b76babf60c34e064..9609a2b48ffa45596a393916e026f11a1ffccf6b 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 5ad408655f969ae9206ab821df43bad11c03e9cf..883932fa3b058d1cd8c24f79d3597c3a58910ba5 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 0d8e60757cec40330892bf6d53705abdb8d92a98..c531f1a0ae0200c0f2a2010db46dc2a04f3fb30e 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 9fac8b97086a39531ba1867ccb911b9cc574c96d..ca5ead71c3c0336fa1c9a819d0a209579c16370e 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 4c300e5470b210001c60c07055248f99964d58ce..537b5d293d7fe59e272c74e1881d043d99ecb745 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 333b5339cf0fb539e5ba94d720a87c3cb509c2a4..815b5bba7d959ee4f76822e481a6e19961ff9b1b 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 44366aae5216c43ed6b1ab9684f4a7a68853bf5d..8a8ceeab01ca203e8e76355fc4f236bde2997971 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 e65da9a3dd433cc20b5b5437e26bf65c77aaff67..7f3ce98b6743ff39849f3a6585f0e6eebae52c99 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 84f394116995ea37b41f905ed929fe81d2bbc025..75963d1959010de3ddef6e931e8e478dc7c0dc5c 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 d9d48cdcba31da58a1b0a47c1085a5e5a72f50c4..2fe4d7ca8346b74f8fc66822ea3a5c32dc8a8bb2 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 9d6e48979425d7f489c34424775391d10b07e8ff..5aa4d076b91c54bd1c04b3c446ac6f379417b71c 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 bd0b481b9b986562a855c3d12bb38c8abe64199d..47772675f5de32c1b2492c2028d140fa5c84f245 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 da3addebfcac0504b41e16750d24102a633619c5..35281d4563e9d20d333a21439a97ad3d83fa15a1 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 7a79f8b5fbaab66692041c4e2d725b92448a8774..7fe456876272e4fe1f0729adac5f3454c1cf75f1 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 09159b2394cef1f1645f38f1757a8db94652add5..ee099e436297fbd85bc528bac01fc13df1324aa1 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 5921d3e92a563d346124fff8e915e9d1f5aa1079..bd46efb2743880b2faad7a8015a2d87e8bd04e47 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 57420fec5e8e470ab376737dac8d3290a77421ae..fa6390e8aceab9170af26551004d63be8fadf56a 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 13753bc6fa574a2bb379dd71c58de714de03cd64..798c1eaa995e29d1cce3f686351e6fd76d7f9251 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 3911743bfdd34e0a517513ea006a6abfb3103ef9..a3e637f5eb5341b1a1fe4bbdc2ee41a1c7e2647a 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 ffe4edd7d48943d5950ea7bc2895910d0d80ef43..14b8efd5de444d8c777ef8c9defed666019b20ef 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 6ab83292068568e8b37b271cb9b78a598b6829cb..4ae6cff6ca91847b6fc4a3177c6e28f753ccb6f0 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 745d774f86ae507db144b1ce57728e490899b103..a3df22a7cbdca9a8de6bcbd5ed0673446f35e4b5 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 674b61f8e361856f881cbca19dedad2b4c0f07d9..b0910b78a9543f6b432a514ad285142dbb8fee9f 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 12ec499032cfa32c2200616a706b5bbbb4868519..3f65265656a20fbbe4f1796d81bcbeaf362eced1 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 2a515134ab97b55e98aa9f838bde960815e9dc0e..0fb5d41be2d081357cbe1738e94889eee6f8755a 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 87f8ce4e35a281fd8a765f3484aeb1ac4b80acbc..8fbbb2834fb2fbf85791bab054214c9670f107a2 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 87da1cb5157ef9a56e712e44a325fef2cdc76676..06fe56a2109c0611f5da0a3be2e2df2b97ad63fa 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 0ca2b10534c803ad2a91c0b06c8053e17260e9df..85e0114fc0f79274dbe8436007d459112441349f 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 c49841e2d5bef16ac99e55e2d87bafe6da230479..9346f9f3ec4de51ac6252299e6e3be415357e11d 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 8bcb56ec967dd2404c36f348821ac9ade90dd1c9..1ff0cd8e57b7e9028095c20bdd469830c113b978 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 ebbc4710fb9fa6e99ee2b78548f3a43ed9b93d18..c8fd96717cfafc4b56268accf07deda6dceacd18 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 373a856ebc3b64669bd07224700c3a5dcd491eca..970b7ed12e3d6559c29ee0c4cae6a2255234a864 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 eab65752e0c55b69c2229461f4a2788e3ef9335a..1b7bb6bb7db774befb8dfa59516c8561451ef5fb 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 1b17fbcd484e9134118f12928ad9d4d487beb9f0..1a431691f0c0bdf90586b63a488316f0465a36f2 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 98725faede5ad2485177456777904f2778552170..1d8e62b973c4c2eddc653e369b9bdf5a8a777817 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 8795fdc36717f1f8a9da04951e46e7ee549ffd16..905cacf6524c9843799edda16da5eb8c0b9f345c 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 ee92a1278bb47932d3b6389766ea5aad6884aa53..c9a3b5a3bdb9f2db08b7a641558baf8b61b34b31 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 abc08b57bbfc1eb2e4c563dda604248125896387..86551919d1072affbada04eabffe348b24e0e196 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 1d2ac946027b3191ed62e2a702fb6ebad0fe5d38..d8db3b5c91cee1f675914e90988ca4a2d089dffa 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 8174c3d939e07edb4614da888d6d89b5be6e1aaf..46fb4c2217500e374b2049521b5b1e1f225e8042 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 681022a4e2444c94c32e621e303a78f31db25a4a..f9edfeb61bb0344d4abc8d88a3bda575690ca66d 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 bd4362e6b337308ff68d9e6d2c1c0b72184e353a..284d431873220b097c6114ee89db811808b72f2e 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 7bcec8ae48d5a595660162021a8ebd96650abd3d..5e2a2d0ec845bb1ef63b163f2ce7876de2a99afd 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 a4562802cafae61d0b1a95db2dbc99c16943e44b..968dcf6e7b70ee23afbfd9ac0c4e18249d5505c6 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 a3c61b53bc503458d54bc171c2f5ed0406ef5b92..a775196bddf4e4fdded3da568776bdb2045351f7 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 566a697e86483ab3aaa47f6563a9e3255762547b..b7af4221791278ad9231e07444152b7840c13915 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 4c46cf82ffb2ad454c8decaf51a9fcad82030cd5..9990b257b675024f19df2371d8e256c32bf4d135 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 3839d1536325451e2ef99edfe66898364f8920c4..5f66fe3843e490948e21b0fe82f261cf80ff9b32 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 ca51862d5fd889fe8baeb37fa1e7cfcb7aae9d99..1b0971aa1ea6df1fc71d365e33d21f9ce1cc22eb 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 0c302d5bbcff5b22d86b69be11fc135910c0890d..7859a0fba7e52f28448b6e4bc8a245f56963785c 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 0d2a21da70baa2085e2b23823201a4732a71a5a7..6f002e1f983e9414fa884d55fe35f7d7bcc3ad37 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 107175df781f16d69a8dc9ce6e83953abe04cbb8..2b5a8a64068a0bd023b467539d9b645a710b5776 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 8a64906987a3520ba0106ba7aa7999de0a9bf156..bc7420ae91089645d829b99f8baaf469cc6a1696 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 d3cc6d1a793c9ed8d9448c78b045170fc6cb150e..8883d05641f8188ae518ca7644a5c0a8e9f741be 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 a030eee383f5f3d45755ac7352eb2bdbeffa4610..2eb74e7c507a08a261c2984baeab4592c2fe2273 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 017bb758eff548a31fd2872560f221c285ffc923..4518402f0784a1d70d707b1b91d98607afccbfb6 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 45a35b6049025fbe3ee0ec8541406bdc9e63692e..b383072923e6f70f1490e880812414245f374e16 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 487407b5cacbbd68a00c56bf7cc0815a3c335678..d302c182d3051abb6a8a978c40c17f60dbd1a1a7 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 7f75617e66f65111985f7ad3c11ed870f2ad25a4..0a40c2fbbb50fb65c8f440000d19eaab9fcbc1c4 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 7a4f2a920306bf77fcaef07ae999f147f7c3faad..936dc64a4b859bd72f373d503234425daafaa76c 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 babbaa033732a4aa345343073c813bdabd2b0b0f..f1da5b910ccbcc5cd11467847a15b176efa81b90 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 51cf2d2b875073bfcc31be9516ddf5a3bd7896d7..d808da83bdc9bae51488f3594f5944915a37075f 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 9dbbc1baacaf29bf3c934eed7f0483a8beea7448..6bf3bc724426be7b20155863d36e4c24cf4dd5d1 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 d9c88ea811641cabbbacae27851a9eb79431b457..1b0d97d87d42d1e7ef71d75678d2ff0dff04e5f2 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 eef512af32d032a9ee250de7772628c2e0f9d5d8..23ed5636780edbaa0a42eb619972379c430b23e6 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 5cc01ebfcae55baf569c8aa00515cc04d723178f..cb5bc1c9ef57b733f26a2d8d54911a20622a4528 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 5eb5b864d71f4622d660374d583dadb959158eae..824adf10ebe062670ab1d94261da87f55f33a20a 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 dcd1d68c0c19e754d00a8bff1c40dc0e1609d832..531fb97c78e1b9e0770237cd6518e7aa5e774672 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 d428f01e90ab57c4f93719a62525121e341a024a..b6c766be8de1301b6a74d3d22db2a7109f749740 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 97a65288d4dea0f412992eefe4923d59145281bb..981411990c44056b31ae6d4ca95aeeb6417cd925 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 b2850533bec3a48a93aa465cb86f7e6f8205cad0..2c89be8c303b2c30df9995bd2b9b39888f712342 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;
------------