diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:24:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:24:57 +0200 |
| commit | 0ecff214b82f61da149e51075254c3ecc4904d75 (patch) | |
| tree | d6c76a97698c080d1ed64363cafc2ac93855d4a8 /src/ghdldrv | |
| parent | c2c33f8ddce23c5234805c3ba4f6d1064b6c1364 (diff) | |
| download | ghdl-0ecff214b82f61da149e51075254c3ecc4904d75.tar.gz ghdl-0ecff214b82f61da149e51075254c3ecc4904d75.tar.bz2 ghdl-0ecff214b82f61da149e51075254c3ecc4904d75.zip | |
Create_Instantiation_Bodies: add parent
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdllocal.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 082c2e438..534c7b2eb 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -101,13 +101,15 @@ package body Ghdllocal is then -- Create the bodies for instances Set_Package_Instantiation_Bodies_Chain - (Lib_Unit, Canon.Create_Instantiation_Bodies (Lib_Unit)); + (Lib_Unit, + Canon.Create_Instantiation_Bodies (Lib_Unit, Lib_Unit)); elsif Get_Kind (Lib_Unit) = Iir_Kind_Package_Body and then Get_Need_Instance_Bodies (Get_Package (Lib_Unit)) then Iir_Chains.Append_Chain (Lib_Unit, Nodes_Meta.Field_Declaration_Chain, - Canon.Create_Instantiation_Bodies (Get_Package (Lib_Unit))); + Canon.Create_Instantiation_Bodies (Get_Package (Lib_Unit), + Lib_Unit)); end if; if (Main or Flags.List_All) and then Flags.List_Canon then |