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/sem.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/sem.adb')
| -rw-r--r-- | src/vhdl/sem.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index e82bd72b7..1410c176c 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -1187,7 +1187,10 @@ package body Sem is if Get_Identifier (Left) /= Get_Identifier (Right) then return False; end if; - if Get_Lexical_Layout (Left) /= Get_Lexical_Layout (Right) + if Get_Has_Mode (Left) /= Get_Has_Mode (Right) + or else Get_Has_Class (Left) /= Get_Has_Class (Right) + or else (Get_Has_Identifier_List (Left) + /= Get_Has_Identifier_List (Right)) or else Get_Mode (Left) /= Get_Mode (Right) then return False; |