diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-04-07 21:04:43 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-04-07 21:04:43 +0200 |
commit | bdc1c9cf6db576e585d60e531da14a4c8d72333d (patch) | |
tree | 80453d6eb8e9a505b3f99fa34db41e246e1e864c /src/vhdl/translate/trans-chap7.ads | |
parent | 43b8fb03d707c908a94519b8217b83d37736a633 (diff) | |
download | ghdl-bdc1c9cf6db576e585d60e531da14a4c8d72333d.tar.gz ghdl-bdc1c9cf6db576e585d60e531da14a4c8d72333d.tar.bz2 ghdl-bdc1c9cf6db576e585d60e531da14a4c8d72333d.zip |
translation: improve type conversion (recurse)
Diffstat (limited to 'src/vhdl/translate/trans-chap7.ads')
-rw-r--r-- | src/vhdl/translate/trans-chap7.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap7.ads b/src/vhdl/translate/trans-chap7.ads index ac69c8893..f361eb87f 100644 --- a/src/vhdl/translate/trans-chap7.ads +++ b/src/vhdl/translate/trans-chap7.ads @@ -87,7 +87,7 @@ package Trans.Chap7 is (Res : in out Mnode; Expr : Mnode); -- Convert bounds SRC (of type SRC_TYPE) to RES (of type RES_TYPE). - procedure Translate_Type_Conversion_Bounds + procedure Translate_Type_Conversion_Array_Bounds (Res : Mnode; Src : Mnode; Res_Type : Iir; Src_Type : Iir; Loc : Iir); -- Convert range EXPR into ortho tree. |