diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-11-09 18:31:54 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-11-09 18:31:54 +0100 |
commit | fe94cb3cc3fd4517271faa9046c74b0c455aeb79 (patch) | |
tree | 17ba28586cb5eb22d530c568d917931f309d871f /src/vhdl/translate/translation.ads | |
parent | 3c9a77e9e6f3b8047080f7d8c11bb9881cabf968 (diff) | |
download | ghdl-fe94cb3cc3fd4517271faa9046c74b0c455aeb79.tar.gz ghdl-fe94cb3cc3fd4517271faa9046c74b0c455aeb79.tar.bz2 ghdl-fe94cb3cc3fd4517271faa9046c74b0c455aeb79.zip |
Split translation into child packages.
Diffstat (limited to 'src/vhdl/translate/translation.ads')
-rw-r--r-- | src/vhdl/translate/translation.ads | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/vhdl/translate/translation.ads b/src/vhdl/translate/translation.ads index e779685f2..37a8c72df 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; |