diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-22 08:10:25 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-22 08:10:25 +0100 |
| commit | 6f964d3a766d7d45d7dbbfcbf2a62a060724e0cf (patch) | |
| tree | 61f1309fea4ab57c9dfdbdf8d2df97e46fcfe7b6 | |
| parent | 88981bf9b355d27acf86718aa60d80582a9620db (diff) | |
| download | ghdl-6f964d3a766d7d45d7dbbfcbf2a62a060724e0cf.tar.gz ghdl-6f964d3a766d7d45d7dbbfcbf2a62a060724e0cf.tar.bz2 ghdl-6f964d3a766d7d45d7dbbfcbf2a62a060724e0cf.zip | |
trans-chap8: adjust to handle non statically built static aggregate.
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index f6f65e6a4..a6804a4cc 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -2144,17 +2144,17 @@ package body Trans.Chap8 is -- For unconstrained interfaces: -- * create a field for the fat pointer, unless - -- - the expression is locally static + -- - the expression is statically built function Need_Fat_Pointer_Field return Boolean is begin return not Is_Fully_Constrained_Type (Ftype) and then (Actual = Null_Iir - or else Get_Expr_Staticness (Actual) /= Locally); + or else not Is_Static_Construct (Actual)); end Need_Fat_Pointer_Field; -- For unconstrained interfaces: -- * create a field for the bounds, unless - -- - the expression is locally static + -- - the expression is statically built -- - the expression/name type is locally static -- - expression is a call to an unconstrained function -- - expression is an object name that is not a slice @@ -2220,7 +2220,7 @@ package body Trans.Chap8 is -- If the associated expression is not a name of an object (never -- the case for a signal interface and variable interface): -- * create a field for the value, unless - -- - expression is locally static + -- - expression is statically built -- - expression is scalar -- - expression is a call to an unconstrained function -- If the actual is a name of an object, create a field for the @@ -2243,7 +2243,7 @@ package body Trans.Chap8 is return False; end if; - if Get_Expr_Staticness (Actual) = Locally + if Is_Static_Construct (Actual) or else (Get_Kind (Act_Type) in Iir_Kinds_Scalar_Type_Definition) or else Get_Kind (Ftype) = Iir_Kind_File_Type_Definition |