diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-05-27 17:50:12 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-05-28 17:47:48 +0200 |
| commit | 691d4875f0710e0603a7ae563600f9a6c041c6d6 (patch) | |
| tree | 529071dca47189003ebc87cc6e1c6afd5e12b975 /src/ortho/debug/ortho_debug.private.ads | |
| parent | 58756712b9465c24e1d2a198e5a03aae7ebbf774 (diff) | |
| download | ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.tar.gz ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.tar.bz2 ghdl-691d4875f0710e0603a7ae563600f9a6c041c6d6.zip | |
ortho: add a length parameter to start_array_aggr.
Diffstat (limited to 'src/ortho/debug/ortho_debug.private.ads')
| -rw-r--r-- | src/ortho/debug/ortho_debug.private.ads | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/ortho/debug/ortho_debug.private.ads b/src/ortho/debug/ortho_debug.private.ads index b505ff434..7586319ff 100644 --- a/src/ortho/debug/ortho_debug.private.ads +++ b/src/ortho/debug/ortho_debug.private.ads @@ -135,7 +135,8 @@ private OC_Alignof_Lit, OC_Offsetof_Lit, OC_Default_Lit, - OC_Aggregate, + OC_Array_Aggregate, + OC_Record_Aggregate, OC_Aggr_Element, OC_Union_Aggr, OC_Address, @@ -170,8 +171,11 @@ private S_Type : O_Tnode; when OC_Offsetof_Lit => Off_Field : O_Fnode; - when OC_Aggregate => - Aggr_Els : O_Cnode; + when OC_Array_Aggregate => + Arr_Len : Unsigned_32; + Arr_Els : O_Cnode; + when OC_Record_Aggregate => + Rec_Els : O_Cnode; when OC_Union_Aggr => Uaggr_Field : O_Fnode; Uaggr_Value : O_Cnode; |