diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-04-30 10:07:57 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-04-30 10:07:57 +0200 |
commit | 672c0b03504280056274b2a37e79bdd7aaf40144 (patch) | |
tree | 0dba54449f3639b40dce90b6624d3e3825a69265 /src/vhdl/translate/trans-chap7.ads | |
parent | 9da0c085ef11c4096599202f911510600cb69dbe (diff) | |
download | ghdl-672c0b03504280056274b2a37e79bdd7aaf40144.tar.gz ghdl-672c0b03504280056274b2a37e79bdd7aaf40144.tar.bz2 ghdl-672c0b03504280056274b2a37e79bdd7aaf40144.zip |
translate: adjust bounds handling in procedure calls.
Part of #2417
Diffstat (limited to 'src/vhdl/translate/trans-chap7.ads')
-rw-r--r-- | src/vhdl/translate/trans-chap7.ads | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.ads b/src/vhdl/translate/trans-chap7.ads index f361eb87f..defb61f21 100644 --- a/src/vhdl/translate/trans-chap7.ads +++ b/src/vhdl/translate/trans-chap7.ads @@ -75,8 +75,11 @@ package Trans.Chap7 is Expr_Type : Iir; Atype : Iir; Is_Sig : Object_Kind_Type; - Loc : Iir) - return O_Enode; + Loc : Iir) return O_Enode; + + -- Return true iff ATYPE is derived from PARENT_TYPE + -- (or to say the same, if PARENT_TYPE is a parent of ATYPE). + function Is_A_Derived_Type (Atype : Iir; Parent_Type : Iir) return Boolean; function Translate_Type_Conversion (Expr : O_Enode; Expr_Type : Iir; Res_Type : Iir; Loc : Iir) |