diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-02-12 21:06:00 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-02-12 21:07:48 +0100 |
commit | 748a8a732b96a8940bb1461502d1f1eaec0e9576 (patch) | |
tree | f5ca5d3d953cb32ae88144cc59088e1bd0df707c /src/vhdl/translate/trans.ads | |
parent | fce8f87f735b5eadca4e6b85eefaecdb50159704 (diff) | |
download | ghdl-748a8a732b96a8940bb1461502d1f1eaec0e9576.tar.gz ghdl-748a8a732b96a8940bb1461502d1f1eaec0e9576.tar.bz2 ghdl-748a8a732b96a8940bb1461502d1f1eaec0e9576.zip |
vhdl08: unbounded records (WIP)
Diffstat (limited to 'src/vhdl/translate/trans.ads')
-rw-r--r-- | src/vhdl/translate/trans.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 412c37c8e..b1549a0cb 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -1091,16 +1091,16 @@ package Trans is -- Variable containing the size of the type. -- This is defined only for types whose size is only known at -- running time (and not a compile-time). - Size_Var : Var_Type; + Size_Var : Var_Type := Null_Var; - Builder_Need_Func : Boolean; + Builder_Need_Func : Boolean := False; -- Parameters for type builders. -- NOTE: this is only set for types (and *not* for subtypes). Builder_Instance : Subprgs.Subprg_Instance_Type; Builder_Base_Param : O_Dnode; Builder_Bound_Param : O_Dnode; - Builder_Func : O_Dnode; + Builder_Func : O_Dnode := O_Dnode_Null; end record; type Complex_Type_Arr_Info is array (Object_Kind_Type) of Complex_Type_Info; type Complex_Type_Info_Acc is access Complex_Type_Arr_Info; |