diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-26 19:24:18 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-26 19:24:18 +0200 |
commit | 1014234660d921a5dccb8bd1d1766190f561611b (patch) | |
tree | 4f5255bed98fe6f22869691a4f96726f0f368f47 /src/vhdl/elocations.ads | |
parent | 5cfe481f7c2cbf90917b00862af02687f1ec2893 (diff) | |
download | ghdl-1014234660d921a5dccb8bd1d1766190f561611b.tar.gz ghdl-1014234660d921a5dccb8bd1d1766190f561611b.tar.bz2 ghdl-1014234660d921a5dccb8bd1d1766190f561611b.zip |
Add elocation for right parenthesis.
Diffstat (limited to 'src/vhdl/elocations.ads')
-rw-r--r-- | src/vhdl/elocations.ads | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/vhdl/elocations.ads b/src/vhdl/elocations.ads index a6b728fa4..57c044b52 100644 --- a/src/vhdl/elocations.ads +++ b/src/vhdl/elocations.ads @@ -502,7 +502,9 @@ package Elocations is -- Iir_Kind_Aggregate_Info (None) - -- Iir_Kind_Parenthesis_Expression (None) + -- Iir_Kind_Parenthesis_Expression (L1) + -- + -- Get/Set_Right_Paren_Location (Field1) -- Iir_Kind_Qualified_Expression (None) @@ -621,6 +623,10 @@ package Elocations is function Get_Start_Location (N : Iir) return Location_Type; procedure Set_Start_Location (N : Iir; Loc : Location_Type); + -- Field: Field1 + function Get_Right_Paren_Location (N : Iir) return Location_Type; + procedure Set_Right_Paren_Location (N : Iir; Loc : Location_Type); + -- Field: Field2 function Get_End_Location (N : Iir) return Location_Type; procedure Set_End_Location (N : Iir; Loc : Location_Type); |