Create sem_lib from libraries.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb
index 8e0532738..d7dee0015 100644
--- a/src/vhdl/translate/ortho_front.adb
+++ b/src/vhdl/translate/ortho_front.adb
@@ -25,6 +25,7 @@ with Flags;
 with Configuration;
 with Translation;
 with Sem;
+with Sem_Lib; use Sem_Lib;
 with Errorout; use Errorout;
 with GNAT.OS_Lib;
 with Bug;
@@ -268,7 +269,7 @@ package body Ortho_Front is
       Flags.Flag_Elaborate := False;
 
       --  Read and parse the file.
-      Res := Libraries.Load_File (Vhdl_File);
+      Res := Load_File (Vhdl_File);
       if Errorout.Nbr_Errors > 0 then
          raise Compilation_Error;
       end if;
@@ -279,7 +280,7 @@ package body Ortho_Front is
       Design := Get_First_Design_Unit (Res);
       while Is_Valid (Design) loop
          --  Analyze and canon a design unit.
-         Libraries.Finish_Compilation (Design, True);
+         Finish_Compilation (Design, True);
 
          Next_Design := Get_Chain (Design);
          if Errorout.Nbr_Errors = 0 then
@@ -449,7 +450,7 @@ package body Ortho_Front is
                begin
                   L := Anaelab_Files;
                   while L /= null loop
-                     Res := Libraries.Load_File (L.Id);
+                     Res := Load_File (L.Id);
                      if Errorout.Nbr_Errors > 0 then
                         raise Compilation_Error;
                      end if;