diff options
| -rw-r--r-- | canon.adb | 20 | ||||
| -rw-r--r-- | translate/translation.adb | 20 |
2 files changed, 20 insertions, 20 deletions
@@ -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); |