diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-13 20:03:24 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-13 20:03:24 +0100 |
commit | 559c6166f3c639330502f714babddb0bd6d986b4 (patch) | |
tree | bc3b083ad90257af9b7d16d4948586a1028fec7d /src/synth/synth-expr.adb | |
parent | 320a18c681edd29d8f58bd7f3109ae6ee1faffca (diff) | |
download | ghdl-559c6166f3c639330502f714babddb0bd6d986b4.tar.gz ghdl-559c6166f3c639330502f714babddb0bd6d986b4.tar.bz2 ghdl-559c6166f3c639330502f714babddb0bd6d986b4.zip |
synth: add some support for access types.
Diffstat (limited to 'src/synth/synth-expr.adb')
-rw-r--r-- | src/synth/synth-expr.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index e6a0566ac..54625936d 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -877,7 +877,8 @@ package body Synth.Expr is | Iir_Kind_Constant_Declaration | Iir_Kind_Iterator_Declaration | Iir_Kind_Object_Alias_Declaration - | Iir_Kind_File_Declaration => + | Iir_Kind_File_Declaration + | Iir_Kind_Interface_File_Declaration => return Get_Value (Syn_Inst, Name); when Iir_Kind_Enumeration_Literal => return Create_Value_Discrete @@ -1778,6 +1779,8 @@ package body Synth.Expr is B := Synth_Array_Attribute (Syn_Inst, Expr); return Create_Value_Discrete (Int64 (B.Len), Expr_Type); end; + when Iir_Kind_Null_Literal => + return Create_Value_Access (Expr_Type, Null_Heap_Index); when Iir_Kind_Overflow_Literal => declare N : Net; |