diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-05 06:57:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-05 06:57:01 +0200 |
| commit | d1f0fedf7882cf1b15ea6450da5bbd878d007a98 (patch) | |
| tree | 39c7312a2f1bbe3e5f357a22dd1df4fa228b3535 /src/vhdl/configuration.adb | |
| parent | 19a9154fb3fadd0a33a6826e525091a9a75687e4 (diff) | |
| download | ghdl-d1f0fedf7882cf1b15ea6450da5bbd878d007a98.tar.gz ghdl-d1f0fedf7882cf1b15ea6450da5bbd878d007a98.tar.bz2 ghdl-d1f0fedf7882cf1b15ea6450da5bbd878d007a98.zip | |
vhdl: move canon to a vhdl child package.
Diffstat (limited to 'src/vhdl/configuration.adb')
| -rw-r--r-- | src/vhdl/configuration.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/vhdl/configuration.adb b/src/vhdl/configuration.adb index 54cbfef22..fd8a72605 100644 --- a/src/vhdl/configuration.adb +++ b/src/vhdl/configuration.adb @@ -25,7 +25,7 @@ with Iirs_Utils; use Iirs_Utils; with Iirs_Walk; with Sem_Scopes; with Sem_Lib; use Sem_Lib; -with Canon; +with Vhdl.Canon; package body Configuration is procedure Add_Design_Concurrent_Stmts (Parent : Iir); @@ -348,8 +348,8 @@ package body Configuration is -- previous instantiation. Create it if it doesn't exist. Config := Get_Default_Configuration_Declaration (Arch_Lib); if Is_Null (Config) then - Config := - Canon.Create_Default_Configuration_Declaration (Arch_Lib); + Config := Vhdl.Canon.Create_Default_Configuration_Declaration + (Arch_Lib); Set_Default_Configuration_Declaration (Arch_Lib, Config); end if; @@ -656,7 +656,8 @@ package body Configuration is pragma Assert (Is_Null (Get_Default_Configuration_Declaration (Lib_Unit))); - Top := Canon.Create_Default_Configuration_Declaration (Lib_Unit); + Top := Vhdl.Canon.Create_Default_Configuration_Declaration + (Lib_Unit); Set_Default_Configuration_Declaration (Lib_Unit, Top); pragma Assert (Is_Valid (Top)); when Iir_Kind_Configuration_Declaration => |