diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-06 17:44:00 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-06 17:53:24 +0200 |
| commit | 74348ad90435e6a28a86c4050d17a989f5434e9d (patch) | |
| tree | e1838c654441f93eec74afae0b4d78546f1e6de7 /src/synth/synth-stmts.ads | |
| parent | 173bc379a93dd7de950557782bcc9f2b0a137ca9 (diff) | |
| download | ghdl-74348ad90435e6a28a86c4050d17a989f5434e9d.tar.gz ghdl-74348ad90435e6a28a86c4050d17a989f5434e9d.tar.bz2 ghdl-74348ad90435e6a28a86c4050d17a989f5434e9d.zip | |
synth: handle subtypes in components. Fix #970
Diffstat (limited to 'src/synth/synth-stmts.ads')
| -rw-r--r-- | src/synth/synth-stmts.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.ads b/src/synth/synth-stmts.ads index aed471c03..a09472168 100644 --- a/src/synth/synth-stmts.ads +++ b/src/synth/synth-stmts.ads @@ -28,7 +28,9 @@ with Synth.Context; use Synth.Context; with Synth.Environment; use Synth.Environment; package Synth.Stmts is + -- INTER_INST is the instance for the types of the formals. procedure Synth_Subprogram_Association (Subprg_Inst : Synth_Instance_Acc; + Inter_Inst : Synth_Instance_Acc; Caller_Inst : Synth_Instance_Acc; Inter_Chain : Node; Assoc_Chain : Node); |