diff options
| author | Tristan Gingold | 2014-12-14 19:08:45 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-12-14 19:08:45 +0100 |
| commit | 7e756359d5dc492633c0a6a3cf78b10bdb884a53 (patch) | |
| tree | 1d4ec23686381b5de83a9f2df2461079cf501dde /src/vhdl/disp_vhdl.adb | |
| 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/disp_vhdl.adb')
| -rw-r--r-- | src/vhdl/disp_vhdl.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/vhdl/disp_vhdl.adb b/src/vhdl/disp_vhdl.adb index f672618..e2f776a 100644 --- a/src/vhdl/disp_vhdl.adb +++ b/src/vhdl/disp_vhdl.adb @@ -1023,7 +1023,7 @@ package body Disp_Vhdl is procedure Disp_Interface_Class (Inter: Iir) is begin - if (Get_Lexical_Layout (Inter) and Iir_Lexical_Has_Class) /= 0 then + if Get_Has_Class (Inter) then case Get_Kind (Inter) is when Iir_Kind_Interface_Signal_Declaration => Put ("signal "); @@ -1045,7 +1045,7 @@ package body Disp_Vhdl is Ind : constant Iir := Get_Subtype_Indication (Inter); begin Put (": "); - if (Get_Lexical_Layout (Inter) and Iir_Lexical_Has_Mode) /= 0 then + if Get_Has_Mode (Inter) then Disp_Mode (Get_Mode (Inter)); end if; if Ind = Null_Iir then @@ -1086,8 +1086,7 @@ package body Disp_Vhdl is when Iir_Kinds_Interface_Object_Declaration => Disp_Interface_Class (Inter); Disp_Name_Of (Inter); - while (Get_Lexical_Layout (Inter) and Iir_Lexical_Has_Type) = 0 - loop + while Get_Has_Identifier_List (Inter) loop Put (", "); Inter := Next_Inter; Next_Inter := Get_Chain (Inter); |