Split translation into child packages.

1 files changed, 8 insertions, 8 deletions

diff --git a/src/vhdl/translate/translation.ads b/src/vhdl/translate/translation.ads
index e779685..37a8c72 100644
--- a/src/vhdl/translate/translation.ads
+++ b/src/vhdl/translate/translation.ads
@@ -38,14 +38,14 @@ package Translation is
 
    procedure Finalize;
 
-   package Chap12 is
-      --  Primary unit + secondary unit (architecture name which may be null)
-      --  to elaborate.
-      procedure Elaborate (Primary : String;
-                           Secondary : String;
-                           Filelist : String;
-                           Whole : Boolean);
-   end Chap12;
+   procedure Gen_Filename (Design_File : Iir);
+
+   --  Primary unit + secondary unit (architecture name which may be null)
+   --  to elaborate.
+   procedure Elaborate (Primary : String;
+                        Secondary : String;
+                        Filelist : String;
+                        Whole : Boolean);
 
    --  If set, generate Run-Time Information nodes.
    Flag_Rti : Boolean := True;