Comment out some unreachable code that stopped the mcode build

2 files changed, 20 insertions, 20 deletions

diff --git a/canon.adb b/canon.adb
index 6da6039..317261b 100644
--- a/canon.adb
+++ b/canon.adb
@@ -2429,16 +2429,16 @@ package body Canon is
          --  This code is not executed since context clauses are already
          --  canonicalized.
          El := Get_Context_Items (Unit);
-         while El /= Null_Iir loop
-            case Get_Kind (El) is
-               when Iir_Kind_Use_Clause =>
-                  null;
-               when Iir_Kind_Library_Clause =>
-                  null;
-               when others =>
-                  Error_Kind ("canonicalize1", El);
-            end case;
-         end loop;
+--         while El /= Null_Iir loop
+--            case Get_Kind (El) is
+--               when Iir_Kind_Use_Clause =>
+--                  null;
+--               when Iir_Kind_Library_Clause =>
+--                  null;
+--               when others =>
+--                  Error_Kind ("canonicalize1", El);
+--            end case;
+--         end loop;
       end if;
 
       El := Get_Library_Unit (Unit);
diff --git a/translate/translation.adb b/translate/translation.adb
index 88ac566..67ca578 100644
--- a/translate/translation.adb
+++ b/translate/translation.adb
@@ -27742,16 +27742,16 @@ package body Translation is
 
       if False then
          El := Get_Context_Items (Unit);
-         while El /= Null_Iir loop
-            case Get_Kind (El) is
-               when Iir_Kind_Use_Clause =>
-                  null;
-               when Iir_Kind_Library_Clause =>
-                  null;
-               when others =>
-                  Error_Kind ("translate1", El);
-            end case;
-         end loop;
+--         while El /= Null_Iir loop
+--            case Get_Kind (El) is
+--               when Iir_Kind_Use_Clause =>
+--                  null;
+--               when Iir_Kind_Library_Clause =>
+--                  null;
+--               when others =>
+--                  Error_Kind ("translate1", El);
+--            end case;
+--         end loop;
       end if;
 
       El := Get_Library_Unit (Unit);