diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-12-14 19:08:45 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-12-14 19:08:45 +0100 |
| commit | 7e756359d5dc492633c0a6a3cf78b10bdb884a53 (patch) | |
| tree | 1d4ec23686381b5de83a9f2df2461079cf501dde /src/vhdl/nodes.ads | |
| parent | 51f657fde8d771ca5c4002ca70ad5175c6ef3cdf (diff) | |
| download | ghdl-7e756359d5dc492633c0a6a3cf78b10bdb884a53.tar.gz ghdl-7e756359d5dc492633c0a6a3cf78b10bdb884a53.tar.bz2 ghdl-7e756359d5dc492633c0a6a3cf78b10bdb884a53.zip | |
iirs: reduce size of interface objects.
Diffstat (limited to 'src/vhdl/nodes.ads')
| -rw-r--r-- | src/vhdl/nodes.ads | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/vhdl/nodes.ads b/src/vhdl/nodes.ads index 6b80703ed..3c72b186a 100644 --- a/src/vhdl/nodes.ads +++ b/src/vhdl/nodes.ads @@ -58,9 +58,12 @@ package Nodes is -- Flag8 : Boolean -- Flag9 : Boolean -- Flag10 : Boolean + -- Flag11 : Boolean + -- Flag12 : Boolean -- Nkind : Kind_Type -- State1 : Bit2_Type -- State2 : Bit2_Type + -- Odigit1 : Bit3_Type -- Location : Location_Type -- Field0 : Iir -- Field1 : Iir @@ -78,7 +81,6 @@ package Nodes is -- Field5 : Iir -- Fields of Format_Medium: - -- Odigit1 : Bit3_Type -- Odigit2 : Bit3_Type (odigit1) -- State3 : Bit2_Type -- State4 : Bit2_Type @@ -223,6 +225,16 @@ package Nodes is procedure Set_Flag10 (N : Node_Type; V : Boolean); pragma Inline (Set_Flag10); + function Get_Flag11 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag11); + procedure Set_Flag11 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag11); + + function Get_Flag12 (N : Node_Type) return Boolean; + pragma Inline (Get_Flag12); + procedure Set_Flag12 (N : Node_Type; V : Boolean); + pragma Inline (Set_Flag12); + function Get_State1 (N : Node_Type) return Bit2_Type; pragma Inline (Get_State1); |